TIME & DATE STAMP FOR DWG

[TOM WONG]

Does anyone know if there is a macro that would allow me to stamp a "time & date" on a drawing. It shoul be flexible as far as placement, ie.. (anywhere on the drawing). It can automatically do it, or can be entered thru the command line. We use AutoCAD here also, and it has a lisp program that automatically does it. It is called "plotdate". Any information would be helpful. Thanks in advance.

[Darren Litherland]

You don't really need a macro! Just write TEXT (DATE) and place the text! Easy.

[Gerhard Deeg]

DEFINE Form_datum LOCAL A LOCAL Bz INQ_ENV 0 IF (INQ 2>=4.1) LET Form_datum_zahl 1 Form_stifttext Form_schrift_speicher_vor CURRENT_FONT 'hp_d17_v' TEXT_FRAME OFF TEXT_ANGLE 0 TEXT_ADJUST 4 TEXT_LINESPACE 1.5 TEXT_FILL OFF TEXT_SIZE 2.5 TEXT_RATIO 0.8 TEXT_SLANT 0 LET A ((SUBSTR DATE 1 2)+'. '+(SUBSTR DATE 4 3)+'. '+(SUBSTR DATE 10 8)+ ' Uhr') READ PNT 'BEZUGSPUNKT des Plotdatums im Schriftfeld Ausrichtung >> links Mitte << = ?' Bz TEXT ('plotd.: '+A) Bz END Form_schrift_speicher_zur ELSE CURRENT_FONT 'hp_d17_v' TEXT_FRAME OFF TEXT_ANGLE 0 TEXT_ADJUST 4 TEXT_LINESPACE 1.5 TEXT_FILL OFF TEXT_SIZE 2.5 TEXT_RATIO 0.8 TEXT_SLANT 0 TEXT WHITE END LET A ((SUBSTR DATE 1 2)+'. '+(SUBSTR DATE 4 3)+'. '+(SUBSTR DATE 10 8)+ ' Uhr') TEXT ('plotd.: '+A) END_IF END_DEFINE DEFINE Form_stifttext TEXT MAGENTA END END_DEFINE DEFINE Form_schrift_speicher_vor INQ_ENV 12 IF (Form_datum_zahl=1) LET Text_inq_602 (INQ 602) LET Text_inq_601 (INQ 601) LET Text_inq_302 (INQ 302) LET Text_inq_8 (INQ 8) LET Text_inq_7 (INQ 7) LET Text_inq_6 (INQ 6) LET Text_inq_5 (INQ 5) LET Text_inq_4 (INQ 4) LET Text_inq_3 (INQ 3) LET Text_inq_2 (INQ 2) END_IF END_DEFINE DEFINE Form_schrift_speicher_zur IF (Form_datum_zahl=1) TEXT_FRAME (Text_inq_601) TEXT_FILL (Text_inq_602) CURRENT_FONT (Text_inq_302) TEXT_ADJUST (Text_inq_3) TEXT_LINESPACE (Text_inq_4) TEXT_RATIO (Text_inq_5) TEXT_SIZE (Text_inq_6) TEXT_SLANT (Text_inq_7) TEXT_ANGLE (Text_inq_8) END_IF END_DEFINE