Jump to content

Simple Class Reporting Script


Recommended Posts

  • Vectorworks, Inc Employee

This script writes a simple tab-delineated report of class names and attributes in the current file. (I scratched it out this morning for a different purpose and thought I'd share.)

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

Procedure WriteClassAttribs;

VAR i:LONGINT; fnm:STRING;

PFR,PFG,PFB,FFR,FFG,FFB,FBR,FBG,FBB:LONGINT;

BEGIN

Putfile('Locate the Class list file output:','ClassList.TXT',fnm);

Writeln('Class Name',chr(9),

'Class pen RGB',chr(9),

'Class line weight',chr(9),

'Class line style',chr(9),

'Class fill pat',chr(9),

'Class fill fore RGB',chr(9),

'Class fill back RGB',chr(9),

'Class use at creation');

FOR i := 1 TO Classnum DO

BEGIN

GetClPenFore(Classlist(i),PFR,PFG,PFB);

GetClFillFore(Classlist(i),FFR,FFG,FFB);

GetClFillBack(Classlist(i),FBR,FBG,FBB);

Writeln(Classlist(i),chr(9),

PFR,'-',PFG,'-',PFB,chr(9),

GetClLW(classlist(i)),chr(9),

GetClLS(classlist(i)),chr(9),

GetClFPat(classlist(i)),chr(9),

FFR,'-',FFG,'-',FFB,chr(9),

FBR,'-',FBG,'-',FBB,chr(9),

GetClUseGraphic(classlist(i)));

END;

Close(fnm);

END;

RUN(WriteClassAttribs);

Link to comment

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.

Guest
Reply to this topic...

×   Pasted as rich text.   Restore formatting

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
×
  • Create New...