Layer setup in pastable format

[Keith W]

Hi there,

I'm wondering if there's some way to get access to my layer setup (name, Z, +_Z are the fields of immediate interest) in a format that I can cut and paste into an email or spreadsheet, or something. I suppose I could just pdf a screenshot too...

Anyway, is there some way to get it in a schedule-like worksheet or something?

Keith

[CipesDesign]

The only way I can think of is to take a ScreenShot of the Layers Dialog... Perhaps someone else has another way...

[Pat Stanford]

Here is a script that is a start. Copy this and paste it into a new Vectrorscript window from the Resource Browser.

You will have to drag the resulting worksheet onto the drawing from the resource browser.

Let me know what you like and don't like and we can fix it up a little bit.

Procedure Layers_to_Worksheet;
{Make a worksheet listing all of the Layers and some}
{of the layer information in a VW file}

{The worksheet is named "Layers:"with and appended date}
{March 27, 2009}
{? 2009, Coviana, Inc - Pat Stanford pat@coviana.com}
{Licensed under the GNU Lesser General Public License}

var		H1,H2:	Handle;
		N1:	LongInt;
		Z1,dZ1:	Real;

Begin
H1:=CreateWS(Concat('Layers:',date(2,1)),NumLayers+2,4);
H2:=FLayer;

For N1:= 1 to NumLayers do
	Begin
		GetLayerElevation(H2,Z1,dZ1);
		SetWSCellFormula(H1,N1+1,1,N1+1,1,GetLName(H2));	
		SetWSCellFormula(H1,N1+1,2,N1+1,2,Num2StrF(Z1));	
		SetWSCellFormula(H1,N1+1,3,N1+1,3,Num2StrF(dZ1));			
		 SetWSCellFormula(H1,N1+1,4,N1+1,4,concat('1:',Num2Str(0,GetLScale(H2))));

		H2:=NextLayer(H2);
	end;
SetWSCellFormula(H1,1,1,1,1,'Layer');
SetWSCellFormula(H1,1,2,1,2,'Layer Z');
SetWSCellFormula(H1,1,3,1,3,'delta Z');
SetWSCellFormula(H1,1,4,1,4,'Layer Scale');
End;

Run(Layers_to_Worksheet);