home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 13 / 13.iso / p / p190 / 3.ddi / LSP / ZXK.LSP < prev   
Encoding:
Text File  |  1990-07-20  |  1.5 KB  |  45 lines
  1. ;**********************************************
  2. ;*  This program to dimension a center hole!  *
  3. ;**********************************************
  4. (DEFUN ZXK ()
  5.    (MENUCMD "S=ZX1")
  6.    (setq f (getint "\n╟δ╩Σ╚δ╓╨╨─┐╫╥¬╟≤: "))
  7.    (if (null f) (setq f 0))
  8.    (if (= f 0) (setq str2 "yqbl"))
  9.    (if (= f 2) (setq str2 "bxbl"))
  10.    (point1)
  11.    (COND ((= f 1)
  12.    (MENUCMD "S=IN2")
  13.        (setq pt2 (getpoint "\n╟δ╩Σ╚δ▒Ω╫ó╬╗╓├: "))
  14.        (setq n1 (getSTRING "\n╟δ╩Σ╚δ▒Ω╫ó╡─╢╦├µ: "))
  15.   ))
  16.    (if (or (= n1 "L") (= N1 "l")) (setq n -1) (setq n 1))
  17.    (scale1)
  18.    (setq str (getstring T "\n╟δ╩Σ╚δ▒Ω╫ó╡──┌╚▌: "))
  19.    (setq m (strlen str))
  20.    (command "layer" "s" 6 "")
  21.    (if (= f 1) (progn
  22.        (setq d1 (* m 2.9 sca))
  23.        (if (> (car pt1) (car pt2))
  24.            (setq a2 pi)
  25.            (setq a2 0)
  26.        )
  27.        (setq pt3 (polar pt2 a2 d1))
  28.        (if (> (car pt1) (car pt2)) (setq pt4 pt3) (setq pt4 pt2))
  29.        (setq pt6 (list (+ (car pt4) (/ d1 2)) (+ (cadr pt4) (* 1.2 sca))))
  30.        (command "line" pt1 pt2 pt3 "")
  31.        (command "text" "c" pt6 (* 3 sca) 0 str)
  32.        (command "pline" pt1 "w" 0 sca (polar pt1 (angle pt1 pt2) (* sca 6)) "")
  33.        )
  34.        (progn
  35.        (if (= n -1) (setq d1 (* m 3.4 sca -1)) (setq d1 0))
  36.        (if (or (null str2) (null pt1)) (err))
  37.        (command "insert" (strcat "gbz\\" str2) pt1 (* sca n) "" 0)
  38.        (command "text" (list (+ (car pt1) (* sca 5 n) d1) (- (cadr pt1) (* sca 1.8))) (* sca 3.6) 0 str)
  39.        )
  40.     )
  41.    (redraw)
  42. (MENUCMD "S=SCREEN")
  43. )
  44. (ZXK)
  45.