CAD二次开发说明书

1一序言1、参数化绘图及二次开发参数化绘图就是通过设计参数来驱动生成所需的图形。一般通过编程实现。因此要求设计者具备编程能力，存在工作量大，修改图形不方便等问题。但它应用灵活，适应面广。对某些应用参数化设计系统解决不了的问题，通常可采用参数化绘图的方法加以解决，例如在开发某些机器的CAD系统时，要求设计、计算、查表、绘图一体化时，显然适合采用参数化绘图的方法加以解决。通过编程实现参数化绘图，其程序设计的总体思路是将设计计算的关系式融入程序中，在程序的控制下，执行计算及交互输入主要参数，程序应能对参数输入进行有效性检验，根据用户的交互输入完成视图的绘制。AUTOCAD作为一种具有高度开放结构的CAD平台软件，它提供了强大的二次开发环境。它允许用户和开发者采用高级编程语言对其进行扩充和修改，即二次开发，能最大限度地满足用户的特殊要求。带有参数化设计功能的CAD系统固然在设计绘图上有某些显著特点，如不需要编程就可实现图形的参数化，修改图形及其方便，工作量小，且可由草图生成正式图。然而，当零件结构非常复杂及形状极不规则时，参数化设计就显得力不从心。为了区别于参数化设计，把应用高级语言编程使具体图形实现参数化称为参数化绘图（PARAMERICDRAWING），在参数化绘图中，图中的部分尺寸（或全部尺寸）被事项定义为参数尺寸，当交互输入参数值后，即可画出图形。2、二次开发工具介绍（1）AUTOLISPAUTOLISP的全名是LISTPROCESSINGLANGUAGE，她出现于1985年推出的AUTOCADR2。18中，是一种嵌入在AUTOCAD内部的编程语言，是LISP原版的一个子集，她一直是低版本AUTOCAD的首选编程语言。它是一种表处理语言，是被解释执行的，任何一个语句键入后就能马上执行，它对于交互式的程序开发非常方便。其缺点是继承了LISP语言的编程规则而导致繁多的括号。（2）ADSADS的全名是AUTOCADDEVELOPMENTSYSTEM，它是AUTOCAD的C语言开发系统，ADS本质上是一组可以用C语言编写AUTOCAD应用程序的头文件和目标库，它直接利用用户熟悉的各种流行的C语言编译器，将应用程序编译成可执行的文件在AUTOCAD环境下运行，这种可以在AUTOCAD环境中直接运行的可执行文件叫做ADS应用程序。ADS由于其速度快，又采用结构化的编程体系，因而很适合于高强度的数据处理，如二次开发的机械设计CAD、工程分析CAD、建筑结构CAD、土木工程CAD、化学工程CAD、电气工程CAD等。2（3）OBJECTARXOBJECTARX是一种崭新的开发AUTOCAD应用程序的工具，她以C为编程语言，采用先进的面向对象的编程原理，提供可与AUTOCAD直接交互的开发环境，能使用户方便快捷地开发出高效简洁的AUTOCAD应用程序。OBJECTARX并没有包含在AUTOCAD中，可在AUTODESK公司网站中去下载，其最新版本是OBJECTARXFORAUTOCAD2000，它能够对AUTOCAD的所有事务进行完整的、先进的、面向对象的设计与开发，并且开发的应用程序速度更快、集成度更高、稳定性更强。（4）VISUALLISPVISUALLISP已经被完整地集成到AUTOCAD2000中，她为开发者提供了崭新的、增强的集成开发环境，一改过去在AUTOCAD中内嵌ATUOLISP运行引擎的机制，这样开发者可以直接使用AUTOCAD中的对象和反应器，进行更底层的开发。其特点为自身是AUTOCAD2000中默认的代码编辑工具；用它开发AUTOLISP程序的时间被大大地缩短，原始代码能被保密，以防盗版和被更改；能帮助大家使用ACTIVEX对象及其事件；使用了流行的有色代码编辑器和完善的调试工具，使大家很容易创建和分析LISP程序的运行情况。在VISUALLISP中新增了一些函数如基于AUTOLISP的ACTIVEX/COM自动化操作接口；用于执行基于AUTOCAD内部事件的LISP程序的对象反应器；新增了能够对操作系统文件进行操作的函数。（5）VBAVBA即MCROSOFTOFFICE中的VISUALBASICFORAPPLICATIONS，它被集成到AUTOCAD2000中。VBA为开发者提供了一种新的选择，也为用户访问AUTOCAD2000中丰富的技术框架打开一条新的通道。VBA和AUTOCAD2000中强大的ACTIVEX自动化对象模型的结合，代表了一种新型的定制AUTOCAD的模式构架。通过VBA，我们可以操作AUTOCAD，控制ACTIVEX和其它一些应用程序。在以上开发工具中，作者采用了VISUALLISP语言作为开发工具，因为VISUALLISP语言具有以下优势（1）VISUALLISP语言是AUTOCAD的内嵌开发工具。是LISP语言和AUTOCAD有机结合的产物，同时也是AUTOCAD软件包的一个重要组成部分。用户可以通过AUTOLISP直接调用AUTOCAD的命令，也可以对AUTOCAD命令进行扩展，还可以实现对AUTOCAD当前图形直接访问和修改。（2）VISUALLISP语言语法格式简单易学，其与AUTOCAD练习函数COMMAND可直接调用AUTOCAD命令，命令格式与绘图顺序和格式完全一致，对于经常使用AUTOCAD的用户极为方便。（3）编辑环境实用、方便。绘图环境提供了控制台，在控制台的命令行作3AUTOLISP命令，可以直接看到结果；应用彩色字符源代码检查，可以在编辑窗中同时显示AUTOLISP和DCL源程序的命令，注释，提示等以各种颜色区分表示出来，易于检查；VISUALLISP程序自动缩进和标准格式化；括号匹配检查；使用VISUALLISP编程可避免LISP程序繁锁的调试过程，提高了编程效率。4二螺栓标准件介绍二、标准件螺栓介绍六角螺栓是在螺栓种类里使用最频繁的一种，它所拥有的外螺纹的主要功能是与螺母配合。利用这种螺纹连接方法，使两个零件合为一体。C级的六角螺栓主要使用在表面比较粗糙，对精度要求不高的钢铁结构机械,设备上。A级和B级的六角螺栓主要使用在表面光洁，对精度要求高的机械，设备上。牙纹一般分为粗牙与细牙两种，粗牙螺纹的螺栓较为被普遍使用。图21六角头螺栓图22六角头螺栓M20型号5表21螺栓型号及参数表螺纹规格DM5M6M8M10M12M14M16M18M20M22S公称K（公称）R（最小）E（最小）A（最大）835028624104025109313530414241664041764518750619953218806228624100626262711506296753012508337534140837375BL125125L200L2001618222826323036344053384457424861465265505669L公称25503060408045100551206014065160801808020090220全螺纹长度L10501260168020100251203014035160351804020045220100MM长的质量0013002000370063009001270172022302820359表21三常用LISP函数高级语言（如BASIC、FORTRAN、C等）的语法均采用中缀式，即运算符在变量的中间，如ABC,而LISP语言采用前缀式，即运算符在前面，变量在后面如（BC）,这是LISP语言和其他高级语言最大的不同。1、/函数（1）函数格式（参数1参数2。）举例（12）返回3（2）函数格式（参数1参数2。）举例（5040）返回10（3）函数格式（参数1参数2。）6举例（23）返回6（4）/函数格式（/参数1参数2。）举例（/1002）返回502、SETQ函数格式（SETQ）功能将一个或多个符号的值设置为相应表达式的值。例下面的函数调用将变量A设为50命令（SETQA50）返回503、DEFUN函数格式（DEFUN（）功能增加、修改、恢复AUTOCAD的命令举例（DEFUNCYUNCPRLWPL）4、POLAR函数格式（POLAR）功能用于球出一个点的极坐标，方向角为弧度。举例为POLAR提供一个三维点命令（POLAR（1135）07853981414214）返回2020355、IF函数7格式（IF）功能先对求值，若结果为非NIL，则执行，并其求值结果作为IF函数的调用返回值；若的求值结果为NIL，且任选项）存在，则执行，且返回其求值结果。如果不存在，则返回NIL。举例（IFABSETQC1SETQC1当AB时，返回1，否则返回1。6、GETPOINT函数格式（GETPOINT）功能暂停以等待用户输入点，并返回该点。举例（SETQPGETPOINT1520“第二点”）7、GETINT函数格式（GETINT）功能暂停以等待用户输入以个整数并返回该整数举例命令（SETQNUM（GETINT）输入15返回158、GETREAL函数格式（GETREAL）功能暂停以让用户输入一个实数并返回该实数。举例命令（SETQVALGETREAL“缩放比例”）缩放比例12返回12089、ATOF函数格式（ATOF）功能将转换成实型数返回举例命令（ATOF“971”）返回97110、ATOI函数格式（ATOI）功能将转换成整型数返回，所返回的整型经过“截尾取整”后的结果。举例命令（ATOI“39”）返回311、RTOS函数格式（RTOS）功能根据参数和将转换成相应的。和参数对应于系统变量LUNITS和LUPREC。如果省略这两个参数，RTOS函数使用LUNITS和LUPREC的当前值。举例设置变量X命令（SETQX175）返回175将X的值转换为科学记数格式的字符串，精度为412、COMMAND函数格式（COMMAND）功能将每一个参数顺序传给AUTOCAD以响应提示。它以字符串形式提交命令名和选项。COMMAND函数的参数调用格式与AUTOCAD的命令及其所需的数据类型密切相关，有以下规定1）调用AUTOCAD的命令及其子命令和选择项都用字符串表示，其中字符大写均9可。2）数值常量可以写成数本身，也可以写成字符串形式。3）对于点常数有2种表示方法。一种是用AUTOLISP表的形式，其调用格式于数据类型必须符合表定义的规定。另一种是表示为字符串的形式，字符串中的数据只要符合AUTOCAD的数据表示规定即可。4COMMAND调用参数中的空串（“”）等效于在键盘上按一次空格键，利用它可以给一个需要不定个数定数据定AUTOCAD命令的执行，或是采用命令的缺省值。5如果不带任何参数调用COMMAND函数，则等效于在键盘上按一次CTRLC组合键或ESC键，它可以中断大多数AUTOCAD命令。6需要等待用户输入发GET族函数不能用在COMMAND函数内，否则系统将提示出错。7对于要做对象选择的那些AUTOCAD命令（如BREAK和TRIM等），用由ENTSEL函数获得等一个表去取代为选择一个对象必须拾取一个点。10四六角头螺栓二次开发41驱动尺寸SKREA42绘图程序（1）确定绘图顺序见右图，以所标各点确定绘图顺序图41六角头螺栓例图3、确定绘图流程图开始输入或读取绘图参数求各基本点坐标设置图层、颜色、线形、线宽等信息用LINE命令连接各点倒圆角、打剖面线11图42六角头螺栓绘图流程图4、编写LISP绘图程序文件名为BOLTLSP,程序如下（以六角头螺栓M10为例）（3）程序DEFUNBOLT1SETQL35K35D7DW10E12B30SETQP00GETPOINT“插入点“SETQP01LISTCARP00LK10CADRP00SETQP1LISTCARP0110CADRP01/D20P15POLARP1PIL1P3POLARP115PIDP16POLARP3PIL1SETQP2POLARP1505PI/EDW20P4POLARP1615PI/EDW20P17POLARP2PI1P18POLARP4PI1SETQP6POLARP1705PI/EDW20P5POLARP1815PI/EDW20P14POLARP5PIKP13POLARP6PIKSETQP7POLARP1PIBP8POLARP3PIB输出图形结束12SETQP9POLARP305PI08P10POLARP115PI08P11POLARP10PIBP12POLARP9PIBP20POLARP15PI10P19POLARP20PIKP22POLARP16PI10P21POLARP22PIKCOMMAND“LINE“P00P01“COMMAND“LINE“P1P15P2P17P6P13P14P5P18P4P16P3P1“COMMAND“LINE“P7P8“COMMAND“LINE“P17P18“COMMAND“LINE“P10P11“COMMAND“LINE“P9P12“COMMAND“LINE“P15P16“COMMAND“LINE“P19P20“COMMAND“LINE“P21P22“六角头螺栓其他型号程序略5、运行结果以深沟球轴承60000型号为例，所绘制图形如下图43运行程序所绘六角头螺栓13五对话框设计在第四章的螺栓绘图程序中，绘图参数的输入是通过GETINT和GETREAL函数实现。参数输入时在命令行逐个进行提示并输入相关数据。一旦输入有误必须结束程序重新输入，这在输入很少参数如1个或2个时尚可，但在需要输入较多参数时极为不便，故需要采用对话框进行参数输入。AUTOCAD中的对话框可以通过DCL语言设计界面（通过VISUALLISP绘图环境编制程序），用PDB工具来驱动完成。1、对话框部件对话框由其本身点框架和其中点组件组成。可编程对话框（PDB）功能模块已经预定义了基本控件类型，用户可以使用这些基本控件创建各种组合的控件，即组件。可以按照行或列将这些控件进行编组，也可以选择是否在这些成组的控件周围添加一个封闭的框架和边框。使用组件可以将许多对话框中都需要使用的控件定义成组。例如可以将“确定”、“取消”和“帮助”按钮定义成一个组件。使用中，组件包含的控件被称为子组件。DCL文件按照树型结构方式定义对话框，其中树型结构顶端的控件（DIALOG）用于定义对话框本身。控件或组件的布局、外观和动作由DCL中控件的属性指定。例如，DIALOG和多数控件类型都有一个LABEL属性，用于指定于控件相关联都文字。其中，DIALOG和LABEL属性用于指定对话框顶部都标题，按钮都LABEL属性用于指定按钮内的文字等。DCL还允许定义新的控件，称为控件原型，控件原型不需要和特定对话框相关联。这一特性使得用户可以非常方便地在多个对话框中使用同一不见。可以在DCL文件中引用由其他DCL文件定义的控件原型，修改其属性的方法与修改定义控件属性的方法相同。设计对话框初期，即开始编码和调试之前，需要考虑设计对话框和应用程序的具体细节。主要表现在控件次序的安排，从而使用户能够更加方便地输入数据。尽管这样做有可能会使得程序结构不如按照惯例编写地连贯，但可以更好地反映出用户工作但方式。142、常用部件有（1）按钮按钮适应于立即产生可视的操作，如退出对话框，弹出子对话框及其他特定操作。每个对话框至少含有一个OK按钮（或功能相当的控件）。按钮的类型是BUTTON。它有ACTION、ALIGNMENT、FIXED_HEIGHT、FIXED_WIDTHHEIGHT等等共十三个属性。（2）编辑框编辑框用于输入字符串。它的类型是EDIT_BOX。它是ACTIONALIGNMENTALLOW_ACCEPTEDIT_LIMITEDIT_WIDTHFIXED_HEIGHTFIXED_WIDTHHEIGHTIS_ENABLEDIS_TAB_STOPKEYLABLEMNEMONICVALUEPASSWORD_CHAR共16个属性。其标签显示在该框的左边，它的默认宽度为12个字符，当输入的字符多于12时，文本自动向左滚动，框内的字符串即为编辑框的值。（3）图像按钮图像按钮将图像显示在按钮上，它的类型是IMAGE_BUTTON。它有ACTIONALIGNMENTALLOW_ACCEPTASPECT_RATIOCOLORFIXED_WIDTHFIXED_HEIGHTIS_ENABLEDIS_TAB_STOPKEYLABLEMNEMONIC和WIDTH共13个属性。图像按钮很有用的一个特性是，通过LISP程序可以被单击时的位置，从而根据不同的位置设计相应的动作。（4）下拉列表图51常用对话框部件15下拉列表的类型是POPUP_LIST。它具有ACTIONALIGNMENTEDIT_WIDTHFIXED_HEIGHTFIXED_WIDTHHEIGHTIS_ENABLEDIS_TAB_STOPKEYLABLELISTMNEMONICTABSVALUE和WIDTH共15个属性。下拉列表具有编辑框和列表框的两个特点，它的初始状态像一个编辑框，标签显示在框的左边，框内只有一行字符和一个向下的箭头，单击框内箭头将弹出一个列表，选取表内文本之后，列表自动关闭，在编辑框内选中的内容。下拉列表的值是被选中的文本行的序号。（5）列表框3、DCL语言介绍DCL语言结合了AUTOLISP与DCL两种语法的功能，可以让用户半自动地架构出“图形模式“的对话框界面，即可编程对话框PDB，DCL对话框的屏幕画面以框栏TILE为基本结构，将框栏按左右，上下或混合排行之后，就组成了对话框的主要外观。每个框栏内部可以容纳对话框的基本控件。DCL语法可以自动调整控件之间的相对位置，用户只需要将控件代码和各控件的排行模式代码按顺序写在DCL文件里即可，一般不用考虑控件的尺寸问题。系统会自动计算应有的对话框尺寸，并自动规划适当的空间来放置这些控件。（1）常用属性ALIGNMENT格式ALIGNMENTPOSITION为控件组中但控件指定水平或垂直位置。对于列中但子控件，其值可以使（LEFT）、右RIGHT或居中（CENTERED）（缺省值为左）。对于行中的子控件，其值可以使顶（TOP）、底（BOTTOM）或居中（CENTERED）（缺省值为居中）。FIXED_WIDTH格式FIXED_WIDTHTRUE/FALSE；指定控件的宽度是否可以填满整个可用空间。如果属性值为TRUE。则控件的宽度不会填满为布局或对齐操作留出的可用空间。其值可用是TRUE或FALSE缺省值为FALSE。IS_CANCEL格式IS_CANCELTRUE/FALSE；指定用户按ESC键时按钮是否被选中。其值可用是TRUE或FALSE（缺省值为FALSE）。IS_DEFAULT格式IS_DEFAULTTRUE/FALSE；指定是否将一个按钮作为缺省按钮，用户按下接受键时，将选中该按钮（被按下）。其值可以是TRUE或FALSE（缺省值为FALSE）。如果用户将EDIT_BOX、LIST_BOX或IMAGE_BUTTON的ALLOW_ACCEPT属性设置为TRUE，则用户按下接受16键或双击时，也会选中缺省按钮。如果当前焦点正位于其他按钮上，则按下接受键时不选中缺省按钮，而选中焦点所在当按钮。对话框中只能有以个按钮当IS_DEFAULT属性可以被设置为TRUE。KEY格式KEY“STRING”；指定应用程序引用特定空间当名称。其值是被引号括起来的字符串（无缺省值）。在对话框中，每个KEY属性值都必须是唯一的。该字符串区分大小写如果KEY属性值为BIGTILE，则不能用BIGTILE引用它。由于KEY属性值对用户不可键，因此设计者可以随意指定此属性值（值要保证其唯一性）。同理，在将应用程序翻译成其他语言时，KEY属性对值可以不必翻译。LABEL作为标题出现。如果指定了标签，它将在EDIT_BOX控件中向坐对齐。EDIT_WIDTH格式EDIT_WIDTHNUMBER；以字符宽度为单位指定框的编辑或输入区（即EDIT_WIDTH加框部分）的宽度。其值时以个整数或实数。如果没有指定EDIT_WIDTH属性值，或指定为零，并非控件的宽度不固定，则编辑框将扩展至填满全部可用空间。如果EDIT_WIDTH非零，则该框在空间占用空间内向右对齐。（2）DCL语言对话框控制语言（DCL）的语法非常简单。空间和空间聚合的定义方式极为相似，它们的聚合就构成零对话框。但用户应注意以下编写规则A控件的定义和属性用小写字母。B控件的属性应放置在一对大括号中。CDCL文件采用缩格形式以便清楚地表达语句地从属关系。D属性用等号来赋值，以分号结束。E控件地名称可包含字母、数字和下划线，但名字要以字母开头。F空行忽略。举例下面是BASEDCL中RETIREMENT_BUTTON控件的定义RETIREMENT_BUTTONBUTTONFIXED_WIDTHTRUE；WIDTH8；ALIGNMENTCENTERED；17在该例中，RETIREMENT_BUTTON是控件名，其中只用到一个预定义控件BUTTON。在大括号指定来三个属性FIXED_WIDTH、WIDTH、ALIGNMENT及其TRUE、8、CENTERED。由此程序定义的控件RETIREMENT_BUTTON的属性是将这三个属性及BUTTON中与这三个属性不同名的属性4、布局原则一个好看的对话框，能给别人留下好的印象。因而在布局时候，不要弄得参差不齐，最好整齐一致，各组件和文字不要显得太挤太密和太空，疏密要恰当。因而很有必要用WIDTH、FIXED_WIDTH、ALIGNMENT、SPACER、SPACER_0之类的语句或控件来使之漂亮。对话框的布局应尽量美观，此外还有一些应当注意的问题。建议开发对话框时考虑以下几个方面的内容（1）外形美观（2）使用方便（3）功能定义和提示一致（4）控件的互锁功能（5）良好的容错能力（6）文字内容规范（7）挂件编辑的一般要求（8）缺省值和助记键5、深沟球轴承对话框设计图52为本毕业设计所设计对话框，对话框文件名为BOLTDCL，对应DCL程序如下18图52六角头绘图输入对话框BOLTDIALOGLABEL“螺栓“ROWCOLUMNPOPUP_LISTLABEL“螺栓种类“KEY“BOLT1“FIXED_WIDTHTRUEWIDTH32ALIGNMENTLEFTLIST“六角头螺栓N六角头螺栓全螺纹N六角头螺栓C级N“LIST_BOXLABEL“螺栓型号“KEY“BOLT_LIST“FIXED_WIDTHTRUEWIDTH32ALIGNMENTLEFTEDIT_BOXLABEL“螺栓公称直径D“KEY“BOLT_D“WIDTH10FIXED_WIDTHTRUEALIGNMENTRIGHTEDIT_BOXLABEL“螺帽宽度“KEY“BOLT_K“WIDTH10FIXED_WIDTHTRUEALIGNMENTRIGHTEDIT_BOXLABEL“螺纹有效长度B“19KEY“BOLT_B“WIDTH10FIXED_WIDTHTRUEALIGNMENTRIGHTEDIT_BOXLABEL“螺栓长度L“KEY“BOLT_L“WIDTH10FIXED_WIDTHTRUEALIGNMENTRIGHTEDIT_BOXLABEL“螺帽外接圆直径E“KEY“BOLT_E“WIDTH10FIXED_WIDTHTRUEALIGNMENTRIGHTEDIT_BOXLABEL“螺帽凸台直径DW“KEY“BOLT_DW“WIDTH10FIXED_WIDTHTRUEALIGNMENTRIGHTIMAGEKEY“BOLT_IMAGE“WIDTH60ASPECT_RATIO06COLORGRAPHICS_BACKGROUND20OK_CANCEL6、PDB工具PDB（PROGRAMMABLEDIALOGBOX）工具是用来联系DCL程序与LISP程序之间的工具，或者说是用来驱动DCL程序以初始化、显示、关闭和处理对话框相关动作的控制工具。对话框的初始化和常用处理函数如下（1）动作表达式初始化ACTION_TILE功能为某一对话框控件指定一个动作表达式，用户在对话框中选中这个控件时，就会执行该动作表达式。调用格式（ACTION_TILE控件名（KEY）动作表达式）返回值T（2）获取运行时的控件值GET_TILE功能获取对话框指定的当前运行时的值调用格式（GET_TILE控件名（KEY）返回值控件值字符串（3）装入指定DCL文件的函数LOAD_DIALOG功能加载DCL文件调用格式（LOAD_DIALOGDCL文件名）返回值如果成功则返回正整数值，如果LOAD_DIALOG不能打开文件，则返回负整数。（4）启动对话框的函数START_DIALOG功能显示对话框并控制交给对话框调用格式（START_DIALOG）返回值START_DIALOG函数返回DONE_DIALOG函数的结束方式参数STATUS缺省情况下，用户按下OK按钮时返回1，用户按下CANCEL按钮时返回0而在用TERM_DIALOG函数终止所有对话框时返回1。但是，如果给DONE_DIALOG函数一个大于1的整数形式的结束状态代码。START_DIALOG函数就会将这个值返回，它的含义取决与应用程序。（5）图像组件的预览和放大和缩小技术首先用DIMX_TILE，DIMY_TILE获得图像组件像素的高宽。然后START_IMAGEKEY开始图像处理。用END_IMAGE结束图像控件的处理。7、用PDB工具驱动的六角头螺栓绘图源程序（带对话框）21DEFUNCBOLTSETQDCL_IDLOAD_DIALOG“I/CYF/BOLTDCL“IFNOTNEW_DIALOG“BOLT“DCL_IDQUITSETQX1DIMX_TILE“BOLT_IMAGE“SETQY1DIMY_TILE“BOLT_IMAGE“START_IMAGE“BOLT_IMAGE“ACTION_TILE“BOLT1“INFO“END_IMAGEACTION_TILE“BOLT_LIST“INFO2“ACTION_TILE“ACCEPT“DONE_DIALOG1“ACTION_TILE“CANCEL“DONE_DIALOG“SETQTEMPSTART_DIALOGIFTEMP1PROGNCONDVARA0BOLT0VARA1BOLT1VARA2BOLT2DEFUNINFOSETQVARAREADGET_TILE“BOLT1“CONDVARA0PROGNADD1SLIDE_IMAGE00X1Y1“IBLT1“VARA1PROGNADD2SLIDE_IMAGE00X1Y1“IBLT2“VARA2PROGNADD2SLIDE_IMAGE00X1Y1“IBLT3“IFVARA0SLIDE_IMAGE00X1Y1“IBLT1“IFVARA1SLIDE_IMAGE00X1Y1“IBLT2“IFVARA2SLIDE_IMAGE00X1Y1“IBLT3“22DEFUNADD1SETQLIST1LIST“M5“M6“M8“M10“M12“M14“M16“M18“M20“M22“M24“M27“M30“M36“M36“M42“M48“M56“M64“START_LIST“BOLT_LIST“3MAPCARADD_LISTLIST1END_LISTDEFUNADD2SETQLIST1LIST“M5“M6“M8“M10“M12“M14“M16“M18“M20“M22“M24“M27“M30“M36“M36“M42“M48“M56“M64“START_LIST“BOLT_LIST“3MAPCARADD_LISTLIST1END_LISTDEFUNADD3SETQLIST1LIST“M5“M6“M8“M10“M12“M14“M16“M18“M20“M22“M24“M27“M30“M36“M36“M42“M48“M56“M64“START_LIST“BOLT_LIST“3MAPCARADD_LISTLIST1END_LISTDEFUNINFO2SETQVAR2READGET_TILE“BOLT_LIST“SETQF1OPEN“I/CYF/BOLTTXT“R“SETQFFTWHILEFFSETQF2READREADLINEF1SETQINTH1F2IFVAR2IPROGNSETQNAMNTH0F223DNTH2F2KNTH3F2BNTH4F2LNTH5F2ENTH6F2DWNTH7F2SETQFFNILCLOSEF1SET_TILE“BOLT_D“RTOSDSET_TILE“BOLT_K“RTOSKSET_TILE“BOLT_B“RTOSBSET_TILE“BOLT_L“RTOSLSET_TILE“BOLT_E“RTOSESET_TILE“BOLT_DW“RTOSDWDEFUNBOLT0COMMAND“LAYER“M“CEN“C“RED“CEN“LT“CENTER“CEN“SETQP00GETPOINT“插入点“SETQP01LISTCARP00LK10CADRP00COMMAND“LINE“POLARP00PI5POLARP0105“COMMAND“LAYER“S“0“SETQP1LISTCARP0110CADRP01/D20P15POLARP1PIL1P3POLARP115PIDP16POLARP3PIL1SETQP2LISTCARP15CADRP0005DWP4POLARP215PIDWP17POLARP2PI224P18POLARP4PI2SETQP6POLARP1705PI/EDW20P5POLARP1815PI/EDW20P14POLARP5PIKP13POLARP6PIKSETQP7POLARP1PIBP8POLARP3PIBSET