Jump to content
Sign in to follow this  
Robert Anderson

Simple Class Reporting Script

Recommended Posts

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);

Share this post


Link to post

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this  

 

7150 Riverwood Drive, Columbia, Maryland 21046, USA   |   Contact Us:   410-290-5114

 

© 2018 Vectorworks, Inc. All Rights Reserved. Vectorworks, Inc. is part of the Nemetschek Group.

×