用AutoLISP程序提高绘图效率的几个实例

２００７．１２
科技广场
２５４
工程中经常要绘制各种弹簧和螺纹连接件，在ＡｕｔｏＣＡＤ中没有专门绘制弹簧和螺纹的命令，弹簧和螺纹在ＡｕｔｏＣＡＤ中都可用平面图形通过相应螺旋线拉伸而成，所以绘制螺旋线就是解决问题的关键。

如果用常规的３ｄｐｏｌｙ命令绘制三维螺旋线，需要输入大量精确数据，才能一点一点地画出螺旋线，做法非常麻烦。

现在提供ＡｕｔｏＬＩＳＰ程序，即可解决绘制螺旋线的问题。

然后通过相应平面图形的拉伸，就可以完成弹簧、螺纹等零件的绘制。

根据圆台螺旋线的形成原理（一动点Ｍ绕圆台的母线ＡＢ作等速直线运动，而该母线ＡＢ又绕圆台的轴线Ｏ１Ｏ２作等角速旋转时，点Ｍ的运动轨迹即为圆台的螺旋线，如图二所示。

圆柱螺旋线是圆台螺旋线的特例，故可通过圆台螺旋线程序做相应的变动，即可得到），动点Ｍ（ｘ，ｙ，ｚ）的参数方程如下：
图二园台螺旋线
Ｘ＝［ｒ０＋ｈｇ　＊α／（２π）］＊ｃｏｓα
Ｙ＝［ｒ０＋ｈｇ　＊α／（２π）］　＊ｓｉｎα
Ｚ＝±ｖｇ　＊α／（２π）
其中，ｒ０为圆台下面的半径，α为螺旋线角，ｖｇ为导程（单线螺旋线螺距（弹簧的节距）等于导程），ｈｇ为点Ｍ沿水平半径方向上增加的距离（ｈｇ＝｜（ｒ１－ｒ０）ｍ｜求得，ｍ为螺旋线的圈数）。

下面提供圆台螺旋线的ＡｕｔｏＬＩＳＰ程序清单：
（ｄｅｆｕｎ　ｃ：ｌｕｏｘｃ（／）
（ｓｅｔｑ　ｂ１　（ｇｅｔｐｏｉｎｔ＂　指定基点：＂））
（ｓｅｔｑ　ｒ１　（ｇｅｔｒｅａｌ　＂指定初始半径：＂））
（ｓｅｔｑ　ｄｉｓｐ　（ｇｅｔｒｅａｌ　＂指定节距：＂））
（ｓｅｔｑ　ａｎｇｔｇ　（ｇｅｔｒｅａｌ　＂输入锥形角：＂））
（ｓｅｔｑ　ｍ　（ｇｅｔｉｎｔ＂输入圈数：＂））
（ｓｅｔｑ　ｎ　（ｇｅｔｉｎｔ＂输入每圈细化段数＜３６＞：＂））
（ｃｏｎｄ　（（ｎｕｌｌ　ｎ　）（ｓｅｔｑ　ｎ　３６）））
（ｓｅｔｑ　ｄｅｌｔａ　（／　（＊　２．０　ｐｉ　）　ｎ））
（ｓｅｔｑ　ｊ　（／　ｄｉｓｐ　ｎ））
（ｓｅｔｑ　ｂｂ　（ｃａｄｄｒ　ｂ１））
（ｓｅｔｑ　ｔｇ　（＊（／　ａｎｇｔｇ　１８０）　ｐｉ））
（ｓｅｔｑ　ａｎｇ　０）
（ｓｅｔｑ　ｋ　０）
（ｃｏｍｍａｎｄ　＂ｕｃｓ＂　＂ｏ＂　ｂ１）
（ｃｏｍｍａｎｄ　＂３ｄｐｏｌｙ＂　（ｌｉｓｔ　ｒ１　０　０））
（ｒｅｐｅａｔ　（＊　ｍ　ｎ）
（ｓｅｔｑ　ｋ（＋　ｋ　１））
（ｓｅｔｑ　ａｎｇ（＋　ｄｅｌｔａ　ａｎｇ））
（ｓｅｔｑ　ｒ　（－　ｒ１　（＊　（＋　０（＊　ｊ　ｋ））（／　（ｓｉｎ　ｔｇ　）（ｃｏｓｔｇ）））））
（ｓｅｔｑ　ｐｔ２　（ｌｉｓｔ　（＊　ｒ（ｃｏｓ　ａｎｇ））（＊　ｒ（ｓｉｎ　ａｎｇ））（＋　０（＊　ｊ　ｋ））））
（ｃｏｍｍａｎｄ　ｐｔ２）
）
（ｃｏｍｍａｎｄ　＂＂）
）
根据圆台螺旋线的形成原理，如果圆锥角为０度时，即可形成圆柱螺旋线。

圆柱螺旋线程序清单如下：
（ｄｅｆｕｎ　ｃ：ｌｕｏｘｃ（／）
（ｓｅｔｑ　ｂ１　（ｇｅｔｐｏｉｎｔ＂　指定基点：＂））
（ｓｅｔｑ　ｒ　（ｇｅｔｒｅａｌ　＂指定初始半径：＂））
（ｓｅｔｑ　ｖｇ　（ｇｅｔｒｅａｌ　＂指定节距：＂））
（ｓｅｔｑ　ｍ　（ｇｅｔｉｎｔ＂输入圈数：＂））
（ｓｅｔｑ　ｎ　（ｇｅｔｉｎｔ＂输入每圈细化段数＜３６＞：＂））
（ｃｏｎｄ　（（ｎｕｌｌ　ｎ　）（ｓｅｔｑ　ｎ　３６）））
（ｓｅｔｑ　ｄｅｌｔａ　（／　（＊　２．０　ｐｉ　）　ｎ））
（ｓｅｔｑ　ｊ　（／　ｄｉｓｐ　ｎ））
（ｓｅｔｑ　ｂｂ　（ｃａｄｄｒ　ｂ１））
（ｓｅｔｑ　ａｎｇ　０）
（ｓｅｔｑ　ｋ　０）
（ｃｏｍｍａｎｄ　＂ｕｃｓ＂　＂ｏ＂　ｂ１）
（ｃｏｍｍａｎｄ　＂３ｄｐｏｌｙ＂　（ｌｉｓｔ　ｒ　０　０））
２５５
２００７．１２
科技广场
２５６。