|
对于在AutoCAD中经常会用到绘螺纹,弹簧等实体.而在autoCAD中没有给出专用的命令,因此共享一下此命令的源程序,供广大autoCAD用户使用.
使用方法:选择"工具"-->autoLISP-->加载应用程序,会打开"加载应用程序"对话框,选择在此下载后保存的helix.lsp文件,单击"加载"按钮,将方针加载到应用程序中,然后单击"关闭"按钮,关闭对话框.执行helix命令,
系统提示: 指定螺旋线基点: ( 输入螺旋线中心坐标)
请输入螺纹平均半径: ( 输入螺旋线平均半径)
请输入螺纹节距 输入螺旋线节距,一般设为2)
请输入每圈细化段数 输入螺旋线每圈细化段数,一般设为72)
注意:在绘制时,有时会受到图形中其他图元的影响而使绘制的螺旋线发生变形,这时应当暂时关闭"对象捕捉"功能或者冻结其他图层,然后再进行绘制.绘制后要注意坐标系的变化,要是绘制前坐标原点不在这个基点处,绘制后坐标原点移到了螺旋线的基点处.
绘制完之后,系统会提示: "错误: 函数被取消. " 这时不会影响到绘制.此时,螺旋线最后一点还与CAD十字架相联,按Esc或空格键即可.
然后在此基础上绘制螺纹,在螺旋线的起点用三维多段线画一个与此点切线想垂直的三角形,然后沿此螺旋线拉伸此三角形.将此拉伸后的图形进行矩形阵列.然后再使用并集将阵列的图形相并.
例如绘制基点为坐标原点,平均半径为25,高为16的螺纹,操作如下:
(1)执行helix命令,指定基点(0,0,0),平均半径25,节距2,每圈细化段数为72,绘制了一段螺旋线.
(2)选择"三维多段线"命令,以点(25,0,0)为起点,经过点(@0,0,-2)和(@1,0,1)绘制一条封闭多段线.
(3)选择"绘图"-->"实体"-->"拉伸",将上一步绘制的封闭多段线沿螺旋线拉伸.
(4)选择"绘图"-->"三维操作"-->"三维阵列",选择矩形阵列,设置行数为1,列数为1,层数为8,指定层间距为2.得到了8层螺旋图形.
(5)用"并集"命令将上一步8层螺纹相并.然后删除开始绘制的螺旋线.
对于绘制弹簧操作类似,就不举例了.不同处在于只是在螺旋线起点处画一个圆. | 
[复制链接]
发表于 2006-8-2 10:48:00
置顶卡
变色卡
显身卡
楼主
发表于 2007-5-6 17:26:00