[求助]下面那里错了（锥形弹簧LISP程序）

只看该作者 · 发表于 2006-2-7 13:35:20

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

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

x

[求助]下面那里错了（锥形弹簧LISP程序）

这个是CAD2004中的。本人希望交CAD爱好者及各位高手。共同探讨与学习.QQ:282206672
E-MAIL:jsg615@163.com
(defun c:luoxc (/)
  (setq bl (getpoint"请指定螺旋线基点: "))
  (setq rl (getreal"请指定初始螺旋线半径: "))
  (setq disp ( getreal"请输入螺旋线节距: "))
  (setq angtg (getreal"请输入螺旋线锥形角度: "))
  (setq m (getint"请输入螺旋线圈数: "))
  (setq n (getint"请输入每圈细化段数: "))
  (setq delta (/(* 2.0 pi) n))
  (setq j (/ disp n))
  (setq bb (caddr bl))
  (setq tg (* (/ angtg 180) pi))
  (setq ang 0)
  (setq k 0)
  (command "ucs" "o" bl)
  (command "3dpoly" (list rl 0 0))
  (repeat (* m n )
(setq k(+ k l))
(setq ang(+ delta ang))
(setq r(- rl (* (+ 0 (* j k)) (/(sin tg) (cos tg)) )))
(setq pt2(list (* r(cos ang)) (* r(sin ang)) (+ 0 (* j k))))
)
  (command "")
  )