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

sky2001

下面这段程序是我着书上写的，用来画螺旋线，但是加载的时候总出现错误：命令: ; 错误: 输入的列表有缺陷，有高手知道原因吗？ (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"")
)
急等~

alin

这一行少了个右括号


(setq jj (+ jj 1))

无痕

这种错误,本来应该在vlisp调试状态下就检测出来的.



如果括号不等,会有错误提示.你是不是不用vl的?直接写文本文件?