[LISP]绘制螺旋线的autoLISP程序
对于在autoCAD中经常会用到绘螺纹,弹簧等实体.而在autoCAD中没有给出专用的命令,因此共享一下此命令的源程序,供广大autoCAD用户使用.<P>使用方法:选择"工具"-->autoLISP-->加载应用程序,会打开"加载应用程序"对话框,选择在此下载后保存的helix.lsp文件,单击"加载"按钮,将方针加载到应用程序中,然后单击"关闭"按钮,关闭对话框.执行helix命令,</P>
<P>系统提示: 指定螺旋线基点: ( 输入螺旋线中心坐标) </P>
<P> 请输入螺纹平均半径: ( 输入螺旋线平均半径)</P>
<P> 请输入螺纹节距:( 输入螺旋线节距,一般设为2)<BR> 请输入每圈细化段数:( 输入螺旋线每圈细化段数,一般设为72)</P>
<P><FONT color=#ff0066><B>注意:</B></FONT><FONT color=#000000>在绘制时,有时会受到图形中其他图元的影响而使绘制的螺旋线发生变形,这时应当暂时关闭"对象捕捉"功能或者冻结其他图层,然后再进行绘制.绘制后要注意坐标系的变化,要是绘制前坐标原点不在这个基点处,绘制后坐标原点移到了螺旋线的基点处.</FONT></P>
<P>绘制完之后,系统会提示: "错误: 函数被取消. " 这时不会影响到绘制.此时,螺旋线最后一点还与CAD十字架相联,按Esc或空格键即可.</P>
<P> 然后在此基础上绘制螺纹,在螺旋线的起点用三维多段线画一个与此点切线想垂直的三角形,然后沿此螺旋线拉伸此三角形.将此拉伸后的图形进行矩形阵列.然后再使用并集将阵列的图形相并.</P>
<P>例如绘制基点为坐标原点,平均半径为25,高为16的螺纹,操作如下:</P>
<P>(1)执行helix命令,指定基点(0,0,0),平均半径25,节距2,每圈细化段数为72,绘制了一段螺旋线.</P>
<P>(2)选择"三维多段线"命令,以点(25,0,0)为起点,经过点(@0,0,-2)和(@1,0,1)绘制一条封闭多段线.</P>
<P>(3)选择"绘图"-->"实体"-->"拉伸",将上一步绘制的封闭多段线沿螺旋线拉伸.</P>
<P>(4)选择"绘图"-->"三维操作"-->"三维阵列",选择矩形阵列,设置行数为1,列数为1,层数为8,指定层间距为2.得到了8层螺旋图形.</P>
<P>(5)用"并集"命令将上一步8层螺纹相并.然后删除开始绘制的螺旋线.</P>
<P>对于绘制弹簧操作类似,就不举例了.不同处在于只是在螺旋线起点处画一个圆.</P> 能不能编一个变导程螺旋线的绘制程序呀
居然只有一个人下载?大家都不用呀?? 我下了,谢谢! 下载了,谢谢 谢谢 xiazaile ,xiexie! <p>AutoCAD2007有一个画螺旋线的命令：helix</p> 挺好用的，我下了 辛苦了，谢谢哦！！ 正学习如何编螺旋线的绘图LISP，谢谢
页:
[1]
2