home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 13 / 13.iso / p / p190 / 3.ddi / LSP / HM01.LSP < prev    next >
Encoding:
Text File  |  1990-08-02  |  846 b   |  29 lines
  1. ;*********************************************************
  2. ;*  The function for drawing certerline .                *
  3. ;*********************************************************
  4. (defun CENTL ()
  5. (SETVAR "CMDECHO" 0)
  6. (SETVAR "BLIPMODE" 0)
  7. (COMMAND "ORTHO" "ON")
  8.   (scale1)
  9.   (setq no 0 nk 0 nzl 0)
  10.   (setq dgch "" schl 0 xchl 0)
  11.   (initget 1)
  12.   (setq fpt (getpoint "\n╞≡ ╡π: "))
  13.   (initget (+ 1 2 4))
  14.   (setq ept (getdist fpt  "\n╓╒ ╡π: "))
  15. (COMMAND "ORTHO" "OFF")
  16.   (setq ept (polar fpt 0 ept))
  17.   (setq xb (car fpt))
  18.   (setq xb (+ xb 0.3))
  19.   (setq yb (cadr fpt) xf xb)
  20.   (FN)
  21.   (command "layer" "n" "1" "s" "1" "l" "center" "" "color" "y" "" "")
  22.   (command "line" (list xb yb) (list (car ept) yb) "")
  23.   (command "layer" "s" "0" "l" "" "" "color" "r" "" "")
  24. ;  (redraw)
  25.   (menucmd "I=ICON ")
  26.   (MENUCMD "I=*")
  27. )
  28. (centl)
  29.