液压常用密封元件参数化cad图库设计

《液压常用密封元件参数化cad图库设计》由会员分享，可在线阅读，更多相关《液压常用密封元件参数化cad图库设计（59页珍藏版）》请在装配图网上搜索。

1、机电工程学院毕业设计说明书设计题目: 液压常用密封元件参数化CAD图库设计 学生姓名： 聂 运 铎 学 号： 专业班级： 机制F0706 指导教师： 韩 丽 丽 2011年5月18日毕业设计（论文）任务书1本毕业设计（论文）课题应达到的目的：本题目是基于AutoCAD平台，应用AutoLISP等相关高级语言进行应用软件设计。密封元件是液压传动系统中应用量很大的辅助元件，其结构较复杂，品种多。在液压传动系统设计中绘图工作量较大。本软件的设计目的，就是使液压传动常用密封元件参数化，设计人员只需在程序引导下点选所需密封元件类型、规格，就可很快绘出相应密封元件视图，从而减轻设计人员劳动强度，提高设计效

2、率。通过本设计可使学生在分析了解液压传动常用密封元件结构和应用高级语言进行计算机软件设计方面得到较全面的训练。2本毕业设计（论文）课题任务的内容和要求（包括原始数据、技术要求、工作要求等）：1技术要求：在熟悉加工精度统计分析方法、初步具备用高级语言编程的能力的基础上，设计液压常用密封元件参数化CAD图库，软件设计要求：（1）所绘制常用液压密封元件要符合国家标准；（2）能选择绘制常用液压密封元件的三视图；（3）要求人机交互界面友好，使用检索方便快捷。2工作要求：（1）收集相关资料，了解常用液压密封元件参数化CAD图库软件发展现状；（2）收集与本毕业设计相关的外文资料，翻译其中一篇；（3）制订软件

3、设计方案，进行方案论证，写出方案论证报告；（4）设计液压常用液压密封元件参数化CAD图库软件；（5）撰写毕业设计说明书。目次1 绪论12 AutoCAD的二次开发22.1 AutoCAD 二次开发的历史22.2 AutoCAD 二次开发的现状22.3 AutoCAD 二次开发的发展32.4 AutoCAD 二次开发工具种类33 CAD参数化设计技术63.1参数化设计技术63.2参数化设计的本质及意义63.3参数化设计在CAD中的应用64 液压密封元件参数化CAD图库系统开发84.1概述84.2开发流程94.2.1用DCL编写用户对话框界面94.2.2 SLD文件制作104.2.3国标数据文件制

4、作104.2.4 LISP程序设计114.2.5自定义并加载局部菜单124.3程序的运行134.4液压常用密封元件参数化CAD图库开发结论165系统开发的优缺点及改进方向17谢辞18参考文献19附录120附录253附录3551 绪论在液压传动系统设计过程中， 常常需要绘制大量的密封元件， 有时在同一张总体设计图上也要绘制许多结构相似而尺寸不同的密封元件， 重复性工作量大， 浪费时间。如果能通过尺寸参数的变化来自动生成结构相似而尺寸不同的密封元件的图形， 就能缩短产品设计周期， 设计人员就可以从繁琐的绘图中解放出来， 把精力投入到创意设计中去。针对上述问题， 在AutoCAD环境下，应用Auto

5、lisp编写设计DCL对话框控制程序，在执行Autolisp的同时，调用一个对话框，提供多样化的接口，并提供程序执行时所需的数据或选项于一身。成功开发了液压常用密封元件件的参数化图库， 大大提高了设计效率。AutoCAD荣登全球绘图软件的龙头宝座，主要是因为它具有开放的体系结构。它允许用户和开发者采用高级编程语言对其进行扩充和修改，即二次开发，能最大限度地满足用户的特殊要求。2 AutoCAD的二次开发2.1 AutoCAD 二次开发的历史CAD产业发展经历了以80年代后期的CAD初步应用，以及90年代中页的“甩图板工程”为代表的两次浪潮。而从2006年开始起，让人明显地感到，中国CAD产业发

6、展的第三次浪潮已经来临了。第一次浪潮源于AutoCAD进入中国。1990年。那时AutoCAD还是2.6版。这次浪潮促进了很多高校、科研院所和大型企业开始围绕AutoCAD进行二次开发。第二次浪潮源于科技部在“九五”期间推进“甩图板工程”。这期间，CAXA（当时叫北航海尔）、高华（现在的英泰）、凯思、开目、大天、凯图、大凯、CCAD（深圳乔纳森）等一批国内自主版权CAD在政府和市场的双重推动下成长起来。那时，对国产CAD软件最大的挑战是与AutoCAD盗版这种几乎不要钱的软件竞争；另外，与AutoCAD的兼容性，企业的工程师使用AutoCAD的习惯也是很大挑战，并且这些自主版权软件的开放性方面

7、也存在不足。同时，国内基于AutoCAD二次开发的商品化软件也空前繁荣，大恒、InteCAD、艾克斯特、天河、思普、浪潮（现华天软件）、天舟、欧磊等CAD软件得到了广泛的应用。两种类型的CAD软件厂商之间，也展开了激烈竞争。在这个阶段，二维CAD软件已经达到了实用化水平。在这次浪潮之中，CAXA脱颖而出，成为国产二维CAD的典型代表。当时，CAXA推出了400多元一套的二维CAD软件，彻底改变了市场格局，后来又推出了三维CAD软件，而CAXA的CAM也是一大特色。其它CAD软件公司则逐渐将重点转向了CAPP/PDM等产品，并开始代理国外CAD/PLM巨头的高端软件产品。而1998年，Autod

8、esk收购Genuis，自己推出机械版和电气版，使得国内基于AutoCAD进行二次开发的CAD软件的生存空间减小了很多。值得赞赏的是，2001年，新洲协同软件公司研发、推出了自主品牌的三维CAD软件Solid2000（Solid3000的前身）。2.2 AutoCAD 二次开发的现状AutoCAD应该是机械工程师最为熟悉的工程软件了,而且在工程师眼中AutoCAD几乎成了CAD软件的代名词了,一提到CAD三个字母,首先会想到的是AutoCAD,这也不得不让人对Autodesk 公司的推广手段感到敬佩。AutoCAD发展到现在已经是一个比较通用的适合各个行业进行设计工作的平台了，这是毋庸置疑的，

9、在这里只谈AutoCAD的二维功能，可能有好多人都不知道AutoCAD还能够进行三维建模，不过比起其三维平台Inventor的建模功底AutoCAD的这点小伎俩可以忽略了。尽管AutoCAD已经提供足够强大的各种功能，但是为了提高效率、也为了满足各个企业不同产品生产、设计的需求，可能会对AutoCAD做一些可以满足自己需求功能的二次开发，以提高自己的设计效率，例如建立自己公司产品的模型数据库，对模型实现可参数化设计，一些快捷功能的开发等等。AutoCAD 不是一个密闭的软件，它给设计者预留了一扇通向AutoCAD内部系统的大门API。对于AutoCAD进行二次开发可以使用的语言工具有内部集成的

10、AutoLisp、VBA、外围过象VB、C、及最新的.NET平台通过COM对AutoCAD 进行二次开发。2.3 AutoCAD 二次开发的发展随着AutoCAD软件在各行各业的应用日趋广泛，其二次开发的应用研究也逐渐深入，不在局限于上述的领域的参数化设计。像利用AUTOLISP二次开发语言对分形几何图形进行设计研究，用AUTOLISP开发出注塑模浇注系统，用AutoCAD二次开发技术实现了技术要求自动标注系统，用VBA开发出了AutoCAD标注图纸图栏系统等，等各种技术，从而为AutoCAD二次开发的技术应用开辟了一条新路径。2.4 AutoCAD 二次开发工具种类AutoCAD可用多种方法

11、进行二次开发，为AutoCAD二次开发者提供了巨大的方便。2.4.1 AutoLISPAutoLISP的全名是LIST Processing Language，她出现于1985年推出的AutoCAD R2.18中，是一种嵌入在AutoCAD内部的编程语言，是LISP原版的一个子集，她一直是低版本AutoCAD的首选编程语言。它是一种表处理语言，是被解释执行的，任何一个语句键入后就能马上执行，它对于交互式的程序开发非常方便。其缺点是继承了LISP语言的编程规则而导致繁多的括号。2.4.2 ADSADS的全名是AutoCAD Development System，它是AutoCAD的C语言开发系统

12、，ADS本质上是一组可以用C语言编写AutoCAD应用程序的头文件和目标库，它直接利用用户熟悉的各种流行的C语言编译器，将应用程序编译成可执行的文件在AutoCAD环境下运行，这种可以在AutoCAD环境中直接运行的可执行文件叫做ADS应用程序。ADS由于其速度快，又采用结构化的编程体系，因而很适合于高强度的数据处理，如二次开发的机械设计CAD、工程分析CAD、建筑结构CAD、土木工程CAD、化学工程CAD、电气工程CAD等。2.4.3 ObjectARXObjectARX是一种崭新的开发AutoCAD应用程序的工具，她以C+为编程语言，采用先进的面向对象的编程原理，提供可与AutoCAD直接

13、交互的开发环境，能使用户方便快捷地开发出高效简洁的Auto CAD应用程序。ObjectARX并没有包含在AutoCAD中，可在AutoDESK公司网站中去下载，其最新版本是ObjectARX for AutoCAD 2000，它能够对AutoCAD的所有事务进行完整的、先进的、面向对象的设计与开发，并且开发的应用程序速度更快、集成度更高、稳定性更强。2.4.4 VlispVLISP已经被完整地集成到AutoCAD 2000中，她为开发者提供了崭新的、增强的集成开发环境，一改过去在AutoCAD中内嵌AtuoLISP运行引擎的机制，这样开发者可以直接使用AutoCAD中的对象和反应器，进行更底

14、层的开发。其特点为自身是AutoCAD 2000中默认的代码编辑工具；用它开发AutoLISP程序的时间被大大地缩短，原始代码能被保密，以防盗版和被更改；能帮助大家使用ActiveX对象及其事件；使用了流行的有色代码编辑器和完善的调试工具，使大家很容易创建和分析LISP程序的运行情况。2.4.5 VBAVBA 即Mcrosoft office中的Visual Basic for Applications，它被集成到AutoCAD 2000中。VBA为开发者提供了一种新的选择，也为用户访问AutoCAD 2000中丰富的技术框架打开一条新的通道。VBA和AutoCAD 2000中强大的Activ

15、eX自动化对象模型的结合，代表了一种新型的定制AutoCAD的模式构架。通过VBA，我们可以操作AutoCAD，控制ActiveX和其它一些应用程序，使之相互之间发生互易活动。3 CAD参数化设计技术应用AutoLISP和DCL，能够编写出人机交互强，功能强大的程序，对AutoCAD进行十分有效的二次开发，从而提高绘图效率，并使AutoCAD真正地起到辅助设计作用。3.1参数化设计技术参数化设计是Revit Building的一个重要思想，它分为两个部分：参数化图元和参数化修改引擎。Revit Building中的图元都是以构件的形式出现，这些构件之间的不同，是通过参数的调整反映出来的，参数保

16、存了图元作为数字化建筑构件的所有信息。3.2参数化设计的本质及意义在参数化设计系统中，设计人员根据工程关系和几何关系来指定设计要求。要满足这些设计要求，不仅需要考虑尺寸或工程参数的初值，而且要在每次改变这些设计参数时来维护这些基本关系，即将参数分为两类：其一为各种尺寸值，称为可变参数；其二为几何元素间的各种连续几何信息，称为不变参数。参数化设计的本质是在可变参数的作用下，系统能够自动维护所有的不变参数。因此，参数化模型中建立的各种约束关系，正是体现了设计人员的设计意图。参数化设计可以大大提高模型的生成和修改的速度，在产品的系列设计、相似设计及专用CAD系统开发方面都具有较大的应用价值。目前，参

17、数化设计中的参数化建模方法主要有变量几何法和基于结构生成历程的方法，前者主要用于平面模型的建立，而后者更适合于三维实体或曲面模型。3.3 参数化设计在CAD中的应用用CAD方法开发产品时，零件设计模型的建立速度是决定整个产品开发效率的关键。产品开发初期，零件形状和尺寸有一定模糊性，要在装配验证、性能分析和数控编程之后才能确定。这就希望零件模型具有易于修改的柔性。参数化设计方法就是将模型中的定量信息变量化，使之成为任意调整的参数。对于变量化参数赋予不同数值，就可得到不同大小和形状的零件模型。在CAD中要实现参数化设计，参数化模型的建立是关键。参数化模型表示了零件图形的几何约束和工程约束。几何约束

18、包括结构约束和尺寸约束。结构约束是指几何元素之间的拓扑约束关系，如平行、垂直、相切、对称等；尺寸约束则是通过尺寸标注表示的约束，如距离尺寸、角度尺寸、半径尺寸等。工程约束是指尺寸之间的约束关系，通过定义尺寸变量及它们之间在数值上和逻辑上的关系来表示。参数化设计是20世纪80年代提出的一种CAD产品设计方法。他的基本思想是保持图形结构之间的相互拓扑关系不变，通过设置一组参数来来控制图形的几何尺寸大小，部分参数值的改变能够直接导致设计结果的自动修改。参数化设计极大的改善了图形设计的重构能力，提高了设计的柔性。参数化设计特别适合于结构形式固定而结构尺寸变化的规格化、系列化产品，尤其的机械领域的标准件

19、设计，如螺栓、螺母、导柱、导套 液压密封元件等。他不仅可以使CAD系统具有交互式绘图功能而且还具有自动绘图功能利用参数化设计手段开发抓用的设计系统，可以使设计人员从大量繁琐的绘图工作中解脱出来，极大的提高设计速度。4 液压密封元件参数化CAD图库系统开发4.1 概述随着生产和科学技术的不断发展，液压系统图样现代越来越复杂，作用也显得越加重要，同时也对产品的设计提出了更高的要求。其中产品设计周期，设计性能，出图速度等成为衡量产品设计优劣的重要指标。然而在液压系统设计中，设计人员根据要求在用AutoCAD 绘制一张张液压原理图时 ,经常要使用大量的、重复性的液压符号。众所周知 ,液压原理图的绘制

20、,需要严格按国家标准规定的图形符号进行组合。由于 AutoCAD 是通用性的绘图软件 ,本身并未提供绘制液压符号工具条 ,而液压界推出的液压原理绘图软件因综合性强、规模庞大、价格高而未得到中小企业及高校的充分利用 ,因而有必要设计和开发一套用于绘制液压原理图的专用 CAD 软件 ,以解决液压工程技术人员的设计需要。该液压原理图绘图软件应具有使用方便、用户界面友好、编辑功能强、用户可根据自己的需要 ,进行针对性的开发利用的特点。随着计算机的普及和其在液压领域的广泛应用，特别是软件技术的飞速发展，为液压设计人员开发出方便实用的CAD软件，已成为亟待解决的问题。系统组成DCL对话框参数化设计图形绘制

21、程序驱动程序AutoCAD是当今风靡世界的CAD应用软件，为了提高其绘图效率，增强其设计能力，常会用到AutoLISP及DCL对其进行二次开发。由于AutoLISP及DCL均附着于AutoCAD软件内，AutoLISP是编写绘图、编辑图形等程序的表处理语言，易学易用且功能强大；DCL是用户对话框设计语言，可设计出简洁、美观且人机交互强的用户对话框。二者配合使用，可以很完美的二次开发AutoCAD参数化图库系统。图4-1-1 系统组成4.2 开发流程4.2.1用户对话框界面设计根据设计意图，编写用户对话框（程序代码见附录2），如图4-2-1所示。图4-2-1a 用户对话框界面图4-2-1b 用户

22、对话框界面用户点击图4-2-1a中元件类别型号，右侧则展现对应密封元件样式的幻灯片图片。点选下一步按钮弹出图4-2-1b对话框界面，用户点击图4-2-1b中元件对应的国标尺寸选取参数，通过单选按钮可以切换所需元件视图及是否需要自动标注尺寸值。点击“确定”按钮在AutoCAD界面中绘出所希望的密封元件。4.2.2 SLD文件制作为了实现用户对话框中的密封元件的图像显示,首先在AutoCAD软件的绘图区域中分别绘制密封元件图像,然后在命令行中输入“mslide”命令,分别创建相应的幻灯片文件。制作幻灯片文件前尽量将每种类型的图形居中且填满绘图区域。图4-2-3 4.2.3 国标数据文件制作由于在用

23、户对话框中显示的国标数据和内部绘图函数调用的数据在格式上不同因此把同样的数据分别做成两份格式不同的文件保存，以遍内部函数调用如图4-2-4 4-2-4 绘图程序调用的表文件4.2.4 LISP程序设计LISP程序在二次开发各环节中是唯一具有驱动能力的，它用来开启用户对话框，响应用户动作，控制绘图命令，直至完成开发任务。程序由一个主程序和若干个子程序组成（见附录1）流程图见图4-2-5。 图4-2-5 主程序流程图4.2.5 自定义并加载局部菜单将以上涉及到的文件均保存在AutoCAD所在目录的Support文件夹下（或AutoCAD自动搜索路径的其他目录），在命令行中输入相应命令，对程序进行调

24、试。在调试无误后，编写菜单(见附录3)。菜单文件编写完成，在AutoCAD命令行中输入menuload命令进行菜单的加载。4.3 程序的运行进行AutoCAD操作环境，点击“自定义LISP”菜单，选择“密封元件库”命令，如图4-3-1所示。此时系统弹出“液压密封元件参数化图库”对话框，如图4-3-2所示。图4-3-1 自定义菜单图4-3-2 液压密封元件参数化图库选取元件类别点击下一步，对话框会响应用户动作，对话框如图4-3-3所示（当单选按钮焦点聚焦与值标注时能实现对所画元件的智能标注）。点击“确定”，关闭对话框，进入绘图程序，要求用户输入基点，如图4-3-4所示。基点输入完毕，绘图自动完成

25、，如图4-3-5所示。完成绘图之后还会要求用户输入角度或点来更人性话的对元件进行动态定位，如图4-3-6所示。图4-3-3 对话框响应用户动作界面图4-3-4基点输入提示图4-3-5 程序绘图图4-3-6 动态定位提示有时用户可能用户可能会误操作。此时，点击“确定”后会弹出AutoCAD信息对话框，如图4-3-7所示。图4-3-7 信息提示4.4液压常用密封元件参数化CAD图库开发结论由图例可知，应用AutoLISP和DCL可以对AutoCAD进行十分有效的二次开发。开发出的液压常用密封元件参数化CAD图库，大大提高绘图效率，还可以减少甚至免除用户翻阅手册的繁重工作，从而使得AutoCAD真正

26、地起到辅助设计的作用。5系统开发的优缺点及改进方向（1）、优点：比较综合的运用了AutoLISP 语言中的赋值（SETQ），极坐标求点（POLAR），表的嵌套，选择集的处理函数（SSADD）,各种运算符（+ - * /），GET族函数等等。并且综合调用了AutoCAD中的画线（LINE PLINE）、画弧（ARC）、画圆（CIRCLE）、镜像（MIRROR）等命令。（2）、缺点及改进方向由于水平实在有限，加之时间仓促，程序中总会存在这样或那样的缺点与不足。主要有：程序中的参数化程度不够成熟，程序中的代码有重复和多余的部分，不够简洁，可读性有待提高。所以，在今后的改进中要增加一些算法，使参数化程

27、度提高，精简代码，增加一些注释使可读性提高等等。谢辞历经三个月，经过一连串的仔细和努力的工作，付出了大量的时间与精力，终于快要完成大学四年最后阶段的毕业设计。在设计过程中，碰到了很多困难和阻碍，对我的设计之路造成了巨大的困扰，但在困境中，我的导师给了我莫大的助力,时刻提供给我帮助，提醒我要坚持努力，在这里我要感谢我的毕业设计导师韩丽丽老师,她的睿智，她的严厉，她的细致，她的关心和爱护，时时刻刻的感染和帮助者我。在整个设计过程中,从头到尾，韩老师都始终在我身边，给予我无私的帮助和关心。韩老师的专业水平让我敬佩，她的严谨的治学态度以及专业的科学精神也更是让我无法忘怀，我相信，在以后的学习生活过程中

28、，将始终发挥不可磨灭的作用。在此谨向韩老师致以诚挚的谢意和崇高的敬意。另外在毕业设计中，我周围的很多的朋友和同学，各大网站论坛里的网友都伸出了援助之手，让我更快更好的完成我的毕业设计。在此对给与过我帮助的同学朋友和坛友致以诚挚的谢意！通过在河南工业大学的忙碌又充实的四年，让我掌握了知识、道理以及宝贵的实践经验。在这里我要感谢河南工业大学机械工程学院给了我一个良好的学习环境。对学院曾经指导过我的导师致以诚挚的感谢。作为河南工业大学的一员，在将来的学习、生活、事业中，努力刻苦，奋发上进，做出一番事业。参考文献1 程俊兰.21世纪液压技术发展展望 .燕山大学液压研究所，2003.12 卢炜. Aut

29、oCAD中液压元件图素库的创建.成都航空职业技术学院学报，2002 (2)3 陈月娟.基于数据库技术的CAD参数化设计关键技术及实现方法.机械设计与制造，2006.14 张军，张红雷.基于AutoLISP语言绘图软件的CAD二次开发.煤矿机械， 2003(8)5 胡春亮.AutoCAD图库建立方法.九江职业大学，2000,16 申奇志.基于AUTOCAD2000 的图形元素库的建立方法.邵阳高等专科学校学报，第13卷第3期7 彭朝文,刘冲.嵌入液压与气动图形菜单的 CAD二次开发.中图分类号: TP3198 杨黎明,杨志勤.机械设计简明手册.国防工业出版社，2008.19 成大先.机械设计简明

30、手册第五版.化学工业出版社，2010.110 周峰.基于Autolisp的AutoCAD若干智能辅助设计功能二次开发.上海理工大学，2010.611 王盛智. 基于 AutoL ISP语言的参数化设计绘图系统.抚顺石油学院学报，2003.312 蒋红旗. 液压管路通用件参数化图库的设计与应用. 徐州师范大学工学院，2002.613 左建民.液压与气压传动.北京：机械工业出版社，2003.1附录1：Autolisp源程序代码;*主程序*(defun c:mftk () (setq gzlj C:/Users/NYD/Desktop/程序/);定义工作路径 (setq dcl_id (load_d

31、ialog (strcat gzlj mftk.dcl);加载对话框文件 (if (not (new_dialog mftk1 dcl_id );打开主界面 (exit) ) (dllist);向密封元件大类列表框中填内容 (action_tile list_1 (txlist2);选择密封元件大类列表框中的内容切换夹具元件小类列表框中的内容 (action_tile list_2 (xssld1) ;选择密封元件小类列表框中的内容在图像控件中显示幻灯片 (action_tile button_xyb (cs1) ;点选一个密封元件切换到该元件尺寸对话框 (action_tile cancel

32、 (setq dell 0) (done_dialog 0);按取消键关闭对话框 (start_dialog) (unload_dialog dcl_id ) (fgxnyd);-自定义带形参处理-(defun cllbk (ck1 ck2) ;自定义处理列表框控件函数 (start_list ck1) (mapcar add_list ck2) (end_list) ;向夹具元件大类列表框中填内容 )(defun txtc ( imagekey sldname);在图象控件中显示幻灯片 (setq x (dimx_tile imagekey) ;右下角 y (dimy_tile imagek

33、ey) ;坐标点 (start_image imagekey) (fill_image 4 4 (- x 10) (- y 10) 0) ;在现行激活框的图像控件上划一个填充矩形 (slide_image 4 4 (- x 10) (- y 10) sldname) ;在现行激活对话框图象控件上显示一个autocad的幻灯片 (end_image) );-;-处理主对话框-(defun dllist () ;向主对话夹具元件大类列表框中填内容 (setq mfyjdl (密封圈 油封 垫片 ) ;密封元件大类 (cllbk list_1 mfyjdl) (setq mfqyj (o型密封圈 v

34、d形橡胶密封圈a型 vd形橡胶密封圈s型 A型防尘圈 活塞杆用V型圈 轴用Y形圈 孔用Y形圈 C型防尘圈) (cllbk list_2 mfqyj) (txtc sld1 (strcat gzlj 11z) (setq dlbsz 1) ) (defun txlist2 () ;向主对话框密封元件小类列表框中填内容 (setq mfqyj (o型密封圈vd形橡胶密封圈a型 vd形橡胶密封圈s型 A型防尘圈 活塞杆用V型圈轴用Y形圈 孔用Y形圈 C型防尘圈) ;密封圈元件分类 (setq ydyj (z形橡胶油封 油封皮纸圈 毡圈油封 ) ;油封元件分类 (setq dpyj (平面管法兰用非金

35、属平垫片PN0.25MPa 平面管法兰用非金属平垫片PN0.6MPa 平面管法兰用非金属平垫片PN1.0MPa 平面管法兰用非金属平垫片PN1.6MPa 平面管法兰用非金属平垫片PN2.0MPa I型突面管法兰用非金属平垫片PN0.25MPa I型突面管法兰用非金属平垫片PN0.6MPa I型突面管法兰用非金属平垫片PN1.0MPa I型突面管法兰用非金属平垫片PN1.6MPa I型突面管法兰用非金属平垫片PN2.0MPa II型突面管法兰用非金属平垫片PN2.0MPa I型突面管法兰用非金属平垫片PN2.5MPa I型突面管法兰用非金属平垫片PN4.0MPa I型突面管法兰用非金属平垫片PN

36、5.0MPa II型突面管法兰用非金属平垫片PN5.0MPa 凹凸面管法兰用非金属平垫片PN1.6MPa 凹凸面管法兰用非金属平垫片PN2.5MPa 凹凸面管法兰用非金属平垫片PN4.0MPa凹凸面管法兰用非金属平垫片PN5.0MPa 榫槽面管法兰用非金属平垫片PN1.6MPa 榫槽面管法兰用非金属平垫片PN2.5MPa 榫槽面管法兰用非金属平垫片PN4.0MPa 榫槽面管法兰用非金属平垫片PN5.0MPa) ;垫片元件分类 (setq dlbsz 1) (setq dlbsz (+ 1(atoi (get_tile list_1 ) (cond (= dlbsz 1)(cllbk list_

37、2 mfqyj) ;向密封元件小类列表框中填密封圈元件分类内容 (= dlbsz 2)(cllbk list_2 ydyj) ;向密封元件小类列表框中填油封元件分类内容 (= dlbsz 3)(cllbk list_2 dpyj) ;向密封元件小类列表框中填垫片元件分类内容 ) )(defun xssld1 () ;选择密封元件名，向图像控件中填相应幻灯片 (setq xlbsz (+ 1(atoi (get_tile list_2 ) (setq dlbszh (rtos dlbsz 2 0) xlbszh (rtos xlbsz 2 0) ;将十进制格式数转换成字符串 (setq yjxh

38、 (strcat dlbszh xlbszh) ;将多个字符串拼接成一个长字符串后返回。 (setq yjsldmb (11 11z) (12 12z) (13 13z) (14 14z) (15 15z) (16 16z) (17 17z) (18 18z) (21 21z) (22 22z) (23 23z) (31 31z) (32 32z) (33 33z) (34 34z) (35 35z) (36 36z) (37 37z) (38 38z) (39 39z) (310 310z) (311 311z) (312 312z) (313 313z) (314 314z) (315 3

39、15z) (316 316z) (317 317z) (318 318z) (319 319z) (320 320z) (321 321z) (322 322z) (323 323z) ;“xx”前x表示大类中第x项，后x表示小类中第x项 (setq yjsldm (strcat gzlj (car(cdr (assoc yjxh yjsldmb);获取幻灯片文件路径 (txtc sld1 yjsldm) );-以上主对话框相关控制-(defun cs1();处理子对话框 (if (not (new_dialog mftk2 dcl_id ) (exit) ) (setq sth 1)(mod

40、e_tile button_st1 2);sth表示视图号 1即视图1 mode_tile设置该对话框控件聚焦 (setq sth2 1)(mode_tile button_st4 2);sth2表示标注项 4即无标注 mode_tile设置该对话框控件聚焦 (setq st 0) (cond (= yjxh 12)(setq st 1) (= yjxh 13)(setq st 1) (= yjxh 14)(setq st 1) (= yjxh 15)(setq st 1) (= yjxh 16)(setq st 1) (= yjxh 17)(setq st 1) (= yjxh 18)(se

41、tq st 1) (= yjxh 21)(setq st 1) ) (mode_tile button_st2 st);视图2禁用 (mode_tile button_st3 1) ;视图3禁用 (xssld2);显示幻灯片 (xsgbcc);在列表中显示国标尺寸 (action_tile list_21 (jinggao);选取尺寸警告 (action_tile button_st1 (setq sth 1)(xssld2);点选单选按钮切换三图 (action_tile button_st2 (setq sth 2)(xssld2); (action_tile button_st3 (se

42、tq sth 3)(xssld2); (action_tile button_st4 (setq sth2 1);点选单选按钮切换是否标注尺寸 (action_tile button_st5 (setq sth2 2); (action_tile cancel (setq dell 0) (done_dialog 0);按取消键关闭对话框 (action_tile accept (jinggao2) ) ;启动绘图 (start_dialog) );-子对话框处理函数-(defun xssld2 () ;向子对话框图像控件中填相应幻灯片 (setq yjstsldmb (11 111 112

43、113) (12 121 122 123) (13 131 132 133) (14 141 142 143) (15 151 152 153) (16 161 162 163) (17 171 172 173) (18 181 182 183) (21 211 212 213) (22 221 222 223) (23 231 232 233) (31 311 312 313) (32 321 322 323) (33 331 332 333) (34 341 342 343) (35 351 352 353) (36 361 362 363) (37 371 372 373) (38 38

44、1 382 383) (39 391 392 393) (310 3101 3102 3103) (311 3111 3112 3113) (312 3121 3122 3123) (313 3131 3132 3133) (314 3141 3142 3143) (315 3151 3152 3153) (316 3161 3162 3163) (317 3171 3172 3173) (318 3181 3182 3183) (319 3191 3192 3193) (320 3201 3202 3203) (321 3211 3212 3213) (322 3221 3222 3223)

45、 (323 3231 3232 3233) ) ;xyz其中x表示大类元件中第x项 y表示小类元件中第y项 z表示视图z (setq yjstsldm (strcat gzlj (nth sth (cdr (assoc yjxh yjstsldmb) (txtc sld2 yjstsldm)(defun jinggao ();选取尺寸警告 (setq chucuo(strcat 请选择国标尺寸!) (setq ccz (+ 1(atoi (get_tile list_21 ) (cond (= ccz 1)(alert chucuo) (cond (/= ccz 1)(dqgbcc) )(de

46、fun jinggao2 ();选取尺寸警告 (setq chucuo(strcat 请选择国标尺寸!) (setq ccz (+ 1(atoi (get_tile list_21 ) (cond (= ccz 1)(alert chucuo) (cond (/= ccz 1)(term_dialog)(setq dell 1);*选定元件尺寸参数*(defun xsgbcc () ;在列表中显示国标尺寸 (setq shujukus (11 11.txt 11n.txt) (12 12.txt 12n.txt) (13 13.txt 13n.txt) (14 14.txt 14n.txt)

47、(15 15.txt 15n.txt) (16 16.txt 16n.txt) (17 17.txt 17n.txt) (18 18.txt 18n.txt) (21 21.txt 21n.txt) (22 22.txt 22n.txt) (23 23.txt 23n.txt) (31 31.txt 31n.txt) (32 32.txt 32n.txt) (33 33.txt 33n.txt) (34 34.txt 34n.txt) (35 35.txt 35n.txt) (36 36.txt 36n.txt) (37 37.txt 37n.txt) (38 38.txt 38n.txt)

48、(39 39.txt 39n.txt) (310 310.txt 310n.txt) (311 311.txt 311n.txt) (312 312.txt 312n.txt) (313 313.txt 313n.txt) (314 314.txt 314n.txt) (315 315.txt 315n.txt) (316 316.txt 316n.txt) (317 317.txt 317n.txt) (318 318.txt 318n.txt) (319 319.txt 319n.txt) (320 320.txt 320n.txt) (321 321.txt 321n.txt) (322

49、 322.txt 322n.txt) (323 323.txt 323n.txt) ) ;XY 其中x表示大类元件中第x项 y表示小类元件中第y项 (setq shujuku (strcat gzlj (car(cdr (assoc yjxh shujukus) (setq tmplst nil) (setq fn (open shujuku r) ;打开文件 (while (setq gg (read-line fn) ;读文件 (setq tmplst (append tmplst (list gg) ) (close fn) (setq tmplst tmplst);其余表项存入标准元件

50、尺寸表 (cllbk list_21 tmplst) )(defun dqgbcc() ;*读取国标尺寸* (setq shujukun (strcat gzlj (nth 1 (cdr (assoc yjxh shujukus) (setq tmplstn nil) (setq fnn (open shujukun r) ;打开文件 (while (setq gg (read-line fnn) ;读文件 (setq gg (read gg) (setq tmplstn (append tmplstn (list gg) ) (close fnn) (setq mmm1(- (atoi (g

51、et_tile list_21 ) 1) (setq mmm (nth mmm1 tmplstn) ;把检索到的参数存到变量mmm中 ) ;*根据选择内容绘图*(defun fgxnyd () ;判断是否启动绘图函数 (cond (= dell 1)(fgxnyd1) ) (defun fgxnyd1 () ;绘图主函数 (defun dtr(a) ;角度转换弧度函数 (* a (/ pi 180.0) ) (setq layer_name (tblsearch layer 粗实线层) ;检查及设置图层 (if (= layer_name nil) (command layer n 粗实线层

52、c 7 粗实线层 lw 0.3 粗实线层 ) ) (setq layer_name (tblsearch layer 细实线层) (if (= layer_name nil) (command layer n 细实线层 c 7 细实线层 lw 0.1 细实线层 ) ) (setq layer_name (tblsearch layer 中心线层) (if (= layer_name nil) (command layer m 中心线层 c 1 lw 0.1 中心线层 l center ) ) (setq layer_name (tblsearch layer 标注线层) (if (= layer_name nil) (comma