lisp对话框

目录 TOC \o "1-3" \h \z \u 第一篇．基本知识 2 第1节 基本知识 2 第2节 定义档 2 第3节 批注 3 第4节 对话框定义文件的内容模式 3 第5节 练习 4 第二篇 开启对话框 5 第1节 AutoLISP函数加载DCL定义文件函数 5 第2节 对话框开启方式 6 第3节 编辑框组件(edit_box) 6 第4节 练习 7 第三篇 设定及取得对话框组件内的值 8 第1节 AutoLISP函数设定组件的值 8 第2节 练习 9 第3节 练习 9 第4节 AutoLISP函数组件指定动作 10 第四篇 按钮及核取框（切换钮） 11 第1节 按钮组件（button） 11 第2节 核取框（切换钮）组件（toggle） 12 第3节 练习 12 第五篇 横列、直行、空白及文字组件 15 第1节 横列（row）及直行（column）组件 15 第2节 空白（spacer）组件 15 第3节 字符串组件（text） 17 第4节 文字段落组件 （paragraph） 17 第六篇 滑杆（滚动条）组件 18 第1节 滑杆（滚动条）组件（slider） 18 第2节 练习 19 第七篇 按钮及影像按钮组件 21 第1节 自订按钮 21 第2节 练习 22 第八篇 清单选框 25 第1节 清单选框组件(list_box) 25 第2节 AutoLISP函数开始处理清单选框或弹出式选框 25 第3节 练习 26 第九篇 下拉（弹出）式清单选框 29 第1节 下拉式（弹出式）清单选框组件（popup_list） 29 第2节 练习 30 第十篇 选台钮组件 32 第1节 选台钮组件（radio_button） 32 第2节 练习 33 第十一篇 影像及影像框（影像区块）组件 35 第1节 影像（image）及影像框（影像区块，image_block）组件 35 第2节 AutoLISP函数 35 第3节 建立新的对话框IMG1.DCL，存于C盘的根目录中，在对话框中只会显示两个影像及一个确定钮，其定义如下： 36 第十一篇 影像及影像框（影像区块）组件 38 第1节 影像（image）及影像框（影像区块，image_block）组件 38 第2节 AutoLISP函数 38 第3节 练习 39 第一篇．基本知识 第1节 基本知识 对话框是现今最流行的人机互动面接口;在早期的AutoCAD版本中巳经使用，但只有在R12版本开始，才提供给使用者自行编程的对话框开发功能。 对话框的描述定义在一纯文字文件（扩展名为DCL）内，无须特别的开发环境。 定义文件中的对话框描述，均以对话控制语言（Dialog Control Language，简称DCL语言）所建立。 在AutoLISP程序中，配合可编程对话框（Porgrammable Dialog Box，简称PDB）函数，激活及操控对话框。 可以在一个定义档（扩展名DCL）中定义多个对话框。 对话框由方块本身，及包含于其内的组件（或称为控件、构件）所组成。 每个组件的属性定义均包含在一对大括号{ }中。 在定义文件中，各组件及其属性均为小写，只有在赋值给属性，或设定对话框名称时才可使用大写字母。 属性以等号＝赋值，并以分号；结束（注意：在AutoLISP程序中，分号是作为批注）。 一般要在组件名称前加上一个冒号：，但若组件并不设定属性，则不需要在组件名称前加冒号，但却要以分号结束。 空行会被忽略。 若定义档发生严重的错误，会在当前的目录下，产生ACAD.DCE文件，以指明所发生的错误。 第2节 定义档 BASE.DCL 预设在SUPPORT的目录中，它包含了各组件的原型定义及各类型巳定义的其它基本组件。而所有自行开发的对话框定义文件，都可以使用在BASE.DCL定义文件中的各个组件。 ACAD.DCL 预设在SUPPORT的目录中，它包含了AutoCAD中所有 标准 excel标准偏差excel标准偏差函数exl标准差函数国标检验抽样标准表免费下载红头文件格式标准下载 对话框的定义 参考定义档 可在自行开发的对话框定义文件中，经由include指令，取得指定DCL文件中所定义的组件，其语法如下： @include "对话框定义档" 例如 @include "david.dcl" 定义档名称要包含在双引号"中，可以在档名前加上指定的目录路径。 先在当前的目录中搜寻该定义文件，然后是定义文件所在的目录，若指定档案的路径，则只会在指定的目录内寻找。 不可以参考ACAD.DCL所定义的对话框，即不可以使用@include "acad.dcl" 预视对话框 若在Visual LISP中开启一对话框定义文件，即可使用： 工具 -- 接口工具 -- 预览编辑器DCL 在下拉式列示框中，选取该定义文件中所设定的对话框名称，即可预视对话框 亦可直接输入该对话框的名称（要注意大小写） 第3节 批注 // 表 关于同志近三年现实表现材料材料类招标技术评分表图表与交易pdf视力表打印pdf用图表说话 pdf 示其右边（至该行末端）的文字被视为注释。 /* */ 包括在两个批注符号中间的所有文字（可跨越多行）均视为注释。 语义检核 提供4个等级的检核，该些检核会在对话框载入时完成。可以将下列语句放在定义文件中的任何位置，但不能在任何对话框的属性定义内。 dcl_settings : default_dcl_settings {audit_level = 3;} 等级0 不检查：只有在该定义档巳被检核，且不再作修改时使用。 等级1 错误：找出可能造成AutoCAD终止的错误，此等级为默认值。 等级2 警告：找出配置或行为模式的错误，所有定义在修改后，最少应执行此等级的检查一次。 等级3 提示：找出多余的属性定义。 对话框的设计 美观性 颜色配比，组件整齐排列等。 方便性 相同功能的项目要编排在一起，或使用线框包围。 使用频繁的项目应设置在最显眼及方便的位置。 适当设置快速键及默认值（缺省值)。 除非对话框中的项目过多，否则应避免使用巢状(嵌套)式对话框。 互锁或互换 项目选取(或不选取)时，是否会导致其它项目功能的改变(enable或disable...等) 第4节 对话框定义文件的内容模式 对话框名称:dialog { label="对话框标 题 快递公司问题件快递公司问题件货款处理关于圆的周长面积重点题型关于解方程组的题及答案关于南海问题 " ; :组件名称 { 属性名称=属性值; } //组件定义结束 } //对话框结束 定义说明： 1 对话框名称就是由AutoLISP程序启动对话框时所呼叫的名称。可以自行设定，要区分大小写字母。dialog为对话框中最外层的组件（即整个对话框），其它的组件均包含在其中。一般组件要以冒号:开始，并为小写字母，因为不是属性，所以不须使用分号;结束。 2 开大括号{紧随组件名称之后，以包含该组件的属性或其它组件。label为属性名称，并以等号＝赋以其右边的属性值，最后以分号;结束该行叙述。 3 包含在对话框中的其它组件。 组件要以冒号:开始，并为小写字母，因为不是属性，所以不须使用分号;结束。 4 开大括号{紧随组件名称之后，以包含组件的属性或其它组件。 包含在组件中的属性，要以等号＝赋以其右边的属性值，最后以分号;结束该行叙述。 5 关大括号}与第4行的开大括号}对应，以结束该组件（第3行）之定义。 双除号//右边的文字即为批注。 6 关大括号}与第2行的开大括号}对应，以结束该组件之定义（在本例中为整个对话框的定义，即第1行的dialog组件）。 注意： 上例中，缩排只为方便观察及维护，不作缩排亦可。 包含在对话框中的组件及组件中的属性可以不只一个。 第5节 练习 请输入以下的对话框定义，并命名为RECT.DCL（纯文字格式），存于C盘的根目录中。 RECT:dialog { label="Rectangle" ; :text //文字组件 { label="Rectangle width :" ; //组件的属性 } ok_only; } 定义说明： 1 设定对话框的名称为RECT，紧接一个以冒号开始的组件dialog 2 最左边为dialog组件的开大括号，接着是其属性label，并以等号设定其属性值为"Rectangle"，以分号结束此行叙述。 3 text为字符串组件，其作用是在对话框中显示文字，组件名称前要加冒号。 4 最左边为text组件的开大括号，接着是其属性label，并以等号设定其属性值为"Rectangle width"，最后以分号结束此行叙述。 5 关大括号是对应第4行的开大括号，这对大括号同属于第3行的text组件。 6 ok_only为一“按钮组件”，它的作用是在对话框中显示一个“确定（OK）”按钮。在一个对话框中，最少必需提供一个“确定”按钮，或一个“取消”按钮（组件名称为cancel_button），以作为结束对话框之用。本例中不设定按钮之属性，固不需以冒号放在组件名称的前面，但却需要以分号结束。 7 关大括号是对应第2行的开大括号，这对大括号同属于第1行的dialog组件。 注意： 虽然定义档巳经完成，但仍要待学习完第2篇的课程后，才能开启及显示该对话框。 第二篇 开启对话框 第1节 AutoLISP函数加载DCL定义文件函数 (LOAD_DIALOG "对话框定义档名称") 例如 (LOAD_DIALOG "C:/RECT.DCL") 自变量是要加载的对话框定义文件名称字符串（所以要在前后加双引号）；若不设定扩展名则预设为.DCL 函数会依支持文件搜索路径找寻该定义档，不在搜索路径中的定义档，要在文件名称前加上指定的路径。 函数若成功加载该定义档，会返回一正整数值的档案处理码，供其它函数呼叫使用，无法加载时则返回负整数值。 一般会将返回的档案处理码以SETQ函数存入变量中。 例如 (SETQ DCL_ID (LOAD_DIALOG "C:/RECT.DCL")) 开启并显示对话框 (NEW_DIALOG "对话框名称" 档案处理码 ["预设动作" [对话框位置]]) 例如 (NEW_DIALOG "RECT" DCL_ID) 对话框名称为字符串，要在前后加双引号。注意，在一个定义档中，可包含多个对话框名称及其定义。 档案处理码是经由LOAD_DIALOG函数取得。 预设动作为字符串表示式。函数可以不加预设动作，或以空字符串""表示。 如果要设定对话框显示时的位置，则必须同时设定预设动作。 对话框位置为2D的点串行，指定对话框左上角的X，Y坐标。 如果以 '(-1 -1)为对话框位置，则会在绘图屏幕的中心点开启对话框。 如果成功开启对话框，函数会返回T，否则返回NIL。 开始接受使用者输入 (START_DIALOG) 函数不须提供任何自变量。 使前一个用NEW_DIALOG函数开启的对话框开始作用，直至动作表示式或回复函数呼叫DONE_DIALOG函数为止。 一般DONE_DIALOG与关键词accept（一般是按下确定按钮）或关键词cancel（一般是按下取消按钮）相关。 若返回值为1，表示使用者按下确定钮结束对话框；0表示按下取消钮；-1表示全部对话框都以TERM_DIALOG函数终止；大于1的整数，其意义由应用程序决定。 释放(卸载)对话框 (UNLOAD_DIALOG "档案处理码") 例如 (UNLOAD_DIALOG DCL_ID) 从内存释放档案处理码（经由LOAD_DIALOG函数取得）指定的对话框定义档。 函数返回值一定是NIL。 第2节 对话框开启方式 (DEFUN C:函数名称( ) (SETQ 变量 (LOAD_DIALOG "对话框定义档")) (NEW_DIALOG "对话框名称" 变量) (START_DIALOG) (UNLOAD_DIALOG 变数) ) 程序说明： 1 以DEFUN函数定义程序的名称，使用LOAD_DIALOG函数加载指定的对话框定义档，使用SETQ函数，将LOAD_DIALOG返回的档案处理码存入变量中，以方便其它函数使用。 2 使用NEW_DIALOG，开启及显示定义文件中(档案处理码)指定的对话框。 3 使用START_DIALOG函数，使对话框开始作用并接受使用者输入。 使用UNLOAD_DIALOG函数以结束对话框。 4 关括号是对应第1行DEFUN函数左边的开括号，结束整个程序。 练习 编写一AutoLISP程序，以开启上一课所定义的对话框，并将该程序命名为RECT.LSP，存于C盘的根目录中，程序代码如下： (DEFUN C:RECT() (SETQ DCL_ID (LOAD_DIALOG "C:/RECT.DCL")) (NEW_DIALOG "RECT" DCL_ID) (START_DIALOG) (UNLOAD_DIALOG DCL_ID) ) 程序说明： 1 以DEFUN函数定义程序的名称为RECT，使用LOAD_DIALOG函数将对话框定义文件RECT.DCL载入，使用SETQ函数，将LOAD_DIALOG返回的档案处理码存入变量DCL_ID中，以方便其它函数使用。 2 使用NEW_DIALOG，开启及显示定义文件中（档案处理码）名称为RECT的对话框。 3 使用START_DIALOG函数，使对话框开始作用并接受使用者输入（在本例中只有确定钮可按），使用UNLOAD_DIALOG函数以结束对话框。 4 关括号是对应第1行DEFUN函数左边的开括号，结束整个程序。 第3节 编辑框组件(edit_box) 供使用者直接输入字符串的矩形方框。注意，在编辑框中所显示及输入的数据均为字符串型态，而数字则要在取得编辑框的字符串内容后(在下一篇中介绍)，使用AutoLISP函数将其转为数值型数据。 :edit_box //组件名称 { 属性="属性值" ; } 属性 label 显示在编辑框前面(左边)的提示文字。 key 其属性值即为使用该组件的关键词，以便在AutoLISP程序中操控此组件。在同一个对话框定义中，不能有相同名称的关键词定义。 edit_limit 指定在编辑框中可输入字符串的最大字符长度。 edit_width 指定编辑框显示时的宽度(通常与fixed_width属性一拼使用)。 value 指定编辑框显示时的默认值（注意，显示数值数据时，要先用AutoLISP函数将数据转为字符型）。 fixed_width 通常与width属性一拼使用，以固定编辑框显示时的宽度(其属性值可设定为true或false)。 is_enable 可设定编辑框是否可以使用（其属性值可设定为true或false，默认值为true）。 alignment 如果组件成水平方向排列，属性值可设定为left，right或centered；如果组件成垂直方向排列，属性值可设定为top，bottom或centered(水平方向的默认值为left，垂直方向则为centered)。 其它属性 action allow_accept fixed_height height is_tab_stop mnemonic width 第4节 练习 将上一课的RECT.DCL对话框定义档复制至RECT1.DCL，开启新的定义档并作如下的修改，使其可以输入四边形的宽度及高度。将AutoLISP程序文件RECT.LSP复制至RECT1.LSP，开启新的程序文件，并将要加载的对话框定义档改为RECT1(程序第1行);完成后即可加载及执行新的程序文件 RECT:dialog label="Rectangle" ; :edit_box //编辑框组件 { label="Rectangle width : " ; key="RECT_W" ; edit_limit=16; edit_width=10; fixed_width=true; } :edit_box //编辑框组件 { label="Rectangle heigth :" ; key="RECT_H" ; edit_limit=16; edit_width=10; fixed_width=true; } ok_only; } 定义说明： 1 设定对话框的名称为RECT，紧接一个以冒号开始的组件dialog。 2 最左边为dialog组件的开大括号，接着是其属性label，并以等号设定其属性值为 "Rectangle"，以分号结束此行叙述。 3 edit_box为"编辑框"组件，组件名称前要加冒号。 4 最左边为edit_box组件的开大括号，接着是其属性label，并以等号设定其属性值为 "Rectangle width : "，最后以分号结束此行叙述。 5 设定属性key的属性值为RECT_W(即设定此编辑框的名称)。 6 设定属性edit_limit的属性值为16（即最多可以在编辑框中输入16个字符）。 7 设定属性edit_width的属性值为10（编辑框只会显示10个字附的长度）。 8 设定属性fixed_width的属性值为true，表示表将编辑框以固定的宽度显示。 9 关大括号是对应第4行的开大括号，这一对大括号同属于第3行的edit_box组件。 10至16 与3至9行相似，设定另一个编辑框以输入高度的数据。只有属性label及key的属性值不同。 17 以ok_only组件，在对话框中显示一个确定(OK)按钮，作为结束对话框之用。 18 关大括号是对应第2行的开大括号，这一对大括号同属于第1行的dialog组件。 注意： 1 在第一个编辑框（输入四边形的宽度）的label属性值中，在字符串最后的冒号后面，加多了一个空格，目的是方更与下一个编辑框对齐。 第三篇 设定及取得对话框组件内的值 第1节 AutoLISP函数设定组件的值 (SET_TILE "组件关键词" 设定值) 例如 (SET_TILE "RECT_W" "50.0") 组件的初始值可在定义文件中以属性value设定，但在程序文件中则以此函数设定。 组件关键词即是在对话框定义文件中，以组件属性key所定义的属性值，以赋予该组件一个操作名称。 组件关键词是区分大小写的。 此函数要在START_DIALOG函数之后才能使用。 取得组件的值 (GET_TILE "组件关键词") 例如 (GET_TILE "RECT_W") 作用是在AutoLISP程序文件中取得组件（以关键词指定）的设定值。 组件关键词的说明与SET_TILE函数相同。 此函数要在DONE_DIALOG函数之前使用（即要在对话框结束前使用）。 设定组件的状态 (MODE_TILE "组件关键词" 状态模式) 例如 (MODE_TILE "RECT_W" 0) 作用是在AutoLISP程序文件中设定组件（以关键词指定）的使用状态，其状态模式可以设定为下列任一整数值： 0 使指定的组件成为使用状态。 1 使指定的组件成为禁用状态(组件以灰色显示)。 2 使指定的组件成为焦点。 3 选取指定编辑框组件的内容。 4 图像高亮度显示的开关。 组件关键词的说明与SET_TILE函数相同。 第2节 练习 修改对话框定义档的方式，设定输入宽度的编辑框其初始值为50，输入高度的编辑框其初始值为25。 定义档 将RECT1.DCL复制至RECT2.DCL，在关键词为RECT_W的组件中，加入value属性并设定其初始值为50；在关键词为RECT_H的组件中，加入value属性并设定其初始值为25。 程序文件 将RECT1.LSP复制至RECT2.LSP，只须修改其加载的定义档名称为RECT2.DCL即可，完成后存盘，进入AutoCAD并载入RECT2.LSP程序文件，执行RECT2程序 RECT:dialog { label="Rectangle" ; :edit_box { label="Rectangle width : " ; key="RECT_W" ; edit_limit=16; edit_width=10; fixed_width=true; value="50.0"; //注意设定值为字符串型态，要在前后加双引号 } :edit_box { label="Rectangle height :" ; key="RECT_H" ; edit_limit=16; edit_width=10; fixed_width=true; value="25.0"; //注意设定值为字符串型态，要在前后加双引号 } ok_only; } 第3节 练习 以修改AutoLISP程序文件的方式，使输入宽度的编辑框其初始值为50，输入高度的编辑框其初始值为25。 定义档 将RECT1.DCL(不是RECT2.DCL)复制至RECT3.DCL，不作任何修改。 程序文件 将RECT1.LSP复制至RECT3.LSP，程序代码如下: (DEFUN C:RECT() (SETQ DCL_ID (LOAD_DIALOG "C:/RECT3.DCL")) (NEW_DIALOG "RECT" DCL_ID) (SET_TILE "RECT_W" "50.0") (SET_TILE "RECT_H" "25.0") (START_DIALOG)(UNLOAD_DIALOG DCL_ID) ) 程序说明:： 1 以DEFUN函数定义程序的名称RECT，使用LOAD_DIALOG函数将对话框定义文件RECT3.DCL载入。使用SETQ函数，将LOAD_DIALOG返回的档案处理码存入变量DCL_ID中，以方便其它函数使用。 2 使用NEW_DIALOG，开启及显示定义文件中（档案处理码）名称为RECT的对话框。 3，4 使用SET_TILE函数，设定输入宽度的编辑框组件RECT_W（组件关键词，在定义文件中key设定的属性值）为50，设定输入高度的编辑框组件RECT_H为25。 5 使用START_DIALOG函数，使对话框开始作用并接受使用者输入（在本例中只有确定钮可按）。使用UNLOAD_DIALOG函数以结束对话框。 6 关括号是对应第1行DEFUN函数左边的开括号，结束整个程序。 第4节 AutoLISP函数组件指定动作 (ACTION_TILE "组件关键词" "指定动作") 例如 (ACTION_TILE "RECT_W" "(SETQ TEMP 1)") 当焦点在指定的组件（关键词）上并按下接受键时，即会执行函数所指定的动作。 指定动作会取代定义文件中，该组件的action属性之预设动作。 组件关键词 accept 在预设情况下是与确定按钮组件关连（即是确定按钮的预设关键词），cancel 则与取消按钮组件关连（即是取消按钮的预设关键词）。 终止对话框 (DONE_DIALOG [指定返回值]) 例如 (DONE_DIALOG) 此函数的返回值为一个2D点串行坐标，为结束对话框时，对话框的所在位置可作为下次启动同一个对话框的位置自变量，使对话框在之前结束时的位置再次显现。 练习 将定义档RECT3.DCL复制至RECT4.DCL，但不作任何修改。将程序文件RECT3.LSP复制至RECT4.LSP，并修改为：使用ACTION_TILE函数，指定在按下确定钮时，执行一辅助程序。在该辅助程序中，使用GET_TILE函数最得对话框中四边形的宽度及高度，并在使用者选取的位置上绘画出四边形。 (DEFUN C:RECT() (SETQ DCL_ID (LOAD_DIALOG "C:/RECT4.DCL")) (NEW_DIALOG "RECT" DCL_ID) (SET_TILE "RECT_W" "50.0") (SET_TILE "RECT_H" "25.0") (ACTION_TILE "accept" "(S_RECT)(DONE_DIALOG)") (START_DIALOG)(UNLOAD_DIALOG DCL_ID) (SETQ PT_0 (GETPOINT "\nSelect rectangle lower left point : ")) (SETQ PT_1 (POLAR PT_0 0 TMP_W) PT_2 (POLAR PT_1 (/ PI 2) TMP_H) PT_3 (POLAR PT_2 PI TMP_W)) (COMMAND "PLINE" PT_0 PT_1 PT_2 PT_3 "C") (PRINC)) (DEFUN S_RECT() (SETQ TMP_W (ABS (ATOF (GET_TILE "RECT_W"))) TMP_H (ABS (ATOF (GET_TILE "RECT_H")))) ) 主程序(RECT)说明： 1 注意将LOAD_DIALOG函数所加载的对话框定义档改为RECT4.DCL。 2- 4 参阅RECT3程序的说明。 5 使用ACTION_TILE函数设定关键词为accept的组件（预设为确定按钮）的指定动作。先执行辅助程序S_RECT，取得输入的数据，再使用DONE_DIALOG函数结束对话框。 6 参阅RECT3程序，第5行的说明。 7 使用GETPOINT函数让使用者选取四边形的左下角位置坐标，存入变量PT_0。 8 使用POLAR函数取得新坐标点：从选取点PT_0开始，向右(角度为0)，距离为四边形的宽度(变量TMP_W，在辅助程序中取得)，存入变量PT_1。 9 使用POLAR函数取得新坐标点：从上一点PT_1开始，向上(角度90，等于PI除2)，距离为四边形的高度（变量TMP_H，在辅助程序中取得），存入变量PT_2。 10 使用POLAR函数取得新坐标点：从上一点PT_2开始，向左(角度180，等于PI)，距离为四边形的宽度（变量TMP_W，在辅助程序中取得），存入变量PT_3。注意最右边的关括号，是对应第8行SETQ函数左边的开括号。 11 使用COMMAND函数执行PLINE指令，并分别设定四个坐标变量，最后以"C"选项封闭多段线。 12 以一个不带参数的PRINC函数，抑制多余的显示及返回值。最右边的关括号是对应第1行DEFUN函数左边的开括号。 辅助程序(S_RECT)说明： 1 设定函数名称;使用GET_TILE函数取得指定关键词（RECT_W，代表输入宽度的编辑框组件）的值，并将该值使用ATOF函数由字符串型转为实数型（有小数），再使用ABS函数取得实数的绝对值，以防止使用者输入负数，最后将数据存入变量TMP_W。 2 使用GET_TILE函数取得指定关键词（RECT_H，代表输入高度的编辑框组件）的值，转型及取得绝对值后，存入变量TMP_H。 3 最后的一个关括号，对应第1行DEFUN函数左边的开括号。 第四篇 按钮及核取框（切换钮） 第1节 按钮组件（button） 一个矩形的按钮，可在按钮上显示指定的讯息。 :button //组件名称 { 属性="属性值" ; } 属性 label 显示在按钮中的提示文字。 key 其属性值即为使用该按钮组件的关键词。 width 指定按钮的显示宽度。 height 指定按钮的显示高度。 fixed_width 通常与width属性一并使用，以固定按钮的显示宽度。 fixed_height 通常与height属性一并使用，以固定按钮的显示高度。 is_enable 可设定按钮是否可以使用，其属性值可设定为true（可使用）或false（禁用，按钮中的消息正文变为灰色显示），默认值为true。 is_default 属性值可设定为true或false。当使用者按下接受键（大部份的情况，ENTER被用作接受键）时，本属性设定为true的组件会自动被选取，当使用者在allow_accept属性设为true的编辑框，列表框或图像按钮中按下接受键或双击鼠标键(只对列表框及图像按钮有效)时，本属性设定为true的组件亦会自动被选取。 alignment 如果组件成水平方向排列，属性值可设定为left，right或centered（若不设定则预设为left）。如果组件成垂直方向排列，属性值可设定为top，bottom或centered（若不设定则预设为centered）。 其它属性 action is_cancel is_tab_top mnemonic 第2节 核取框（切换钮）组件（toggle） 是一个启用或关闭的切换方框，当方框中没有剔勾符号时，表示该功能为关闭状态，其组件的值为0，当方框中有剔勾符号时，表示该功能为启用状态，其组件的值为1。 :toggle //组件名称 { 属性="属性值" ; } 属性 label 显示在切换钮后面（右边）的提示文字。 key 其属性值即为使用该按钮组件的关键词。 is_enable 可设定切换钮是否可以使用，其属性值可设定为true（可使用）或false（禁用），默认值为true。 value 方框中没有剔勾符号时，表示该功能为关闭状态，其组件的值为0（亦是默认值），相反则为启用状态，组件的值为1。 alignment 如果组件成水平方向排列，属性值可设定为left，right或centered（若不设定则预设为left）。如果组件成垂直方向排列，属性值可设定为top，bottom或centered（若不设定则预设为centered）。 其它属性 action is_tab_stop width heigth fixed_width fixed_heigth 第3节 练习 在四边形的对话框中，增加一核取框，以确定是否在四边形中加上交叉的对角线。另在对话框的底部增加两个按钮，按下时可使核取框作用或禁用。 定义档 将RECT4.DCL复制至RECT5.DCL，在新的定义档中增加核取框及按钮定义。 RECT:dialog { label="Rectangle" ; :edit_box { label="Rectangle width : " ; key="RECT_W" ; edit_limit=16; edit_width=10; fixed_width=true; value="50.0"; } :edit_box { label="Rectangle height :" ; key="RECT_H" ; edit_limit=16; edit_width=10; fixed_width=true; value="25.0"; } :toggle //新增的核取框(切换钮)组件 { label="X line in rectangle" ; key="RECT_X" ; } :button //新增的按钮组件 { label="&Enable" ; key="RECT_E" ; width=10; fixed_width=true; } :button //新增的按钮组件 { label="&Disable" ; key="RECT_D" ; width=10; fixed_width=true; } ok_only; } 定义说明： 第1至第18行的定义，与上一课练习RECT4.DCL定义相同，不再叙述。 19 以冒号开始，定义一个切换钮组件。 20 切换钮的开大括号，以label属性定义切换钮右边的消息正文。 21 以key属性设定切换钮的操作关键词。 22 关大括号是对应第20行的开大括号，此对大括号同属于第19行的切换钮组件。 23 以冒号开始，定义一个按钮组件。 24 按钮的开大括号，以label属性定义按钮上显示的消息正文。注意：字符串的&符号，表示设定在该符号右边的一个字母为快捷键。在显示时，&符号不会出现，但&符号右边的一个字符会以加底线显示。 25 以key属性设定按钮的操作关键词。 26 以width属性设定按钮的宽度，否则按钮会自动加长并占用整列的长度。 27 fixed_width属性设定为true，使按钮以固定的宽度显示。 28 关大括号是对应第24行的开大括号，此对大括号同属于第23行的按钮组件。 29至34 与上个按钮的定义类似（23至28行），但其label及key的属性值不同。 35 定义一个确定按钮，以结束对话框。 36 关大括号是对应第2行的开大括号，此对大括号同属于第1行的dialog组件。 程序文件 将RECT4.LSP复制至RECT5.LSP，其程序代码如下： (DEFUN C:RECT() (SETQ DCL_ID (LOAD_DIALOG "C:/RECT5.DCL")) (NEW_DIALOG "RECT" DCL_ID) (SET_TILE "RECT_W" "50.0") (SET_TILE "RECT_H" "25.0") (ACTION_TILE "accept" "(S_RECT)(DONE_DIALOG)") (ACTION_TILE "RECT_E" "(MODE_TILE \"RECT_X\" 0)") ;设定使用按钮的动作 (ACTION_TILE "RECT_D" "(MODE_TILE \"RECT_X\" 1)") ;设定禁用按钮的动作 (START_DIALOG)(UNLOAD_DIALOG DCL_ID) (SETQ PT_0 (GETPOINT "\nSelect rectangle lower left point : ")) (SETQ PT_1 (POLAR PT_0 0 TMP_W) PT_2 (POLAR PT_1 (/ PI 2) TMP_H) PT_3 (POLAR PT_2 PI TMP_W)) (COMMAND "PLINE" PT_0 PT_1 PT_2 PT_3 "C") (IF (= TMP_X 1) (COMMAND"LINE" PT_0 PT_2 "" "LINE" PT_1 PT_3 "")) (PRINC)) (DEFUN S_RECT() (SETQ TMP_W (ABS (ATOF (GET_TILE "RECT_W"))) TMP_H (ABS (ATOF (GET_TILE "RECT_H"))) TMP_X (ATOI (GET_TILE "RECT_X"))) ;取得切换钮的状态 ) 主程序(RECT)说明： 1至5 与程序RECT4.LSP相同，主要是加载及显示对话框，并设定其中的组件。 6 使用ACTION_TILE函数，设定当按下ENABLE按钮(关键词为RECT_E)时，所执行的动作。使用MODE_TILE函数，设定切换钮（关键词为RECT_X）的状态为0，使其处于作用状态。注意指定的动作为字符串型，前后要加上双引号"；而包含在字符串中的双引号，则必须以反斜线加双引号\"表示。 7 与第6行相似，设定按下DISABLE按钮（关键词为RECT_D）时，将切换钮的状态设为1，使其处于禁用状态。 8至13 与程序RECT4.LSP相同，主要是用作画出四边形。 14 使用IF函数检查变量TMP_X（在辅助程序中取得，表示切换钮的状态）是否为1，若是则以COMMAND函数，执行两个LINE指令，画出四边形的对角线。 15 以一个不带参数的PRINC函数，抑制多余的显示及返回值。最右边的关括号是对应第1行DEFUN函数左边的开括号。 辅助程序(S_RECT)说明： 1，2 大致与RECT4.LSP的辅助程序相同，都是取得编辑框内的数据并存入变量中。 3 使用GET_TILE函数取得切换钮（关键词为RECT_X）的状态（返回值是字符串，"0"是使用，"1"是禁用），再用ATOI函数将返回的字符串变为整数，存入变量TMP_X，供主程序第14行的IF函数，判断是否需要加上对角线。注意，返回值转型后，结果只会是1或0，因此不须使用ABS函数取其绝对值。 4 关括号与1行DEFUN函数左边的开括号对应。 第五篇 横列、直行、空白及文字组件 第1节 横列（row）及直行（column）组件 其实这两个都不算是实体的组件，只是用作指定后续的其它组件的排列格式。 指定为横列时，则包含在此组件一对大括号中的所有组件，均作水平左至右排列，直行时则呈垂直上至下排列。 若不指定组件的排列格式时，则预设为直行格式。 若指定其label属性，则会在外围加一矩形线框（包含在大括号中间的其它组件则显示在线框中），其属性值则为该线框左上角的标题文字，若不设定则没有线框及标题。 row :column { 其它组件或属性 { 其它组件或属性 } } 属性 alignment fixed_height fixed_width height width label 框列（boxed_row）及框行（boxed_column）组件 不论是否设定其label属性，均有矩形的线框包含中间的各个组件。若不设定此属性，则没有标题显示在线框的左上角。 :boxed_row :boxed_column { 其它组件或属性 { 其它组件或属性 } } 属性 与横列及直行相同 第2节 空白（spacer）组件 可在对话框中加入空白组件，使其它组件移位，增加空间，美化对话框等作用。空白组件有下列3种： 若不设定属性时，则不需在组件名称前加冒号，亦不需一对大括号，但需要在组件的名称后面加上分号。 组件spacer在不设定其属性时，在垂直方向(直行)为半个字符高度，组件spacer_1则为一个字符高度。 组件spacer_0在不设定其属性时，其高度为0，但夹在其它横向排列的组件中时，会自动扩大并与相邻的组件同高同宽。 :spacer :spacer_0 :spacer_1 { 属性=属性值; { 属性=属性值; { 属性=属性值; } } } 属性 alignment fixed_heigh fixed_width height width 练习 在RECT对话框内，使两个按钮（Enable及Disable）水平排列在同一横列上，并增加空间使两按钮置中如下图： 定义档 将RECT5.DCL复制至RECT6.DCL，修改的定义如下： 程序文件 将RECT5.LSP复制至RECT6.LSP，程序中只须修改加载的定义档名称。 RECT:dialog { label="Rectangle" ; :edit_box { label="Rectangle width : " ; key="RECT_W" ; edit_limit=16; edit_width=10; fixed_width=true; value="50.0"; } :edit_box { label="Rectangle height :" ; key="RECT_H" ; edit_limit=16; edit_width=10; fixed_width=true; value="25.0"; } :toggle { label="X line in rectangle" ; key="RECT_X" ; } :row //新增的横列组件 { spacer_0; //开大括号及空间组件 :button { label="&Enable" ; key="RECT_E" ; width=10; fixed_width=true; } spacer_0; //开大括号及空间组件 :button { label="&Disable" ; key="RECT_D" ; width=10; fixed_width=true; } spacer_0; //开大括号及空间组件 } //横列的关括号 ok_only; } 定义说明： 1至2 定义对话框名称;定义dialog组件及其属性。 3至10 定义输入宽度的编辑框（关键词RECT_W）及其属性。 11至18 定义输入高度的编辑框（关键词RECT_H）及其属性。 19至22 定义切换钮（关键词RECT_X）及其属性。 23 定义一个不设属性的横列row组件。 24 横列组件的开大括号，以包含其它的组件。设定空间组件spacer_0，使第一个按钮左边的空间自动扩宽。 25至30 设定按钮（关键词RECT_E）组件及其属性。 31 设定空间组件spacer_0，使两个按钮中间的空间自动扩宽。 32至37 设定按钮（关键词RECT_D）组件及其属性。 38 设定空间组件spacer_0，使第二个按钮右边的空间自动扩宽。 39 关大括号是对应第24行的开大括号，该对大括号同属于第23行的横列组件。使包含在中间的两个按钮组件会水平排列显示。 40 显示一个确定按钮。 41 关大括号是对应第2行的开大括号，该对大括号同属于第1行的dialog组件。 第3节 字符串组件（text） 在对话框中显示一列文字。在label属性值的字符串中，可以使用以下之特殊符号： \" 显示双引号： \t 使文字跳至下一个定位点。 \n 使文字符串换行。 \\ 注意这个不是批注符号，它可以在字符串中加上反斜线。 :text { 属性="属性值" ; } 属性 is_bold 若设定其属性值为true则文字以粗体显示；若为false则正常显示 其它属性 alignment fixed_width fixed_height width height key label value 符串组件（text_part） 其组件的字符串形式不同于字符串组件text，在组件中的宇串，其边距（margin）为0。当要将多个组件并合成新字符串时，中间不会有多余的空间。组件亦是组成文字段落组件paragraph及单列字符串组组件concatenation的元素。 :text_part { 属性="属性值" ; } 属性 alignment fixed_width fixed_height width height label 第4节 文字段落组件 （paragraph） 可由上一课的字符串组件text及字符串组件text_part组合而成，一般用于组合静态（不会动态更改）的文字符串。 :paragraph { 属性="属性值" ; //文字段落组件的属性 :字符串组件或字符串组件 { 属性="属性值" ; //字符串组件或字符串组件的属性 } } 属性 action alignment fixed_width fixed_height height width is_cancel is_default is_enabled is_tab_stop key cabel mnemonic 拼接文字组件 （concatenation） 可由上一课的字符串组件text及字符串组件text_part组合而成，一般用于组合随时更新的文字符串。 :concatenation { 属性="属性值" ; //拼接文字组件的属性 :字符串组件或字符串组件 { 属性="属性值" ; //字符串组件或字符串组件的属性 } } 属性 action alignment fixed_width fixed_height height width is_cancel is_default is_enabled is_tab_stop key cabel mnemonic 注意： 在上述“文字段落”组件及“拼接文字”组件中，若设定其label属性，则会以线框包围其中所组成的文字，而label属性的设定值会成为线框标题文字。 第六篇 滑杆（滚动条）组件 第1节 滑杆（滚动条）组件（slider） 使用者可使用鼠标拖曳滑杆中的方块或点选滑杆左右两边的箭头，选取在指定范围内的值。 滑杆水平放置时，数值自左向右增加。垂直放置时，数值由底向顶增加。 :slider { 属性="属性值" ; } 属性 value 设定滑杆组件的初始值。 big_increment 控制滑杆移动时的增量，默认值为整个范围值(min_value至max_value)的10份1 。 small_increment 控制滑杆移动时的增量，默认值为整个范围值(min_value至max_value)的100份1 。 max_value 设定滑杆组件范围值的最大值。 min_value 设定滑杆组件范围值的最小值。 layout 设定滑杆组件是水平放置（horizontal）还是垂直放置（vertical），预设为水平放置。 其它属性 action alignment key mnemonic fixed_width fixed_height width heigth label 第2节 练习 建立新的对话框定义文档PGON.DCL，存于C盘的根目录中，在对话框顶部有一编辑框，初始值为10，中间为一滑杆，范围值从1至20，下边有一消息正文显示滑杆的选取值，当移动滑杆时，上边编辑框的内容，及下边的讯息会跟随改变，在更改编辑框的内容后（按ENTER），滑杆及讯息亦会随之改变。 PGON:dialog { label="Polygon" ; :edit_box //编辑框组件 { label="Polygon edge :" ; key="PGON_E" ; edit_limit=2; edit_width=2; fixed_width=true; value=10; } spacer; //空间组件 :slider //滑杆组件 { key="PGON_S" ; min_value=1; max_value=20; big_increment=2; small_increment=1; value=10; width=25; fixed_width=true; } :concatenation //拼接组件 { :text_part //文字组件 { label="Drawn a" ; } :text_part //文字组件 { label="10" ; key="PGON_T" ; } :text_part //文字组件 { label="edge polygon" ; } } ok_only; } 定义说明： 1 定义对话框名称为PGON，以冒号开始dialog组件。 2 dialog组件的开大括号，设定其label属性（对话框标题）为“Polygon”。 3至10 设定一编辑框，其关键词为PGON_E，并以value属性设定其初始值为10。 11 设定一空间组件spacer，以增加编辑框与下面的滑杆之垂直距离。 12 以冒号开始，设定一滑杆组件slider 。 13 滑杆组件的开大括号，设定滑杆属性key的操作关键词为PGON_S 。 14，15 设定滑杆范围的最小值（属性min_value）为1，最大值（属性max_value）为20。 16，17 设定滑杆的增量，大幅移动（属性big_increment）时为2，小量移动（属性small_increment）时为1。 18 用属性value设定滑杆显示的初始值为10。 19，20 设定滑杆的宽度（属性width），并以固定的宽度（属性fixed_width）显示。 21 关大括号是对应第13行的开大括号，这对大括号同属于第12行的滑杆组件。 22 以冒号开始，设定一拼接文字concatenation组件。 23 属于拼接组件的开大括号，以冒号开始，设定第一个文字组件text_part 。 24 属于第一个文字组件的开大括号，并以label属性设定组件所显示的文字讯息。 25 关大括号是对应上一行的开大括号，这对大括号同属于第23行的文字组件。 26 以冒号开始，设定第二个文字组件text_part 。 27 属于第二个文字组件的开大括号，并以label属性设定组件所显示的初始文字讯息。 28 用key属性设定此文字组件的操作关键词为PGON_T。注意：上一个及下一个文字组件，因为不需在程序中动态修改其内容，固不需设定其关键词。 29 关大括号是对应第27行的开大括号，这对大括号同属于第26行的文字组件。 30 以冒号开始，设定第三个文字组件text_part 。 31 属于第三个文字组件的开大括号，并以label属性设定组件所显示的文字讯息。 32 关大括号是对应上一行的开大括号，这对大括号同属于第30行的文字组件。 33 关大括号是对应第23行的开大括号，这对大括号同属于第22行的拼接文字concatenation组件。 34 定义一个确定钮。 35 最后一行的关大括号是对应第2行的开大括号，这对大括号同属于第1行的dialog组件。 建立新的程序文件PGON.LSP，存于C盘的根目录。程序代码如下： (DEFUN C:PGON() (SETQ DCL_ID (LOAD_DIALOG "C:/PGON.DCL"