home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Monster Media 1993 #2
/
Image.iso
/
cad
/
stmp_m.zip
/
STMP_M.TXT
next >
Wrap
Text File
|
1993-07-14
|
2KB
|
40 lines
STMP_M.ZIP
code modified from July 93 Cadalyst tip #881
Lisp Routine to Place Current Time, Date, Drawing Name and operator's
initials at selected location(s) and rotation (entered or picked).
STMP.DWG accompanying this file must be in the ACAD path.
Suggestions: insert STMP.DWG in your prototype drawing,
include the command C:STMP in menu or keyboard save macros.
To include operator's initials, put the line
set intl=XXX
(where XXX is the operator's initials)
in the autoexec.bat or acad.bat file
Text will be L60 (.06") when plotting scale = stamp block insertion
scale, but the routine can be easily modified to suit.
Revisions by ME... I wasn't happy with the way the time & date were
displayed in the original lisp (stmp.lsp), so I modified all
the things I needed to such that the time, date and drawing
name are now displayed like this
July 08, 1993 7:56:32 p.m.
Drawing: C:\DATA\ME1177\1177_P10.DWG
Xrefs: 1117.DWG 2436.DWG 2436A.DWG
The stmp.dwg has been modified so that all the attributes are
right-justified, and the block insertion point is the text
insertion point of the drawing name. (Xrefs are not normally
used in our drawings). This setup allows us to insert the
block so that it is right-justified in the lower right-hand
corner of our various border sheets. The stmp_me.dwg will be
inserted on the current layer. One last addendum is the ever-
present menu modification code, use or discard as ya see fit!
[STAMP_ME]^C^C^C(IF (not c:stmp_me);(LOAD "stmp_me"));stmp_me;
Good luck with this program, it was fun to edit it! ME
Modifications by Mark Evinger