iCAx开思网

标题: 怎么画带螺旋角度有真实感的螺纹模型呢! 先谢 [打印本页]

作者: smxyr 时间: 2005-6-22 23:11
标题: 怎么画带螺旋角度有真实感的螺纹模型呢! 先谢
我是一真画不出来,很急!用旋转一定角度又对不齐，这种方法能用来画弹簧。用螺旋的样条曲线或三维多线段又不能作为拉伸路径（不知你们的行不）。用螺旋线代码，自己不会编，抄别人的一家在就错误：
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 时间: 2005-7-23 16:24
我也是抄来的，发现是全角空格的问题，这有一个现成的，我在2004和2005里都试过了，你加载一下试试

欢迎光临 iCAx开思网 (https://www.icax.org/)