[求助]：有绘制弹簧的程序吗?

raidas · 发表于 2004-7-17 00:29:17

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

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

×

我想在AutoCAD2004中绘制弹簧,请指教.

ancangel · 发表于 2004-7-17 10:44:03

希望高手能来帮忙解释解决~~

snshn · 发表于 2004-7-30 09:35:08

你是指螺旋线嘛？
这个确实很难画。。
有高手嘛？快来帮忙。。。

mbwtzzzz · 发表于 2004-8-1 13:53:59

很简单嘛，自己想，这样说给你听很麻烦，可以参考一些介绍实例的书，通常都有介绍这个问题

lsjjm · 发表于 2004-8-2 10:06:05

最初由 raidas 发布
[B]我想在AutoCAD2004中绘制弹簧,请指教. [/B]

二维? 三维? 标准画法? 简易画法? 弹簧种类? 没有说清楚呀!

waterline · 发表于 2004-8-21 19:35:38

这个有LISP程序的，我以前买的书里面有的，我要找找是哪本书里的。

小飞侠爱你 · 发表于 2004-8-22 03:14:19

绘制弹簧,本,论坛上就很多,你用心找找看

waterline · 发表于 2004-8-22 22:39:01

书名来了《绘图与三维建模实例》里面有的。

sparrow · 发表于 2004-8-23 15:07:32

(defun C:luowen (/)
(setq b1 (getpoint "基点"))
(setq r (getreal "半径R=:"))
(setq t (getreal "节距"))
(setq n (getint "段数"))
(setq L (getint "长度"))
(setq l (fix (/ l t)))
(setq delta (/ (* 2.0 pi) n))
(setq j (/ t n))
(setq bb (caddr b1))
(setq ang 0)
(setq jj 0)
(command "UCS" "o" b1)
(command "3dpoly" (list r 0 0))
(repeat l
(repeat n
(setq jj (+ jj 1))
(setq ang (+ delta ang))
(setq pt2 (list (* r (cos ang)) (* r (sin ang)) (+ 0 (* j jj))))
(command pt2)
)
)

Jerry541 · 发表于 2004-9-18 09:40:21

我看过CAD里一种线型很像弹簧的，你可以找找看。你用这线型直接画一直线就可以得到弹簧线了。

lygfm2588 · 发表于 2004-12-7 13:17:03

HELIX.LSP 螺旋线生成
(Defun C:Helix ()
(SetQ p (GetPoint "\n中心点: ") x (Car p) y (Cadr p) z (Caddr p)
r (GetDist p "\n半径: ")
b (GetDist p "\n总高度: ")
a (GetAngle p "\n起始角: ")
m (GetInt "\n圈数: ")
n (GetInt "\n每圈线段数: ")
da (/ (* m 2 Pi) (* m n))
dz (/ b (* m n))
)
(Command "3dpoly")
(Repeat (1+ (* m n))
(Command (Polar (List x y z) a r))
(SetQ a (+ a da) z (+ z dz))
)
(Command "")
(PrinC)
)

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

[求助]：有绘制弹簧的程序吗?

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

相关帖子

Re: [求助]：有绘制弹簧的程序吗?

浏览过的版块