AutoCAD 中绘制螺旋线代码

smxyr · 发表于 2005-6-19 22:49:09

马上注册，结交更多同行朋友，交流，分享，学习。

您需要登录才可以下载或查看，没有帐号？注册

x

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.那位高手指点一下，应该怎么改.