液压CAD系统介绍.doc

液压CAD系统说明 前 言计算机辅助设计(CAD)是利用计算机系统对产品进行设计、修改和输出的一种方法。这是随着计算机的发展而产生的一门技术，是一门多学科的综合性应用技术，已渗透到许多制造业领域。在机电行业，约有50%的大中型企业使用此技术。液压传动技术由于在机械传动中具有传动装置重量轻、结构紧凑、传动平稳、噪声小等优点，因而被广泛应用在各种机械设备中，液压传动中应用CAD技术也是当前液压技术发展的一种趋势。为了满足液压传动系统设计的需要，我们开发了一个液压传动CAD系统。本系统是应用软件开发及特征造型、三维造型等CAD技术，与流体力学、液压传动、液压元件技术相结合而开发的高度集成、具有良好界面的液压CAD系统，解决了机械和流体行业中传统的设计方法的效率低、质量差、工作量大的问题，弥补了国内外制造业在中文液压CAD上的空白，具有领先性及实用性。本系统根据国家标准的规定建立了完善的液压系统图形符号库。系统调用液压元件图块，用户指定所插入的位置、图块的放大的比例、角度，就可以将一个液压元件职能符号绘制好，用该系统绘制液压系统图，操作简单，效率高。本系统还具有设计计算和BOM功能模块，系统可以进行液压基本理论和液压系统元件参数设计计算，液压工程手册查询、液压系统工程图绘制等功能。本液压CAD系统由中原工学院承担开发。开发者经过几年的摸索，开发出一套适合国内企业的、功能完善的液压CAD系统，并在企业得到了实际验证，取得了良好的效果。系统中可能会有一些疏漏和不妥的地方，恳请各位专家和广大用户提出宝贵意见。中文摘要计算机辅助设计(CAD)就是使用计算机系统辅助进行产品设计、开发。CAD具有许多传统设计无法比拟的优点。它大大地提高了绘图效率，而且还能进行一些必要的设计计算，这大大方便了设计者。目前，CAD已被应用到许多不同的行业。这篇论文着重介绍了在AutoCAD2000的基础上二次开发出来的液压传动CAD系统。本系统借助AutoCAD2000的二次开发系统和其提供的下拉菜单、图像显示菜单等控制模块程序，建立了一个液压元件图形符号库，从而解决了设计人员在绘制液压系统图时存在大工作量、重复性劳动及图形不规范等问题，大大提高了绘图效率。同时，系统利用AutoLISP程序来进行设计计算，所有计算操作都在对话框中进行，操作方便快捷，大大缩短了设计周期。而且系统还具有文档文件处理功能，用户在设计中可以把计算文档文件存入系统，以备查看。液压CAD系统具有交互性好、使用方便及扩展性好等优点，而且随着我们开发工作的进一步深入，该系统将会更加完善，功能更强大。那时将会更方便液压系统设计人员的工作。关键词：液压CAD系统、液压元件图形符号、AutoLISPAbstractComputer-aided design (CAD) using the computer system for designing. has the advantage that many traditional design cant compare to. It increases consumedly painting efficiency, and we can do some calculation using it. This is very convenient to the designer .Today the CAD has already applied to many different professions.This thesis introduces the foundation of the CAD system for hydraulic systems on the base of AutoCAD2000. This system uses the second development systems and pull down menu and icon menu in AutoCAD, establishes a warehouse of hydraulic parts marks, thereby resolved the problem that the designers must do many repetition jobs, and they draw many informal diagrams , increases painting efficiency consumedly. At the same time, the system makes use of the procedure of AutoLISP to process the design calculation. All calculations the operations are proceeding in dialog box, this is convenient and fast, shortened to design the period consumedly. And the system still has function of text file handle, customer can deposit the text file into the compute. The system has the feature such as convenient using and good developing character. Along with the development of our job, the system will be more perfect and its function will be stronger. At that time it will be more convenient to the designing of hydraulic system.Key words: CAD system for hydraulic systems; warehouse of hydraulic parts marks; Autolisp 引 言液压技术从18世纪至今，经过两百多年的发展，已经成为机械行业一项最为重要的技术。液压技术应用相当广泛，军用装备、工程机械、机床设备、汽车、飞机等机械设备中都要用到液压系统。液压系统设计中设计人员主要需要完成以下几个方面的工作： 明确工况要求，进行工况分析； 确定液压系统的主要参数； 选择液压元件； 验算液压系统的性能； 绘制系统图，编写技术文件。其中最核心的工作就是确定系统参数、选择液压元件、绘制系统原理图和编写技术文件三个方面的工作。本液压CAD系统就在这三个方面实现计算机辅助设计（CAD） CAD (计算机辅助设计)技术产生于本世纪50年代后期发达国家的航空和军事工业中，随着计算机软硬件技术和计算机图形学技术的发展而迅速成长起来。1989年美国国家工程科学院将CAD技术评为当代(1964-1989)十项最杰出的工程技术成就之一。三十几年来CAD技术和系统有了飞速的发展，CAD的应用迅速普及。在工业发达国家，CAD技术的应用已迅速从军事工业向民用工业扩展，由大型企业向中小企业推广，由高技术领域的应用向日用家电、轻工产品的设计和制造中普及。而且这一技术正在从发达国家“流向”发展中国家。 CAD在机械制造行业的应用最早，也最为广泛。采用CAD技术进行产品设计不但可以使设计人员“甩掉图板”，更新传统的设计思想，实现设计自动化，降低产品的成本，提高企业及其产品在市场上的竞争能力；还可以使企业由原来的串行式作业转变为并行作业，建立一种全新的设计和生产技术管理体制，缩短产品的开发周期，提高劳动生产率。如今世界各大航空、航天及汽车等制造业巨头不但广泛采用CAD技术进行产品设计，而且投入大量的人力物力及资金进行CAD软件的开发，以保持自己技术上的领先地位和国际市场上的优势。液压CAD系统是在AutoCAD2000的基础上二次开发出来的。主要开发语言是AutoLISP，通过AutoLISP语言驱动对话框，用户可以在对话框中输入数据进行计算，具有良好的可操作性。系统原理图绘制部分，我们把各种液压元件的职能符号都创建成块并保存到系统中，建成液压元件符号库，设计人员绘制系统图时直接调用块进行插入，元件符号的大小和摆放方向都可以通过在命令行输入比例和旋转角度来控制。软件提供了一个标准件库，设计人员可以根据设计计算结果在这个库中选择合适的标准液压元件。为了设计人员编制技术文件的需要，我们还让液压CAD系统具有了文档文件处理功能，计算结果和液压元件选择的情况都可以生成文档保存起来，需要查看时点击“查看文档文件”按钮来查看。如果用户在使用液压CAD进行设计的过程中需要记下一些数据或者其它信息，可以点击“记事本”按钮，打开记事本进行记录。液压CAD系统的开发对于减轻液压系统设计人员的劳动量，提高工作效率很有帮助，本系统将计算引入CAD界面中，是一种尝试。软件还有待以后继续开发，升级，在这里我们恳请各位专家提出宝贵的意见，以便我们改进。一开发环境与开发工具、开发环境本软件在Windows2000专业版的环境下开发，同时具有良好的适应性，可以在Windows98、Windows me和Windows2000的操作系统中使用。、开发工具(1) AutoCAD2000简介AutoCAD是Autodesk公司的主导产品，AutoCAD是当今最流行的二维绘图软件，它在二维绘图领域拥有广泛的用户群。AutoCAD有强大的二维功能，如绘图、编辑、剖面线和图案绘制、尺寸标注以及二次开发等功能，同时有部分三维功能。AutoCAD提供AutoLISP、ADS、ARX作为二次开发的工具。(2) AutoLISP语言编程AutoLISP语言是一种AutoCAD直接提供的编程语言，这种语言具有如下优势：语法简单不用特殊的变量定义，非常具有弹性语法非常简单；函数功能强大除了一般性的功能函数之外，还有不少控制配合AutoCAD的特殊函数，而且可以直接调用AutoCAD的命令，这些使得它的函数功能非常强大；编程环境不挑剔一般的文本编辑软件都可以编程，比如记事本、Visual LISP等；高级语言AutoLISP是一种高级语言，绝大多数数据类型及结构细节已经由解释器替用户处理了，在应用程序中用户可省去它们的定义。由于AutoLISP语言具有以上优点，所以我选择了AutoLISP作为液压CAD系统的开发语言。(3) Visual LISP介绍Visual LISP是AutoCAD提供的一个用来帮助使用AutoLISP编程的集成开发环境。启动AutoCAD之后，点击“工具”“Visual LISP”“Visual LISP编辑器”即可进入。Visual LISP编辑器可以进行编程、程序调试、错误检查等操作。程序编制在文本编辑器中进行，在文本编辑器中输入文本后，Visual LISP会判断所输入的文本是否一个AutoLISP内部函数、数字、字符串或者其它已知的语言元素，并用每一种元素自己的颜色显示这些文本，这样可以帮助开发人员检查错误。Visual LISP的一个主要优势就是他提供了强大的程序调试功能。这个功能允许在程序运行时监视程序的运行状态，它可以实现如下条是功能：跟踪程序运行时的变量值，检验函数调用里用到的参数值，中断程序运行。用户可以通过点击“调试”工具栏来进行调试。同时，Visual LISP还提供了一些特征用来在运行程序之前检查程序错误。在AutoLISP中最常见的错误就是括号不匹配，通过“编辑”“括号匹配”命令可以帮助检查不匹配的括号。如果要检查其它的语法错误，用户可以点击“工具”“检查编辑器中的文字”，如果检查到了语法错误，Visual LISP会在一个输出窗口显示出错信息。Visual LISP是一个功能强大的编程工具，在液压CAD系统的开发过程中我用了Visual LISP来进行编程，取得了很好的效果。二 总体方案设计1、液压技术简介液压传动技术是机械行业一项极为重要的技术，液压传动具有传动装置重量轻、结构紧凑、传动平稳、噪声小、便于实现超载保护和自动化等优点，所以被广泛地应用在各种机械设备上。液压传动的主要工作原理是：利用有压力的油液作为传递动力的工作介质，将机械能转换为油液的压力能，压力油通过油管输送到液压执行元件，比如液压缸，其压力能有转换为机械能，从而实现传动。当前，液压技术正朝着迅速、高压、大功率、高效的方向发展，在液压传动系统设计中，计算机辅助设计(CAD)也是一个主要的发展方向。、液压传动系统设计的主要内容设计人员在进行液压传动系统设计时，主要需要按步骤完成以下六个方面的工作。1 明确设计要求，进行工况分析；2 初定液压系统的主要参数；3 拟定液压系统原理图；4 计算和选择液压元件；5 估算液压系统性能；6 绘制工作图和编写技术文件。其中最核心的工作就是确定系统参数、选择液压元件、绘制系统原理图和编写技术文件三个方面的工作。系统主要参数是根据工况要求，经过计算而确定的，其中主要包括：液压缸工作压力和主要尺寸以及流量的计算，液压马达的流量、排量的计算，液压泵的最大工作压力、流量计算等几个部分。选择液压元件就是根据参数计算的结果在相应的产品目录中选择合适的液压元件，主要包括液压泵的选择、液压控制阀的选择、管道的选择、辅助元件的选择等等。液压系统原理图的绘制就是用国家标准规定的液压系统图形符号来表达液压传动系统的工作原理和主要运行过程。最后，设计人员还须根据设计资料编制正式的技术文件。、液压CAD系统的主要功能和总体方案 考虑到用户在液压传动系统设计中的实际需要，经过调研，我们最后确定，是系统主要具有以下四大功能：液压系统原理图绘制；液压系统原理及设计计算、标准件选取和文档文件处理，并且继承了AutoCAD的文件操作功能和图形修改功能。为了实现这些功能，我们设置了六大功能模块，系统总体结构如下所示：液压CAD文件模块主要继承了AutoCAD的功能，对系统文件进行管理，如打开文件、保存文件等。绘图模块一方面基本保留原有的绘图命令，只是去掉了所有的三维绘图命令，另一方面我们开发了图框与标题栏绘制、液压系统符号的绘制、电磁铁动作顺序表的绘制等快速绘图命令以提高工作效率。图形修改和文件模块一样，继承了AutoCAD的所有二维操作功能与命令。计算模块又分为两个部分：理论计算和参数设计计算，这个模块通过对话框来进行操作，具有很好的人机交互性。标准件选取模块建立了一个液压标准元件库，设计人员可以根据设计计算的参数值从库内选择合适的标准元件，并且可以生成文档文件，以便查看。而且用户还可以根据自己的需要来扩充标准元件库，本模块具有添加元件的功能，用户可以点击“添加元件”按钮来进行添加。文档文件处理模块具有保存设计文档文件，查看设计文档文件和打开记事本等功能，这使得设计人员可以很方便地保存和查看设计的资料，也为编制正式的技术文件提供了方便。以上几个功能模块形成了一个有机的统一体，从设计计算和标准元件选择对话框中可以直接生成和查看设计文档，随时可以查看设计信息，使设计变得十分方便。对于各个命令的调用，我们坚持方便用户的原则，提供了丰富的菜单来调用命令，包括下拉菜单、工具条、图标菜单，这些使得系统使用起来很方便，有助于提高工作效率。 系统界面一此部分包含：液压缸计算、液压泵计算、液压马达计算、油管计算、油箱等辅助元件的计算。 系统界面二此部分包含：液压系统图标准、图框及明细表绘制，各种液压元件（动力元件、执行元件、控制元件、辅助元件）的图库调用，工程图纸的绘制及输出、格式转换、网络发布等功能。 系统界面三此部分包含： 各种液压缸、液压泵、液压马达、压力阀、流量阀、方向阀、辅助元件的标准件库，用户可以方便地选择调用。 系统界面四此部分包含：液压缸、液压马达、液压控制阀、辅助元件的工程手册查询，可以查出型号及参数，并生成文档及材料明细表（BOM），功其它部门使用。 系统界面五此部分包含：流体力学中各种公式的计算（如帕斯卡原理、动量方程、伯奴利方程及油路损失计算等）三系统详细介绍 、液压系统原理图绘制 (1)液压图形符号库的建立在液压传动系统设计中，设计人员需要根据设备功能要求绘制系统原理图，此图是由国家标准规定的液压图形符号构成的，这些图形符号的绘制不存在随意性，整个原理图的设计必须遵循统一的原则，这就为计算机软件设计提供了方便。我们的方法是将液压图形符号逐个做成“块”保存在系统中，这样，设计人员在绘制系统原理图的时候就只需要调用块进行“插入”操作即可，不用再进行简单而重复性的劳动，大大提高工作效率。块是可组合起来形成单个对象（或称为块定义）的对象集合。块具有唯一性、可重复性和整体性的特点，可以在图形中对块进行插入、比例缩放和旋转等操作，还可以将块分解为组成对象并且修改这些对象。要进行块操作，首先必须创建块，如果所创建的块只需在当前文件中使用，那么可以通过点击“绘图/块/创建”来进行，本操作所创建的块只能在当前文件中使用。如果用户要在别的文件（非当前文件）中使用当前创建的块，那么就要用到“写块”命令，液压CAD系统中的液压图形符号库就是用写块命令创建并保存来的。写块操作只能在命令行输入“wblock”然后在弹出的“写块”对话框中进行。液压系统图形符号是由国家标准规定的，所以在建立液压图形符号库的时候必须按照国家标准来进行，我们的所有液压图形符号都是根据GB786-76的规定来绘制的。下面以单向变量液压泵的图形符号的建立为例，阐述液压图形符号库的建立过程。首先在AutoCAD2000中建立一个名为“YYB”的图层，设置好线宽、颜色和线型，液压泵线宽设成0.5毫米，表示管路的地方用缺省线宽表示。绘制出单向变量液压泵的符号图，如下图所示：图1 单向变量液压泵 为了图库建好以后插入块时方便，绘制单向变数液压泵的时候须把图形大小定成一个合适的值，我把圆的直径定成30mm，这样，到调用块的时候，用1:1的比例就比较合适，如果不注意这一点，图块大小定得不合适，那么用户在调用块的时候，需要不断调整插入比例，用起来会很不方便。图形符号绘制好了以后，在命令行输入 “Wblock”命令，会弹出“写块”对话框，此时即可进行写块操作。为了图形符号库建成以后，调用符号方便，我把插入点选在了液压泵连接管路的断点处，这样到调用的时候，可以很方便的与管路对接。写块操作完成以后，把图块保存到yeyabeng文件夹中，写块对话框操作如下图所示： 图2 写块操作图写块操作完成并保存到指定的位置之后，创建块的操作就完成了。此时就可以绘制其它元件符号，并创建块，也保存到指定的文件夹中，我把每一类液压元件分别绘制在不同的图层上，共分了7类元件：液压泵、液压缸、液压马达、液压控制阀、控制方式、管路与连接、液压辅助元件，之所以这样做，是因为块在插入图形文件之后，会把层属性带入图形文件之中，设计人员对图形进行编辑就会很方便，一个图层就是一类元件，对图层属性进行编辑就是对这一类元件进行编辑。保存也是按照这几大类型来进行的，这主要是为了管理文件方便。所有图块文件都创建好并且保存到指定的文件夹里面以后，液压系统元件符号库就创建好了。(2)图块幻灯片的制作AutoCAD中的幻灯片文件可以迅速显示不同图形的不同视图。幻灯片文件是 AutoCAD 图形的快照，它的文件扩展名为 “.sld”,它包含图形在某个时刻的图片，而不是图形文件。不能将幻灯文件输入到当前图形，也不能编辑或打印幻灯片，而只能查看。可以单独显示幻灯片或依次显示（使用脚本时），也可以将它用于自定义菜单上。例如，若创建脚本以便插入包含常用机械零件的块，可设计一个菜单，显示每个零件的幻灯片。从菜单中选择幻灯片时，AutoCAD 将把块插入到图形中。液压CAD 系统创建图块文件幻灯片库就是为了在图标菜单中显示其图像，从而使设计人员直观而快捷地选择所需要调用的液压系统元件符号。下面仍然以单向变量液压泵为例来阐述图块幻灯片文件的制作过程。从液压元件符号库中打开上一步骤创建好的图块文件，为了使制作好的幻灯片文件将来在图标菜单中尽量显示得清楚一些，打开图块文件之后需要使图形充满整个屏幕，如下页图3所示。此时在命令行输入“mslide”命令，就会弹出“创建幻灯文件对话框”，然后选择保存文件的位置，并指定文件名进行保存，为了以后编制程序方便，我把幻灯文件的名称就制定为图块文件的文件名，这也是AutoCAD系统默认的文件名，这项操作如下页图4所示。单向变量液压泵的幻灯文件创建好了之后，就可以打开其它图块文件进行幻灯文件的创建，创建过程和这一次一样，只是指定的文件名和保存的位置不一样，文件同样是分成7类保存在不同的文件夹当中。图3 幻灯片文件创建图4 创建幻灯文件对话框(3) 编制自动绘制电磁铁动作顺序表的程序电磁铁是液压系统中最常用的阀类元件控制方式之一，液压系统原理图中需要绘制一个电磁铁动作顺序表来表示其得、失电情况，只项工作如果能够通过程序来自动完成的话，可以提高工作效率，液压CAD系统提供了一个自动绘制电磁铁动作顺序表的功能。设计人员在绘制电磁铁动作顺序表的时候，只需点击工具栏上的菜单项，然后按照命令行里的提示输入表格对角点、电磁铁数目、工作段数目和文字栏宽度，系统就会绘制好电磁铁动作顺序表，其中表格对角点的坐标可以在命令行输入，也可以用鼠标在屏幕上指定。这样会址就不必一条条线去画，节约了工作时间。该功能的操作示例如图5和图6所示。图5 自动绘制的电磁铁动作顺序表示例图6 绘制电磁铁动作顺序表的命令提示 (4) 自动绘制图框和标题栏图框和标题栏的绘制是每一张图纸都必须进行的工作，如果这两项工作能自动进行的话，也会大大提高工作效率，虽然在布局中可以进行模板选择，可是如果在绘图的时候点击菜单项即可一步到位，不但提高效率，而且会使得绘图时有大局观，从而使得图纸的布置合理化。液压CAD系统提供了这个功能，按照图纸标准要求，分别编制了绘制横向装订式、竖向装订式、横向不装订式和竖向不装订式的A0A5图纸的图框。并且把标准的工具栏制作成块文件保存起来，在绘制图框的同时把工具栏插入，这样就实现了图框和标题栏绘制的“一步到位”。这项功能的执行示例如图7所示。图7 自动绘制图框示例由于篇幅原因，就只列出这三种图纸的绘制程序了，其它的程序段也和这三段程序大体相同，只是绘制点的坐标不一样。由于程序中需要调用AutoCAD命令，为了在命令行中不出现AutoCAD的反馈信息，而且为了在调用Pline命令的时候不被自动捕捉影响，所以在程序开头一段把系统变量osmode 和 cmdecho设为0，而在程序最后，为了使系统设置返回到命令调用之前的状态，又把这两个系统变量设成了原来的值。液压元件图形符号库、幻灯片文件库和几个LISP程序一起构成了绘制液压系统原理图部分，这一部分命令的菜单定制将在后面论述菜单和界面设计的一章中详细阐述。2、液压技术基本理论计算在液压传动设计中需要用到液压技术基本理论的计算，我们把这一部分计算放到了液压CAD系统中，设计人员只需要在对话框中输入已知参数并且点击“计算”按钮即可得出计算结果。而且用户在得出计算结果之后还可以点击“生成文档文件”按钮来生成计算文档文件，并把文档文件以指定的文件名保存到指定的位置，以备日后查询。如果在计算时需要查看以前的计算文档，可以通过点击“查看文档文件”按钮，在弹出的“选择文档文件文件”对话框中选择文件并且打开即可看到计算文档。而且我们还设置了帮助按钮进行实时帮助，用户如果对操作不熟悉，只要点击“帮助”按钮即可看到帮助信息，帮助信息会知道用户进行计算操作。如果用户的已知参数输入有误，点击“计算”按钮时会弹出警告对话框，告知用户输入出现了错误，这时候设计人员可以点击“重新输入”按钮，把各已知参数编辑框置零，重新输入正确的参数后再进行计算。对话框使用界面的设计分为两个部分：外观与功能。外观定义对话框有哪些组件，以及这些组件如何布局。功能则定义每个组件的内容、动作、要返回哪个数据、对其他组件有何影响。AutoLISP无法像VB语言那样在屏幕上以拖曳组件的方式组织对话框外观，而是以对话框控制语言(DCL)定义在.dcl文件内。然后在AutoLISP程序内打开.dcl文件，与用户对话。一个.dcl文件可以定义多个对话框。DCL程序所定义的对话框包含下列组件：标签、按钮、单选按钮、复选框、编辑框、列表框、滚动条、图像框、图像按钮、错误信息。也可以将多个组件组成一个区，以方便布局，使对话框外观更加合理和美观。对话框的外观定义好了之后，就需要编制相对应的AutoLISP程序来驱动对话框，也就是进行功能定义，控制各个对话框组件。.dcl文件必须和AutoLISP程序配套使用，否则对话框定义出来不能和用户对话，是没有任何意义的。液压技术基本理论的计算部分设置了以下几个计算：帕斯卡原理计算、连续性方程计算、伯努利方程计算和压力损失计算。下面详细阐述各个计算的设计情况。(1) 帕斯卡原理计算帕斯卡原理又成为静压传递原理，是液体静力学的一个重要内容，指的是密封容器内的静止液体，当边界上的压力P0发生变化时，例如增加P，则容器内任意一点的压力将增加同一数值P。也就是说，在密封容器内施加于静止液体任一点的压力将以等值传到液体各点。根据帕斯卡原理，液压传动不仅可以进行力的传递，而且还能将力放大和改变力的方向。帕斯卡原理的计算公式：F1=用户点击帕斯卡原理计算的菜单项或者在命令行输入“pskyl”之后，系统会弹出帕斯卡原理计算的对话框，如图所示。图8 帕斯卡原理计算对话框在对话框中我们设置了这样一些组件：1、标签，标签组件用来显示该计算的标题：帕斯卡远离计算，它让设计人员对自己进行的操作又一个明确的概念。2、公式栏，把计算公式在这一栏中列出来。3、已知参数编辑框，这部分组件形成一个区，让用户在编辑框中输入已知参数。4、按钮，包括计算、重新输入、生成文档、查看文档、帮助和退出，一共六个按钮，这些按钮用来实现各自的功能。5、计算结果编辑框，这个组件是用来输出计算结果的。上面的DCL程序只定义了对话框的外形，下一步就用LISP程序来驱动对话框，实现对话框的计算功能。帕斯卡原理的对话框主驱动程序如下：(defun c:pskyl() (if ( (setq index3_1 (load_dialog yeyacad/dcls/pskyl.dcl) 0) (progn (if (new_dialog pskyl index3_1) (progn (set_tile area1 ) (set_tile area2 ) (set_tile f1 ) (set_tile f2 ) (mode_tile area1 2) (action_tile jisuan (jisuan3) (action_tile again (again3) (action_tile bangzhu (bangzhu3) (action_tile shengcheng (shengcheng3) (action_tile chakan (chakan3) (start_dialog) (unload_dialog index3_1) ) (alert 不能正常显示对话框。) ) ) (alert 不能载入DCL文件。) )主程序只是在整体上定义了对话框的功能，具体到各个组件，其功能还必须由子程序来定义。计算部分的程序： (defun jisuan3() (setq a1 (atof (get_tile area1) (setq l1 (atof (get_tile f1) (setq a2 (atof (get_tile area2) (if (or (= a1 0) (= l1 0) ( (setq index3_2 (load_dialog yeyacad/dcls/jinggao1.dcl) 0) (progn (if (new_dialog jinggao1 index3_2) (progn (start_dialog) (unload_dialog index3_2) ) (alert 不能正常显示对话框。) ) ) (alert 不能载入DCL文件。) ) ) (progn (setq l2 (rtos (* (/ a2 a1) l1) 2 2) (set_tile f2 l2) ) )重新输入按钮的驱动程序：(defun again3() (set_tile area1 ) (set_tile area2 ) (set_tile f1 ) (set_tile f2 ) (mode_tile area1 2)生成文档文件按钮的驱动程序：(defun shengcheng3()(setq a1 (atof (get_tile area1)(setq a2 (atof (get_tile area2)(setq l2 (atof (get_tile f2) (setq l1 (atof (get_tile f1)(if (or (= a2 0) (= a1 0) (= l2 0) (= l1 0) (progn (if ( (setq index3_3 (load_dialog yeyacad/dcls/jinggao2.dcl) 0) (progn (if (new_dialog jinggao2 index3_3) (progn (start_dialog) (unload_dialog index3_3) ) (alert 不能正常显示对话框。) ) ) (alert 不能载入DCL文件。) ) ) (progn (if (/= (setq wen (getfiled 请输入或选择文档文件名 txt 1) nil) (progn (setq dang (open wen a) (setq ch1 n帕斯卡原理理论计算文档文件:) (princ ch1 dang) (setq ch2 nn1.已知参数：) (princ ch2 dang) (setq ch3 nn(1)截面积 A1 = ) (princ ch3 dang) (setq ch4 (get_tile area1) (princ ch4 dang) (setq ch5 平方米) (princ ch5 dang) (setq ch6 n(2)作用力 F1 = ) (princ ch6 dang) (setq ch7 (get_tile f1) (princ ch7 dang) (setq ch8 牛顿) (princ ch8 dang) (setq ch9 n(3)截面积 A2 = ) (princ ch9 dang) (setq c10 (get_tile area2) (princ c10 dang) (setq c11 平方米) (princ c11 dang) (setq c12 nn2.计算结果：) (princ c12 dang) (setq c13 nn作用力 F2 = ) (princ c13 dang) (setq c14 (get_tile f2) (princ c14 dang) (setq c15 牛顿) (princ c15 dang) (setq c16 n) (princ c16 dang) (close dang) ) ) )查看文档文件按钮的驱动程序：(defun chakan3() (if ( (setq index3_4 (load_dialog yeyacad/dcls/chakan.dcl) 0) (progn (if (new_dialog chakan index3_4) (progn (if (= wen nil) (progn (if (/= (setq dakai3 (getfiled 请输入或选择文档文件名 txt 4) nil) (progn (start_list neirong) (if (= (setq dang3_1 (open dakai3 r) nil) (alert 文件不存在或不能打开。) (progn (while (setq str (read-line dang3_1) (add_list str) ) (close dang3_1) ) ) (end_list) (set_tile filename dakai3) ) ) (action_tile qita (qita3) (start_dialog) (unload_dialog index3_4) ) (progn (if (/= (setq dakai3 (getfiled 请输入或选择文档文件名 wen txt 4) nil) (progn (start_list neirong) (if (= (setq dang3_1 (open dakai3 r) nil) (alert 文件不存在或不能打开。) (progn (while (setq str (read-line dang3_1) (add_list str) ) (close dang3_1) ) ) (end_list) (set_tile filename dakai3) ) ) (action_tile qita (qita3) (start_dialog) (unload_dialog index3_4) ) ) ) (alert 不能正常显示对话框。) ) ) (alert 不能载入DCL文件。) )帮助按钮驱动程序：(defun bangzhu3() (if ( (setq index3_5 (load_dialog yeyacad/dcls/bangzhu1.dcl) 0) (progn (if (new_dialog bangzhu1 index3_5) (progn (start_dialog) (unload_dialog index3_5) ) (alert 不能正常显示对话框。) ) ) (alert 不能载入DCL文件。) )在驱动程序中，会调用到其它的对话框，比如帮助对话框，警告对话框和查看文档文件对话框等，这些对话框都需要用DCL语言来定义。帮助对话框的定义程序：bangzhu1:dialog label=液压CAD帮助; spacer; :text label=点击“重新输入”按钮，各输入框将置零。; :text label=点击“生成文档文件”按钮，将生成计算文文档。; :text label=点击“查看文档文件”按钮，可以查看计算文档。; spacer; ok_only;警告对话框的定义程序：jinggao1:dialog label=液压CAD信息; spacer; :text label=各参数均应为正整数或正实数，不能为零、负数、空或字符串。; spacer; ok_only;用户在对话框中弹出以后即可进行计算操作，在已知参数去输入参数，在点击“计算”按钮及可得出计算结果。再点击