毕业设计（论文）-滚针、滚轮、滚轮滚针轴承的参数化绘图.doc

华北水利水电大学 North China University of Water Resources and Electric Power 毕 业 设 计题目 滚针、滚轮、滚轮滚针轴承的 参数化绘图 学 院 机械学院 专 业 机械设计制造及其自动化 姓 名 郑德强 学 号 201006522 指导教师 郭术义 韩素兰 范素香 完成时间 2014.5.23 教务处制独立完成与诚信声明本人郑重声明：所提交的毕业设计（论文）是本人在指导教师的指导下，独立工作所取得的成果并撰写完成的，郑重确认没有剽窃、抄袭等违反学术道德、学术规范的侵权行为。文中除已经标注引用的内容外，不包含其他人或集体已经发表或撰写过的研究成果。对本文的研究做出重要贡献的个人和集体，均已在文中作了明确的说明并表示了谢意。本人完全意识到本声明的法律后果由本人承担。毕业设计（论文）作者签名： 指导导师签名： 签字日期： 签字日期：毕业设计（论文）版权使用授权书本人完全了解华北水利水电大学有关保管、使用毕业设计（论文）的规定。特授权华北水利水电大学可以将毕业设计（论文）的全部或部分内容公开和编入有关数据库提供检索，并采用影印、缩印或扫描等复制手段复制、保存、汇编以供查阅和借阅。同意学校向国家有关部门或机构送交毕业设计（论文）原件或复印件和电子文档（涉密的成果在解密后应遵守此规定）。毕业设计（论文）作者签名： 导师签名：目 录摘 要IAbstractII第1章 绪论11.1 基本背景介绍11.2 二次开发的含义21.3 设计流程2第2章 滚动轴承的简介32.1 滚动轴承32.1.1 滚动轴承的结构的组成32.1.2 滚动轴承的主要类型及性能特点42.1.3 基本特点42.2 滚针轴承52.3 滚轮轴承52.4 滚轮滚针轴承6第3章 滚针轴承参数化绘图总体设计73.1 设计流程图73.2 设置作图环境73.2.1 设置图纸的范围83.2.2 设置绘图的长度和角度单位83.2.3 设置目标捕捉的类型93.3 设置图层、颜色和线型103.3.1 创建一个当前图层103.3.2 设置新图形对象的颜色113.3.3 设置新图形对象的线型113.3.4 设置线型比例因子的大小113.4 调用图案填充功能12 3.4.1 自动确定边界的填充123.4.2 指定边界的填充123.5 尺寸标注133.6 滚针轴承的编程实例143.6.1 滚针轴承143.6.2 穿孔型冲压外圈滚针轴承19第4章 滚轮轴承和滚轮滚针轴承的参数化总体设计214.1 滚轮轴承的参数化设计214.1.1 滚轮轴承特点214.1.2 平挡圈滚轮满装滚针轴承作图分析214.1.3 编写Lisp程序224.1.4 平挡圈滚轮滚针轴承的参数化绘图234.2 .滚轮滚针轴承的参数化设计244.2.1 滚轮滚针轴承的特点及用途244.2.2 滚轮滚针轴承作图分析244.2.3 编写Lisp程序254.2.4 两面带密封圈，外圈双挡边的滚轮滚针轴承参数化绘图26第5章 对话框设计和建立应用程序285.1 对话框设计流程图285.2 对话框的特点285.3 对话框驱动程序315.4 加载和运行已编译程序355.5 用应用程序生成器创建应用程序365.6 加载生成文件38第6章 总结与展望41致 谢43参考文献44附录1 外文翻译45附录2 任务书61附录3 开题报告65附录4 编程和绘图成果68I滚针、滚轮、滚轮滚针轴承的参数化绘图摘 要 AutoCAD是目前市场上最流行的CAD系统，它所具有的可编程，易于定制以及可扩展等特性显著提高了用户的工作效率。本课题正是利用了它能适应用户要求，完成需求化定制的功能，采用Visual LISP编辑器完成对主调函数的输入，以及实现整个工程联结工作。AutoCAD内嵌的Visual LISP编辑器，可以方便地调用AutoCAD的绘图命令，使设计和绘图完全溶为一体，可实现对屏幕图形的实时修改，参数化设计，以及在绘图领域中应用人工智能。通过对AutoLISP语言的分析与研究，探讨了基于AutoLISP的AutoCAD参数化绘图的程序设计的基本步骤。本文设计了如何用AutoLISP语言批量绘制滚动轴承，应用DCL语言创建人机交流的对话框,并且详细阐述了其实现过程。用户可以根据自己的需要，利用 AutoLISP 编写一些具有实用性的&.lisp，同时可以编写对话框&.dcl程序，在AutoCAD中加载某些程序，用于画图，从而可以有效地提高绘图与用图效率。实践表明，AutoLISP语言功能强大，易学易用，AutoCAD二次开发的重要工具。滚动轴承的种类繁多，但在实际生活中人们又离不开滚动轴承，总会需要满足不同要求的滚动轴承，需要各式各样的滚动轴承，这就给设计人员带来了相当大的工作量，需要新的绘图方法。然而AutoLISP语言是AutoCAD中最大的一种编程工具，是基于AutoLISP的编程工具，数量大的让人惊讶。将一些小程序嵌套于AutoCAD内部, 使LISP 语言和AutoCAD 有机结合，能有效地提高AutoCAD的绘图功能。关键词：滚动轴承，AutoLISP，参数化绘图，二次开发28华北水利水电大学毕业设计parametric drawing of Needle, roller and needle roller bearings Abstract AutoCADs CAD system is currently the most popular on the market, which has a programmable, easy to customize and scalable features significantly improves the working efficiency of the user. This topic is the use of it can meet user requirements to fulfill the need of customized function using the Visual LISP editor to complete the main function of the input and realize the whole project connects work. Visual LISP editor embedded in the AutoCAD , you can easily call AutoCAD drawing commands, the design and drawing is completely dissolved as a whole, which can realize the real-time modification on screen graphics, parametric design and application of artificial intelligence in the drawing area. Through the analysis and study of AutoLISP language and study on the basic steps of the design based on AutoLISPs AutoCAD parametric drawing program. This paper designs how to batch rendering of rolling bearings with AutoLISP language, DCL language create a man-machine exchange dialog and expatiates the realizing process. Users can use AutoLISP to write some practical &.Lisp which also can write a dialog &dcl program, it also can load some program some program in Auto CAD for drawing according to their own needs, which can effectively improve the efficiency of drawing and graph. Practice shows that, AutoLISP language is powerful, easy to use and an important tool for two times the development of AutoCAD. The types of rolling bearing is various, but in real life, people cannot do without rolling bearing, we always need to meet different requirements of the rolling bearing and we need kind of rolling bearing, therefore, the designers have to a considerable amount of work and need new methods of drawing. Some small procedures embedded inside the AutoCAD, the LISP language and AutoCADs combination can effectively improve the drawing function of AutoCAD.Keywords: Rolling bearings, AutoLISP, Parametric drawing, Two developmentI第1章 绪论1.1 基本背景介绍种类繁多的滚动轴承作为常用标准件在AutoCAD装配图中是经常使用到的，然而软件本身却并不提供其二维图。若零部件参数改变时，绘图员不得不重新进行图形绘制，造成资源的极大浪费且在装配图中出现错误时也不易发现。因此非常需要对此类零件进行参数化绘图工作。为尽可能使设计人员从繁杂的绘图工作中解放出来，降低设计图中的错误，提高机械设计的效率，必须采取一定的技术手段使得此类零部件可以实现参数化二维绘图。新的强大的参数化绘图功能，可让你通过基于设计意图的图形对象约束来大大提高生产力。几何和尺寸约束帮助确保在对象修改后还保持特定的关联及尺寸。创建和管理几何和尺寸约束的工具在“参数化”功能区选项卡，它在二维草图和注释工作空间中均自动显示出来。 Visual LISP中的LISP（全名 List Processor，即链表处理语言）是由约翰麦卡锡在1960年左右创造的一种基于演算的函数式编程语言。Visual LISP是AutoCAD自带的一个集成的可视化AutoLISP开发环境，最早的AutoLISP程序需要用文本编辑工具如记事本等编辑，然后在AutoCAD中加载调试，很不方便。从“AutoCAD”开始，有了集成的开发环境：Visual LISP。作为开发工具，Visual LISP提供了一个完整的集成开发环境(IDE)，包括编译器、调试器和其他工具，可以实时调试 AutoLISP 命令。AutoLISP具有自己的窗口和菜单，但它并不能独立于AutoCAD运行。AutoLISP是AutoCAD软件自身携带的编程语言，利用它可实现对CAD软件的二次开发。AutoLISP作为LISP程序设计语言的专业化实现，是AutoCAD的一个有机组成部分。用户可以自己编写AutoLISP程序或使用第三方提供的共享程序，以扩大AutoCAD的功效。Visual LISP则是为用AutoLISP开发AutoCAD而提供的一个简单、高效的交互式集成开发环境。利用Visual LISP提供的众多功能，可使AutoLISP程序代码的编写、修改以及测试与调试更加容易，是二次开发强有力的工具。1.2 二次开发的含义 AutoCAD是广泛应用于建筑、机械、交通和电力等需要绘图的各种工程领域的计算机辅助设计软件，它是一个开放架构的通用绘图系统，可以根据用户的意愿进行定制和功能扩展。CAD软件的二次开发是指在现有的软件基础上，为了提高和完善软件功能，使之更加符合用户需求，而对软件做的开发工作。AutoCAD二次开发技术主要包括两个方面：一方面是对它的功能进行扩充和修改，如修改或增加菜单、进行各种定制工作；另一方面是利用开发工具编写能够完成特殊任务的自动绘制软件，通过人机交互界面输入必要的数据后，系统自动完成图片的绘制，就属于这一类型。 LISP是历史悠久的函数式编程语言，CAD引入了这种语言，并添加相应的函数库，就成了命令行使用的AutoLISP。在此基础上增加了对话框和窗口界面的库，就是Visual LISP，它在CAD中可以视为CAD命令的整合，它是脚本语言，而且由CAD程序提供了编写环境，因此便于编写，调试也很方便但由于是脚本语言，所以当程序规模很大或是操作的对象数量过多时，就会反应迟钝。在CAD绘图与用图中，需要这些方面的开发软件，通过调用各种已经编程好的程序，加快绘制速度，提高工作效率。尤其重要的是，可以将大量的计算工作交给计算机去完成。这样，不仅提高了绘图速度，同时也提高了绘制精度，避免了人为的计算错误。1.3 设计流程设计流程：1. 明确设计任务。2. 查阅资料，了解课题背景。3. 学习LISP编程方法。4. 掌握滚动轴承的结构，查找滚动轴承的参数。5. 编写滚动轴承的LISP源程序。 6. 调试程序。 7. DCL对话框的设计。 8. 编写对话框的驱动程序。 9. 出设计成果，整理设计论文。第2章 滚动轴承的简介2.1 滚动轴承滚动轴承(rollingbearing)是将运转的轴与轴座之间的滑动摩擦变为滚动摩擦，从而减少摩擦损失的一种精密的机械元件。滚动轴承一般由内圈、外圈、滚动体和保持架四部分组成，内圈的作用是与轴相配合并与轴一起旋转；外圈作用是与轴承座相配合，起支撑作用；滚动体是借助于保持架均匀的将滚动体分布在内圈和外圈之间，其形状大小和数量直接影响着滚动轴承的使用性能和寿命；保持架能使滚动体均匀分布，防止滚动体脱落，引导滚动体旋转起润滑作用。2.1.1 滚动轴承的结构的组成滚动轴承是现代机器中广泛应用的部件之一，主要靠运动元件间的滚动接触来支撑转动零件的。滚动轴承绝大多数都已经标准化，并由专业工厂大量制造及供应各种常用规格的轴承。滚动轴承的基本机构如图2-1所示，它由内圈1、外圈2、滚动体3和保持架4等4部分组成。内圈用来和轴颈装配，外圈用来和轴承座孔装配。通常是内圈随轴颈旋转，外圈固定，但也可用于外圈回转而内圈不动，或是内、外圈同时回转的场合，当内、外圈相对转动时，滚动体即在内、外圈的滚道间滚动。轴承内、外圈上的滚道，有限制滚动体沿轴向位移的作用。图2-1 滚动轴承的基本结构2.1.2 滚动轴承的主要类型及性能特点 如果仅按轴承能够承受的外载荷的不同来分类时，滚动轴承可大概得分为向心轴承、推力轴承和向心推力轴承三大类。目前，国内外滚动轴承栽品种规格方面越来越趋向专用化、先进化、和自动化。具体介绍如下：一、专业化轴承零件加工中，大量采用轴承专用设备。如钢球加工采用磨球机、研磨机等设备。专业化的特点还体现在轴承零件的生产上，如专业生产钢球的钢球公司、专业生产微型轴承的微型轴承厂等。二、先进性由于轴承生产的大批量规模要求，使得其使用先进的机床、工装和工艺成为可能。如数控机床、三爪浮动卡盘及保护气氛热处理等。三、自动化轴承生产的专业化为其生产自动化提供了条件。在生产中大量采用全自动、半自动化专用和非专用机床，且生产自动线逐步推广应用。如热处理自动线及装配自动线等。2.1.3 基本特点滚动轴承是机械设备中不可缺少的零件，它的主要优点如下：1、 节能显著。 二、维修方便，质量可靠。 三、摩擦阻力小，功率消耗小，机械效率高，易起动。四、尺寸标准化，具有互换性，便于安装拆卸，维修方便。五、结构紧凑，重量轻，轴向尺寸更为缩小。六、精度高，转速高，磨损小，使用寿命长。七、部分轴承具有自动调心的性能。八、轴承变形对载荷变化的敏感性小于流体动压轴承。九、只需要少量的润滑剂便能正常运行，运行时能够长时间提供润滑剂。十、轴向尺寸小于传统流体动压轴承。十一、可以同时承受径向和推力组合载荷。十二、轴承性能对载荷、速度和运行速度的波动相对不敏感。2.2 滚针轴承滚针轴承(needle bearing)是带圆柱滚子的滚子轴承，相对其直径，滚子既细又长。这种滚子称为滚针。尽管具有较小的截面，轴承仍具有较高的负荷承受能力，滚针轴承装有细而长的滚子（滚子直径D5mm，L/D2.5，L为滚子长度），因此径向结构紧凑，其内径尺寸和载荷能力与其它类型轴承相同时，外径最小，特别适用于径向安装尺寸受限制的支承结果。滚针轴承装有细而长的滚子（滚子直径D5mm，L/D2.5，L为滚子长度），因此径向结构紧凑，其内径尺寸和载荷能力与其它类型轴承相同时，外径最小，特别适用于径向安装尺寸受限制的支承结果。根据使用场合不同，可选用无内圈的轴承或滚针和保持架组件，此时与轴承相配的轴颈表面和外壳孔表面直接作为轴承的内、外滚动表面，为保证载荷能力和运转性能与有套圈轴承相同，轴或外壳孔滚道表面的硬度，加工精度和表面质量应与轴承套圈的滚道相仿。此种轴承仅能承受径向载荷。滚针轴承按结构分类：（1）、封闭式冲压外圈滚针轴承（2）、具内圈滚针轴承（3）不具内圈滚针轴承/无内圈无保持架滚针轴承（4）、有保持架和无保持架装满滚针轴承（5）SKF还可供应各种类型的滚针轴承。 注意事项： 滚针轴承承载能力大，适用于安装尺寸受限制的支承结构。 轴颈表面经淬硬作为滚动面，轴承用压入配合装入座孔中，无须再对它进行轴向定位。轴承在安装前应注入适量的润滑脂，通常情况下，装配后不用再润滑 BK型轴承用于轴颈无伸出端的支承中，端面封闭起密封作用，并能承受小的轴向游动。2.3 滚轮轴承 滚轮轴承外圈采用外圈壁较厚的满装圆柱滚子轴承，滚轮的外径面有圆柱形和弧形，可根据使用场合设计来与滚道面配合。利用这种外圈，滚轮可以直接在滚道上滚动，并可以承受较重负荷和冲击负荷。该轴承为密封结构，充填润滑脂，提供长期有效润滑，用户可免润滑。对于使用工况恶劣的可设计补充润滑脂的通道，提高轴承使用寿命。方式不当也可以造成滚轮轴承发热。通过润滑可以减少零件运动中的磨损，保证压力机精度，降低能量消耗。2.4 滚轮滚针轴承滚轮滚针轴承分为挡圈型和螺栓型滚轮滚针轴承。外圈外表面可分为圆柱形或凸面型，轴承可有或无保持架，可带或不带密封圈。主要适用于汽车及机械活塞杆连接转动部分。安装和拆卸都很方便。滚轮滚针轴承根据使用工况设计生产滚轮滚针轴承结构形式：NATR-挡圈型、KR-螺栓型可有或无保持架、带或不带密封圈。滚轮滚针轴承滚针轮廓面在近端面处稍微收缩。滚针和滚道线接触修正的结果可滚轮滚针轴承避免产生有破坏性的边缘应力。支承滚轮滚针轴承系厚壁外圈，经高温高氮淬火，高精密分选的滚子由高刚性外圈的挡边引导，利用线状接触，滚轮可以直接在滚道上轻松转动，并可以承受巨大的载荷。为去除应力，支撑滚轮的外圈采用弧面设计，曲线滚轮有带单、双密封圈、不带密封圈、带密封环等各种规格型号。第3章 滚针轴承参数化绘图总体设计3.1 设计流程图 滚动轴承参数化绘图设计流程图如图3-1所示：打 开AutoCAD进入Visual LISP编辑器编写源程序修改源程序加 载 不成功 输入参数值 成功 画出滚动轴承结 束 图3-1 滚动轴承参数化绘图设计流程图3.2 设置作图环境 编程作图和交互作图一样，也需要设置作图的环境，例如图纸的范围、绘图的单位、目标捕捉的类型、图层、颜色、线型、线宽、字样等，如果缺少对作图环境的设置，只能是利用加载程序时AutoCAD提供的默认环境。设置一个合适的作图环境不仅可以提高作图的精度和效率，有时还会影响到所绘制的图纸是否符合企业的规范和满足生产的需要。 用程序实现设置作图环境的功能可以通过command函数调用相关的命令，或者通过setvar函数改变相应系统变量的当前值或当前状态。有些功能只能通过上述一种途径实现，有些功能可以通过上述两种途径实现。3.2.1 设置图纸的范围 例如：设置A3图纸的作图范围步骤如下：一、通过command函数设置图纸的范围 用下列表达式之一均可设置： (command limits 0,0 420,297) (command limits (0 0) (420 297) (command limits (list 0 0) (list 420 297) 如果p1、p2分别是作图范围的左下和右上角点，上式可改写为： (command limits p1 p2)二、通过setvar函数设置图纸的范围 用setvar函数设置图纸的范围时，需要分别设置图纸的左下角点和右上角点，它们分别对应系统变量limmin和limmax。用下列表达式之一均可设置图纸的左下角点： (setvar limmin (0 0) (setvar limmin (list 0 0) (setvar limmin 0,0) (setvar limmin p1) 用下列表达式之一均可设置图纸的右上角点： (setvar limmax (420 297) (setvar limmax (list 420 297) (setvar limmax 420,297) (setvar limmax p2)3.2.2 设置绘图的长度和角度单位 例如：将绘图的长度单位设置为十进制、3位小数，角度单位设置为十进制的度、2位小数、X轴正方向为0、逆时针方向为正。一、通过command函数设置绘图的长度和角度单位(command units 2 3 1 2 0 N)command的参数说明如下： units：AutoCAD设置绘图单位的命令；2：长度单位为十进制；3：3位小数；1：角度单位为十进制的度；2：2位小数；0：X轴正方向为0；N：非顺时针，即逆时针为正。二、通过setvar函数设置设置绘图的长度和角度单位(setvar lunits 2) ；长度单位为十进制(setvar luprec 3) ；长度单位为3位小数(setvar aunits 1) ；角度单位为十进制的度(setvar auprec 2) ；角度单位为2位小数(setvar angbase 0.0) ；X轴正方向为0 (setvar angdir 0) ；逆时针方向为正3.2.3 设置目标捕捉的类型 交互操作时，目标捕捉类型的选项是字符串，它以编码的形式记录在系统变量osmode内。代码的具体含义如下：0：不捕捉任何类型的对象 1：线段和圆弧的端点 2：线段和圆弧的中点 4：圆、圆弧或椭圆的中心 8：用point命令生成的点 16：圆、圆弧或椭圆的象限点 32：线段和圆弧的交点 64：图或字符串的插入点 128：垂足256：切点512：对象上距光标的最近点 1024：快速捕捉 2048：在观察方向上相交，实际不一定相交的点 4096：延长线上的点 8192：与所选对象平行 （1）通过command函数设置设置目标捕捉的类型 (command osnap endpoint,midpoint,center)；捕捉端点、中点和中心 (command osnap none)；不捕捉任何类型（2）通过setvar函数设置目标捕捉的类型 (setvar osmode 7)；7是捕捉端点、中点和中心的代码之和 (setvar osmode 0)；不捕捉任何类型 通常将osmode设置为0。假定osmode的当前值为1，就会捕捉直线或圆弧的端点。在这种情况下，如果指定的是p点，而p点处刚好有一条直线，那么实际获取的是该直线上距p点较近的那个端点，而不是p点本身。所以用程序绘图时应该osmode设置为0。3.3 设置图层、颜色和线型3.3.1 创建一个当前图层 通过command函数创建一个当前图层。假定图层的名字是“中心线”、颜色为红色、线型为center、线宽为0.1，表达式如下： (command layer Make 中心线 Color 1 中心线 Ltype Center 中心线 LWeight 0.1 中心线 ) 因为在命令行操作时，layer命令需要空回车响应输入选项?/生成(M)/设定(S)/新建(N)/开(ON)/关(OFF)/颜色(C)/线型(L)/线宽(LW)/材质(MAT)/打印(P)/冻结(F)/解冻(T)/锁定(LO)/解锁(U)/状态(A):提示才能结束该命令，所以在右括号前增加一对引号（注意，引号内没有空格）。 因为Make、Color、Ltype、LWeight等选项可以简写为M、C、L、LW，所以上式可改为： (command layer M 中心线 C 1 中心线 L Center 中心线 LW 0.2 中心线 ) 又因为当前图层的名字是“颜色”、“线型”等选项默认的图层名，所以上式可改为： (command layer M 中心线 C 1 L Center LW 0.2 ) 如果当前图层的颜色、线型、线宽等为默认的选择，表达式如下： (command layer M 粗线 ) “粗线”是当前图层、颜色号为7（白/黑）、线型为continuous、线宽为当前图形对象的默认线宽。 如果某图层已经存在，只是将其改变为当前图层，其表达式如下： (command layer M 粗线 )或者 (command layer S 粗线 )3.3.2 设置新图形对象的颜色 一、通过command函数设置新图形对象的颜色 (command color 3) 或者 (command color green) ；设置新图形对象的颜色为绿色 二、通过setvar函数设置新图形对象的颜色 (setvar cecolor 2)或者 (setvar cecolor yellow)；设置新图形对象的颜色为黄色3.3.3 设置新图形对象的线型 一、通过command函数设置新图形对象的线型 (command linetype s center ) ；设置新图形对象的线型为中心线 二、通过setvar函数设置新图形对象的线型 (setvar celtype dashed)；设置新图形对象的线型为虚线3.3.4 设置线型比例因子的大小除了实线（continuous）之外，每种线型都是由不同长度的短划线、空白段或点组成的。在不同的显示比例下，这些短划线和空白段的视觉效果可能过大或过小。改变线型比例因子的大小并不改变整条线段的长度，只改变短划线和空白段的大小。 例如，将线型的短划线和空白段缩短一半。一、通过command函数设置线型比例因子的大小 (command ltscale 0.5)二、通过setvar函数设置设置线型比例因子的大小 (setvar ltscale 0.5)3.4 调用图案填充功能 图案填充即填加剖面线或剖面符号。AutoCAD有bhatch和hatch两个实现图案填充的命令。bhatch命令允许在需要填充的区域指定一个点，自动确定填充边界。hatch命令需要用户确定填充的边界。前者要求填充区域必须是封闭的，后者对封闭的要求并不严格。3.4.1 自动确定边界的填充增加以下表达式： (command layer m poumian ) (command bhatch p ansi31 1.5 0 0,0 )该表达式各项含义如下： bhatch：自动确定边界的填充命令。 p：拾取（pick）点的方式。 ansi31：剖面线的名称。 1.5：剖面线的比例因子。 0：剖面线的旋转角度。 0,0：拾取点的位置。 ：结束拾取点的操作。3.4.2 指定边界的填充 增加以下表达式：(command hatch ansi31 1.5 0 w -40,-40 40,40 )该表达式中一些参数的含义如下。 hatch：指定边界填充命令。w：窗口选择方式。-40,-40和40,40：窗口的两个角点。：结束选择填充边界的操作。 其余参数的含义与自动确定边界填充表达式中对应参数的含义相同。 例如设计中长圆柱滚子轴承的的填充： (a) (b)图3-2 长圆柱滚子轴承 长圆柱滚子轴承画剖面线程序： (setvar ltscale 0.5);绘制剖面线，结果见图3-2由（a）得3-2（b） (setq p50 (polar p0 (+ alf (* 0.5 pi) (* 2.5 a1) (setq p51 (polar p0 (+ alf (* -0.5 pi) (* 2.5 a1);p50、p51是剖面域内的点 (command bhatch p ansi31 0.5 90 p50 ) (command bhatch p ansi31 0.5 0 p51 )3.5 尺寸标注 一个完整的尺寸由标注文字、尺寸线、箭头和尺寸界线四部分组成。有时还包括圆心标注。尺寸标注的类型有很多，如水平线性标注、 垂直线性标注 、基线标注、连续标注、 对齐标注、角度标注、半径标注和直径标注等。在本设计中完全可以用AutoLISP编程来进行标注，下面举个外圈带双挡边的长圆柱滚子轴承的例子： 外圈带双挡边的长圆柱滚子轴承的标注程序：(setvar dimscale 1.5) ; 尺寸标注 (setq t1 (polar p0 alf (+ 10 b3) (setq t2 (polar p20 alf (+ 5 b4) (setq t3 (polar p0 (+ alf (* -0.5 pi) a) (setq t4 (polar p0 (+ alf (* -0.5 pi) (* 1.1 a) (command dimlinear p22 p16 v t1) (command dimlinear p20 p24v t2) (command dimlinear p24 p25 h t3) (command dimlinear p23 p22 h t4)上述程序标注出图3-3 (a) 得图3-3 (b)所示： (a) (b)图3-3 外圈带双挡边的长圆柱滚子轴承3.6 滚针轴承的编程实例3.6.1 滚针轴承1. 对滚针轴承进行标点，如图3-4所示：图3-4 滚针轴承的标点 2. 关键点分析首先确定定位点p0，当有了定位点后就可以依次确定出大部分点，然而因为图中直线p5 p15和直线p3 p17不是水平的直线，所以很难确定p33点和p34点，确定不了这两个点就不能画出直线p14 p33和直线p11和p34。综合考虑，应该先画如图所示的直线p14 p32和直线p11p31，然后用剪切命令把图中没有的部分剪切掉，而p31点和p32点又能由总体其他距离计算出来，这样问题就解决了，可以完整的画出滚针轴承了。剪切部分展示：图3-5 滚针轴承 剪切程序： (setq p3 (polar p1 (+ alf (* -0.5 pi) (* 0.5 a1) (setq p5 (polar p2 (+ alf (* -0.5 pi) (* 0.5 a1) (setq pm3 (polar p20 alf (* 0.04 b) ；pm2 pm3点位于被剪直线的剪掉部 (command trim p5 pm3 )；调用trim命令修剪图形 (setq pm2 (polar p19 (+ alf pi) (* 0.04 b) (command trim p3 pm2 )整体编程程序： (defun c:bearing11 (/ p0 p1 p2 p3 p4p5 p6 p7 p8 p9 p10 p11 p12 p13 p14 p15 p16 P17 P18 P19 P20 P21 P22 P23 P24 P25 P26 P27 P28 P29 P30 P31 P32 p33 p34 p35 p36 p37 p38 p39 p40 a b alf a1 b1 ) (command limits 0,0 210,297)； (setvar osmode 0)；关闭目标捕捉状态 (setvar cmdecho 0) (setq p0 (getpoint 插入点p0: ) (setq a (getdist p0 高度A: ) (setq b (getdist p0 宽度B: ) (setq alf (getangle p0 旋转角alf: ) (setq a1 (* 0.1 a) a2 (* 0.025 a) b1 (* 0.1 b) ) (setq p1 (polar p0 alf (* 0.35 b) (setq p2 (polar p0 (+ alf pi) (* 0.35 b);p1p32用于绘制直线 (setq p4 (polar p1 (+ alf (* 0.5 pi) (* 0.5 a1) (setq p3 (polar p1 (+ alf (* -0.5 pi) (* 0.5 a1) (setq p5 (polar p2 (+ alf (* -0.5 pi) (* 0.5 a1) (setq p6 (polar p2 (+ alf (* 0.5 pi) (* 0.5 a1) (setq p7 (polar p1 (+ alf (* -0.5 pi) (* 0.25 a1) (setq p8 (polar p1 (+ alf (* 0.5 pi) (* 0.25 a1) (setq p9 (polar p2 (+ alf (* -0.5 pi) (* 0.25 a1) (setq p10 (polar p2 (+ alf (* 0.5 pi) (* 0.25 a1) (setq p11 (polar p7 alf (* 0.11 b) (setq p12 (polar p8 alf (* 0.11 b) (setq p13 (polar p10 (+ alf pi) (* 0.11 b) (setq p14 (polar p9 (+ alf pi) (* 0.11 b) (setq p18 (polar p4 alf (* 0.15 b) (setq p16 (polar p6 (+ alf pi) (* 0.15 b) (setq p15 (polar p16 (+ alf (* -0.5 pi) (* 0.125 a) (setq p17 (polar p18 (+ alf (* -0.5 pi) (* 0.125 a) (setq p19 (polar p17 (+ alf (* -0.5 pi) (* 0.5 a1) (setq p20 (polar p15 (+ alf (* -0.5 pi) (* 0.5 a1) (setq p26 (polar p16 (+ alf (* 0.5 pi) a1) (setq p27 (polar p18 (+ alf (* 0.5 pi) a1) (setq p24 (polar p26 (+ alf (* -0.5 pi) a) (setq p25 (polar p27 (+ alf (* -0.5 pi) a) (setq p23 (polar p24 alf (* 0.6 b1) (setq p22 (polar p25 (+ alf pi) (* 0.6 b1) (setq p28 (polar p23(+ alf (* 0.5 pi) (* 0.7 a) (setq p21 (polar p22(+ alf (* 0.5 pi) (* 0.7 a) (setq p31 (polar p12 (+ alf (* -0.5 pi) (* 0.875 a) (setq p32 (polar p13 (+ alf (* -0.5 pi) (* 0.875 a) (command linetype set bylayer ) ;设置新实体为随层 (command line p3 p4 );绘制图形中的直线 (command line p5 p6 ) (command line p3 p5 ) (command line p13 p10 ) (command line p13 p14 ) (command line p14 p9 ) (command line p8 p12 ) (command line p7 p11 ) (command line p11 p12 ) (command line p16 p18 ) (command line p26 p27 ) (command line p26 p24 ) (command line p27 p25 ) (command line p21 p22 ) (command line p23 p28 ) (command line p21 p28 ) (command line p20 p2