圆柱滚子轴承参数化设计

本科毕业设计(论文)题目：基于DCL语言的交互式圆柱滚子轴承的参数化设计院 （系）： 机电工程学院 专 业： 机械设计制造及其自动化 班 级： 050212 学 生： 刘力伟 学 号： 050212110 指导教师： 曹岩 2009年 06月52本科毕业设计(论文)题目：基于DCL语言的交互式圆柱滚子轴承的参数化设计院 （系）： 机电工程学院 专 业： 机械设计制造及其自动化 班 级： 050212 学 生： 刘力伟 学 号： 050212110 指导教师： 曹岩 2009年 06月基于DCL语言的交互式圆柱滚子轴承的参数化设计摘 要AutoCAD是目前世界上最流行的功能强大的计算机辅助设计软件，其内嵌的Visual LISP集成开发工具不但丰富了Auto LISP语言对AutoCAD进行开发的功能，而且还为用户提供了更为便利的二次开发环境。本文介绍了在AutoCAD 2004平台上，通过使用Visual LISP语言以及对话框控制语言（DCL）编程设计一个圆柱滚子轴承的参数化绘图系统。系统采用了模块化设计方法，分为主模块、圆柱滚子轴承绘图模块以及通用函数库模块。为保证所绘制图形的正确性和规范性，对编写的程序进行了反复调试和不断改进，并在模块中插入了自动参数检查功能、自动缩放功能和自动标注功能。程序运行表明，系统实现了圆柱滚子轴承工作图的自动生成，界面美观，操作简便，可以显著提高工程设计人员的设计效率。关键词：DCL；Visual Lisp；AutoCAD；圆柱滚子轴承；参数化绘图Based DCL language of interactive to develop parametric-drawing system for roller bearingAbstractAutoCAD is the worlds most popular powerful computer-aided design software, and its built-in Visual LISP integrated development tools not only enriched the Auto LISP language, the functions of AutoCAD development, but also to provide users with a more convenient secondary development environment. This article describes the AutoCAD 2004 platform, by using the Visual LISP language, and dialog control language (DCL) program to design a cylindrical roller bearing system of parametric drawing. System uses a modular design approach, the main sub-modules, cylindrical roller bearings, as well as general-purpose graphics library module module. In order to ensure the correctness of the graphics rendering and norms, and procedures for the preparation of the repeated testing and continuous improvement, and inserted in the module parameters of the automatic check feature, automatic zoom function and auto-tagging feature. Show that the program is running, the system achieved a cylindrical roller bearing of the automatic generation of work plans, beautiful interface, easy to operate, can significantly improve the design engineering staff efficiency.Key Words：DCL；Visual LISP；AutoCAD；roller bearing； Parameterized- Draw目 录目 录摘 要IAbstractII1 绪论11.1 CAD技术11.2 AutoCAD软件及其二次开发11.3 设计环境21.4 课题研究简介21.4.1本课题主要研究的问题31.4.2本毕业设计课题的设计方案32 圆柱滚子轴承的类型及其性能分析42.1圆柱滚子轴承的类型、国标及其代号42.1.1单列包含的种类42.1.2双列包含的种类42.1.3四列包含的种类42.2圆柱滚子轴承性能分析43 圆柱滚子轴承的参数化设计以及绘图方法63.1圆柱滚子轴承的参数化绘图实现方案63.2圆柱滚子轴承绘图标准及其参数的确定83.2.1 单列外圈无挡边N型各部分的名称术语及代号83.2.2 单列外圈无挡边N型圆柱滚子轴承的特征参数93.2.3 单列外圈无挡边N型国家规定画法93.2.4 双列NN3000型圆柱滚子轴承的特征参数103.2.5 双列NN3000型国家规定画法103.2.6 四列FC型圆柱滚子轴承的特征参数103.2.7 四列FC型国家规定画法114 人机交互界面模块设计124.1人机交互界面总体设计124.2 主界面与子界面关系134.3主界面设计144.4二级子界面设计145 参数化绘图程序的设计165.1 圆柱滚子轴承参数化绘图程序的流程图165.2绘图程序的总体设计165.3绘图模块设计175.3.1 绘图流程图175.3.2 N型圆柱滚子轴承绘图程序说明185.3.3 双列NN3000型圆柱滚子轴承绘图程序说明205.3.4 FC型圆柱滚子轴承绘图程序说明216 驱动模块设计236.1逻辑控制流程图236.2逻辑控制顺序246.3驱动程序说明256.3.1主驱动程序说明256.3.2 子驱动程序说明287程序运行说明347.1 程序运行说明347.2 结论398 回转式钻、铰2-12H8孔组合夹具418.1组合夹具简介418.2 回转式钻、铰2-12H8孔组合夹具介绍418.3 零件的分析428.3.1 零件的作用428.3.2 零件的工艺分析428.4 工艺规程设计428.4.1基面的选择428.4.2 制定工艺路线438.5 回转式钻、铰2-12H8孔组合夹具主要部件图形示例448.6 钻削力的计算478.7 夹紧力计算479 总结与展望489.1总结489.2展望48致 谢49毕业设计（论文）知识产权声明50毕业设计（论文）独创性声明51参考文献521 绪论1 绪论1.1 CAD技术计算机辅助设计（CAD：Computer Aided Design）技术是指以计算机为基础完成整个产品设计过程。他主要研究用计算机、外围设备、图形输入输出设备和相应的软件帮助人们进行工程和产品设计的技术。CAD是电子信息技术的一个重要组成部分，广泛应用于机械、建筑、汽车、电子、航空航天等领域，对于加速开发新产品，缩短设计制造周期，提高产品质量，节约成本，增强企业的市场竞争能力和创新能力，加速国民经济的发展和国防的现代化，都具有极其重要的意义。CAD技术已经成为制造企业参与市场竞争的必要条件，成为企业进入世界的入场券。作为一名机械专业的大学生，掌握部分CAD技术也是非常有必要的。1.2 AutoCAD软件及其二次开发CAD技术起步于20世纪中期，随着计算机硬件技术的发展而迅猛发展。AutoCAD软件是美国AUTODESK公司开发的计算机辅助设计绘图软件，具有易于掌握，使用方便绘图精确和体系结构开放等优点。因此自1982年问世以来深受广大设计人员的青睐，是CAD族群中使用最普遍的软件之一。如今AutoCAD已广泛应用于航空、航天、船舶、机械、服装、建筑、电子等领域，可见AutoCAD是一个通用的CAD软件。但要使一个通用CAD系统适合自己的专业工作需要，达到使用方便的要求，就必须进行二次开发，在AutoCAD为用户提供的Auto LISP、 ARX、VBA等开发工具中Auto LISP是一种简单易学的解释性语言，具有很强的数据表格处理功能，是开发AutoCAD的一个重要工具。Auto LISP语言是嵌套于AutoCAD内部，将LISP（List Processing Language）语言和AutoCAD有机结合的产物，他是AutoCAD开放式体系结构的具体表现，使用Auto LISP可直接调用几乎所有AutoCAD命令，Auto LISP语言既具有一般高级语言的基本结构和功能，又具有一般高级语言所没有的强大图形处理功能，是当今世界上CAD软件广泛采用的语言之一。Visual LISP是新设计的语言，他采用与Auto LISP完全兼容的模式。也就是说用户本身使用的Auto LISP所撰写的程序并不需要任何修改或者稍稍加以西安工业大学毕业设计（论文）修改，就可以在Visual LISP环境中运行。可以说Visual LISP 是一个功能强大的整合开发环境。Visual LISP是一种将Auto LISP语言的优点完全保留，缺点完全克服，并与最新的程序相结合的整合开发系统，它拥有以下几大主要工具西安工业大学毕业设计（论文）和功能：Visual LISP 采用 Compile-during-load（随载即编译）技术，来达到于Auto LISP完全兼容的境界。Visual LISP 采用可支持Auto LISP 与DCL色彩编码以及其他Auto LISP语法的屏幕文本编辑器。这样将方便输入Auto LISP原始程序，并透过色彩编码对原始程序的不同部分加以颜色区分，以改善Auto LISP原始程序的可读性。Visual LISP 支持多种检查器。其中，语法检查器可以用来检查Auto LISP程序结构错误和内部函数中的变量错误。综合检查器可以对提供数据结构中变量和表达式值的浏览和编辑功能。将Visual LISP的动态调整功能用于专门调整 Auto LISP 源程序上极其灵活性。它可以在一个窗口单一执行Auto LISP的源代码，而在AutoCAD窗口中同时显示代程序代码所执行效果。Visual LISP先进的原始程序编译器可以将Auto LISP的源程序编译成二进制文件。这样将大力改善程序的执行速度与安全性。Visual LISP的原始程序文件（.LSP）或已编译文件（.FAS）都可以利用系统提供的Application Wizard软件，将之包装成一个单一的ADS或者ARX模块。1.3 设计环境本次毕业设计采用的是AutoCAD 2004作为图形显示环境，利用对话框控制语言（DCL）来设计所需的参数输入窗口，利用Visual LISP语言来完成程序的编制，来实现圆柱滚子轴承及其标注、标题栏等项的自动生成。1.4 课题研究简介本课题以AutoCAD为平台，采用Visual LISP语言编制的参数化绘图程序包括创建设置绘图环境模块、计算模块、图幅绘图模块、绘图模块。创建设置绘图环境模块用于建立图层，设置线型颜色、图线线型和图线宽度；图幅绘图模块用于绘制图框、标题栏；绘图模块用于绘制基本图形。通过该系统可以让用户在对话框中选择所需要绘图的圆柱滚子轴承的类型，然后输入必要的特征参数后，自动绘制出圆柱滚子轴承的工作图。1.4.1本课题主要研究的问题a. 以机械设计手册为依据，以滚动轴承圆柱滚子轴承为研究对象；b. 掌握圆柱滚子轴承的分类和结构形式，实现参数化绘图；c. 采用DCL语言完成用户交互界面，应用Visual LISP语言完成参数化绘图程序的驱动；d. 应用AutoCAD绘制设计图纸。1.4.2本毕业设计课题的设计方案a.参数化建模(1)零件的结构分析 圆柱滚子轴承，滚动体是圆柱滚子的向心滚动轴承。圆柱滚子与滚道为线接触轴承，负载荷能力大，主要承受径向负荷。滚动体与套圈挡边摩擦小，适于高速旋转。根据套圈有无挡边，分有NU、NJ、NUP、N、NF等单列轴承，及NNU、NN的双列轴承。(2)特征变量分析和确定圆柱滚子轴承的特征，确定圆柱滚子轴承的特征数。(3)建立数学模型，即用特征参数去表示其他的所有参数。b.参数化驱动模块(1)用DCL语言设计对话框，完成用户交互界面，使用户在界面上可以选择适于自己的一类圆柱滚子轴承，并可以选择或填写特征参数的具体数值。(2)用Visual LISP完成参数化驱动程序，根据已经建立好的数学模型和特征参数，计算出所有的其他参数。(3)判断处理及其他，当用户输入的数值超出限定数值，或输入不合法的数值等，弹出错误命令的提示对话框，提醒用户重新输入。c.实现DCL对话框与Visual LISP的连接。d.参数化驱动AutoCAD自动绘制圆柱滚子轴承的工程图。2 圆柱滚子轴承的类型及其性能分析2 圆柱滚子轴承的类型及其性能分析2.1圆柱滚子轴承的类型、国标及其代号此参数化设计的对象包含圆柱滚子轴承的单列、双列以及四列。2.1.1单列包含的种类 内圈无挡边NU型(GB/T 283-1994)；内圈单挡边NJ型(GB/T 283-1994)；内圈单挡边带平挡圈NUP型(GB/T 283-1994)；外圈无挡边N型(GB/T 283-1994)；外圈单挡边NF型(GB/T 283-1994)；内圈单挡边带斜挡圈NH型(GB/T 283-1994)；无外圈RN型(GB/T 283-1994)；无内圈RNU型(GB/T 283-1994)；2.1.2双列包含的种类 内圈带挡边的圆柱孔NN3000型(GB/T 285-1994)；内圈带挡边的圆锥孔NN3000K型(GB/T 285-1994)；外圈带挡边的圆柱孔NNU4900型(GB/T 285-1994)；外圈带挡边的圆锥孔NNU4900K型(GB/T 285-1994)；2.1.3四列包含的种类 FC型(JB/T 5389.1-1995)；FCD型(JB/T 5389.1-1995)；FCDP型(JB/T 5389.1-1995)；2.2圆柱滚子轴承性能分析其中单列属于可分离型轴承，安装、拆卸比较方便，尤其是当要求内、外西安工业大学毕业设计（论文）圈与轴、壳体都是过盈配合时更显示其优点。其实物如图2.1所示。一般只用于承受径向载荷，只有内、外圈均带挡边的单列轴承可承受较小的定常轴向载荷或较大的间歇轴向载荷。与外形尺寸相同的深沟球轴承相比，此种轴承具有较大的径向载荷能力。但对与此类轴承配合的轴、壳体孔等相关零件的加工要求较好。此类轴承极限转速高。图2.1 单列圆柱滚子轴承实物图其中N型和NU型不限制轴或壳体的轴向位移，不能承受轴向载荷；NF型和NJ型可限制轴或外壳一个方向的轴向位移，并能承受较小的当向轴向载荷；NH型和NUP型可在轴承的轴向间隙范围内，限制轴或外壳两个方向的轴向位移，并能承受较小的双向轴向载荷；RN型和RNU型用于径向尺寸受限制的部件中。双列的圆柱滚子轴承能承受较大的径向载荷并具有较高的转速。内、外圈可以分离，但不能承受轴向载荷。其中圆锥孔的双列圆柱滚子轴承轴向移动内圈可以改变轴向间隙或预紧。其实物如图2.2所示。四列的圆柱滚子轴承能承受更大的径向载荷并具有更高的转速。其实物如图2.3所示。 图2.2 双列圆柱滚子轴承实物图 图2.3 四列圆柱滚子轴承实物图3 圆柱滚子轴承的参数化设计及其绘图方法3 圆柱滚子轴承的参数化设计以及绘图方法3.1圆柱滚子轴承的参数化绘图实现方案所谓参数化绘图是将工程图中的图形于一组参数相关联，由这组参数表示的约束条件来确定相应零件的图形即根据参数自动生成零件图形。为此就要进行相应的程序设计，对于圆柱滚子轴承的参数化绘图程序设计，遵循以下步骤：a. 分析圆柱滚子轴承的结构特征，确定圆柱滚子轴承的参数。通常绘制一个零件的图样，需要很多尺寸，但是不可能把所有的尺寸都作为参数，这是就需要分析这个零件，确定既能体现零件的结构特征，又能推导出其他尺寸的基本尺寸作为绘图的特征参数，特征参数越少越好。b. 根据圆柱滚子轴承的绘图参数，设计用户交互界面（DCL）。对于参数化绘图程序来说，对话框主要考虑绘图参数的输入和相关控件的布局，为了增加程序的可读性，对话框中还要配有图像控件，用幻灯片来显示各绘图参数的含义。c. 按照图形需要，编写绘图程序。用DCL语言定义好的对话框只是一个界面描述，不能独立运行，只有用PDB函数为基础的Auto LISP程序来驱动，才能实现指定的功能，获取用户输入的绘图参数。根据获取的绘图参数，按照图形需要，进行相关的坐标转换，编写相应的图形绘制程序。d. 加载相关程序，绘制所需图形。在编辑器下编辑好的Auto LISP程序，必须经过加载方能使用。加载方法如下：(1)将bearing文件夹复制到AutoCAD 2004安装目录下，如：C:AutoCAD2004。(2)打开AutoCAD 2004。(3)点击“工具”菜单，选择最下面的“选项”弹出如图3.1所示对话框。(4)点击前的, 再点击右边的按钮，再点击按钮，之后选择AutoCAD 2004安装目录下复制好的bearing文件夹。(5)点击“应用”按钮，在点击“确定”按钮。西安工业大学毕业设计（论文）图3.1 选项对话框(6)返回AutoCAD 2004主界面，点击“工具”菜单，选择“加载应用程序”，打开AutoCAD 2004安装目录下的bearing文件夹，把bearing文件夹中的所有lisp程序选中(先点选一个，在按ctrl+A)，再点击按钮待出现加载成功后，点击按钮。如图3.2所示。(7) 返回AutoCAD 2004主界面，命令行中输入：bearing，在点击 “enter”键即可。图3.2 加载对话框3.2圆柱滚子轴承绘图标准及其参数的确定现以单列外圈无挡边N型、双列NN3000型和四列FC型圆柱滚子轴承为例说明圆柱滚子轴承部分的名称术语、代号、特征参数及规定画法。3.2.1 单列外圈无挡边N型各部分的名称术语及代号a.内径：轴承内圈直径，用d表示。b.外径：轴承外圈直径，用D表示。c.宽度：轴承宽度，用B表示。d.内圈圆角：圆柱滚子轴承内圈的圆角，用r表示。e.外圈圆角：圆柱滚子轴承外圈的圆角，用r1表示。f.滚子最高点直径：圆柱滚子轴承最高点的直径，用Ew表示。g.内挡圈直径：圆柱滚子轴承内挡圈直径，用d1表示。3.2.2 单列外圈无挡边N型圆柱滚子轴承的特征参数a.内径，用d表示。内径是国家已经标准化了的一系列数值：15，17，20，25，30，35，40，45，50，55，60，65，70，75，80，85，90，95，100，105，110，120，130，140，150，160，170，180，190，200，220，240，260，280，300，320，400。b.外径，用D表示。外径也是国家已经标准化了的一系列数值。c.宽度，用B表示。宽度也是国家已经标准化了的一系列数值。3.2.3 单列外圈无挡边N型国家规定画法图3.3 N型圆柱滚子轴承规定画法3.2.4 双列NN3000型圆柱滚子轴承的特征参数a.内径，用d表示。内径是国家已经标准化了的一系列数值：30，35，40，45，50，55，60，65，70，75，80，85，90，95，100，105，110，120，130，140，150，160，170，180，190，200，220。b.外径，用D表示。外径也是国家已经标准化了的一系列数值。c.宽度，用B表示。宽度也是国家已经标准化了的一系列数值。3.2.5 双列NN3000型国家规定画法图3.4 双列NN3000型国家规定画法3.2.6 四列FC型圆柱滚子轴承的特征参数a.内径，用d表示。内径是国家已经标准化了的一系列数值：100，110，120，130，140，145，150，160，170，180，190，200，210，220。b.外径，用D表示。外径也是国家已经标准化了的一系列数值。c.宽度，用B表示。宽度也是国家已经标准化了的一系列数值。3.2.7 四列FC型国家规定画法图3.5 四列FC型国家规定画法注意：其他型号与以上三种型号相似，此处不赘述。4 人机交互界面模块设计4 人机交互界面模块设计4.1人机交互界面总体设计 人机交互界面采用对话框控制语言（DCL）作为设计语言。Auto LISP并未像Visual Basic提供图形窗口界面，无法在屏幕上拖拽控件的方式形成对话框，而是以对话框控制语言（DCL）定义在以DCL为扩展名的文件内。因此，设计对话框前必须先将对话框的外观，对话框内要有哪些类型的选项，以及这些选项的摆放顺序，按DCL语法规则写在以DCL为扩展名的文件内，然后，在Auto LISP 程序内调用以DCL为扩展名的文件。DCL对话框包含下列组件：标签、按钮、单选钮、复选框、编辑框、列表框、下拉列表框、滚动条、图像框、图像按钮、错误信息等等。应用时可以根据自己的需要选择不同的组件，设计出满足自己要求的对话框。本次设计的对话框包括一个选择圆柱滚子轴承型号的主界面，如图4.1所示。和各个不同型号的二级子界面，如图4.2所示，为圆柱滚子轴承N型二级子界面，其余型号的二级子界面与N型相同。图4.1 主对话框示意图西安工业大学毕业设计（论文）图4.2 N型二级子对话框4.2 主界面与子界面关系主对话框与二级子对话框之间是顺序关系；每个二级子对话框之间是并列关系。其关系图如图4.3所示。图4.3 对话框关系图4.3主界面设计主界面用下拉列表框实现对圆柱滚子轴承不同型号的选择。图像控件用于显示不同型号轴承的国家画法和参数信息。其程序如下： /类型选择,style:dialoglabel=确定圆柱滚动轴承种类：;:popup_listkey=lst;list=N型nNU型nNJ型nNUP型nNF型nNH型nRN型nRNU型nNN3000型nNN3000K型nNNU4900型nNNU4900K型nFC型nFCD型nFCDP型;label=请选择滚动轴承种类;edit_width=30;:imageheight=15;label=缩略图;key=IMG;:row:buttonkey=accept;is_default=true;label=下一步;width=15;fixed_width=true;:buttonkey=cancel;label=取消;width=15;fixed_width=true;is_cancel=true;4.4二级子界面设计二级子界面用三个下拉列表控件实现对内径、外径和宽度的选择；滚动条列表控件实现对不同代号的选择；三个单选框控件实现辅助修饰的功能。以N型子界面为例，其余型号的二级子界面与N型二级子界面相同。其对话框程序如下：/外圈无挡边（N）型N:dialoglabel=圆柱滚子轴承-外圈无挡边(N)-GB/T283-1994-参数选择窗口;:row:column :boxed_column/列的第一个控件加框列 label=从参数选择:内径-外径-宽度; :popup_listkey=nj;label=内 径 d:;edit_width=15; :popup_listkey=wj;label=外 径 D:;edit_width=15; :popup_listkey=kd;label=宽 度 B:;edit_width=15; :boxed_column/列的第二个控件加框列 label=从轴承代号选择:; :list_boxkey=daihao;value=2;height=15; :boxed_column/列的第二个控件加框列 label = 辅助修饰; :radio_button key=radio1;label = &显示尺寸标注;value=0;height=2; :radio_button key=radio2;label = &显示图框;value=0;height=2; :radio_button key=radio3;label = &显示尺寸标注和图框;value=0;height=2; :imagewidth=120;height=30;key=imgb;:row:buttonkey=back;label=上一步;fixed_width=true;width=20;:buttonkey=accept;is_default=true;label=确定;fixed_width=true;width=20;:buttonkey=cancel;label=取消;fixed_width=true;width=20;is_cancel=true;/外圈无挡边（N）结束5 参数化绘图程序的设计5 参数化绘图程序的设计5.1 圆柱滚子轴承参数化绘图程序的流程图图5.1 圆柱滚子轴承参数化绘图程序的流程图5.2绘图程序的总体设计本次毕业设计所要完成的课题是通过基于AutoCAD 平台的Visual LISP语言及其对话框程序DCL实现对圆柱滚子轴承各型号的参数化绘图为目的。实现采用Auto LISP语言编制参数化绘图程序。程序包括创建设置绘图环境模块、计算模块、图幅绘制模块、图形模块。创建设置绘图环境模块用于建立图层，设置线型颜色、图线线形和图线宽度；图幅绘制模块用于绘制图框、标题栏；图形模块用于绘制图形和尺寸标注。西安工业大学毕业设计（论文）5.3绘图模块设计5.3.1 绘图流程图图5.2 绘图流程图圆柱滚子轴承的绘图流程图如图5.2所示：a.开始 定义绘图函数名称。b.定义变量 定义变量主要是定义坐标点及其中间变量。c.设置绘图环境 为了避免绘图时出现错误，故绘图前关闭对象捕捉，关闭回显。d.坐标点的确定 坐标点确定包括以下两种类型 (1)用户输入点 主要是指定位基点，是用户在Auto CAD 2004界面指点的基点。 (2)计算坐标点 根据用户输入或确定的定位基点和特征变量确定其他点。e.调用绘图程序 根据上述点坐标的计算，接下来调用绘图命令进行轴承图形的绘制，调用的绘图命令包括直线(line)、圆角(filled)、镜像(mirror)、填充剖面线(bhatch)、中心线。(注意：图层的设置及其切换在驱动程序中讲解) f.尺寸标注 尺寸标注是可选择的，需要时在界面上选择，不需要时可不选择。在程序运行说明中有详细的讲解。g.图框 图框也是可选择的，需要时在界面上选择，不寻要时可不选择。在程序运行说明中有详细的讲解。 5.3.2 N型圆柱滚子轴承绘图程序说明a.定义绘图主函数及其变量 (1)绘图主函数名称：N_huitu_function (2)变量包括：B宽度；MaxD外径；Ew滚子最高点外径；d内径；d2内挡圈直径；r 内圈圆角；r1外圈圆角；locat用户指定基点；p1p15计算坐标点；VSnap 、VCmad中间变量。因为该N型的轴承，具有左右上下对称的特点，因此，只定义局部点p1p15，其点坐标的具体位置如图5.3所示。图5.3 N型圆柱滚子轴承点坐标位置b.设置各点坐标值计算点水平坐标垂直坐标水平参考点垂直参考点P10+ d/2locatlocatP20+ rP1P1P30+ d2/2P2locatP40atan（15/180）B/2（MaxDd）/8P3locatP50+ MaxD/2P4locatP6- B/20P5P5P70+ Ew/2P6locatP8(MaxD-d)/80P7P7P90+ d2/2P8locatP100 (MaxD-d)/4P9P8P1100P7P10P120+ d/2P11locatP13 r+ d/2locatLocatP1400P13locatP150+ B/2locatlocatc.绘图前准备工作 为了避免绘图时出现错误，因此在绘图前关闭“对象捕捉”和关闭“回显”。程序如下：(setq VSnap(getvar osmode);获取当前对象捕捉模式(setvar osmode 0);获取目前命令提示并关闭(setq VCmad(getvar cmdecho)(setvar cmdecho 0)为了避免连线时因对象小而发生错误，因此连线前将绘图区域放大，其程序如下：(command zoom W (list (- (car locat) B 30) (+ (cadr locat) (/ MaxD 2.0) 20)(list (+ (car locat) (* MaxD 1.5) 30) (- (cadr locat) (/ MaxD 2.0) 20)d.调用绘图程序e.尺寸标注f.插入图框g.将绘图前的准备工作还原5.3.3 双列NN3000型圆柱滚子轴承绘图程序说明a.定义绘图主函数及其变量(1)绘图主函数名称：NN3000_huitu_function(2)变量包括：B宽度MaxD外径d内径r 圆角locat用户指定基点p1p27计算坐标点VSnap 、VCmad中间变量因为该NN3000型的轴承，具有上下对称的特点，因此，只定义局部点p1p27，其点坐标的具体位置如图5.4所示。图5.4 双列NN3000型圆柱滚子轴承点坐标位置b.设置各点坐标值NN3000型各点的计算方法与N型相同，此处不重复，详细见附录程序。c.绘图前准备工作d.调用绘图程序e.尺寸标注f.插入图框g.将绘图前的准备工作还原5.3.4 FC型圆柱滚子轴承绘图程序说明a.定义绘图主函数及其变量(1)绘图主函数名称：FC_huitu_function(2)变量包括：B宽度；MaxD外径d内径r外圈圆角r1外圈圆角locat用户指定基点p1p31计算坐标点VSnap 、VCmad中间变量因为该四列FC型的轴承，具有上下对称的特点，因此，只定义局部点p1p31，其点坐标的具体位置如图5.5所示。图5.5 四列FC型圆柱滚子轴承点坐标位置b.设置各点坐标值FC型各点的计算方法与N型相同，此处不重复，详细见附录程序。c.绘图前准备工作d.调用绘图程序e.尺寸标注f.插入图框g.将绘图前的准备工作还原注意：其他各型号均于以上三种类型相似，此处不再赘述。6 驱动模块设计6 驱动模块设计6.1逻辑控制流程图图6.1 逻辑控制流程图西安工业大学毕业设计（论文）6.2逻辑控制顺序a. 启动函数bearing。b. 建立程序需要的图层以及相应的线形、线宽、颜色。c. 启动对话框“bearing.dcl”。d. 加载对话框，如果找不到对话框返回。e. 显示对话框，定义按钮名称，调用图像显示程序“update-img”加载幻灯片图形。f. 通过选择加载子函数N、NU、NJ、NUP、NF、NH等其中之一，进入下一级子菜单。g. 定义需要的各种数据，内径、外径、宽度、型号等。h. 定义各个控件动作函数n_daihao_function, n_kuandu_function, n_wj_function, n_nj_function 等。i. 加载子对话框，如果找不到对话框返回。j. 定义各个控件动作，激活相应的动作函数，如选择内径列表框，程序会读取当前值，并调用n_nj_function函数，相应修改外径和宽度列表框所显示的数值；继续选择外径列表框，程序会读取当前值，并调用n_wj_function函数，相应修改宽度列表框所显示的数值；选择宽度列表框，程序会读取当前值，并调用n_kd_function函数，判断是否存在相应类型的轴承，如果不存在则显示尺寸选择错误，返回内径选择列表框，如果存在，显示型号列表框内相应的型号；如直接选择型号列表框相应的型号，则上三个列表框会相应显示此型号的轴承基本尺寸；如直接点击确定按钮，系统读取当前值，判断是否存在此型号，如果存在则进入绘图程序。（具体的操作见程序运行说明）k. 内径外径宽度代号等赋值。l. 显示对应幻灯片文件于图像。m. 显示窗口。n. 判断进入绘图程序还是返回上一级菜单。o. 定义当前命令提示设置和图纸幅面设置，为绘图作准备。p. 驱动程序结束。6.3驱动程序说明6.3.1主驱动程序说明主驱动程序主要用于建立幻灯片调用函数、驱动主函数名称及其变量、建立绘图需要的所有图层、参数初始化及其定义各个控件动作函数。具体程序说明如下所示：(vl-load-com);根据选择的类型更新幻灯视图(defun update-img (/ sldname val1 Nlst NUlst NJlst NUPlst NFlst NHlst); (alert val);_调试用 (setqval1 (get_tile lst);/获取当前类型列表框的值 ) (setqlstn val1 ;将类型列表框的值赋给val1 ) (setq sldname (strcat IMG val1) ;将字符串“IMG”和val1合并，赋值给sldname (showimg bearing.slb sldname IMG 0) ;从幻灯片库文件bearing.slb中提取sldname文件，并显示)定义幻灯片更新文件，以备窗口驱动时调用；;定义函数bearing(defun c:bearing (/ lstn dclfile diamod Nlst NUlst NJlst NUPlst NFlst NHlst);定义默认层 (setvar cecolor bylayer) (setq oldlay (getvar clayer) (setvar cmdecho 0) (setvar hpgaptol 0.001); (vl-load-com) (if (not (tblsearch ltype center) (command _linetype l center acadiso.lin ) );建立程序要用的图层 (mapcar (lambda (pmlst) (if (not (tblsearch layer (car pmlst) (apply addlayer pmlst) ) ) (list(list 点画线 1 center 15)(list 粗线 3 continuous 40)(list 剖面线 7 continuous 15)(list 细线 7 continuous 15) ) ) (setvar clayer 粗线);全局变量定义 (setq lstn 0) ;启动类型选择对话框 (setq dcl_file bearing.dcl) (setq diamod 0) ;_重启对话框标志;子对话框各个对象赋值 (setqNlst (list (cons nj 42) (cons wj 1) (cons kd 20) ) ) (setqNFlst (list (cons nj 42) (cons wj 1) (cons kd 20) ) ) (setqNUlst (list (cons nj 42) (cons wj 1) (cons kd 20) ) ) (setqNJlst (list (cons nj 42) (cons wj 1) (cons kd 20) ) ) ;用选择语句进入对话框循环 (while (= diamod 0) ;_对话框循环 (setq dcl_id (LOAD_DIALOG dcl_file) (if( dcl_id 0) (progn(princ (strcat n未找到对话框文件 dcl_file)(VL-EXIT-WITH-ERROR 0) ) ) ;_加载对话框 (if(not (NEW_DIALOG style dcl_id) (progn(princ (strcat n在文件 dcl_file 中未找到对话框定义 style)(UNLOAD_DIALOG dcl_id)(VL-EXIT-WITH-ERROR 1) ) ;_显示对话框;定义各个控件相应的动作，调用动作函数 (action_tile lst (update-img) (action_tile accept (done_dialog 1) (action_tile cancel (done_dialog 0) (set_tile lst lstn) (update-img) ;_设置初始幻灯片 (setq what (START_DIALOG) (UNLOAD_DIALOG dcl_id);加载对话框;通过选择结果确定进入不同的下一级子对话框(cond (= what 1) (cond (= lstn 0) (N) (= lstn 1) (NU) (= lstn 2) (NJ) (= lstn 3) (NUP) (= lstn 4) (NF) (= lstn 5) (NH) ) ) (= what 0) (setq diamod 1) ) ;_点了取消则不重启动对话框 ) ;_加载对话框style (setvar clayer oldla