Jump to content
  • 0

Data stamp to update


Seth / MG

Question

6 answers to this question

Recommended Posts

  • 0

Someone indeed has in 2003.

http://www.vectordepot.com/Plugins1.shtml

Print and Stamp: This menu tool will update any date and filenam [sic] stamps that existing in the file [what?]. If no stamps exist they will be created. After the stamps are updated the file will be printed. The source is open soo you may modfiy [sic] the format* of the stamps.

It is intended as a replacement for the standard Print command - well, sort of. At least keyboardshortcutwise.

"On open" seems redundant - and can't be done.

*) Date display format.

Link to comment
  • 0

Here is a script that works in VectorWorks 2008. I wrote it 10 years ago, but it still works. It date stamps the drawing then issues the print command. Create a command and install it in the File menu. I reassigned Command-P to it in place of the regular Print command.

It needs and existing text block on the drawing (named "date stamp"). I have it on my standard title block along the binding edge. It stamps the drawing with (Day, Date, Time, File Name, VectorWorks version). Try it out.

Procedure DateStampPrintDL;

LABEL 99;

VAR

dateFormat, infoFormat, vMaj, vMin, vMai, vPlat : INTEGER;

textH : HANDLE;

dateValue, docName, compPlatform, stampString : STRING;

PrintYes : BOOLEAN;

BEGIN

textH := GetObject('Date Stamp');

IF textH = NIL THEN

BEGIN

Sysbeep;

PrintYes := YNDialog('The text block named "Date Stamp" is missing from this drawing ? PRINT IT ANYWAY ?');

IF PrintYes = False THEN GOTO 99;

END;

dateformat := 0; {0=Full, 1=Abbrev, 2=Short}

infoformat := 1; {0=Date, 1=Date & Time, 2=Time}

dateValue := Date(dateFormat, infoFormat);

docName := GetFName;

GetVersion(vMaj, vMin, vMai, vPlat);

IF vPlat = 1 THEN

compPlatform := 'Macintosh'

ELSE

compPlatform := 'Windows';

stampString := Concat(dateValue,' ? File: ',docName,' ? Drawing prepared with VectorWorks-', vMaj, '.', vMin, '.', vMai, ' for ', compPlatform);

SetText(textH, stampString);

DoMenuTextByName('Print',0);

99: END;

RUN ( DateStampPrintDL);

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
Answer this question...

×   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...