【原创】我自己编写的一段程序大家看看
 

下面这段程序有点问题，大家帮忙看看，问题在那儿，急切寻求帮助
(defun C:stlz()
(setq os (getvar "osmode"))
(setq o(getpoint "\n 输入插入点:"))
(setq d0(getreal "\n 输入双头螺柱规格:"))
(setq l0(getdist o "\n 输入双头螺柱长度:"))
(SETQ SC(GETREAL "\n 输入比例系数:"))
(setq ang1(getangle o "\n 输入旋转角度:"))
(setq zx(getstring "\n 是否要中心线(Yes/<No>):"))
(setq os (getvar "osmode"))
(command "osmode" 0)
(setq ang(/ (* 180 ang1) pi))
(cond ((= d0 5) (setq b0 5) )
((= D0 6) (setq b0 6) )
((= D0 8) (setq b0 8) )
((= D0 10) (setq b0 10) )
((= D0 12) (setq b0 12) )
((= D0 16) (setq b0 16) )
((= D0 20) (setq b0 20) )
((= D0 24) (setq b0 24) )
((= D0 30) (setq b0 30) )
((= D0 36) (setq b0 36) )
((= D0 42) (setq b0 42) )
)
(SETQ D(* d0 sc))
(setq l(* l0 sc))
(setq b(* b0 sc))
(setq P1 (list 0 (/ d 2)))
(setq p2 (list 0 (- 0 (/ d 2))))
(command "ucs" "o" o)
(command "ucs" "z" ang)
(command "line" p1 p2 "")
(setq P3 (list (+ 0 (* sc 1))(+ (* sc 1) (/ d 2))))
(setq p4 (list (+ 0 (* sc 1))(- 0 (+ (* SC 1) (/ d 2))))
(command "line" p3 p4 "")
(setq P5 (list (+ 0 ( - (b 1))) (+ (* SC 1) (/ d 2))))
(setq P6 (list (+ 0 ( - (b 1))) (- 0 (+ (* SC 1) (/ d 2))))
(command "line" p3 p5 "")
(command "line" p4 p6 "")
(setq P7 (list (+ 0 ( - (b 1))) (/ d 2)))
(setq P8 (list (+ 0 ( - (b 1)))(- 0 (/ d 2))))
(command "line" p1 p7 "")
(command "line" p2 p8 "")
(setq P9 (list( + 0 (+ b 1)) (+ (* SC 1) (/ d 2))))
(setq P10 (list ( + 0 (+ b 1)) (- 0 (+ (* SC 1) (/ d 2)))))
(command "arc" p5 1 p9)
(command "arc" p6 1 p10)
(setq P11 (list (+ 0 (- l 1)) (+ (* SC 1) (/ d 2))))
(setq P12 (list (+ 0 (- l 1)) (- 0 (+ (* SC 1) (/ d 2)))))
(command "line" p9 p11 "")
(command "line" p10 p12 "")
(setq P13 (list (+ 0 l) (+ (* SC 1) (/ d 2))))
(setq P14 (list (+ 0 l) (- 0 (+ (* SC 1) (/ d 2)))))
(command "arc" p11 1 p13)
(command "arc" p12 1 p14)
(setq P15 (list (+ 0 l) (/ d 2)))
(setq P16 (list (+ 0 l) (- 0 (/ d 2))))
(setq P17 (list (+ 0 (+ b l)) (+ (* SC 1) (/ d 2))))
(setq P18 (list (+ 0 (+ b l)) (- 0 (+ (* SC 1) (/ d 2)))))
(setq P19 (list (+ 0 (+ b l)) (/ d 2)))
(setq P20 (list (+ 0 (+ b l)) (- 0 (/ d 2))))
(command "line" p13 p17 "")
(command "line" p15 p19 "")
(command "line" p16 p20 "")
(command "line" p17 p18 "")
(command "line" p19 p20 "")
(cond ((or (= zx "y") (= zx "Y"))
(setq zx1 (list (- -3 k) 0))
(setq zx2 (list (+ l 3) 0))
(command "line" zx1 zx2 ""))
)
(command "ucs" "z" (- 0 ang))
(command "ucs" "w")
(command "osmode" os)
(COMMAND "REDRAWALL")
(COMMAND "REGEN")
(princ)
)