[LISP函数]：弹簧绘制小程序，很好用的哦。

出门就尿 · 发表于 2004-4-24 11:41:34

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

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

×

(defun c:luowen (/)
(setq b1 (getpoint "指定螺旋线基点："))

(setq r (getreal "请输入弹簧平均半径： "))
(setq disp (getreal "请输入弹簧节距： "))
(setq n (getint "请输入弹簧每圈细化段数："))
(setq delta (/ (* 2.0 pi)n))
(setq j (/ disp n))
(setq bb (caddr b1 ))
(setq ang 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 "")
)

这个程序短而好用，不错

CTLU · 发表于 2004-6-26 20:32:15

具体怎么用啊。

胡子8913 · 发表于 2005-9-11 08:23:06

怎么只有一个圈弹簧？

账号		自动登录	找回密码
密码			立即注册

[LISP函数]：弹簧绘制小程序，很好用的 哦。

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子

[LISP函数]：弹簧绘制小程序，很好用的哦。