社区 › AutoCAD三维造型 › 请问如何画三维弹簧？

Tslcl 发表于 2002-3-2 21:50:00

请问如何画三维弹簧？

龙龙仔 发表于 2002-3-4 12:18:00

是网面弹簧 or 3dsolid弹簧????

tslcl 发表于 2002-3-4 23:48:00

是AutoCAD里的实体

龙龙仔 发表于 2002-3-5 08:14:00

像这样吗?

像这样吗?
但它只能在某个角度看起来像!!!!

东哥 发表于 2002-3-5 13:45:00

为什么是只在某个角度看起来像？

这样的弹簧（除了像蚊香的那个）要用编程来实现的，应该是在任何角度都可以看吧。

tslcl 发表于 2002-3-5 22:14:00

是的，能用AutoCAD画出来吗？

龙龙仔 发表于 2002-3-6 09:10:00

Autocad当然可以画出,你以为用甚么画solidworks or mdt or inventor or proe………虽然纯autocad是画不出完美弹簧,但它能画出仿真弹簧,要不然AUTODESK就不会有MDT OR INVENTOR了,但画不出完美弹簧反而是有好处,因图学上用的弹簧就类似仿真弹簧,而不是真正弹簧。
而在AUTOCAD画弹簧方法有很多种，现只说其中第一种,它是由半圆组成,所以只在某角度上看起来像弹簧。可以直接用来做出平面图及等角图。

龙龙仔 发表于 2002-3-6 09:28:00

另一种是用”圆”沿着路径(3DPOLYLINE)EXTRUDE,这是一种更接近真实弹簧,但反而不好用,因有很多线(不能直接用来做出平面图及等角图)

龙龙仔 发表于 2002-3-6 09:32:00

另一种是用”圆”沿着路径(3DPOLYLINE)EXTRUDE,这是一种更接近真实弹簧,但反而不好用,因有很多线(不能直接用来做出平面图及等角图)

龙龙仔 发表于 2002-3-7 08:20:00

提供一些网络收集的程序

提供一些网络收集的程序让网友试试,其中可了解一下画弹簧还有那些方法。

Building a 3D Solid Helix
Author:Alireza Parsai
aparsai@37.com

(defun C:HELIX()
(setq osnapmode (getvar "osmode"))
(setq BPoint (Getpoint "\n弹簧基准点: "))
(setq H (Getreal "\n弹簧高度: "))
(setq r (/(Getreal "\n弹簧中心直径: ")2))
(setq d2 (Getreal "\n弹簧线径: "))
(setq n (Getreal "\n总圈数: "))
(setq segments (Getreal "\n每圈段数<100>: "))
(IF (= SEGMENTS NIL)(SETQ SEGMENTS 100))
(command "undo" "be")
(command "setvar" "osmode" "0")
(setq r2 (/ d2 2.0000000))
(setq fullcircle (* 2.0000000 Pi))
(setq step (/ fullcircle segments))
(setq SSX (+ (car BPoint) r))
(setq SSY (cadr BPoint))
(setq SSZ (caddr BPoint))
(setq P1 (list SSX SSY SSZ))
(setq M step)
(setq Mmax (* 2.000000 Pi n))
(setq SSX (+ (car BPoint) (* r ( cos M))))
(setq SSY (+ (cadr BPoint) (* r ( sin M))))
(setq SSZ (+ (caddr BPoint) (/ (* H M) Mmax)))
(setq P2 (list SSX SSY SSZ))
(command "cylinder" P1 r2 "c" P2)
(command "select" "l" "")
(setq P1 P2)
(While (< M (* 2.00000 Pi))
(setq M (+ M step))
(setq SSX (+ (car BPoint) (* r ( cos M))))
(setq SSY (+ (cadr BPoint) (* r ( sin M))))
(setq SSZ (+ (caddr BPoint) (/ (* H M) Mmax)))
(setq P2 (list SSX SSY SSZ))
(command "select" "l" "p" "")
(command "cylinder" P1 r2 "c" P2)
(setq p1 p2)
)
(command "union" "p" "l" "")
(setq copystep 0.00000)
(while (< copystep (- n 1.000))
(setq copystep (+ copystep 1.0000))
(command "copy" "l" "" (list 0.000 0.000 (/ h n)) "")
)
(command "setvar" "osmode" osnapmode)
(command "undo" "E")
)


Solid Spring Maker ver 1.0
ARX ShareWare for AutoCAD R14
作者:不详
uploadImages/20023785058762.zip

PS:还有更好的程序…………但下次吧!!下次吧!!
这个讨论区好象人不多????????
要大家用AUTOCAD的3D很难的样子!!
3D推广困难???????
WHY??????

查看完整版本: 请问如何画三维弹簧？