毕业设计论文AutoCAD环境下的液压系统符号开发

《毕业设计论文AutoCAD环境下的液压系统符号开发》由会员分享，可在线阅读，更多相关《毕业设计论文AutoCAD环境下的液压系统符号开发（42页珍藏版）》请在装配图网上搜索。

1、毕业设计(论文)AutoCAD环境下液压系统符号开发系 别 ：机械与电子工程系专业（班级）：机械设计制造及自动化07级2班作者（学号）：指导教师：完成日期： 2011年6月1日蚌埠学院教务处制目 录摘 要：3Abstract：41 引 言52 绪 论62.1 国内外的研究现状和发展趋势62.2 AutoCAD二次开发的目的和意义62.3 AutoCAD二次开发现状82.4 AutoCAD二次开发工具选择82.5 课题研究的主要内容和意义93 开发工具的介绍103.1 Visual LISP概述103.2 VisualLISP的主要组成部分和功能103.3 Auto LISP语言的特点113.4

2、 运行AutoLISP程序114 典型液压元件Autolisp程序开发125 菜单的加载385.1 菜单命令的程序385.2 菜单命令的加载396 结 论40谢 辞41参考文献42AutoCAD环境下的液压系统符号开发摘 要：AutoCAD是目前市场上最流行的CAD系统，它所具有的可编程，易于定制以及可 扩展等特性显著提高了用户的工作效率。本课题是在AutoCAD环境下对液压系统符号进行 开发，利用AutoCAD 2008内嵌的Visual LISP编辑器，对液压系统符号进行参数化设计，其目的是将液压元件的图形符号汇编成参数化程序模块挂接入AutoCAD系统运行环境中，不但为相关液压元件设计人

3、员提高其设计效率，增强其设计产品的市场竞争能力还使设计者有跟多的时间和精力从事创造性的劳动。而且能提高液压系统图的通用化及标准化程度。本设计主要对液压泵、换向阀和液压系统辅助元件等典型的液压元件图进行了参数化设计。关键字：CAD系统；二次开发；Visual Lisp；液压元件；参数化设计AutoCAD environment of hydraulic system symbols developmentAbstract：AutoCAD on the market at present is the most popular CAD system, which has the programma

4、ble, easy to customize and extensible characteristics significantly improve users work efficiency. This topic is in AutoCAD environment symbol of development, the hydraulic system using AutoCAD 2008 embedded Visual in LISP editor, hydraulic system symbols of parametric design, its purpose is to hydr

5、aulic components graphic symbols are compiled into parametric programs module hang access operating system environment in AutoCAD, not only for related hydraulic components design personnel to improve the design efficiency and enhance its design product market competition ability to enable the desig

6、ner has with more time and effort in creative labor. But also improve the hydraulic system graph generalization and standardization level. This design is mainly to the hydraulic pump, reversing valves and hydraulic system auxiliary components and other typical of the hydraulic components figure on t

7、he parametric design. Key words：CAD-system ；The second development ；Visual Lisp；Hydraulic cell；Parametric Design1 引 言随着工程技术的发展，计算机辅助设计（CAD技术）得到了迅速普及，已经成为电子信息技术的重要组成部分。它使得产品设计工作的内容和方式产生了根本性变革；是提高产品和工作设计水平、降低消耗、缩短科研和新产品开发周期、大幅度提高劳动生产率的一项关键技术；成为设计产品保持竞争优势，开拓市场的主要技术手段。 伴随着CAD技术的发展和应用，各种商品化的CAD软件也应运而生并迅速

8、发展，AutoCAD软件就是其中的优秀软件之一。AutoCAD是美国Auto-Desk公司1982年推出的，目前世界上最为流行，最为成功的CAD软件。这不仅仅是因为它有非常强大的功能、支持的外设和平台很多、价格又低、易学易用，最主要的是AutoCAD具有开放式的体系结构，允许用户在几乎所有方面对其进行修改和扩充，用以满足各种用户自己的特殊需要。通过对AutoCAD功能的调整、扩充以满足用户特定要求的方法有时称为对AutoCAD的定制。通过定制，可以构造出符合用户习惯的AutoCAD系统，也可提高工作效率。由于AutoCAD的每一部分都可以按要求定制，如定义一个对话框，生成一种特殊线型。因此，定

9、制可能是应用AutoCAD中最有创造性和最令人感兴趣的工作。 本课题正是利用其能满足特定用户要求的各种定制功能，适应市场对基本零部件绘图模块的需求，对一些常用的液压元件进行定制，包括：菜单、绘制图形、幻灯片显示，并介绍了Auto LISP、Visual LISP、以及基于这部分的应用，实现一个完整的工程体。 通过本课题的实践，综合CAD开发系统的特点，很容易让我们发现，我们不必是AutoCAD专家或程序员，只要知道AutoCAD的基本命令，就可以完成对各种需求产品的定制。在程序编制过程中，由小程序出发，一步一步分段进行程序调试，极大的提高了整个工作过程的效率，使我们很轻松的完成了对常用液压元件

10、绘图模块的定制，实现了基于产品零件的AutoCAD的二次开发。2绪 论2.1 国内外的研究现状和发展趋势机械设计是一门古老而成熟的学科，自第一次工业革命以来，经过几百年的发展现在已臻于完善，然而，传统的手工进行计算绘图的机械设计方法在日新月异的社会发展需求面前显得捉襟见肘，力不从心。正因为如此，以计算机为代表的信息技术推动整个社会各方面发展的同时也为机械设计这门古老的学科带来新的生机，这就是计算机辅助设计（CAD）。计算机绘图具有非常的优越性，在工程同样中存在的一些具备标准化、规格化、参数化的零部件、符号等，利用计算机功能特点来实现，具有效率高，操作简便。CAD软件的发展已进入第四代，正朝着所

11、谓的NAD（Net Aided Design）方向发展。我国的CAD技术起步于六十年代，在引进国外先进技术和软件的同时，大力开发有自主版权的CAD系统如中科院、清华大学、北航、东大阿尔派等科研院所都为国内CAD技术的进一步发展、提高和应用起到了积极的促进作用。据统计，CAD在我国不同行业的分布为：机械占39%，电子占28%，建筑占33%，其它占10%。2.2 AutoCAD二次开发的目的和意义AutoCAD软件作为CAD工业的旗帜产品，以其强大的功能得到广大用户的青睐。它具有精确的坐标系，能够完成各种图形的精确绘制、任意缩放和修改，支持数字化仪的精确输入。尽管如此，由于AutoCAD是作为一个

12、通用的绘图软件而设计开发的，但各行各业都有自己的行业和专业标准，许多单位也有自己的技术规格和企业标准，化工行业也不例外，有着大量的各种图纸设计标准，因而，AutoCAD不可能完全满足每一用户的具体应用要求。但是，AutoCAD具有开放的体系结构，它允许用户和开发者在几乎所有方面对其进行扩充和修改，同时可以利用多种开发语言，开发可以自动完成某一绘制任务的软件，可大大提高绘制速度，改善工作效率。以上工作可称之为AutoCAD的二次开发技术。也就说AutoCAD二次开发技术主要包括两个方面：一方面是对它的功能进行扩充和修改，如修改或增加菜单、进行各种定制工作；另一方面是利用开发工具编写能够完成特殊任

13、务的自动绘制软件，如下面将介绍的通过人机交互界面输入必要的数据后，系统自动完成法兰的绘制，就属于这一类型，在化工绘图中，我们需要的也是有关这一方面的开发软件，它能最大限度地满足用户的特殊需要，通过调用各种已经开发好的专用零件图绘制软件，加快绘制速度，提高工作效率。尤其重要的是，可以将大量的计算工作交给计算机去完成。这样，不仅提高了绘图速度，同时也提高了绘制精度，避免了人为的计算错误。目前很多化工技术人员对AutoCAD的使用一般还仅限于它自身的各种绘图功能，使用鼠标手工绘制各种图件，对其强大的二次开发功能还没有进行深入使用。如果能使用AutoCAD的二次开发技术开发出一套软件，让AutoCAD

14、自动绘制我们目前使用的各种图件，就可以大大提高作图效率，发挥出AutoCAD的强大图形编辑、修改功能，对图件中的各种元素进行任意修改，满足各种不同的图件格式和绘图标准，由此可见，对于一个化工技术人员来说，学会自己开发AutoCAD二次应用软件显得十分必要，因为这将大大减少具体的绘制工作，而可以将主要精力集中到设备的设计中去，从而加快化工设备的开发速度。近几年来，随着计算机软、硬件技术的飞速发展及其应用的普及，也带来了化工领域使用计算机的浪潮。首先是各课程教学使用了CAI课件，学生们可以清楚地看到各种物质的具体颜色，并可以看到动画反应，让学生们能够形象生动地上课。然后是各种实验仿真软件的出现，让

15、学生们不用亲自下到工厂，也不用浪费任何原料，在没有危险的情况下就可以完成对实验过程或者是生产流程的学习和实习。同时计算机可以对反应进行模拟，对实验数据的拟合都大大方便了化工工作者。随之诞生的各种化工专用软件，给化学工业的发展注入了新鲜血液，使化学工业的发展如虎添翼。目前，随着化学工业的进一步向前发展，各种新的机械设备被人们设计和制造，这些设备的工程图都是一件很大的工程。比如一个完整热交换器图纸，就需要一个专人12天的工夫才能完成。利用AutoCAD的二次开发技术，可以编出对热交换器的图进行批处理的程序，只需通过简单的人机会话,计算机能自动绘制出图纸，这也是化工技术人员学习掌握AutoCAD二次

16、开发技术的目的之所在。随着化学工业的不断日新月异，对设备图纸绘制的速度要求也将越来越快，利用AutoCAD二次开发技术开发而成的软件直接绘制各种设备的技术将在化学工业中得到更加广泛的应用，其开发技术必将伴着化学工业一起发展。掌握了AutoCAD的二次开发技术，可以充分发掘AutoCAD的潜力，简化了绘图程序在工作中能够事半功倍，大大提高工作效率。AutoCAD二次开发就是利用它所提供的下拉菜单、图标菜单、LISP语言编辑器等简单易学功能强大的开发工具，用户可以开发出适合自己的界面、工具、程序等。大大减少重复绘图时间，提高设计效率，使用户有更多的时间投入到创新设计中去。2.3 AutoCAD二次

17、开发现状AutoCAD应该是机械工程师最为熟悉的工程软件了,而且在工程师眼中AutoCAD几乎成了CAD软件的代名词了,一提到CAD三个字母,首先会想到的是AutoCAD。AutoCAD发展到现在已经是一个比较通用的适合各个行业进行设计工作的平台了，这是毋庸置疑的，在这里只谈AutoCAD的二维功能，可能有好多人都不知道AutoCAD还能够进行三维建模，不过比起其三维平台Inventor的建模功底AutoCAD的这点小伎俩可以忽略了。随着AutoCAD软件在各行各业的应用日趋广泛，其二次开发的应用研究也逐渐深入，不在局限于上述的领域的参数化设计。像利用AUTOLISP二次开发语言对分形几何图形

18、进行设计研究，用AUTOLISP开发出注塑模浇注系统，用AutoCAD二次开发技术实现了技术要求自动标注系统，用VBA开发出了AutoCAD标注图纸图栏系统等各种技术，从而为AutoCAD二次开发的技术应用开辟了一条新路径。2.4 AutoCAD二次开发工具选择要完成以上的要求，应有不同的软件要求与之相对应，经过比较分析，选择一种适合我们的软件是很重要的，那将有助于课题实物的实现，并对工作进度起到事半功倍的效果。主要是在对绘图程序语言和对话框编辑语言的选择上，将一些常用编制语言进行了比较。(1) AutoLISPAutoLISP的全名是LIST Processing Language，她出现于

19、1985年推出的AutoCAD R2.18中，是一种嵌入在AutoCAD内部的编程语言，是LISP原版的一个子集，她一直是低版本AutoCAD的首选编程语言。它是一种表处理语言，是被解释执行的，任何一个语句键入后就能马上执行，它对于交互式的程序开发非常方便。其缺点是继承了LISP语言的编程规则而导致繁多的括号。(2) ADSADS的全名是AutoCAD Development System，它是AutoCAD的C语言开发系统，ADS本质上是一组可以用C语言编写AutoCAD应用程序的头文件和目标库，它直接利用用户熟悉的各种流行的C语言编译器，将应用程序编译成可执行的文件在AutoCAD环境下运

20、行，这种可以在AutoCAD环境中直接运行的可执行文件叫做ADS应用程序。ADS由于其速度快，又采用结构化的编程体系，因而很适合于高强度的数据处理，如二次开发的机械设计CAD、工程分析CAD、建筑结构CAD、土木工程CAD、化学工程CAD、电气工程CAD等。(3) ObjectARXObjectARX是一种崭新的开发AutoCAD应用程序的工具，她以C+为编程语言，采用先进的面向对象的编程原理，提供可与AutoCAD直接交互的开发环境，能使用户方便快捷地开发出高效简洁的Auto CAD应用程序。ObjectARX并没有包含在AutoCAD中，可在AutoDESK公司网站中去下载，其最新版本是O

21、bjectARX for AutoCAD 2000，它能够对AutoCAD的所有事务进行完整的、先进的、面向对象的设计与开发，并且开发的应用程序速度更快、集成度更高、稳定性更强。(4) VlispVLISP已经被完整地集成到AutoCAD 2000中，她为开发者提供了崭新的、增强的集成开发环境，一改过去在AutoCAD中内嵌AtuoLISP运行引擎的机制，这样开发者可以直接使用AutoCAD中的对象和反应器，进行更底层的开发。其特点为自身是AutoCAD 2000中默认的代码编辑工具；用它开发AutoLISP程序的时间被大大地缩短，原始代码能被保密，以防盗版和被更改；能帮助大家使用Active

22、X对象及其事件；使用了流行的有色代码编辑器和完善的调试工具，使大家很容易创建和分析LISP程序的运行情况。(5) VBAVBA 即Mcrosoft office中的Visual Basic for Applications，它被集成到AutoCAD 2000中。VBA为开发者提供了一种新的选择，也为用户访问AutoCAD 2000中丰富的技术框架打开一条新的通道。VBA和AutoCAD 2000中强大的ActiveX自动化对象模型的结合，代表了一种新型的定制AutoCAD的模式构架。通过VBA，我们可以操作AutoCAD，控制ActiveX和其它一些应用程序，使之相互之间发生互易活动。2.5

23、课题研究的主要内容和意义本文主要结合模具企业的技术要求来进行设计研究，主要通过AutoCAD这个软件平台使用Visual LISP进行编程，主要完成如下工作：（1）基于机械工程设备的液压系统符号建立符号系统； （2）利用所建立的符号系统，可以方便的对液压系统进行设计，从而可以避免在系统设计中符号画法的繁琐问题； （3）通过对设计的模块的建立进行编译符合AutoCAD环境中运行的文件； （4）完成在AutoCAD环境中菜单开发进行挂接调用； （5）完成开发系统的加载、调试、排错；实现整个工程的链接； （6）运用系统完成模具标准件图形的绘制。 AutoCAD环境下的液压系统符号开发是将液压元件的图

24、形符号汇编成参数化程序模块挂接入AutoCAD系统运行环境中，本设计完成后对CAD软件的功能可以进行增强，可以方便企业设计人员进行设计工作，参数的输入也可以通过界面来控制，实现可视化的操作。这样不仅可以减轻设计者的劳动强度提高工作效率和工作质量，使设计者有跟多的时间和精力从事创造性的劳动。而且能提高液压系统图的通用化及标准化程度。3 开发工具的介绍3.1 Visual LISP概述 VISUAL LISP是 AUTOCAD自带的一个集成的可视化Autolisp开发环境，最早的AUTOLISP程序需要用文本编辑工具如记事本等编辑，然后在AutoCAD中加载调试，很不方便。从AutoCAD2000

25、开始，有了集成的开发环境：VISUAL LISP。作为开发工具，Visual LISP提供了一个完整的集成开发环境（IDE），包括编译器、调试器和其他工具，可以实时调试AUTOLISP命令。定义AutoCAD的效率。 Visual LISP具有自己的窗口和菜单，但它并不能独立于AutoCAD运行。3.2 VisualLISP的主要组成部分和功能作为开发工具，Visual LISP提供了一个完整的集成开发环境（IDE），包括编译器、调试器和其他工具，可以提高自定义AutoCAD的效率。另外，Visual LISP提供了发布用AutoLISP编写的独立应用程序的工具。Visual LISP没有任何

26、特殊的硬件需求，能运行AutoCAD系统即可运行Visual LISP。功能如下：(1) 语法检查器：可识别AutoLISP语法错误和调用内置函数时的参数错误。(2) 文件编译器：改善了程序的执行速度，并提供了安全高效的程序发布平台。(3) 源代码调试器：专为AutoLISP设计，利用它可以在窗口中单步调试AutoLISP源代码，同时还在AutoCAD图形窗口显示代码运行结果。(4) 文字编辑器：可采用AutoLISP和DCL语法着色，并提供其他AutoLISP语法支持功能。(5) AutoLISP格式编排程序：用于调整程序格式，改善其可读性。(6) 全面的检验和监视功能：用户可以方便地访问变

27、量和表达式的值，以便浏览和修改数据结构。这些功能还可用来浏览AutoLISP数据和AutoCAD图形的图元。(7) 上下文相关帮助：提供AutoLISP函数的信息。强大的自动匹配功能方便了符号名查找等操作。(8) 工程管理系统：维护多文件应用程序更加容易。(9) 打包功能：可将编译后的AutoLISP文件打包成单个模块。(10) 桌面保存和恢复能力：可保存和重用任意VLISP任务的窗口环境。(11) 智能化控制台窗口：它给AutoLISP用户提供了极大的方便，从而大大提高了用户的工作效率。控制台的基本功能与AutoCAD文本屏幕类似，还提供了许多交互功能，例如历史记录功能和完整的行编辑功能等。

28、3.3 Auto LISP语言的特点LISP是一种计算机的表处理语言，是在人工智能学科领域广泛应用的一种程序设计语言。AutoLISP语言是嵌套于AutoCAD内部，将LISP语言和AutoCAD有机结合的产物。使用AutoLISP可直接调用几乎所有的AutoCAD命令。AutoLISP语言既具备一般高级语言的基本结构和功能又具有高级语言所没有的强大的图形处理功能，是当今世界上CAD软件中被广泛采用的语言之一。利用AutoLISP对AutoCAD进行二次开发，可以实现直接增加和修改AutoCAD命令，随意扩大图形的编辑功能，建立图形库和数据库对当前图形进行直接访问和修改。Auto LISP语言

29、的特点（1）AutoLISP语言是在普通的LISP语言基础上，扩充了许多适用于CAD应用的特殊功能而形成的，一种仅能以解释方式运行于AutoCAD内部的解释性程序设计语言。（2）AutoLISP语言中的一切成分都是以函数的形式给出的，它没有语句概念或其他语法结构。执行AutoLISP程序就是执行一些函数，再调用其他函数。（3）AutoLISP把数据和程序统一表达为表结构，即S-表达式，故可把程序当作数据来处理，也可把数据当作程序来执行。（4）AutoLISP语言中的程序运行过程就是对函数求值的过程，是在对函数求值的过程中实现函数的功能。（5）AutoLISP语言的主要控制结构是采用递归方式。递

30、归方式的使用使得程序设计简单易懂。3.4 运行AutoLISP程序(1) 确认编辑窗口处于前台状态，选择菜单【Tools（工具）】【Load Text in Editor（加载编辑器中的文字）】，则该程序被加载并运行。系统将返回AutoCAD窗口，并提示用户选择一点，并以指定点为基点来绘制文字。(2) 如果用户退出Visual LISP环境并返回AutoCAD系统窗口，则需要对该程序进行加载后，才能运行。选择菜单【Tools（工具）】【Load Appcation.（加载应用程序）】，弹出Load/Unload Applications（加载/卸载应用程序）对话框。查找并选择上一步中所创建的H

31、ello.lsp文件，并单击按钮进行加载。加载后的文件名称将显示在Loaded Applications（已加载的应用程序）列表中，并在对话框的左下部显示加载信息。(3) 完成加载后，单击按钮关闭对话框，系统将运行Hello.lsp程序。4 典型液压元件Autolisp程序开发1. 按钮式人力控制器按钮式人力控制器是液压系统的控制机构，其图形符号如图4-1-1所示：图4-1-1 按钮式人力控制器图形符号建立坐标、尺寸（可以自行比例确定）及基点，标定线如图4-1-2所示：基点：x0,y0x1=x0+12y1=y0+8x2=x0-12y2=y0+10X3=x0-15y3=y0+12y4=y0+14

32、图4-1-2 按钮式人力控制器图形坐标图用到的命令只有圆弧“arc”和直线“line”或“pline”。用“arc”命令绘制圆弧p7p10p8，“pline”命令绘制线段p6 p3 p2 p0 p1，“line”命令绘制直线p7 p8、p3 p4、p5 p2。程序代码如下所示：(defun c:button() (setq cp(getpoint确定基点) (setq x0(car cp); 取拾取点X坐标 (setq y0(cadr cp);取拾取点Y坐标 (setq x1(+ x0 12) (setq x2(- x0 12) (setq x3(- x0 15) (setq y1(+ y0

33、8) (setq y2(+ y0 10) (setq y3(+ y0 12) (setq y4(+ y0 14) (setq p0(list x0 y0) (setq p1(list x1 y0) (setq p2(list x0 y2) (setq p3(list x0 y3) (setq p4(list x1 y3) (setq p5(list x2 y2) (setq p6(list x2 y3) (setq p7(list x2 y4) (setq p8(list x2 y1) (setq p9(polar p5(* 0.5 pi) 1) (setq p10(polar p9 pi 3

34、) (command linep7 p8) (commandlinep3 p4) (commandlinep5 p2) (commandplinep6 p3 p2 p0 p1) (commandarcp7 p10 p8) (princ) ) 2. 双作用单活塞杆液压缸双作用单活塞杆液压缸是实现直线往复运动执行元件，它是将流体的压力能转化为机械能的元件，其图形符号如图4-2-1所示：图4-2-1 单杆活塞图形符号建立坐标、尺寸（可以自行比例确定）及基点，标定线如图4-2-2所示：基点：x0,y0x1=x0+1 y1=y0+3.5x2=x0+3 y2=y0+7x3=x0+9 y3=y0-2x4=x

35、0+10 x5=x0+14图4-2-2 单杆活塞图形坐标图用到的命令只有直线“line”或“pline”。P0是图形的插入点，用“setq”命令分别确定各点的坐标，“pline” 绘制四边形p0 p1 p2 p3 ，“line”绘制直线p4 p5、p6 p7、p8 p9、p10 p11长度分别为2、2、7、11，单位为cm。程序代码如下所示：defun c:piston() (setq cp(getpoint确定基点) (setq x0(car cp);取拾取点X坐标 (setq y0(cadr cp);取拾取点Y坐标 (setq x1(+ x0 1) (setq x2(+ x0 3) (se

36、tq x3(+ x0 9) (setq x4(+ x0 10) (setq x5(+ x0 14) (setq y1(+ y0 3.5) (setq y2(+ y0 7) (setq y3(- y0 2) (setq p0(list x0 y0) (setq p1(list x0 y2) (setq p2(list x4 y2) (setq p3(list x4 y0) (setq p4(list x1 y0) (setq p5(list x1 y3) (setq p6(list x3 y0) (setq p7(list x3 y3) (setq p8(list x2 y0) (setq p9

37、(list x2 y2) (setq p10(list x2 y1) (setq p11(list x5 y1) (commandplinep0 p1 p2 p3 p0) (commandlinep4 p5) (commandlinep6 p7) (commandlinep8 p9) (commandlinep10 p11) (princ) )3. 定量泵 定量泵是将机械能转换为液压能的能量转换装置。它为液压系统提供具有一定压力和流量的液压液，是液压系统的一个重要组成部分。图形符号如图4-3-1所示：图4-3-1 定量泵图形符号建立坐标、尺寸（可以自行比例确定）及基点，标定线如图4-3-2所示

38、：基点：x0,y0y1=y0-7y2=y0+5.5y3=y0+7y4=y0+17y5=y0-17图4-3-2 定量泵图形坐标图用到的命令有圆弧“circle”、多边形“polygon”和直线“line”或“pline”。P0为图形的插入点，用“circle”命令绘制圆心为p0的圆，直径为14cm，“polygon”命令绘制中心点为p5的等边三角形，中心点距圆心为5cm，“line”命令绘制直线p1 p2、p3 p4长度均为10cm。程序代码如下所示：(defun c:pomp01() (setq cp(getpoint确定基点) (setq x0(car cp);取拾取点X坐标 (setq y

39、0(cadr cp);取拾取点Y坐标 (setq y1(- y0 7) (setq y2(+ y0 5) (setq y3(+ y0 7) (setq y4(+ y0 17) (setq y5(- y0 17) (setq p0(list x0 y0) (setq p1(list x0 y3) (setq p2(list x0 y4) (setq p3(list x0 y1) (setq p4(list x0 y5) (setq p5(list x0 y2) (commandlinep1 p2) (commandlinep3 p4) (commandcirclep0 7) (commandpo

40、lygon 3 p52) (princ) )4. 二位二通换向阀 二位二通换向阀是换向阀的一种，是液压系统的控制元件，用来控制液压系统中流体的流动方向，其图形符号如图4-4-1所示：图4-4-1 二位二通换向阀图形符号建立坐标、尺寸（可以自行比例确定）及基点，标定线如图4-4-2所示：基点：x0,y0x1=x0+2.75 y1=y0+2x2=x0+3.5 y2=y0+5x3=x0+4.25 y3=y0+7x4=x0+7 y4=y0+9x5=x0+10.5 y5=y0-2x6=x0+14图4-4-2 二位二通换向阀图形坐标图用到的命令只有直线“line”或“pline”。P0是图形的插入点，用“

41、pline”绘制四边形p0p1p2p3和带箭头直线p14p16，“line”命令绘制直线p4 p5、p6 p7、p8 p11、p9 p10、p13 p12，长度分别为4、1.5、4、1.5、7，单位为cm。程序代码如下所示：(defun c:valve02() (setq cp(getpoint确定基点) (setq x0(car cp);取拾取点X坐标 (setq y0(cadr cp);取拾取点Y坐标 (setq x1(+ x0 2.75) (setq x2(+ x0 3.5) (setq x3(+ x0 4.25) (setq x4(+ x0 7) (setq x5(+ x0 10.5)

42、 (setq x6(+ x0 14) (setq y1(+ y0 2) (setq y2(+ y0 5) (setq y3(+ y0 7) (setq y4(+ y0 9) (setq y5(- y0 2) (setq p0(list x0 y0) (setq p1(list x0 y3) (setq p2(list x6 y3) (setq p3(list x6 y0) (setq p4(list x2 y4) (setq p5(list x2 y2) (setq p6(list x1 y2) (setq p7(list x3 y2) (setq p8(list x2 y1) (setq p

43、9(list x1 y1) (setq p10(list x3 y1) (setq p11(list x2 y5) (setq p12(list x4 y0) (setq p13(list x4 y3) (setq p14(list x5 y0) (setq p15(list x5 y2) (setq p16(list x5 y3) (commandplinep0 p1 p2 p3 p0) (commandlinep4 p5) (commandlinep8 p11) (commandlinep6 p7) (commandlinep9 p10) (commandlinep13 p12) (com

44、mandplinep14w 0 0 p15w 0.5 0 p16w 0 0) (princ) 5. 定差减压阀定差减压阀是减压阀的一种，和其它阀组成组合阀，用来保证节流阀进出口间的压差维持恒定。图形符号如图4-5-1所示：图4-5-1 定差减压阀图形符号建立坐标、尺寸（可以自行比例确定）及基点，标定线如图4-5-2所示：基点：x0,y0x1=x0+2.7y1=y0+2x2=x0+3.5y2=y0+3.5x3=x0+7y3=y0+7x4=x0-1.6y4=y0+9 x5=x0+4.3y5=y0-1.4x6=x0+8.6y6=y0-2y7=y0+8.4 图4-5-2 定差减压阀图形坐标图用到的命令

45、只有直线“linetype”和“pline”。P0是图形的插入点，用linetype s hidden命令来绘制虚线，“pline”绘制带有箭头的线段p4p8，长度为11cm和四边形p0p1p2p3,。程序代码如下所示： (defun c:valve01() (setq cp(getpoint确定基点) (setq x0(car cp);取拾取点X坐标 (setq y0(cadr cp);取拾取点Y坐标 (setq x1(+ x0 2.7) (setq x2(+ x0 3.5) (setq x3(+ x0 7) (setq x4(- x0 1.6) (setq x5(+ x0 4.3) (se

46、tq x6(+ x0 8.6) (setq y1(+ y0 2) (setq y2(+ y0 3.5) (setq y3(+ y0 7) (setq y4(+ y0 9) (setq y5(- y0 1.4) (setq y6(- y0 2) (setq y7(+ y0 8.4) (setq p0(list x0 y0) (setq p1(list x0 y3) (setq p2(list x3 y3) (setq p3(list x3 y0) (setq p4(list x2 y4) (setq p5(list x2 y3) (setq p6(list x2 y1) (setq p7(lis

47、t x2 y0) (setq p8(list x2 y6) (setq p9(list x1 y7) (setq p10(list x4 y7) (setq p11(list x4 y2) (setq p12(list x0 y2) (setq p13(list x5 y5) (setq p14(list x6 y5) (setq p15(list x6 y2) (setq p16(list x3 y2) (commandplinep0 p1 p2 p3 p0) (commandplinep4 w 0 0 p6w 0.5 0 p7w 0 0 p8 w0 0) (commandlinetype

48、s hidden ) (commandpline p5 p9 p10 p11 p12) (commandpline p7 p13 p14 p15 p16 ) (princ) )6单作用人力控制器图形符号如图4-6所示：图4-6 单作用人力控制器程序代码如下：(defun c:single() (setq p0(getpoint确定基点:) (setq p1(polar p0 0 8) (setq p2(polar p0 (* 0.5 pi) 4) (setq p3(polar p0 (* 0.5 pi) 8) (setq p4(polar p3 0 8) (setq p5(polar p2 p

49、i 10) (setq p6(polar p0 pi 10) (setq p7(polar p2 pi 7) (setq p8(polar p0 pi 3) (commandlinep7 p8) (commandlinep0 p2) (commandplinep4 p3 p2 p5 p6 p1) (princ) )7. 固定节流阀图形符号如图4-7所示：图4-7 固定节流阀程序代码如下：(defun c:fix() (setq p0(getpoint确定基点:) (setq p1(polar p0 0 14) (setq p2(polar p0 0 4) (setq p3(polar p0 0

50、 7) (setq p4(polar p0 0 10) (setq p5(polar p2 (-(* 0.5 pi) 4) (setq p6(polar p3 (-(* 0.5 pi) 2) (setq p7(polar p4 (-(* 0.5 pi) 4) (setq p8(polar p2 (* 0.5 pi) 4) (setq p9(polar p3 (* 0.5 pi) 2) (setq p10(polar p4 (* 0.5 pi) 4) (commandlinep0 p1) (commandarcp10 p9 p8) (commandarcp5 p6 p7) (princ) )8.

51、 可调节流阀图形符号如图4-8所示：图4-8 可调节流阀程序代码如下：(defun c:flexible() (setq p0(getpoint确定基点:) (setq p1(polar p0 0 14) (setq p2(polar p0 0 4) (setq p3(polar p0 0 7) (setq p4(polar p0 0 10) (setq p5(polar p2 (-(* 0.5 pi) 4) (setq p6(polar p3 (-(* 0.5 pi) 2) (setq p7(polar p4 (-(* 0.5 pi) 4) (setq p8(polar p2 (* 0.5

52、pi) 4) (setq p9(polar p3 (* 0.5 pi) 2) (setq p10(polar p4 (* 0.5 pi) 4) (setq p11(polar p0 0 5) (setq p12(polar p11 (-(* 0.5 pi) 6) (setq p13(polar p12(* 0.389 pi) 13) (setq p14(polar p12(* 0.389 pi) 15) (commandlinep0 p1) (commandarcp10 p9 p8) (commandarcp5 p6 p7) (command pline p12 w 0 0 P13 w 0.5

53、 0 p14 w 0 0 ) (princ) )9. 流量计图形符号如图4-9所示：图4-9 流量计程序代码如下：(defun c:flow() (setq p0(getpoint确定基点:) (setq p1(polar p0 0 8) (setq p2(polar p0 0 20) (setq p3(polar p0 0 28) (setq p4(polar p0 0 10) (setq p5(polar p0 0 14) (setq p6(polar p0 0 18) (setq p7(polar p4 (-(* 0.5 pi) 4) (setq p8(polar p5 (-(* 0.5

54、 pi) 2) (setq p9(polar p6 (-(* 0.5 pi) 4) (setq p10(polar p4 (* 0.5 pi) 4) (setq p11(polar p5 (* 0.5 pi) 2) (setq p12(polar p6 (* 0.5 pi) 4) (commandlinep0 p1) (commandlinep2 p3) (commandarcp12 p11 p10) (commandarcp7 p8 p9) (commandcirclep5 6) (princ) )10. 二位四通换向阀图形符号如图4-10所示：图4-10 二位四通换向阀程序代码如下：(de

55、fun c:valve04() (setq p0(getpoint确定基点:) (setq p1(polar p0 (* 0.5 pi) 7) (setq p2(polar p1 0 14) (setq p3(polar p2 (-(* 0.5 pi) 7) (setq p4(polar p0 0 2) (setq p5(polar p4 (* 0.5 pi) 5) (setq p6(polar p5 (* 0.5 pi) 2) (setq p7(polar p6 (* 0.5 pi) 2) (setq p8(polar p4 (-(* 0.5 pi) 2) (setq p9(polar p1

56、 0 5) (setq p10(polar p9 (-(* 0.5 pi) 5) (setq p11(polar p10 (-(* 0.5 pi) 2) (setq p12(polar P11 (-(* 0.5 pi) 2) (setq p13(polar p9 (* 0.5 pi) 2) (setq p14(polar p1 0 7) (setq p15(polar p14 (-(* 0.5 pi) 7) (setq p16(polar p0 0 9) (setq p17(polar p16 (atan 1.4) 6.6) (setq p18(polar p1 0 9) (setq p19(

57、polar p18 (-(atan 1.4) 6.6) (commandplinep0 p1 p2 p3 p0) (commandlinep14 p15) (commandplinep8 w 0 0 p5w 0.5 0 p6w 0 0 p7 w0 0) (commandplinep13w 0 0 p10w 0.5 0 p11w 0 0 P12w0 0) (commandplinep16w 0 0 p17w 0.5 0 p2w 0 0) (commandplinep18w 0 0 p19w 0.5 0 p3w 0 0) (princ) )11.变量泵图形符号如图4-11所示：图4-11 变量泵程

58、序代码如下：(defun c:pomp02() (setq p0(getpoint确定基点:) (setq p1(polar p0 (* 0.5 pi) 7) (setq p2(polar p1 (* 0.5 pi) 10) (setq p3(polar p0 (-(* 0.5 pi) 7) (setq p4(polar p3 (-(* 0.5 pi) 10) (setq p5(polar p0 (* 0.5 pi) 5) (setq p6(polar p0 (* 0.25 pi) 10) (setq p7(polar p0 (* 0.25 pi) 12) (setq p8(polar p0 (* 1.25 pi) 12) (commandlinep1 p2) (commandlinep3 p4) (commandcirclep0 7) (commandpolygon 3 p52) (commandpline p8 w 0 0 p6 w 0.5 0 p7 w 0 0) (princ) )12. 油雾器图形符号如图4-12所示：图4-12 油雾器程序代码如下：(defun c:oil() (setq p0(getpoint确定基点) (s