home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / APPS / CAD / PKEY11_1.ZIP / PLOT.LSP < prev    next >
Encoding:
Text File  |  1992-03-14  |  1.1 KB  |  32 lines
  1. ;plot drawing and add data in current text size (be carefull)
  2. ;
  3. ;                     ********Patrick J. McKee, author********
  4. ;                       ****Copyright 1992, Power Key tm****
  5. ;
  6. (defun c:plt(/ CD PL1 PL2 OL PT1 DWN TXA TX1B PLT1 DWGN1 TX TX1)
  7. (setq  oer  *error*  *error*  err)
  8. (pre)
  9. (setq cd (rtos (getvar "cdate") 2 6)
  10.       pl1 (strcat "Plot date: "
  11.           (substr cd 5 2) "/"
  12.           (substr cd 7 2) "/"
  13.           (substr cd 3 2))
  14.       pl2 (strcat "Time: "
  15.           (substr cd 10 2) ":"
  16.       (substr cd 12 2) ":"
  17.       (substr cd 14 2)))
  18. (setq ol(getvar "clayer"))
  19. (setq pt1(getpoint "\nText point : "))
  20. (setq dwn(getvar "dwgname"))
  21. (setq txa(getstring "\nEnter your user name : "))
  22. (setq tx1b(getstring "\nTo whom is this plot delivered ? "))
  23. (Setq plt1(getstring "\nEnter plot scale :"))
  24. (setq dwgn1(strcat "Drawing name: " DWN))
  25. (setq tx(strcat "User name: " txa))
  26. (setq tx1(strcat "Deliver to: " tx1b))
  27. (command"layer""M""txt""")
  28. (command"text" pt1 "0" tx "text""" tx1 "text""" pl1 "text""" pl2 "text""" dwgn1)
  29. (command"layer""M" ol "")
  30. (command"script" plt1)
  31. (post)
  32. (princ))