home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / APPS / CAD / PKEY11_1.ZIP / LD.LSP < prev    next >
Encoding:
Text File  |  1992-03-14  |  1.6 KB  |  47 lines
  1. ;Add a leader note to your drawing (handy)
  2. ;
  3. ;                     ********Patrick J. McKee, author********
  4. ;                       ****Copyright 1992, Power Key tm****
  5. ;
  6. (defun lderr (s)
  7. (if (/= s "Function cancelled")(princ (strcat "\nError: " s)))
  8. (setq rw *rw)
  9. (setq tg *tg)
  10. (setq kb *kb)
  11. (setvar "orthomode" OM)
  12. (setq *error* olderr)
  13. (princ))
  14. (defun dtr (angg)
  15. (* pi (/ angg 180.0)))
  16. (setq olderr *error* *error* lderr)
  17. (if (= *rw nil)(setq *rw "A")(setq rw *rw))
  18. (SETQ OM (GETVAR "ORTHOMODE"))
  19. (IF (= scf nil)(SETQ SCF (GETREAL "\nENTER SCALE FACTOR FOR THIS SHEET: "))
  20. (SETQ *SCF SCF))
  21. (SETQ arw(GETSTRING (STRCAT "\n(A)rch. arrow. (D)im arrow.  Do(T). < ")
  22. (PROMPT *rw)(prompt "\ >")(princ)))
  23. (if(= arw "")(setq arw *rw)(setq *rw arw))
  24. (IF(OR(= arw "A")(= arw "a"))(SETQ arw "aarw"))
  25. (IF(OR(= arw "D")(= arw "d"))(SETQ arw "darw"))
  26. (IF(OR(= arw "T")(= arw "t"))(SETQ arw "dota"))
  27. (setq FP(getpoint "\nPick leader startpoint : "))
  28. (setvar "orthomode" 0)
  29. (setq SP(getpoint  FP "\nsecond point: "))
  30. (command "line" fp sp "")
  31. (setvar "orthomode" 1)
  32. (setq EP(getpoint  sp "\nend point: "))
  33. (IF(= EP NIL)(SETQ EP SP))
  34. (setq tt(* scf 0.05))
  35. (setq a1(angle fp sp))
  36. (setq a2(* a1 57.2958))
  37. (setq ang(angle sp ep))
  38. (setq tpa(polar ep(+ ang (dtr 0)) tt))
  39. (setq tp1(polar tpa(- ang (dtr 90)) tt))
  40. (setq th(* scf 0.09375))
  41. (command"insert" arw fp scf "" a2)
  42. (command"line" sp ep "")
  43. (command"dtext" tp1 "0")
  44. (setq *error* olderr)
  45. (setvar "orthomode" om)
  46. (setq fp nil sp nil ep nil tt nil a1 nil a2 nil ang nil tpa nil tp1 nil th nil arw1 nil lderr nil)
  47. (princ)