AutoCAD三维螺旋系列整理及补充篇

moonguy

以下为三维论坛本版块搜集到的相关帖子，方便大家参考

三维螺纹
3 M, y. T$ p% p% h& ]4 Nhttp://www.3dportal.cn/discuz/viewthread.php?tid=166433&extra=page%3D1
, ^0 ^  e% j" c' \  |7 Z" ]Auto2004能绘制真正的弹簧
http://www.3dportal.cn/discuz/viewthread.php?tid=118041
" q6 g- R- a4 d2 \# ~关于下面弹簧程序的问题！
http://www.3dportal.cn/discuz/viewthread.php?tid=128631
怎样画三维螺丝?
http://www.3dportal.cn/discuz/thread-116803-1-11.html
CAD画3D螺纹其实很简单
' d1 T: a" h! _5 m6 Bhttp://www.3dportal.cn/discuz/viewthread.php?tid=136514
变螺距螺旋的绘制
8 q+ o0 `0 Z" O# ~- r( |/ Thttp://www.3dportal.cn/discuz/thread-115938-1-17.html
Visual LISP开发三维圆柱螺旋线程序
' G/ r  u( j/ t2 {8 bhttp://www.3dportal.cn/discuz/thread-144006-1-1.html
# O8 v) f( L7 C画螺旋线的好方法
1 `, x+ }( ^& g0 x3 W6 khttp://www.3dportal.cn/discuz/thread-114669-1-19.html
% x! i7 a7 n1 S/ E; c( L/ Y螺丝的三维画法
" N5 f, y5 ~! `http://www.3dportal.cn/discuz/thread-117287-1-16.html
用CAD画对数螺旋线
http://www.3dportal.cn/discuz/thread-149561-1-2.html
" {$ w/ P$ r% H; o$ PAutoCAD结合MATLAB实现公式曲线、曲面的精确绘制
http://www.3dportal.cn/discuz/viewthread.php?tid=119141
7 w, z8 V( R* {5 \$ g5 I4 e
附件为本人搜集到的相关LSP源码程序:

moonguy

AutoCAD2007有螺旋绘图命令，应该是目前最完美的AutoCAD螺旋线了。

( R! f6 g5 s$ F% `' }& d" M对于低版本的用户，要借助二次开发程序了。本人搜集的这些程序都是用3dpoly命令绘制的，如果你的版本太低，连这个三维多段线的命令都不支持，基本无能为力了。
虽然以前见过用平面弧绘制螺旋的方法，但与实际螺旋线相差太远，故没有搜集该程序。
% h) K( A- z+ ?- g' X
程序使用方法简介如下:
% |0 ^4 [4 X% a
在菜单--工具---加载应用程序，
或者用命令: appload加载相应程序。
5 L1 G- _9 A3 Z2 f
程序前面的字母及英文为使用命令，后面汉字为说明，或者加载后注意看文本窗口的提示。
& L5 a3 E- E6 R% ]7 F
/ d- ^1 u: O0 g( `该系列程序有些是功能相同的，关键代码也一样，只所以没有去除，是为了方便LSP初学者参考，不但实用，也是非常好的编程参考资料。
+ _, O! F0 k# m; @( A
: C' H3 L4 u- W3 ^1 c% p- p! I以下为部分程序步骤示例:
5 Q: L8 G- `& ?( p
命令: 3dluoxuan
中心点:
6 ^" l( ]9 s' \- f- V0 ?7 h+ e& |9 D( M半径: 100
5 z( i5 a8 {2 T% C. I5 w* a总高度: 500
/ h7 A. P* T/ U* M7 V1 n" T0 E起始角: 0
# T- d* t8 E& i圈数: 10
0 Z. M1 w4 t2 D# u+ a. z- x% Q每圈线段数: 30

$ [  f+ X1 _7 B
+ t) q$ v' J# }2 M7 k$ ^4 e命令: 3dspring
请输入底部中心点:
旋转的圈数: 10
起始半径: 200
- `# u. D3 ?7 ^7 L每一圈的水平增长距离: -5
5 m: s" E3 i% N  v6 A) k每一圈的垂直增长距离: 50
每一圈的插值点数<35>:

! m5 u" d! L& o[ 本帖最后由 moonguy 于 2006-12-3 15:43 编辑 ]

xiukeniao

新手尝试了好几回3D，都被一个小螺钉挡在前面了。
感谢楼主。。。

moonguy

在网上看到了一些不用lsp程序画螺旋的例子，由于用到了REVOLVE命令，所以最终的结果和用平面弧绘制的一样，与实际螺旋线相差太远。所以不能算做CAD的螺旋解决方案，不过作者确实动了脑筋，现将其步骤及问题贴在下面，做出的弹簧从两面看，不一样。可以供CAD初学者练练手。


1。画个圆，直径为弹簧截面直径
  b; X" u5 x3 x0 F4 B- h, o9 X5 I- \2，水平画直线与圆切，长度为弹簧直径
9 B9 E: Z! w1 L3。圆心与直线连接线的中心画一条与之垂直的直线。
4。MIRRO以直线为轴。
- L6 S$ M3 q' S. `3 }: {* F. s5。删除多余线段，只留2个相切圆和两条轴线（看图）
6。用REVOLVE命令，点选一个圆以一条轴线为中心线，角度180度（默认为360度）
7。继续用REVOLVE做另一个圆，一端与前面的吻合（这里需要点技巧，留给大家自己摸索）
/ d0 f- W* Y3 h  s* U% B4 v# a8。用ARRAY,ROW里填你想要复制的数量，选取这两个实物，ROW之间的距离为圆心到圆心的距离。
9。OK,完成！！！恭喜。

天堂冷风

好东西,个人觉的CAD里面曲面和螺旋最难搞了

ltxxc

楼主辛苦,为什么要用cad来画三维呢

guazino4

已入我的收藏，谢谢楼主，挺有用的东西

一页扁舟

有没有2007的画法，而不是用lisp画法呢

moonguy

原帖由 一页扁舟 于 2007-1-8 19:06 发表
有没有2007的画法，而不是用lisp画法呢

  u9 ~! @& n8 F9 }! v/ c) }
6 `* ]- M: ?$ JCAD2007中如何画弹簧?
# G: E% r+ }/ ~- K( G$ |http://www.3dportal.cn/discuz/viewthread.php?tid=192297&page=1#pid908920

4 a) V5 E- S/ _% c& s7 f4 K& I继续补充: woaishuijia的这个贴子有画三维螺纹的动画过程(11楼)
/ @9 A/ f5 V& O! Yhttp://www.3dportal.cn/discuz/viewthread.php?tid=182026&extra=page%3D1
7 ^: X6 U5 s$ Q  W) u- X
用2007如何画三位螺丝、螺母
http://www.3dportal.cn/discuz/viewthread.php?tid=196724&extra=page%3D1
, X( @3 y; ^3 E4 K/ k7 t
[ 本帖最后由 moonguy 于 2007-1-9 16:33 编辑 ]

csace

楼主辛苦啦！已入我的收藏。谢谢！！ :handshake

13512018747

:loveliness: :loveliness: :loveliness:

wmzd6698

感谢LZ，收益非浅啊~~辛苦了~~