一个画节点板的程序，谁能帮我优化一下

(defun c:123() ;画节点板
(setvar "cmdecho" 0)
(setq jd (getpoint "\n 请点取基点"))
(setq zuo0 zuo)
(setq zuo (getdist jd "\n左点距离:"))
(if(= zuo nil) (setq zuo zuo0))
(setq you0 you)
(setq you (getdist jd "\n右点距离:"))
(if(= you nil) (setq you you0))
(setq gao0 gao)
(setq gao (getdist jd "\n节点板高:"))
(if(= gao nil) (setq gao gao0))
(setq r0 r)
(setq r (getangle jd "\n板件角度:"))
(if(= r nil) (setq r r0))
(setq xian0 xian)
(setq xian (getdist jd "\n弦杆高:"))
(if(= xian nil) (setq xian xian0))
(setq jd1 (polar jd (+ (* pi 1.5) r) (/ xian 2)))
(setq A (polar jd1 (+ pi r) zuo))
(setq D (polar jd1 r you))
(setq B (polar A (+ (* pi 1.5) r) gao))
(setq C (polar D (+ (* pi 1.5) r) gao))
(command "line" A B C D "")
(princ)
)
距离和角度参数的输入可以用getreal，如果你知道确切的数值。如果按空格或回车，这些参数就默认为上一次输入的值。