【转帖】弹簧的画法
 

弹簧的画法
www.dimcax.com
弹簧的画法
cad并不是专业的3维软件，所以并不适合画这种东西，写这个画法主要是让大家学习一下lisp的使用和实体拉伸的画法
1、去网上寻找lisp代码
以下是齐老师写的代码，很简洁，有兴趣的朋友可以学习一下。复制到剪贴板
;; 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)
)
2、菜单：工具―autolisp―visual lisp编辑器
把代码粘贴到文本窗口，保存为helix.lsp后关闭编辑器
c
图1
3、菜单：工具―autolisp―加载
（图片较大，请拉动滚动条观看） 全屏观看
图2
4、输入命令helix
注意，这个命令是第一行defun c:后面的那个单词，不是加载的文件名
根据提示输入尺寸获得立体螺旋线，然后把坐标竖起来画一个圆
图3
5、用路径拉伸小圆
图4
请注意：我们可以看到这个弹簧不光滑，说明在输入数据时要增加段数，不能把多段线转化为样条线，因为数学模型是不正确的，这是我不久前从陈老师那儿学到的
另外，有很多朋友不知道哪里可以得到lisp代码，我推荐大家2个著名的网站：明经通道和晓东空间，那边有很多值得学习的东西
让大家见笑了！！！！！！！！！！！
本帖最近评分记录：
威望:1(bbsjava)

图片：

我画弹簧都是直接画的,不懂编程,呜~~~~~这方法也比较麻烦.
1、就是先画两个上下对正的圆1、2,然后画其两圆心线的中垂线c。
2、在中垂线3上任取一点与两圆心连接.得到4、5，然后分别作4、5的垂线a、b。
3、圆1、2分别绕a、b三维旋转180度。
4、转到相应平面视图,对其进行复制,最后并集。
5、删除多余的线，三维弹簧就出来了。

严格来说，压缩弹簧都是需要并扣的。
这个程序只是生成了一个圆柱截面的螺旋线，生成真正的压缩弹簧，还需要一些代码，才可以。

我曾经在别人的书上看到过用cad一步一步画弹簧，总的来说很麻烦,,,我也没记住,不好意思哈，有机会去借书在看看,可以的话，发给大家,

是转贴的吧，图没有啊，看不太懂！

先学了再说，谢谢

autocad 2007里,有画螺旋线和对路径扫掠的功能,用它们可以很简单的画出弹簧
计算机\cad制图\科幻小说\美食,都是我的最爱

6楼能不能说的明白些？我想学习以下。

图片：

楼主，你说的那个小圆怎么画啊，我搞了半天都没拉伸成功！
坚持不懈，成就伟业！
回 1楼(m8333) 的帖子
你说的“两圆心线的中垂线”是什么？我没搞清楚，所以用你的办法也没画出来耶。
坚持不懈，成就伟业！

很简单