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

合集下载

相关主题

1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。

２００７．１２

科技广场

２５４

工程中经常要绘制各种弹簧和螺纹连接件，在ＡｕｔｏＣＡＤ中没有专门绘制弹簧和螺纹的命令，弹簧和螺纹在ＡｕｔｏＣＡＤ中都可用平面图形通过相应螺旋线拉伸而成，所以绘制螺旋线就是解决问题的关键。如果用常规的３ｄｐｏｌｙ命令绘制三维螺旋线，需要输入大量精确数据，才能一点一点地画出螺旋线，做法非常麻烦。现在提供ＡｕｔｏＬＩＳＰ程序，即可解决绘制螺旋线的问题。然后通过相应平面图形的拉伸，就可以完成弹簧、螺纹等零件的绘制。

根据圆台螺旋线的形成原理（一动点Ｍ绕圆台的母线ＡＢ作等速直线运动，而该母线ＡＢ又绕圆台的轴线Ｏ１Ｏ２作等角速旋转时，点Ｍ的运动轨迹即为圆台的螺旋线，如图二所示。圆柱螺旋线是圆台螺旋线的特例，故可通过圆台螺旋线程序做相应的变动，即可得到），动点Ｍ（ｘ，ｙ，ｚ）的参数方程如下：

图二园台螺旋线

Ｘ＝［ｒ０＋ｈｇ　＊α／（２π）］＊ｃｏｓα

Ｙ＝［ｒ０＋ｈｇ　＊α／（２π）］　＊ｓｉｎα

Ｚ＝±ｖｇ　＊α／（２π）

其中，ｒ０为圆台下面的半径，α为螺旋线角，ｖｇ为导程（单线螺旋线螺距（弹簧的节距）等于导程），ｈｇ为点Ｍ沿水平半径方向上增加的距离（ｈｇ＝｜（ｒ１－ｒ０）ｍ｜求得，ｍ为螺旋线的圈数）。

下面提供圆台螺旋线的ＡｕｔｏＬＩＳＰ程序清单：

（ｄｅｆｕｎ　ｃ：ｌｕｏｘｃ（／）

（ｓｅｔｑ　ｂ１　（ｇｅｔｐｏｉｎｔ＂　指定基点：＂））

（ｓｅｔｑ　ｒ１　（ｇｅｔｒｅａｌ　＂指定初始半径：＂））

（ｓｅｔｑ　ｄｉｓｐ　（ｇｅｔｒｅａｌ　＂指定节距：＂））

（ｓｅｔｑ　ａｎｇｔｇ　（ｇｅｔｒｅａｌ　＂输入锥形角：＂））

（ｓｅｔｑ　ｍ　（ｇｅｔｉｎｔ＂输入圈数：＂））

（ｓｅｔｑ　ｎ　（ｇｅｔｉｎｔ＂输入每圈细化段数＜３６＞：＂））

（ｃｏｎｄ　（（ｎｕｌｌ　ｎ　）（ｓｅｔｑ　ｎ　３６）））

（ｓｅｔｑ　ｄｅｌｔａ　（／　（＊　２．０　ｐｉ　）　ｎ））

（ｓｅｔｑ　ｊ　（／　ｄｉｓｐ　ｎ））

（ｓｅｔｑ　ｂｂ　（ｃａｄｄｒ　ｂ１））

（ｓｅｔｑ　ｔｇ　（＊（／　ａｎｇｔｇ　１８０）　ｐｉ））

（ｓｅｔｑ　ａｎｇ　０）

（ｓｅｔｑ　ｋ　０）

（ｃｏｍｍａｎｄ　＂ｕｃｓ＂　＂ｏ＂　ｂ１）

（ｃｏｍｍａｎｄ　＂３ｄｐｏｌｙ＂　（ｌｉｓｔ　ｒ１　０　０））

（ｒｅｐｅａｔ　（＊　ｍ　ｎ）

（ｓｅｔｑ　ｋ（＋　ｋ　１））

（ｓｅｔｑ　ａｎｇ（＋　ｄｅｌｔａ　ａｎｇ））

（ｓｅｔｑ　ｒ　（－　ｒ１　（＊　（＋　０（＊　ｊ　ｋ））（／　（ｓｉｎ　ｔｇ　）（ｃｏｓｔｇ）））））

（ｓｅｔｑ　ｐｔ２　（ｌｉｓｔ　（＊　ｒ（ｃｏｓ　ａｎｇ））（＊　ｒ（ｓｉｎ　ａｎｇ））（＋　０（＊　ｊ　ｋ））））

（ｃｏｍｍａｎｄ　ｐｔ２）

）

（ｃｏｍｍａｎｄ　＂＂）

）

根据圆台螺旋线的形成原理，如果圆锥角为０度时，即可形成圆柱螺旋线。圆柱螺旋线程序清单如下：