求助？请高手点化一下？不胜感激？谢了？

XYA10 · 发表于 2006-6-30 14:38:00

登录/注册后可看大图

编了个程序做螺旋线，但是加载时候，提示有错误，不知道在那里，请指点？
(defun c:luoxian
(/)
(setq b1 (getpoint"指定螺旋线基点: "))
(setq r (getreal"请输入螺纹平均半径: "))
(setq disp (getreal"请输入螺纹节距: "))
(setq n (getint"请输入每圈细化段数: "))
(setq delta (/ (*2.0 pi)n))
(setq j (/ disp n))
(setq bb (caddr bl))
(setq and 0)
(setq jj 0)
(Command "UCS" "o" b1)
(command "3dpoly" (list r 0 0))
(repeat n
(setq jj (+jj))
(setq ang (+delta ang))
(setq pt2(list(*r(cos ang))(*r(sin ang))(+0*(j jj))))
(Command pt2)
)
(Command"")
)