Printing classes and layers

[LEAFS]

Can anyone help me in printing out the classes and layers in a list form from my drawing. I don't know if this is possible or not.

[Robert Anderson]

LEAFS, copy and paste the following script into a TEXT file on your machine. Put it in a safe place, then use the 'Run VectorScript' command to access it whenever you need this:

{ BEGIN COPY HERE }

Procedure List_Structure;

VAR

temp_i :INTEGER;

FileN :STRING;

Lyr_h :HANDLE;

BEGIN

PutFile('Locate the Output file','Layers&ClassesList',FileN);

WriteLn('CLASS NAME LIST:');

FOR temp_i := 1 TO ClassNum DO WriteLn(chr(9),classlist(temp_i));

Lyr_h := fLayer;

WriteLn('LAYER NAME LIST:');

WHILE Lyr_h <> NIL DO

BEGIN

WriteLn(chr(9),GetLName(Lyr_h));

Lyr_h := nextlayer(Lyr_h);

END;

Close(fileN);

END;

RUN(List_Structure);

{ FINISH COPY HERE }