基于AutoLISP语言的直齿圆锥齿轮传动的辅助设计

1、PAGE PAGE 4 基于AutoLISP语言的直齿圆锥齿轮传动的辅助设计摘 要 计算机辅助设计(CAD-Computer Aided Design) 是利用计算机及其图形设备帮助设计人员进行设计工作。AutoCAD是由美国Autodesk欧特克公司于二十世纪八十年代初为微机上应用CAD技术而开发的绘图程序软件包，经过不断的完善，现已经成为国际上广为流行的绘图工具。随着AutoCAD应用的深入，越来越多的用户发现仅仅利用AutoCAD提供的交互功能已经不能满足设计功能，在解决比较专业的问题时，尤为突出。这就需要一种智能化软件能够通过编程的方式来大量成批地去解决这一问题。AutoCAD的开发性

2、和丰富的开发工具为我们解决这个问题提供了有效的手段。利用 Auto LISP编程，可以强化AutoCAD原有的命令，创造更有用的CAD新命令，大大的提高了CAD的使用效率，缩短了绘制图形的时间。简化烦琐的环境设定或绘图步骤。关键词 二次开发；齿轮传动；Auto LISP；DCLAbstract Computer Aided Design (CAD-Computer Aided Design) is the use of computers and graphic design equipment to help staff design work. AutoCAD Autodesk Auto

3、desk by the United States in the twentieth century the early eighties for the application of computer technology and the development of CAD drawing program package, through continuous improvement of the international community is has become widely popular mapping tools. AutoCAD application with in-d

4、epth, more and more users find just the use of interactive features offered by AutoCAD can no longer meet the design features, more professional in addressing the issue, its especially significant. This requires an intelligent software can be programmed manner through a large number of batches to so

5、lve this problem. AutoCAD development and a wealth of development tools for us to solve this problem provides an effective means. The use of Auto LISP programming, you can strengthen the original AutoCAD commands, using CAD to create more new orders, greatly increased the efficiency in the use of CA

6、D, which has shortened the time for rendering graphics. Simplify the cumbersome steps in the environment settings, or drawing. Key words secondary development, Auto LISP, gear drive, DCL目 录引 言 1 CAD技术的简介及发展方向 2 1.1 CAD技术概述 21.2 CAD技术的研究现状与发展方向 21.3 AutoCAD二次开发工具的发展过程 5第二章 设计部分 82.1 齿轮类型、精度等级、材料及齿数 8

7、2.2 按齿轮接触强度设计 82.3按齿根弯曲强度设计 102.4 几何尺寸计算 112.5 验算 12第三章 使用说明 12 3.1 加载 123.2 运行 143.3 对话框中的数据说明 16第四章 程序部分 184.1 Auto lisp 程序部分 184.2 DCL 对话框程序部分 38结 论 43参考文献44附 录45谢 辞46PAGE PAGE 46引 言 随着AutoCAD版本的不断更新，使用范围的扩大，AutoCAD本身命令以不能满足使用者的要求。随之而来诞生了很多AutoCAD开发语言，主要有Auto LISP、ADS（AutoCADDevelopmentSystem）、Vi

8、sual LISP三种语言。在众多的AutoCAD开发工具中，Auto LISP使用最简单、应用最广泛、使用者最多的一种开发工具。基于AutoCAD平台开发的通过编程的方式来进行机械设计计算，校核计算以及设计图的参数化绘制技术，显示出其程序简单，运行平稳，提高设计效率的显著优势。本次所要进行的直齿圆锥齿轮的校核和绘图，就是在AutoCAD中利用其内部的二次开发工具，通过编程的方式对AutoCAD进行二次开发，对其现有的功能就拓展和补充，以满足本次设计的需要。直齿圆锥齿轮的计算机辅助设计系统开发共分两大部分，其中第一部分是辅助绘图部分，第二部分是直齿圆锥齿轮设计的设计计算部分。本次设计采用人机交

9、互对话框。通过使用程序完成从齿轮的设计计算到AutoCAD出图的一系列过程，缩短了绘制图形的时间。简化烦琐的环境设定或绘图步骤。第一章CAD技术的简介及发展方向1.1 CAD技术概述计算机辅助设计(computer aided design)，简称CAD，是指工程技术人员以计算机为工具进行设计活动的全过程，包括资料检索，方案构思，设计分析，工程绘图和编制技术文件等，是随着计算机、外围设备及相关软件的发展而形成的一种综合性高新技术。CAD技术从20世纪50年代的初始准备开始，经过近半个世纪五个时期的发展，到如今已被广泛应用于各个部门和行业。从技术角度讲，也由原来单一的解决自动绘图问题发展到现在集

10、标准化、智能化、集成化和网络化为一体的综合应用科学。同时，CAD技术的发展离不开计算机技术的发展，因此，客观上讲CAD技术的发展是伴随着计算机及其外围设备、图形设备及其相关软件的发展而发展的。1.2 CAD技术的研究现状与发展方向计算机辅助设计技术的发展和普遍应用，使的产品的设计和制造的传统模式产生了深刻的变革，引起了一场产品、工程设计领域的技术革命，是促进工程设计走向现代化的一项重要的高新技术。它极大的加快了设计进程，缩短了产品的研制和生产周期，提高了设计质量，在产品质量的提高和开发新产品的成功率方面都有显著的改善。与计算机辅助设计技术同时发展起来的CAD软件产业己具有相当大规模，目前己成为

11、信息产业的一个重要生长点.由于 CAD技术推动了几乎一切领域的设计革命，因此其应用水平已成为衡量一个国家科学技术水平的重要标志之一.基于特征的产品信息建模技术传统的几何造型技术一直是机械 CAD 中的主要研究领域，该技术中比较成熟的有线框造型、曲面造型和实体造型。虽然这三种几何造型技术提供了物理对象在数学上的精确描述，并在图形显示、物性计算等方面得到了很好的应用，但它们所建立的模型只产生层次较低的几何信息，如点、线、面和基本体素，而没有高层次的信息，如尺寸、公差、材料特性及装配要求，因此在这种纯几何造型数据库的基础上难以实现零件分类编码的自动生成，不能满足生产各阶段自动化的要求，更难以实现 C

12、AD/CAPP/CAM 的集成以及产品的并行设计。进入八十年代中期，国际上开始研究基于特征的设计，而建立基于特征的产品信息模型则是行之有效的方法。特征是一个高层次的设计概念，内部包含了设计人员的设计意图及与后继工作有关的各种信息。对于具体的机械产品而言，特征是一组与产品描述相关的信息集合。产品特征信息模型包括管理特征模型、形状特征模型和技术特征模型。而形状特征模型又包括几何结构模型、精度特征模型、材料特征模型和装配特征模型。产品的形状特征建模是产品特征信息建模的主要内容，也是产品定义的核心内容，它是产生其它信息的基础。基于特征的产品信息建模需要考虑利用特征可以设计复杂程度的产品模型，要研究基于

13、特征设计系统提供给用户设计产品的三种手段之间的相互关系。这三种手段是：形状特征库、用户自定义特征、形状特征的组合与修改。其中形状特征库的建立是形状特征建模技术中比较重要也是较难处理的问题，如何选择合适规模的形状特征库是一个需深入研究的课题。由于三种手段各有其优缺点，要充分发挥特征造型的作用，需要在三者之间进行综合平衡，深入研究这三种手段的建立过程，正确处理好三者之间的关系，是今后主要的研究方向。 CAD 的智能化技术机械产品设计不但涉及到一系列的计算公式、众多的设计标准和规范以及制图技术,而且还要用到许多非数值的经验性知识，如开始的概念设计和产品的初步设计则要求设计专家凭借知识和经验来思考、推

14、理和判断；而设计过程是一个从设计、评价、再设计直到产生最优设计结果的反复过程，这就更需要设计专家具有一定的知识和经验，也促进了专家系统和 CAD的结合。概念设计(即方案设计)是整个设计过程中最重要的一个阶段，这一阶段是设计创造性最为集中的部分，这一部分与问题的表达和理解的正确与否，所提方案的优劣以及评价和决策的适当与否等有关，它决定了最终设计的特色、水平和效益。智能化是机械 CAD 中极具有前途的研究领域。目前，机械 CAD 的智能化正朝向专家系统、数值计算、数据库系统和图形系统的集成程序设计环境方向发展。 CAD 的参数化技术参数化技术是指设计对象的结构形状比较定型，可以用一组参数来约定尺寸

15、的关系。参数与设计对象的控制尺寸有显然的对应，设计结果的修改受到尺寸驱动，所以也称为参数化尺寸驱动，参数化设计技术以其强有力的草图设计、尺寸驱动修改图形的功能，成为初始设计、产品建模及修改系列化设计、多方案比较和动态设计的有效手段。近几年参数化技术已有不少种方法，如变动几何法、几何推理法及参数化操作法等。变动几何法将几何约束转变为一系列以特征点为变元的非线性方程组，通过数值法解非线性方程组确定出几何细节，该方法必须用户输入充分且一致的几何约束才能求出约束方程的解，对不一致的约束模型则难以进行有效的判别与处理，也难以有效地将局部变动限制在局部范围内求解；几何推理法是建立在专家系统的基础上，采用谓

16、词表示几何约束，通过推理机导出几何细节，这种方法可以检查约束模型的有效性，并具有局部修改功能，但存在着推理速度慢、系统庞大等问题；参数化操作法采用参数化操作表示与处理几何约束，并通过与参数化操作对应的几何计算程序逐步确定出精确几何模型，此法简单、实用，但难以表示与处理复杂的几何约束。参数化技术发展很快，一旦工程设计能以参数化方式进行，设计人员就可以不再关心设计的具体过程，从而集中主要精力去创意，同时计算机与具体设计的信息交换也变得更加简化，电脑得以在更高层次上模拟人脑工作。广义参数化是对事物的本质性认识，而通常人们所说的参数化技术实际上是一种约束模型，这种模型包括图形的几何约束和拓扑关系约束。

17、实现这些约束可通过解约束方程组或通过几何推理，当前大多数参数化设计系统并没有很好地解决这一问题，对复杂的图形便无法正确完成尺寸驱动。欲解决该问题，宜进一步从两个方面来研究。可以把设计对象分解为一些简单实体，这些实体具有三种基本信息，即形状信息、定位信息和属性信息，而所有这些基本信息都可由数学定义的变量表示，赋予这些变量一定的工程意义或工艺意义，即形成设计参数，通过改变这些参数，便得到不同的设计结果；也可以考虑把面向对象的思想与参数化技术中的约束模型的建立及推理求解结合起来，克服一般尺寸驱动系统的不足，从而能够准确和完整地描述复杂图形的几何信息，快速完成推理求解。机械 CAD 技术已经向智能化、

18、参数化及基于特征的产品信息建模方向发展，而且这几个研究领域和研究内容之间的界限已不再分明，而是相互融合、相互促进、协调发展。CAD 技术作为多学科高度集合的一门新技术，推动了工业设计中脑力劳动的技术革命，CAD/CAM 的一体化则能够更有效地控制、管理复杂的现代化生产作业，提高产品的竞争能力，使生产技术得到巨大发展。1.3 AutoCAD 二次开发工具的发展 第一代开发工具Auto LISPAuto LISP是1986年随AutoCADv2.18提供的二次开发工具。它是一种工智能语言，是嵌入AutoCAD内部的COMMONLISP的一个子集。在AutoCAD的二次开发工具中，它是唯一的一种解释

19、型语言。使用Auto LISP可直接调用几乎所有的AutoCAD命令。 Auto LISP语言最典型的应用之一是实现数字化绘图程序设计，包括尺寸驱动程序和鼠标拖动程序等。另一个典型应用就是驱动AutoCAD提供PDB模块结构 DCL（DialogControlLanguage）文件，创建自己的对话框。Auto LISP具有以下优点：（1）语言规则十分简单，易学易用；（2）直接针对AutoCAD，易于交互；（3）解释执行，立竿见影。Auto LISP的缺点是：（1）功能单一，综合处理能力差；（2）解释执行，程序运行速度慢；（3）缺乏很好的保护机制，源程序保密性差；（4）LISP用表来描述一切，并

20、不能很好地反映现实世界和过程，跟人的思维方式也不一致；（5）不能直接访问硬件设备、进行二进制文件的读写。Auto LISP的这些特点，使其仅适合于有能力的终端用户完成一些自己的开发任务。第二代开发工具ADSADS（AutoCADDevelopmentSystem）是AutoCADR11开始支持的一种基于C语言的灵活的开发环境。ADS可直接利用用户熟悉的C编译器，将应用程序编译成可执行文件后在AutoCAD环境下运行，从而既利用了AutoCAD环境的强大功能，又利用了C语言的结构化编程、运行效率高的优势。与Auto LISP相比，ADS优越之处在于：（1）具备错综复杂的大规模处理能力；（2）编译

21、成机器代码后执行速度快；（3）编译时可以检查出程序设计语言的逻辑错误；（4）程序源代码的可读性好于Auto LISP。而其不便之处在于：（1）C语言比LISP语言难于掌握和熟练应用；（2）ADS程序的隐藏错误往往导致AutoCAD，乃至操作系统的崩溃；（3）需要编译才能运行，不易见到代码的效果；（4）同样功能,ADS程序源代码比Auto LISP代码很多。第三代开发工具VisualLISP，ARX及基于ActiveXAutomation技术的VBA等(1)VisualLISP (VLISP)VLISP是Auto LISP的换代产品。它与Auto LISP完全兼容，并提供它所有的功能，是新一代的

22、AutoCADLISP语言。VLISP对语言进行了扩展，可以通过MicrosoftActiveXAutomation接口与对象交互。同时，通过实现反应器函数，还扩展了Auto LISP响应事件的能力。作为开发工具，VLISP提供了一个完整的集成开发环境（IDE），包括编译器、调试器和其他工具，可以提高二次开发的效率。另外，VLISP还提供了工具用于发布独立的应用程序。(2)ARXARX（AutoCADRuntimeextension）是AutoCADR13之后推出的一个以C+语言为基础的面向对象的开发环境和应用程序接口。ARX程序本质上为Windows动态链接库（DLL）程序，与AutoCAD

23、共享地址空间，直接调用AutoCAD的核心函数，可直接访问AutoCAD数据库的核心数据结构和代码，以便能够在运行期间扩展AutoCAD固有的类及其功能，创建能够全面享受AutoCAD固有命令特权的新命令。ARX程序与AutoCAD、Windows之间均采用Windows消息传递机制直接通讯。Auto LISP、ADS、ARX都是AutoCAD提供的内嵌式编程语言。Auto LISP和ADS都是通过内部进程通讯（IPC）来和AutoCAD通讯，它们与AutoCAD是相互分离的过程，而ARX以DLL形式与AutoCAD共享地址空间，所示。因此，与前两者相比，其速度更快、运行更稳定、更简单。由于是

24、在Windows及VC+编程环境里运行，所以，对开发者的编程能力要求较高。ARX、ADS、Auto LISP与AutoCAD的关系ObjectARX应用程序以C+为基本开发语言，具有面向对象编程方式的数据可封装性、可继承性及多态性的特点，用其开发的CAD软件具有模块性好、独立性强、连接简单、使用方便、内部功能高效地实现以及代码可重用性强等特点，并且支持MFC基本类库，能简洁高效地实现许多复杂功能。 这里顺便提一下ADSRX。AutoCADR14的开发环境ADSRX是ARX的一个子集，它等效于ADS。使用ADSRX，能够用C语言编写基于AutoCAD的程序，也能很方便地将ADS程序移植为ARX程

25、序。比较了Auto LISP、ADS、ADSRX和ARX的关于速度、暴露性、功能和要求使用每个API的编程经验等方面的编程接口。“暴露性”参数显示了用户编程错误的可能严重性。尽管ARX接口是四个API中最强有力的，它也具有产生严重编程错误的最大潜在性，如 破坏AutoCAD数据结构等。其它编程环境要求较少的编程经验，但提供的功能和范围也较小。Auto LISP、ADS和ARX的系统比较,可以说，Auto LISP着眼于应用程序的交互性，ADSC/C+着眼于应用程序的综合性，而ARX则着眼于应用程序的智能性。(3)基于ActiveXAutomation技术的VBA等开发工具 ActiveXAut

26、omation是一套微软标准，以前称为OLEAutomation技术。该标准允许通过外显的对象由一个Windows应用程序控制另一个Windows应用程序，这也是面向对象编程技术的精髓所在。AutoCAD从R14开始增加了作为ActiveXAutomation服务器应用程序的功能，使得许多面向对象编译语言和应用程序可以通过ActiveX与AutoCAD进行通信，并操纵AutoCAD的许多功能， (4)ActiveX在开发语言与AutoCAD之间所起的作用 ActiveXAutomation服务器应用程序是通过自身对象的属性、方法和事件实现其功能。对象是服务器应用程序简单而抽象的代表。不管是用V

27、B、VC、OFFICEVBA等从外部开发，还是用AutoCADVBA从内部对AutoCAD进行二次开发，都是通过调用AutoCAD的对象体系结构来进行的。AutoCAD2000ActiveXAutomation技术将AutoCAD2000的各种功能封装在AutoCADActiveX对象中，供编程使用。AutoCAD2000中提供的所有对象组成一个树形结构，最高层是Application对象，其他对象都是它的后代。为了得到一个特定的对象，必须从Application对象对其子孙进行遍历，直到找到该特定的对象。(5)AutoCAD对象模型 ActiveXAutomation技术的完全面向对象化编程

28、的特点，使其开发环境具备了强大的开发能力和简单易用的优良特点，开发工具的选择也具有很大的灵活性。所以，利用ActiveXAutomation技术，是极具潜力的一种开发手段。设计部分2.1 选择齿轮类型、精度等级、材料及齿数 1）确定大小齿轮的材料及处理方式 2）确定精度等级 3）确定小齿轮的齿数z1；大齿轮齿数z2=z1*u2.2 按齿轮接触强度设计 直齿锥齿轮的齿面接触疲劳强度，仍按平均分度圆处的当量圆柱齿轮计算，工作齿宽即为锥齿轮的齿宽b.按计算公式（10-6）进行计算，即1）确定公式内的各计算数值 eq oac(,1)试选取载荷系数 eq oac(,2)根据公式计算小齿轮传递的转矩 eq

29、 oac(,3)根据齿面硬度和齿轮相对轴承的位置确定齿宽系数 （机械设计表10-7） eq oac(,4)根据齿轮的材料确定弹性影响系数（机械设计表10-6） eq oac(,5)根据齿轮材料、热处理方式以及齿面硬度，由公式计算出大小齿轮的接触疲劳强度（，是由材料决定的系数，机械设计图10-21e） eq oac(,6)由公式10-13计算应力循环次数，即N=30nj;(n为齿轮转速，r/min; j为齿轮每转一圈时，同一齿面啮合次数；为齿轮的工作寿命，h) eq oac(,7)由大小齿轮的应力循环次数N,确定接触疲劳寿命系数 ，（机械设计图10-19） eq oac(,8)根据使用要求，确定

30、安全系数S eq oac(,9)根据公式（10-12），计算接触疲劳许用接触应力，即2）计算 eq oac(,1)试计算小齿轮分度圆直径,带中较小者 eq oac(,2)计算圆周速度V; ；（n1为小齿轮转速） eq oac(,3)计算齿宽b; ;模数：齿高：计算载荷系数根据圆周速度V，精度等级，确定动载系数Kv;（机械设计图10-8）直齿圆锥齿轮，假设,由机械设计表10-3查得根据工作机和原动机的工作特性确定使用系数根据齿轮相对位置，精度等级，材料及热处理方式和齿宽系数确定接触强度计算用的齿向载荷分布系数（机械设计表10-4）根据齿向载荷分布系数确定弯曲强度计算用的齿向载荷分布系数（机械设计

31、图10-13）故载荷系数 K= 按实际载荷系数校正所得分度圆直径，由机械设计公式（10-10a）得 2. 3 按齿根弯曲强度设计由机械设计式（10-5）得弯曲强度的设计公式为1)确定公式内的各计算数值 eq oac(,1)根据大小齿轮的材料及热处理方式确定弯曲疲劳强度极限（机械设计图10-20d） eq oac(,2)根据大小齿轮的材料及其热处理方式和应力循环次数确定弯曲疲劳寿命系数；（机械设计图10-18） eq oac(,3)计算弯曲疲劳许用应力根据使用要求，确定接触疲劳安全系数；由机械设计式（10-12得） 、 eq oac(,4)计算载荷系数K; K= eq oac(,5)根据齿轮齿数

32、确定齿型系数 eq oac(,6)根据齿数确定应力校正系数 eq oac(,7)根据计算大小齿轮的，取之中较大者用于下步计算中的；2）根据公式，得出由齿根弯曲疲劳强度计算的模数，并就近圆整选取标准值。根据前步按接触强度算得的小齿轮分度圆直径d1,计算，并且就近取整，计算大齿轮分度圆直径2. 4 几何尺寸计算直齿锥齿轮传动是以大端参数为标准值的。在强度计算时，则以齿宽中点处的当量齿轮作为计算的依据。对轴交角=90度的直齿锥齿轮传动，其齿数比u，锥距R，分度圆直径，平均分度圆直径。 1）计算分度圆直径 2）平均分度圆直径 3）计算锥距 4）计算齿轮宽度 2. 5 验算受力分析：注：式中，与及大小相

33、等，方向相反。圆周力 F;根据精度等级的选择，5级以上时，5级及更低时说明校核结果合格，否则需要重新确定尺寸。第三章 使用说明本设计的Auto LISP程序，由两个文件组成：gear.lsp和gear. dcl。将这两个文件共同保存在任意目录下，然后进入AutoCAD，选择“工具”“选项”“文件”“支持文件搜索路径”“添加”，选择保存目录的路径。选择“工具”“AUTO LISP”“加载”，选择保存目录下的gear .lsp,点击“加载”按扭。关闭“加载/卸载应用程序”对话框，按提示添入参数即可。下面介绍如何使用：3.1 加载打开AutoCAD后，选择“工具”下拦菜单“AutoLISP”“加载”

34、。在点击“加载”后，弹出“加载/卸载应用程序”对话框在对话框中，浏览到gear.lsp程序并选择，点击“加载”按钮，对话框左下角出现“已成功加载gear.lsp。”信息，加载成功。点击“关闭”按钮，关闭对话框。3.2 运行1）返回AutoCAD界面，弹出“直齿圆锥齿轮传动设计及绘图”对话框按照提示选择或输入使用系数KA，齿轮材料及其热处理，硬度，齿轮传动精度等级，装配条件，接触斑点检查方式，传动方式，齿面精糙度，是否允许有少量的点蚀，润滑油运动粘度等基本参数，当所有参数输入完毕后，可点击“设计”按钮，开始计算。注意：如弹出如下对话框，则请注意检查参数输入是否完整，点击“确定”后继续输入。2）正

35、确输入基本参数后，点“设计”按钮后，得出参考方案。初步计算出齿轮齿数、齿宽、和计算模数，在选择一组数据后，弹出“渐开线直齿锥齿轮传动校核”对话框。可点击“校核”按钮进行校核。如弹出如下对话框，则说明校核不成功。有参数选择不正确。没有弹出对话框说明校核成功。3）在“渐开线直齿锥齿轮传动校核”对话框中。点击“绘图”按钮，弹出“锥齿轮结构设计”对话框，显示通过计算所得的齿轮各种齿轮结构，并且选择“装配图”或“零件图”。如果“零件图”选择绘制“大齿轮图”或“小齿轮图”。选择“基本位置” ，“比例”。4）最后，在检查无误的情况下，点击“锥齿轮结构设计”对话框中的“确定”按钮，完成绘图。3.3对话框数据显

36、示最大传递功率/kw40小齿轮计算转速(r/min)1440小齿轮计算转矩/（N*mm）265277.7778名义传动比3工作寿命/h1000齿轮传动精度等级45678装配条件无悬臂一个齿轮悬臂两个齿轮悬臂接触斑点检查方式满载逐件检查轻载逐件检查估算接触斑点齿面粗糙度08163263125是否允许有少量的点蚀允许不允许润滑油运动粘度v40/(mm2s)1015203246动力机工作特性轻微冲击中等冲击均匀平稳工作机工作特性轻微冲击中等冲击均匀平稳可靠度一般可靠度较高可靠度高可靠度小齿轮材料及热处理方式结构钢正火铸钢正火合金钢调质合金铸钢调质碳钢调质合金钢渗碳淬火大齿轮材料及热处理方式结构钢正火

37、铸钢正火合金钢调质合金铸钢调质碳钢调质合金钢渗碳淬火第四章 程序部分4.1 Autolisp 程序部分(defun gear( / mat mat1 mat2 namenumber1 heatnumber1 namenumber2 heatnumber2 hb1 hb2 an dsable rf0 rz kb v40 teethnumber yy lastkey1 lastkey2 m_list znk1 znk2 next_d next_d1 kv khb yn1 yn2 sh1 sh2 sf1 sf2 width ka jd power rpm ratio hour htype1 htyp

38、e2 khblist jcbd zptj result p1_lst gear0 editpower editrpm edittorque editratio edithour editsh1 editsh2 editsf1 editsf2 editwidth kabutton kaeditbox kaeditbox1 katable sele1 sele2 edithb1 edithb2 tan inv ainv getdesign asin acos getzh getzm get zl getzv getzr getyx getro getydrelt getea getzn getyf

39、a getysa getynt getyrrelt getyk getkv getkfa getze getke check0 check output draw2 initimage draw bai_fang draw0 drawaid drawjg1 getset afterdraw drawjg2 drawjg3 drawjg4 )(setq mat (NAME 结构钢正火)(HTYPE 1)(ZN 1)(V 0.3)(E 206000.0)(HH1 110.0)(HH2 210.0)(HH3 220.0) (SHMIN1 300.0)(SHMAX1 420.0)(SHMIN2 400

40、.0)(SHMAX2 570.0)(SHMIN3 400.0)(SHMAX3 570.0) (HF1 110.0)(HF2 210.0)(HF3 220.0)(RP 0.08)(MTYPE 2)(NAMENUMBER 1)(HEATNUMBER 1)(YN 2) (SFMIN1 120.0)(SFMAX1 190.0)(SFMIN2 160.0)(SFMAX2 230.0)(SFMIN3 160.0)(SFMAX3 230.0) (NAME 铸钢正火)(HTYPE 1)(ZN 1)(V 0.3)(E 202000.0)(HH1 110.0)(HH2 190.0)(HH3 200.0) (SHM

41、IN1 240.0)(SHMAX1 360.0)(SHMIN2 310.0)(SHMAX2 440.0)(SHMIN3 310.0)(SHMAX3 440.0) (HF1 110.0)(HF2 210.0)(HF3 220.0)(RP 0.0)(MTYPE 2)(NAMENUMBER 1)(HEATNUMBER 1)(YN 2) (SFMIN1 90.0)(SFMAX1 160.0)(SFMIN2 130.0)(SFMAX2 190.0)(SFMIN3 130.0)(SFMAX3 190.0) (NAME 球墨铸铁)(HTYPE 1)(ZN 1)(V 0.3)(E 173000.0)(HH1

42、140.0)(HH2 300.0)(HH3 310.0) (SHMIN1 330.0)(SHMAX1 470.0)(SHMIN2 560.0)(SHMAX2 700.0)(SHMIN3 560.0)(SHMAX3 700.0) (HF1 140.0)(HF2 300.0)(HF3 310.0)(RP 0.3095)(MTYPE 1)(NAMENUMBER 6)(HEATNUMBER 0)(YN 2) (SFMIN1 130.0)(SFMAX1 190.0)(SFMIN2 180.0)(SFMAX2 250.0)(SFMIN3 180.0)(SFMAX3 250.0) (NAME 黑心可锻铸铁)

43、(HTYPE 1)(ZN 1)(V 0.3)(E 122000.0)(HH1 140.0)(HH2 250.0)(HH3 260.0) (SHMIN1 330.0)(SHMAX1 450.0)(SHMIN2 490.0)(SHMAX2 590.0)(SHMIN3 490.0)(SHMAX3 590.0) (HF1 140.0)(HF2 250.0)(HF3 260.0)(RP 0.32)(MTYPE 1)(NAMENUMBER 7)(HEATNUMBER 0)(YN 0) (SFMIN1 130.0)(SFMAX1 190.0)(SFMIN2 160.0)(SFMAX2 230.0)(SFMI

44、N3 160.0)(SFMAX3 230.0) (NAME 灰铸铁)(HTYPE 1)(ZN 2)(V 0.3)(E 122000.0)(HH1 140.0)(HH2 270.0)(HH3 280.0) (SHMIN1 260.0)(SHMAX1 330.0)(SHMIN2 390.0)(SHMAX2 520.0)(SHMIN3 390.0)(SHMAX3 520.0) (HF1 140.0)(HF2 230.0)(HF3 240.0)(RP 0.3124)(MTYPE 1)(NAMENUMBER 5)(HEATNUMBER 0)(YN 2) (SFMIN1 35.0)(SFMAX1 80.0

45、)(SFMIN2 55.0)(SFMAX2 100.0)(SFMIN3 55.0)(SFMAX3 100.0) (NAME 合金钢调质)(HTYPE 2)(ZN 1)(V 0.3)(E 206000.0)(HH1 200.0)(HH2 360.0)(HH3 370.0) (SHMIN1 540.0)(SHMAX1 700.0)(SHMIN2 750.0)(SHMAX2 930.0)(SHMIN3 750.0)(SHMAX3 930.0) (HF1 200.0)(HF2 360.0)(HF3 370.0)(RP 0.0833)(MTYPE 2)(NAMENUMBER 2)(HEATNUMBER

46、2)(YN 0) (SFMIN1 190.0)(SFMAX1 300.0)(SFMIN2 250.0)(SFMAX2 360.0)(SFMIN3 250.0)(SFMAX3 360.0) (NAME 合金铸钢调质)(HTYPE 2)(ZN 1)(V 0.3)(E 202000.0)(HH1 200.0)(HH2 360.0)(HH3 370.0) (SHMIN1 450.0)(SHMAX1 520.0)(SHMIN2 680.0)(SHMAX2 850.0)(SHMIN3 680.0)(SHMAX3 850.0) (HF1 200.0)(HF2 360.0)(HF3 370.0)(RP 0.0

47、833)(MTYPE 2)(NAMENUMBER 2)(HEATNUMBER 2)(YN 0) (SFMIN1 150.0)(SFMAX1 260.0)(SFMIN2 200.0)(SFMAX2 310.0)(SFMIN3 200.0)(SFMAX3 310.0) (NAME 碳钢调质)(HTYPE 2)(ZN 1)(V 0.3)(E 206000.0)(HH1 130.0)(HH2 210.0)(HH3 220.0) (SHMIN1 420.0)(SHMAX1 540.0)(SHMIN2 490.0)(SHMAX2 610.0)(SHMIN3 490.0)(SHMAX3 610.0) (HF

48、1 120.0)(HF2 210.0)(HF3 220.0)(RP 0.0281)(MTYPE 2)(NAMENUMBER 2)(HEATNUMBER 2)(YN 0) (SFMIN1 140.0)(SFMAX1 240.0)(SFMIN2 160.0)(SFMAX2 260.0)(SFMIN3 160.0)(SFMAX3 260.0) (NAME 碳素铸钢调质)(HTYPE 2)(ZN 1)(V 0.3)(E 202000.0)(HH1 130.0)(HH2 210.0)(HH3 220.0) (SHMIN1 360.0)(SHMAX1 480.0)(SHMIN2 430.0)(SHMAX2

49、 550.0)(SHMIN3 430.0)(SHMAX3 550.0) (HF1 120.0)(HF2 210.0)(HF3 220.0)(RP 0.0064)(MTYPE 2)(NAMENUMBER 2)(HEATNUMBER 2)(YN 0) (SFMIN1 110.0)(SFMAX1 200.0)(SFMIN2 130.0)(SFMAX2 220.0)(SFMIN3 130.0)(SFMAX3 220.0) (NAME 合金钢渗碳淬火)(HTYPE 3)(ZN 1)(V 0.3)(E 206000.0)(HH1 57.0)(HH2 59.0)(HH3 63.0) (SHMIN1 1300

50、.0)(SHMAX1 1400.0)(SHMIN2 1300.0)(SHMAX2 1650.0)(SHMIN3 1300.0)(SHMAX3 1650.0) (HF1 630.0)(HF2 670.0)(HF3 780.0)(RP 0.0014)(MTYPE 2)(NAMENUMBER 3)(HEATNUMBER 4)(YN 1) (SFMIN1 310.0)(SFMAX1 400.0)(SFMIN2 310.0)(SFMAX2 520.0)(SFMIN3 310.0)(SFMAX3 520.0) (NAME 调质钢火焰或感应淬火)(HTYPE 3)(ZN 1)(V 0.3)(E 206000

51、.0)(HH1 50.0)(HH2 59.0)(HH3 59.0) (SHMIN1 970.0)(SHMAX1 1300.0)(SHMIN2 1100.0)(SHMAX2 1400.0)(SHMIN3 1100.0)(SHMAX3 1400.0) (HF1 500.0)(HF2 670.0)(HF3 680.0)(RP 0.003)(MTYPE 2)(NAMENUMBER 2)(HEATNUMBER 3)(YN 1) (SFMIN1 230.0)(SFMAX1 370.0)(SFMIN2 270.0)(SFMAX2 430.0)(SFMIN3 270.0)(SFMAX3 430.0) ) (N

52、AME 氮化钢气体氮化)(HTYPE 3)(ZN 2)(V 0.3)(E 206000.0)(HH1 55.0)(HH2 59.0)(HH3 65.0) (SHMIN1 1120.0)(SHMAX1 1330.0)(SHMIN2 1120.0)(SHMAX2 1450.0)(SHMIN3 1120.0)(SHMAX3 1450.0) (HF1 600.0)(HF2 700.0)(HF3 850.0)(RP 0.0014)(MTYPE 2)(NAMENUMBER 4)(HEATNUMBER 5)(YN 2) (SFMIN1 270.0)(SFMAX1 400.0)(SFMIN2 270.0)(S

53、FMAX2 480.0)(SFMIN3 270.0)(SFMAX3 480.0) ) (NAME 调质钢气体氮化)(HTYPE 3)(ZN 2)(V 0.3)(E 206000.0)(HH1 35.0)(HH2 45.0)(HH3 52.0) (SHMIN1 780.0)(SHMAX1 1000.0)(SHMIN2 780.0)(SHMAX2 1220.0)(SHMIN3 780.0)(SHMAX3 1220.0) (HF1 350.0)(HF2 450.0)(HF3 650.0)(RP 0.003)(MTYPE 2)(NAMENUMBER 4)(HEATNUMBER 6)(YN 2) (SF

54、MIN1 230.0)(SFMAX1 330.0)(SFMIN2 230.0)(SFMAX2 410.0)(SFMIN3 230.0)(SFMAX3 410.0) ) ) (setq m_list (list 0.10 0.12 0.15 0.20 0.25 0.30 0.35 0.40 0.50 0.60 0.70 0.80 0.90 1.00 1.251.50 1.75 2.00 2.25 2.50 2.75 3.00 3.25 3.50 3.75 4.00 4.50 5.00 5.50 6.00 6.50 7.00 8.00 9.00 10.0 11.0 12.0 14.0 16.0 1

55、8.0 20.0 22.0 25.0 28.0 30.0 32.0 36.0 40.0 45.0 50.0) (setq khblist (1.0 1.0 1.0)(1.05 1.1 1.25)(1.2 1.32 1.5) (setq an (/ pi 9) dsable 0 rf0 0.25 rz 3.2 kb 1 v40 22 jcbd 0 zptj 0 yy 1 teethnumber 17 lastkey1 power lastkey2 rpm) (setq mat1 (car mat) mat2 mat1) (setq namenumber1 (cadr (assoc NAMENUM

56、BER mat1) (setq heatnumber1 (cadr (assoc HEATNUMBER mat1) (setq namenumber2 namenumber1 heatnumber2 heatnumber1) (setq hb1 (cadr (assoc hh2 mat1) (setq hb2 (cadr (assoc hh2 mat2) (setq znk1 (cadr (assoc zn mat1) (setq znk2 (cadr (assoc zn mat2) (setq yn1 (cadr (assoc yn mat1) (setq yn2 (cadr (assoc

57、yn mat2) (setq sh1 (* 0.5 (+ (cadr (assoc SHMIN2 mat1) (cadr (assoc SHMAX2 mat1) (setq sh2 (* 0.5 (+ (cadr (assoc SHMIN2 mat2) (cadr (assoc SHMAX2 mat2) (setq sf1 (* 0.5 (+ (cadr (assoc SFMIN2 mat1) (cadr (assoc SFMAX2 mat1) (setq sf2 (* 0.5 (+ (cadr (assoc SFMIN2 mat2) (cadr (assoc SFMAX2 mat2) (se

58、tq width 0.3 ka 1.1 jd 7 ha0 1.25 ha 1.0 power 40.0 rpm 1440 ratio 3.0 hour 1000 htype1 1 htype2 1) (setq torque (/ (* 9550000.0 power) rpm) (setvar dimzin 1)(defun gear0() (if (= 0 power0)(alert 功率应大于0! ) (= 0 rpm) (alert 转速应大于0!) (T (setq rpm rpm0) (setq lastkey (if (= lastkey1 rpm) lastkey2 lastk

59、ey1) (if (/= lastkey1 rpm) (setq lastkey2 lastkey1 lastkey1 rpm) (if (= lastkey power) (set_tile torque (rtos (setq torque (/ (* 9550000.0 power) rpm) 2 4)(set_tile power (rtos (setq power (/ (* rpm torque) 9550000.0) 2 4) ) ) ) (set_tile rpm (rtos rpm 2 4);*EDIT_TORQUE*used in input function (defun

60、 edittorque(/ torque0 lastkey) (setq torque0 (get_tile torque) (if (/= torque0) (progn (setq torque0 (atof torque0) (cond (= 0 torque)(alert 扭矩不能小于或等于0!) (t (setq torque torque0) (setq lastkey (if (= lastkey1 torque) lastkey2 lastkey1) (if (/= lastkey1 torque) (setq lastkey2 lastkey1 lastkey1 torque