Macro to Insert Current Date
The code
is to insert the current date in a drawing.
written by Impulse
More on this topic:
http://forums.upperspace.com/topic.asp?TOPIC_ID=2914
'Program: todaysdate.d3m
'sys$(8) - Current date (read_only)
Text$ =
Sys$(8)
>ID_TEXT3D
{
<Color 0,0,255
<Layer 133
<PointXYZ [ts*363.06*2.9,ts*52,0.0000]
<Style 0
<Justification 0
<Size [ts*15.0000]
<Angle 0.0000
<Font "Arial"
<Text [TEXT$]
}
File to Download:
todaysdate.zip