请高手进来看看这段程序~急急急~

sky2001 · 发表于 2004-10-12 19:40:00

下面这段程序是我着书上写的，用来画螺旋线，但是加载的时候总出现错误：命令: ; 错误: 输入的列表有缺陷，有高手知道原因吗？
(defun C:luowen
(/)
(setq bl(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 ang 0)
(setq jj 0)
(command "UCS" "o" bl)
(command "3dpoly" (list r 0 0))
(repeat n
(setq jj (+ jj 1)
(setq ang (+ delta ang))
(setq pt2 (list (* r(cos ang))(* r(sin ang))(+ 0(* j jj))))
(command pt2)
)
(command"")
)
急等~