怎么画带螺旋角度有真实感的螺纹模型呢! 先谢

smxyr

我是一真画不出来,很急!用旋转一定角度又对不齐，这种方法能用来画弹簧。用螺旋的样条曲线或三维多线段又不能作为拉伸路径（不知你们的行不）。用螺旋线代码，自己不会编，抄别人的一家在就错误：
u (defun C:luoxian  
                 (/)  
  (setq b1 (getpoint "指定螺旋线基点："))  
  (setq r (getreal "请输入螺纹平均半径："))  
  (setq disp (getreal "请输入螺纹节距："))  
  (setq n (getint "请输入每圈细化段数："))  
  (setq delta (/ (* 2 pi) n))  
  (setq j (/ disp n))  
  (setq bb (CADdr b1))  
  (setq and 0)  
  (setq jj 0)  
  (command "UCS" "o" b1)  
  (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 "")  
)  
  
其中（setq and 0)加载时总是提示参数类型错误，就是不能是0.那位高手指点一下，应该怎么改.

8HAHA