首页理论教育AutoCAD2014：绘制弹簧步骤+优化程序代码

AutoCAD2014：绘制弹簧步骤+优化程序代码

2023-11-02 理论教育版权反馈

【摘要】：参见光盘光盘动画演示\第15章\绘制弹簧.avi绘制步骤：1.绘制三维螺旋线。圆柱螺旋线是技术上应用最广的空间曲线，如图15-40所示。；autoLISP程序代码程序测试。通过上节中绘制的螺旋线，将一个圆截面沿着螺旋线进行拉伸即可生成弹簧。绘制弹簧的参数化绘制程序，弹簧效果图如图15-43所示。图15-42 输入数据图15-43 三维弹簧图15-44 绘制三维弹簧对话框修改draw函数，并增加一个用来显示图形的show函数。

参见光盘

光盘动画演示\第15章\绘制弹簧.avi

绘制步骤：

1.绘制三维螺旋线。圆柱螺旋线是技术上应用最广的空间曲线，如图15-40所示。其形成可以描述为：一动点M沿圆柱的母线AB作等速直线运动，而该母线又绕圆柱的轴线作等角速旋转时，点M的运动轨迹即为圆柱螺旋线。当圆柱螺旋线的轴线与坐标系的Z轴重合时，圆柱螺旋线上动点M（x，y，z）的参数方程如下：

在参数方程中：r为圆柱面的半径，α为螺旋线升角，t1为导程（即母线AB旋转一周时，动点M沿轴线方向上升的距离），右旋取正号，左旋取负号。

（1）设计对话框。如图15-41所示，对话框的DCL代码如下：

图15-40 需要绘制的三维螺旋线

图15-41 绘制三维螺旋线对话框

//对话框代码

（2）程序编制。编制主程序，获取用户输入，并且进行图形的绘制。

；autoLISP程序代码

（3）程序测试。运行程序，输入数据，如图15-42所示，单击确定，即可生成如图15-40所示的螺旋线（段数k即为将一个圆周分为多少等分，n为总圈数）。(www.chuimin.cn)

2.绘制弹簧。通过上节中绘制的螺旋线，将一个圆截面沿着螺旋线进行拉伸即可生成弹簧。

通过修改绘制三维螺旋线的程序，即可绘制三维弹簧。绘制弹簧的参数化绘制程序，弹簧效果图如图15-43所示。

（1）修改对话框。需要增加一个获取截面圆的半径，并且增加一个image对象，如图15-44所示。

图15-42 输入数据

图15-43 三维弹簧

图15-44 绘制三维弹簧对话框

（2）修改draw函数，并增加一个用来显示图形的show函数。程序代码如下：

；进行拉伸处理，首先改变用户坐标系，在三维螺旋线的开始端绘制一个圆，然后沿着三维螺旋线进

；行拉伸

；显示图块函数

（defun show（image_namefile_name）