求助？ 请高手帮我看看错在那里？谢谢

XYA10

我编了个程序。但使用不了，CAD提示有错误。就是在*2.0那个部分，不知道如何改，烦请高手帮忙？谢了

XYA10

(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"")

   )

 

     就是这个

ZZXXQQ

(setq delta (/ (*2.0 pi)n))

改成

(setq delta (/ (* 2.0 pi)n))

在*和2.0之间加空格

另：这两句参照修改：

    (setq ang (+delta ang))

    (setq pt2(list(*r(cos ang))(*r(sin ang))(+0*(j jj))))

成

    (setq ang (+ delta ang))

    (setq pt2(list(* r(cos ang))(* r(sin ang))(+ 0 *(j jj))))