帮忙看下这个CAD lisp程序
我在auto CAD2004中编写了下面这个绘制螺旋线的lisp程序,但加载后,输入“luowen"命令后,也给提示输入基点,平均半径,节距,细化段数等,但输入“细化段数”后回车,CAD给出的提示是:“LUOWEN 未知命令“LUOWEN”。按 F1 查看帮助。”请问是哪里出错了啊?
(defun c:luowen(/)
(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 b1))
(setq ang 0)
(setq jj 0)
(Command "UCS""o"b1)
(Command "3dploy"(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"")
)
页:
[1]