home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1993 #2 / Image.iso / cad / stmp_m.zip / STMP_M.TXT next >
Text File  |  1993-07-14  |  2KB  |  40 lines

  1. STMP_M.ZIP
  2.  
  3. code modified from July 93 Cadalyst tip #881
  4.  
  5.  Lisp Routine to Place Current Time, Date, Drawing Name and operator's 
  6.  initials at selected location(s) and rotation (entered or picked).
  7.  STMP.DWG accompanying this file must be in the ACAD path.
  8.  Suggestions:  insert STMP.DWG in your prototype drawing,
  9.                include the command C:STMP in menu or keyboard save macros.
  10.        To include operator's initials, put the line 
  11.            set intl=XXX
  12.            (where XXX is the operator's initials)
  13.        in the autoexec.bat or acad.bat file
  14.  Text will be L60 (.06") when plotting scale = stamp block insertion 
  15.  scale, but the routine can be easily modified to suit.
  16.  
  17. Revisions by ME... I wasn't happy with the way the time & date were
  18.        displayed in the original lisp (stmp.lsp), so I modified all
  19.        the things I needed to such that the time, date and  drawing
  20.        name are now displayed like this
  21.  
  22.                        July 08, 1993 7:56:32 p.m.
  23.              Drawing: C:\DATA\ME1177\1177_P10.DWG
  24.                Xrefs: 1117.DWG 2436.DWG 2436A.DWG
  25.  
  26.        The stmp.dwg has been modified so that all the attributes are
  27.        right-justified, and the block insertion point  is  the  text
  28.        insertion point of the drawing name. (Xrefs are not  normally
  29.        used in our drawings). This setup  allows  us  to  insert the
  30.        block so that it is right-justified in the  lower  right-hand
  31.        corner of our various border sheets.  The stmp_me.dwg will be
  32.        inserted on the current layer. One last addendum is the ever-
  33.        present menu modification code, use or discard as ya see fit!
  34.        
  35.        [STAMP_ME]^C^C^C(IF (not c:stmp_me);(LOAD "stmp_me"));stmp_me;
  36.  
  37.     Good luck with this program, it was fun to edit it! ME
  38.  
  39.  Modifications by Mark Evinger 
  40.