Script to Export Revision Data from Sheet Layers

[Robert Anderson 128]

This VectorScript is a prototype that addresses the following topics:

-reading information obtained from record data

-formatting and outputting that data into a text file

The text output can then be used in any number of applications or databases. With minor revisions, this script could be modified to export issue data from the drawing border objects, etc.

PROCEDURE export_revisions;

CONST
errmsg_no_DBs = 'ERROR: There are no Drawing Borders in the drawing to report on.';
putfile_prompt = 'Locate the Drawing Border Revision report:';
putfile_default = 'DB_Revisions';
pio_nm = 'Drawing Border - Universal';
tag1 = 'File name';
tag2 = 'Sheet layer';
tag3 = 'Number';
tag4 = 'Description';
tag5 = 'Date';
tag6 = 'Approval';
tag7 = 'Zone';

VAR
outputfile,fname	:STRING;
cnt_cum	:INTEGER;

PROCEDURE handle_TB(TB_h:HANDLE);
CONST
rev_enabled = 'insertRevBlock';
fmt_nm = 'Revision Data';
fld_pfx_1 = 'Description-';
fld_pfx_2 = 'Date-';
fld_pfx_3 = 'Approved-';
fld_pfx_4 = 'Zone-';

VAR
cnt :INTEGER;
desc,dt,apprvd,zone,lyr_nm,result:STRING;
test : BOOLEAN;

BEGIN
result :=getrfield(TB_h,pio_nm,rev_enabled);
uprstring(result);
IF (result = 'TRUE') THEN 
	BEGIN
	lyr_nm :=  getlname(getlayer(TB_h));
	FOR cnt := 1 TO 50 DO
		BEGIN
		desc := getrfield(TB_h,fmt_nm,concat(fld_pfx_1,num2str(0,cnt)));
		dt := getrfield(TB_h,fmt_nm,concat(fld_pfx_2,num2str(0,cnt)));
		apprvd := getrfield(TB_h,fmt_nm,concat(fld_pfx_3,num2str(0,cnt)));
		zone := getrfield(TB_h,fmt_nm,concat(fld_pfx_4,num2str(0,cnt)));
		test := NOT((desc = '')&(apprvd = '')&(zone = ''));
		IF test THEN
			BEGIN
			cnt_cum := cnt_cum + 1;
			writeln(fname,chr(9),lyr_nm,chr(9),num2str(0,cnt_cum),chr(9),desc,chr(9),dt,chr(9),apprvd,chr(9),zone);
			END;
		END;
	END;
END;

BEGIN
cnt_cum := 0;
IF Count(R IN [pio_nm]) > 0 THEN
BEGIN
fname := GetFName;
putfile(putfile_prompt,putfile_default,outputfile);
writeln(tag1,chr(9),tag2,chr(9),tag3,chr(9),tag4,chr(9),tag5,chr(9),tag6,chr(9),tag7);
ForEachObject(handle_TB,R IN [pio_nm]);
Close(outputfile);
END ELSE alrtdialog(errmsg_no_DBs);
END;

RUN(export_revisions);

Edited December 5, 2007 by Robert Anderson