螺旋线开发及其在机械零件绘制中应用.docVIP

螺旋线开发及其在机械零件绘制中应用摘要： 本文主要探讨了使用AutoLISP 语言二次开发螺旋线程序，对螺旋线进行编辑，最终攻克弹簧和螺纹类零件在AutoCAD中进行三维实体建模的难题。 关键词： 螺旋线 AutoLISP语言 弹簧 螺纹 一、引言 弹簧和螺纹类零件用量大，范围广，属于标准零件。通常弹簧类零件和螺纹类零件的共同特点是零件结构中有螺旋线，所以其三维构造的关键是其螺旋线形体的构造。在AutoCAD2004中，没有专门的绘制弹簧、螺纹及螺旋线的命令，所以我们构造此类零件的三维实体时首先要编制LISP程序，绘制出螺旋线，再通过截面的拉伸构造出螺旋型实体。 二、应用LISP语言在AutoCAD中开发螺旋线 在AutoCAD 2004中，没有专门的绘制螺旋线命令，可用三维线构造。绘制三维线的命令主要有直线（LINE）、三维多段线（3DPOLY）和样条曲线（SPLINE），而绘制螺旋线的线段只有三维多段线。但由于三维多段线绘制出的是直线，所以在绘制螺旋线时必须采用大量的线段来逼近螺旋线，因此，要通过编制LISP程序的方法来完成。 编写LISP程序： 1.选择【工具】/【AutoLISP】/【VISUAL LISP编辑器】菜单命令，打开【VISUAL LISP】窗口。 2.在窗口中选择【文件】/【新建文件】菜单命令，打开LISP程序编辑窗口，并在该窗口中输入如下程序： （defun c：luox （/） （setq b1 （getpoint″请指定螺旋线基点：″） ） （setq r1 （getreal″请指定螺旋线平均半径：″） ） （setq disp （getreal″请指定螺旋线节距：″） ） （setq angtg （getreal″请输入螺旋线锥形角度：″） ） （setq m （getint″请输入螺旋线圈数：″） ） （setq n （ getint ″请输入每圈细化段数：″） ） （setq delta （/ （* 2.0 pi） n）） （setqJ （/ disp n ）） （setq bb （caddr b1）） （setq tg （ * （ / angtq 180 ）pi ） ） （setq ang 0） （setq k 0） （command ″ucs″ ″o″ b1） （command ″3dpoly″ （list r1 0 0）） （repeat （*m n） （setq k （+ K 1）） （setqang（+ delta ang ） ） （setqr （ -r1 （ * （+ 0 （*j k ） ） （ /（ sin tg ） （ cost g ） ） ） ） （setqpt2 （ list （* r （cos ang ） ） （* r （sin ang ） ） （+ 0 （* J K ） ） ） ） （commandpt2 ） ） （command″ ″ ） ） 3.选择【文件】/【保存】菜单命令，将该文件以“LUOX .LSP”名称保存到文件夹。 4.选择【文件】/【退出】菜单命令，关闭该窗口，完成螺旋线程序二次开发。 三、螺旋线在机械零件实体造型中的应用 1.应用螺旋线绘制弹簧 弹簧的用途很广，主要用于减振、夹紧、储存能量和测力等方面。弹簧的特点是：去掉外力后，弹簧能够快速恢复原状。常用的弹簧有压缩弹簧、拉伸弹簧、扭转弹簧和平面蜗卷弹簧等。下面是实际中普通圆柱压缩弹簧的应用螺旋线的画法。 （1）根据弹簧结构，加载螺旋线程序。 命令：LUOX （2）绘制出符合弹簧参数的下支撑段单圈簧丝螺旋线。 给定参数：螺旋线平均半径，螺旋线节距，每圈细化段数。 （3）在螺旋线的端点绘制簧丝截面图，拉伸生成下支撑段单圈簧丝。 命令：_EXTRUDE （4）绘制弹簧有效段单圈簧丝螺旋线。（同（1）） （5）绘制截面图，拉伸生成有效段单圈簧丝。（同（2）） （6）阵列簧丝，生成有效段簧丝。 命令：_3DARRAY 给定参数：阵列类型，行数，列数，层数，间距 （7）复制下支撑段簧丝构造出上支撑段。 命令：_COPY （8）对支撑段簧丝作裁剪，生成弹簧。 命令：_SLICE 2.应用螺旋线绘制螺栓 螺纹类零件主要有螺栓、螺母及螺钉等，主要用于机械联接。下面是绘制螺栓应用螺旋线的画法。 （1）根据螺栓尺寸，绘制正六边形，拉伸生成实体。 命令：_POLYGON 给定参数：指定圆