home *** CD-ROM | disk | FTP | other *** search
/ Share Gallery 1 / share_gal_1.zip / share_gal_1 / GR / GR505.ZIP / LSP.EXE / DLEADER.LSP < prev    next >
Text File  |  1989-06-01  |  1KB  |  34 lines
  1. (DEFUN C:DLEADER (/ PT1 PT2 PT3 PT A B T D )
  2.    (SETVAR "CMDECHO" 0)
  3.    (SETQ T (GETVAR "TEXTSIZE"))
  4.    (SETQ B (GETVAR "ORTHOMODE"))
  5.    (SETVAR "ORTHOMODE" 0)
  6.    (SETQ PT1 (GETPOINT "\nBEGIN LEADER : "))
  7.    (COMMAND "DIM" "LEADER" PT1)
  8.    (COMMAND (SETQ PT2 (GETPOINT PT1 "\nNEXT POINT:  ")))
  9.    (SETVAR "ORTHOMODE" 1)
  10.    (COMMAND (SETQ PT3 (GETPOINT PT2 "\nNEXT POINT: ")))
  11.    (COMMAND "")
  12.    (COMMAND (SETQ A (GETSTRING T "\nText: ")))
  13.    (COMMAND "EXIT")
  14.    (PROMPT "Text: ")
  15.    (SETQ PT (CDR (ASSOC 10 (ENTGET (ENTLAST)))))
  16.    (SETQ D (CDR (ASSOC 40 (ENTGET (ENTLAST)))))
  17.    (IF (< (CAR PT3) (CAR PT2))
  18.    (PROGN
  19.    (SETQ PT (LIST (- (CAR PT3)
  20.      (* D 0.6666)) (- (CADR PT3)
  21.      (* D 2.20833))))
  22.    (COMMAND "DTEXT" "R" PT D)
  23.    )
  24.    (PROGN
  25.    (COMMAND "TEXT" PT D "")
  26.    (COMMAND "DTEXT" "")
  27.    )
  28.   )
  29.   (SETVAR "ORTHOMODE" B)
  30.   (SETVAR "TEXTSIZE" T)
  31.   (SETVAR "CMDECHO" 1) 
  32.   (PRINC)
  33. )
  34.