请问如何画三维弹簧？

lygxw

尊敬的Tslcl
    不妨这样试一下,假定为了画一支管径10mm,丝径2mm,螺距8mm的弹簧,
    1.启动autocad2000,打开实体工具条,打开osnap,选中端点和中点的自动捕捉,适当增大isolines系统变量的数值,ucs设为世界坐标系;
    2.在平面画一个圆,圆心为E(0,0),半径为10;
    3.画一条半径EA,A点坐标为(10,0);
    4.画一条半径EB,与EA夹角45度(八分之一圆),B点坐标记做(10<45,0);
    5.改变到空间观察方向(等轴视图);
    6.选择两条半径,沿Z方向复制,位移为(0,0,1),产生三个端点,
      F(0,0,1),C(10<45,1),D(10,0,1);
    7.线段连接EF,设EF的中点为O(0,0,0.5);
    8.线段连接OA,OC;
    9.使用UCS-->N-->3命令,依次捕捉O,A,C三点,将用户坐标系设到OAC共处的斜面上;
    10.以O为中心,OA为半径画实体圆环,丝径为2;
    11.对圆环做实体剖切命令slice两次,第一次选FAD三点做为剖面,第一次选FBC三点做为剖面,结果剩下八分之一的圆环,就是弹簧的实体了;
    12.使用3D阵列,绕EF轴将八分之一圆环阵列8份;
    13.UCS切换回世界坐标系;
    13.第1份圆环不动,第2份向上移动1mm,第3份向上移动2mm,第4份向上移动3mm.....,第8份向上移动7mm,八份圆环就会顺次连接起来;
    14.利用实体并集的命令将八份圆环合成一体,则成为单节螺距的弹簧;
    15.单节螺距的弹簧沿轴方向阵列,可变成任意多节,再合并为一体.三维仿真弹簧就画出了.
   
    ***
    过程如上,仍然只是一种近似的螺旋线.如果是矩形截面的弹簧,可在第10步用旋转体代替圆环.
    试一试吗? 祝你成功
                                               2002/3/7



   

tslcl

非常感谢各位热心的回答！

rongml

可以想用lisp画出曲线，在用extend生成实体

sbiwetg

你是如何搞到源程序的,cadalog.com要会员才能下载!!!!

陈伯雄

龙龙仔

龙龙仔

cadxyz

我也会

陈伯雄

longqpqp-001