AutoLISP绘制玻璃门

AutoLISP绘制玻璃门，代码如下。

(defun c:test ()
  (setvar "cmdecho" 0)
  (setq os (getvar "osmode"))
  (setq oldlayer (getvar "clayer"))
  (setvar "osmode" 0)
  (get_door_bas_pp)
  (sub_demodoor1)
  (initget "Yes No")
  (setq mirr (getkword "\n镜射另一片门吗？[是\(Y\)/(否\(N\),<N>:"))
  (if (= mirr "Yes")
    (command "mirror"
         (ssget "c" bas_p1 bas_p3)
         ""
         bas_p2
         bas_p3
         ""
    )
  )
  (setvar "osmode" os)
  (setvar "clayer" oldclayer)
  (prin1)
)
(defun get_door_bas_pp ()
  (setq bas_ip_list '())
  (setq bas_p1 (getpoint "门得左下角点："))
  (setq dr_w (getreal "\n门宽<90>："))
  (if (null dr_w)
    (setq dr_w 90)
  )
  (setq dr_n1 (getreal "\n门左边高度<100>:"))
  (if (null dr_h1)
    (setq dr_n1 100)
  )
  (setq dr_h2 (getreal "\n门突出高度<30>:"))
  (if (null dr_h2)
    (setq dr_h2 30)
  )
  (setq dr_c (getreal "\n门左边平台宽度<15>:"))
  (if (null dr_c)
    (setq dr_c 15)
  )
  (setq
    sca    (getstring
      "\n门的上方弧度 1/1,2/1,3/1,4/1,5/1,1/2,1/3,1/4,1/5<1/1>:"
    )
  )
  (if (= sca "")
    (setq sca "1/1")
  )
  (setq gap (getreal "\n门内框偏移量<5>:"))
  (if (null gap)
    (setq gap 5)
  )
  (setq bas_p2 (polar bas_p1 0 dr_w))
  (setq bas_p3 (polar bas_p2 (* pi 0.5) dr_h1))
  (setq bas_p4 (polar bas_p1 (* pi 0.5) dr_h1))
  (setq mid_pp (inters bas_p1 bas_p3 bas_p2 bas_p4))
  (setq bas_p3t (polar bas_p3 (* pi 0.5) dr_h2))
  (if (and dr_c (> dr_c 0))
    (setq pt4 (polar bas_p4 0 dr_c))
    (setq pt4  bas_p4
      dr_c 0
    )
  )
)
(defun sub_demodoor1 ()
  (setq len_34 (distance pt4 bas_p3t))
  (setq ang_34 (angle pt4 bas_p3t))
  (cond
    ((member sca '("1/1" "2/1" "3/1" "4/1" "5/1"))
     (setq pt5 (polar pt4 ang_34 (/ len_34 (1+ (cal sca)))))
    )
    ((member sca '("1/2" "1/3" "1/4"))
     (setq pt5 (polar pt4 ang_34 (* (/ len_34 3) (/ 1 (cal sca)))))
    )
  )
  (command "-layer" "m" "str" "c" 4 "" "")
  (if (> dr_c 0)
    (command "pline" bas_p1 bas_p2 bas_p3t "a" "d" "180" pt5 pt4 "1"
         bas_p4 "c")
    (command "pline" bas_p1 bas_p2 bas_p3t "a" "d" "180" pt5 pt4 "1" "c")
  )
  (setq offset_pt (polar bas_p1 (/ pi 4) (* gap 2)))
  (command "offset" gap (entlast) offset_pt "")
  (command "-layer" "m" "hat" "c" 6 "" "")
  (setvar "hpname" "SACNCR")
  (setvar "hpscale" 4)
  (bhatch offset_pt)
  (command "-layer" "m" "dim" "c" 1 "" "")
  (command "dim1"
       "hor"
       bas_p1
       bas_p2
       (polar bas_p1 (* pi 1.5) 10)
       ""
  )
  (command "dim1" "ver" bas_p1 bas_p4 (polar bas_p1 pi 10) "")
)
(defun c:test1 ()
  (setvar "cmdecho" 0)
  (setq os (getvar "osmode"))
  (setq oldlayer (getvar "clayer"))
  (setvar "osmode" 0)
  (setq bas_p1 (getpoint "门的左下角:"))
  (setq dr_w (getreal "\n门总宽<90>:"))
  (if (null dr_w)
    (setq dr_w 90)
  )
  (setq dr_h (getreal "\n门总高<200>:"))
  (if (null dr_h)
    (setq dr_h 200)
  )
  (setq n (getint "\n内部玻璃数量<5>:"))
  (if (null n)
    (setq n 5)
  )
  (setq gap1 (getreal "\n门框宽度<12>:"))
  (if (null gap1)
    (setq gap1 12)
  )
  (setq gap2 (getreal "\n玻璃间距<5>:"))
  (if (null gap2)
    (setq gap2 5)
  )
  (command "-layer" "m" "str" "c" 4 "" "")
  (command "rectang" bas_p1 (polarxy bas_p1 dr_w dr_h))
  (setq ins_pt (polarxy bas_p1 gap1 gap1))
  (setq gw (- dr_w gap1 gap1))
  (setq gh (/ (- dr_h (* gap1 2) (* gap2 (1- n))) n))
  (command "rectang" ins_pt (polarxy ins pt gw gh))
  (command "array" (entlast) "" "r" n 1 (- gn gap2))
  (command "-layer" "m" "dim" "c" 1 "" "")
  (command "dim1"
       "hor"
       bas_p1
       (polar bas_p1 0 dr_w)
       (polar bas_p1 (* pi 1.5) 10)
       ""
  )
  (command "dim1"
       "ver"
       bas_p1
       (polar bas_p1 (/ pi 2) dr_h)
       (polar bas_p1 pi 10)
       ""
  )
  (setvar "osmode" os)
  (setvar "clayer" oldclayer)
  (prin1)
)
(defun polarxy (#pp #x #y)
  (setq    px (car #pp)
    py (cadr #pp)
  )
  (list (+ px #x) (+ py #y))
)
(princ "\n------<C:TEST>------")
(prin1)

代码完。