基于AutoLISP语言参数化绘制变位齿轮的实践研究.doc

基于AutoLISP语言参数化绘制变位齿轮的实践研究 段亚宝 （江苏省灌南中等专业学校，江苏 连云港，222500） 摘要：基于中望CAD2012教育版的环境，运用AutoLISP语言的参数化功能，研究渐开线变位齿轮图形自动生成的方法。这种方法绘图效率快而且高，可大大提高设计人员的工作效率。 关键词：AutoLISP ；参数化绘制；变位齿轮 Practice Research about Parametric drawing of gears with addendum modification　Based on the AutoLISP language Duan Ya-bao (Guannan technical secondary school of Jiangsu，Jiangsu Lianyungang，222500) Abstract:the author introduced the method of automatically drawing graphical about gears with addendum modification in the hope CAD2012 education environment based on the AutoLISP language.this method is fast and high efficiency，and can greatly improve the design efficiency． Key Words: AutoLISP；automatically drawing ；gears with addendum modification 作者联系方式： 作者单位：江苏省灌南中等专业学校 联系电话E-MAIL：gnduan@163.com 邮编：222500 作者简介: 段亚宝（1980— ），男，江苏灌南人，本科。现为江苏省灌南中等专业学校机电技术应用专业教师，讲师。研究方向为AutoCAD教学。 齿轮机构是现代机械中应用最为广泛的一种传动机构，可以用来传递空间任意的两轴间的运动和动力，并且具有传动平稳、传动精度高、传动效率高、工作可靠、寿命长和工作安全等特点[1]，传递功率可以从很小至几十万千瓦；速度最高可达300m/s；齿轮直径可以从几毫米至二十多米。但是制造齿轮需要有专门的设备，啮合传动会产生噪声。通过改变标准刀具对齿轮毛坯的径向位置或改变标准刀具的齿槽宽切制出的齿形为非标准渐开线齿形的齿轮。切制轮齿时，改变标准刀具对齿轮毛坯的径向位置称为径向变位。改变标准刀具的齿槽宽称为切向变位。最常用的是径向变位，切向变位一般用于圆锥齿轮的变位。标准齿轮相比，其模数、齿数、压力角均无变化；但是正变位时，齿廓曲线段离基圆较远，齿顶圆和齿根圆也相应增大，齿根高减小，齿顶高增大，分度圆齿厚与齿根圆齿厚都增大，但齿顶容易变尖；负变位时，齿廓曲线段离基圆较近，齿顶圆和齿根圆也相应减小，齿根高增大，齿顶高减小，分度圆齿厚和齿根圆齿厚都减小AutoLISP是由Autodesk公司开发的一种LISP程序语言LISP是List Processor的缩写通过AutoLISP编程，可以节省工程师很多时间。AutoLISP语言作为嵌入在AutoCAD内部的具有智能特点的编程语言，是开发应用AutoCAD不可缺少的工具。 3 程序设计 3.1 绘制变位齿轮的程序流程图 流程图以图形方式来表示算法，可用于对问题进行系统的分析。流程图是由在程序中代表特定功能的标准符号加上说明，表示算法的图流程图有时也称作输入-输出图。该图直观地描述一个过程的具体步骤。流程图对准确了解事情是如何进行的，以及决定应如何改进过程极有帮助。这一方法可以用于整个，以便直观地跟踪和图解的运作方式。圆角矩形表示“开始”与“结束” 用平行四边形表示输入输出菱形表示问题判断或判定（审核/审批/评审）环节矩形表示行动方案、普通工作环节用箭头代表工作流方向。(defun c:gear(/ o m a z x b h d dd df da s y1 y2 w1 w2 w3 w4 w5) (setvar cmdecho 0) (graphscr) (setq o (getpoint \n 输入齿轮中心点:)) (setq m (getreal \n 输入齿轮模数2:)) (setq a (getreal \n 输入齿轮压力角20:)) (setq z (getreal \n 输入齿轮齿数22:)) (setq dd (getdist \n 输入齿轮轴孔直径15:)) (setq x (getreal \n 输入齿