Placing all symbols from the recourse browser on a Design Layer

[Bas Vellekoop]

Hi all,

 

I tought this existed already, but could not find it.

 

Is there a Marionette script that puts all symbols in a grid on your design layer?

[Pat Stanford]

I think this is the one you are thinking of.

 

 

But there are other older and less powerfu versions also:

 

 

 

 

 

[Pat Stanford]

The search term I used to find these was "place all symbols" and then for the last one (because I knew I wrote it but it did not show "placeallsymbols"

[Marissa Farrell]

@Bas Vellekoop

There's also this from @DomC, not in a traditional vwx format as the file is missing, but might be what you were thinking of?
 

 

[Bas Vellekoop]

@Pat Stanford Thanks for all the search results!

 

@Marissa Farrell This node / marionette script is was looking for. Is there a way of getting it back? 

[Marissa Farrell]

For a while I was able to get to an old hosting of the techboard, but it no longer seems to work. I'll try to track down if there's anyone who knows if we can still get to things internally, but otherwise I can throw something new together for you soon.

[DomC]

Hi
You may search for this one?
 

 

[Bas Vellekoop]

Whoopwhoop 🎊 Indeed going to test this soon.

[Nico_be]

Hello,

I've been using this script for a long time, and I've integrated it into the menu via the Plugin Manager because it's so practical and frequently used.

 

PROCEDURE ShowAllSymbols;

{?1999 Graphsoft, Inc.}
{The traverseSymbolList procedure was developed by Craig Hollinshead.}

VAR
     numFolders, numNestedFolders, numSymbols : INTEGER;
     messageString : STRING;
     OK : BOOLEAN;
     NewPtSize : INTEGER;
     OldPtSize : INTEGER;
     SelectedObj : HANDLE;
     TheSymbolName : STRING;
     SymFolderName : STRING;
     TheSymDef : HANDLE;
     SymDef2 : HANDLE;
     ChangeAllLines : BOOLEAN;
     CurrLayer : HANDLE;
     X, Y : REAL;
     XSpacing, YSpacing : REAL;
     NumAcross : INTEGER;
     StartX, StartY : REAL;
     LayerNames : ARRAY[0..200] OF STRING;
     Index : INTEGER;

{=============================================================================}

     PROCEDURE TraverseSymbol(theSym:Handle);

     VAR
             symObjClass : STRING;
             origLineWt : INTEGER;
             symName : STRING;
             symInstance : HANDLE;
             sX1, sX2, sY1, sY2 : REAL;

     BEGIN
             symName := GetSDName(theSym);
             symName := GetName(theSym);
             Symbol(symName, X, Y, 0);
             symInstance := LNewObj;
             GetBBox(symInstance, sX1, sY1, sX2, sY2);
             TextFace([bold]);
             TextOrigin(sX1, sY2 - 1);
             BeginText;
                     symName
             EndText;
             numSymbols := numSymbols + 1; {Increment symbol count here for accurate tracking}
             X := X + XSpacing;
             IF (X >= (StartX + (NumAcross * XSpacing))) THEN
             BEGIN
                     X := StartX;
                     Y := Y - YSpacing; {Move to next row}
             END;
             Message(concat('The Sym#', Num2Str(0, numSymbols), ' is   -   ', symName));
     END; {PROCEDURE TraverseSymbol}

{==============================================================}

     PROCEDURE traverseSymbolList (itemHdl:HANDLE);
     BEGIN
             WHILE (itemHdl <> NIL) DO BEGIN
                     CASE GetType (itemHdl) OF
                             16:BEGIN
                                     TraverseSymbol(itemHdl);
                             END;
                             92:BEGIN
                                     SymFolderName := GetName(itemHdl);
                                     numFolders := numFolders + 1;
                                     numNestedFolders := numNestedFolders + 1;
                                     LayerNames[numFolders] := SymFolderName;
                                     Layer(SymFolderName);
                                     X := StartX;
                                     Y := StartY;
                                     TraverseSymbolList (FInFolder (itemHdl));
                             END;
                     END; {CASE GetType (itemHdl)}
                     itemHdl := NextObj (itemHdl);
             END; {WHILE (itemHdl <> NIL)}
             IF numNestedFolders > 0 THEN
                     numNestedFolders := numNestedFolders - 1;
     END; {PROCEDURE traverseSymbolList}

{==============================================================}

BEGIN
{*/// Main program ///*}

     XSpacing := DistDialog('Enter Horizontal Spacing Distance:', '');
     YSpacing := DistDialog('Enter Vertical Spacing Distance:', '');
     NumAcross := IntDialog('Enter the number of symbols per row', '');
     Message('Click on top left corner of the grid');
     GetPt(StartX, StartY);
     CurrLayer := ActLayer;
     numFolders := 0;
     numNestedFolders := 0;
     numSymbols := 0;
     X := StartX;
     Y := StartY;
     LayerNames[0] := GetLName(ActLayer);
     IF FSymDef <> NIL THEN
             TraverseSymbolList (FSymDef);

     Index := 0;
     Layer(LayerNames[Index]);
     WHILE (FInLayer(ActLayer) = NIL) DO
     BEGIN
             Index := Index + 1;
             Layer(LayerNames[Index]);
     END;
     SetLayerOptions(1);
     Redraw;
     ClrMessage;
END; {PROCEDURE ShowAllSymbols}
RUN (ShowAllSymbols);