Vectorworks, Inc Employee Robert Anderson Posted July 17, 2009 Vectorworks, Inc Employee Share Posted July 17, 2009 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); Quote Link to comment
Recommended Posts
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.