Design Layer Data into worksheet

[Thomas K.]

Hi all,

 

 

is it possible to show Design Layer Data in a worksheet?

 

Row 1 : Name

Row 2 : Stacking Order

Row 3 : Description

Row 4 : Elevation

Row 5 :  Tag

Row 6 : Scale

 

Thank you fo your help1

[Peter Vandewalle]

Not without scripting.

[Thomas K.]

43 minutes ago, Peter Vandewalle said:

Not without scripting.

😞

 

Any tips where to start...

[Pat Stanford]

Working on it.

 

[Thomas K.]

@Pat Stanford 

found your script Procedure DesignLayers_to_Worksheet;

i sniffed around to find what variables are used for the additional data and how to get them into the same worksheet. no success...

and as a goody how can the order be changed from top to bottom?

 

Edited April 22, 2021 by Thomas K.

[Pat Stanford]

I have an almost functional version that is displaying the Name, Description, Elevation and Scale. I don't think the Sorting Order is displayed in the OIP is available via script. The default order that you get the layers is they "inverse" of the stacking order. i.e from the bottom of the list up to the top. We could fix that in the script if necessary.

 

I have another script floating around about getting tag data that could be incorporated. If I remember correctly, all of the tags have to be read out at once. Do you want the Tag field to show all the tags associated with the layer?

 

How do you want the final output? Your list above, a space and then the list from the next layer? Or one layer in each column?

 

Can you post a file showing a few layers with your typical descriptions and tags I can use to test?

[Julian Carr]

I had actually been working on this for an internal project so this request prompted me to finish it (Layer Manager Worksheet.zip). The worksheet is editable so will push data back to the layers. It includes a short video describing how it works.

[michaelk]

@Julian Carr

 

There are so many things I like about Layer Manager Worksheet.  Not sure where to start.  

 

Nice work!

[Dylan]

I'm very glad I found this thread and the Layer Manager Worksheet, it's been very handy when reorganizing sheets. @Julian CarrI have one question, is there a way to report the Sheet Title in the same way that the description is reported? It would save a lot of time to be able to change the sheet titles from the worksheet.

 

Thanks for putting this together Julian!

 

-Dylan

[Julian_Carr]

Good suggestion Dylan. I have modified the worksheet to include separate columns for layer name and layer number, and attached it as a Vw 2021 file.

Layer Info Worksheet 3.vwx

[Dylan]

Julian, I can't thank you enough for this! 

 

We start projects on Tabloid (11x17") sized sheets during the preliminary design phases and then change sheet sized to 22x34" for constructions documents. Re-organizing our sheet layers was always time consuming. Not anymore!

[ashot]

@Pat Stanford I found your scripts for procedures for

1) 2023 - all Layers (DL+SL in one list) to WS - Procedure Layers_to_Worksheet;

2) 2017 - Sheet Layers to WS - Procedure SheetLayers_to_Worksheet;

 

Please can't find the missing - one script only for Design layers to WS?

something like: 

Procedure DesignLayers_to_Worksheet;

 

Edited June 7, 2024 by ashot

[Pat Stanford]

Procedure DesignLayers_to_Worksheet;
{Make a worksheet listing all of the design layers in a VW file}
{Lists both used and unused layers}
{The worksheet is named "Layers:"with and appended date}
{Sorts layers in alphabetical order prior to storing in worksheet}
{March 19, 2015}
{© 2015,2010, 2008, Pat Stanford pat@coviana.com}
{Licensed under the GNU Lesser General Public License}
Type	LayerData = Structure
		LayerName, Stack, Descrip, Elevation, Tag, Scale: String;
		End;
var	H1, H2:	Handle;
N1, N2:	LongInt;
R1, R2: Real;
S1: DynArray of Char;
LayerSort : Array[1..1024] of LayerData;

Begin
H2:=FLayer;
N2:=1;

While H2 <> nil do
	Begin
		If ((GetObjectVariableInt(H2,154)= 1) | (GetObjectVariableInt(H2,154)= 2)) then
			Begin
				LayerSort[N2].LayerName:=GetLName(H2);
				GetDescriptionText(H2,S1);
				LayerSort[N2].Descrip:=S1; {GetObjectVariableString(H2, 159);}
				GetLayerElevation(H2, R1, R2);			
				LayerSort[N2].Elevation:=Concat(R1);
				LayerSort[N2].Scale:=Concat('1:',GetLScale(H2));
				N2:= N2 + 1;
			End;
		H2:=NextLayer(H2);
	End;

{Add Curly Braces (comment out) the next line to not sort the layers by name}
{SortArray(LayerSort,N2-1,1);  }

H1:=CreateWS(Concat('Layers:',date(2,1)),N2+6,6);
For N1:= 1 to  N2 do 
	Begin
		SetWSCellFormula(H1,N1+2,1,N1+2,1,LayerSort[N1].LayerName);	
		SetWSCellFormula(H1,N1+2,2,N1+2,2,LayerSort[N1].Descrip);
		SetWSCellFormula(H1,N1+2,3,N1+2,3,LayerSort[N1].Elevation);
		SetWSCellFormula(H1,N1+2,4,N1+2,4,LayerSort[N1].Scale);
	End;

SetWSCellFormula(H1,1,1,1,1,'Layers in File');
SetWSCellFormula(H1,2,1,2,1,'Layer Name');	
SetWSCellFormula(H1,2,2,2,2,'Description');	
SetWSCellFormula(H1,2,3,2,3,'Elevation');	
SetWSCellFormula(H1,2,4,2,4,'Scale');	

ShowWS(H1,True);

End;

Run(DesignLayers_to_Worksheet);