iCAx开思网

标题: AutoCAD 中绘制螺旋线代码 [打印本页]

作者: smxyr 时间: 2005-6-19 22:49
标题: AutoCAD 中绘制螺旋线代码
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)
 &nbsp

  (command "")
)

其中（setq and 0)加载时总是提示参数类型错误，就是不能是0.那位高手指点一下，应该怎么改.

作者: 8HAHA 时间: 2005-7-23 16:26
给你一个现成的

作者: wwbbs 时间: 2005-7-23 16:38
小弟初学。不懂。呵呵。
大哥在CAD中怎么用啊？
谢了！

作者: 412527565 时间: 2005-7-24 00:51
看不懂，俺的CAD白学了，哎

作者: wwf2008 时间: 2005-7-24 09:24
谢谢。

作者: wayne 时间: 2005-7-24 11:40
（setq and 0) --> （setq ang 0)

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