LISP对话框

函数返回值一定是 NIL。
第2节
对话框开启方式
(DEFUN C:函数名称( ) (SETQ 变量 (LOAD_DIALOG "对话框定义档"))
(NEW_DIALOG "对话框名称" 变量)
(START_DIALOG) (UNLOAD_DIALOG 变数)
)
程序说明：
1 以 DEFUN 函数定义程序的名称，使用 LOAD_DIALOG 函数加载指定的对话框定义档，
开启并显示对话框
(NEW_DIALOG "对话框名称" 档案处理码 ["预设动作" [对话框位置]])
例如 (NEW_DIALOG "RECT" DCL_ID)
对话框名称为字符串，要在前后加双引号。注意，在一个定义档中，可包含多个对话框名
称及其定义。
档案处理码是经由 LOAD_DIALOG 函数取得。
中，以方便其它函数使用。
2 使用 NEW_DIALOG，开启及显示定义文件中（档案处理码）名称为 RECT 的对话框。
3 使用 START_DIALOG 函数，使对话框开始作用并接受使用者输入（在本例中只有确定
钮可按），使用 UNLOAD_DIALOG 函数以结束对话框。
4 关括号是对应第 1 行 DEFUN 函数左边的开括号，结束整个程序。
等)
第4节
对话框定义文件的内容模式
对话框名称:dialog
{ label="对话框标题" ;
:组件名称
{ 属性名称=属性值;
}
//组件定义结束
}
//对话框结束
定义说明：

1 对话框名称就是由 AutoLISP 程序启动对话框时所呼叫的名称。可以自行设定，要区分
大小写字母。dialog 为对话框中最外层的组件（即整个对话框），其它的组件均包含在其中。
3 text 为字符串组件，其作用是在对话框中显示文字，组件名称前要加冒号。
4 最左边为 text 组件的开大括号，接着是其属性 label，并以等号设定其属性值为"Rectangle
width"，最后以分号结束此行叙述。
5 关大括号是对应第 4 行的开大括号，这对大括号同属于第 3 行的 text 组件。
若返回值为 1，表示使用者按下确定钮结束对话框；0 表示按下取消钮；-1 表示全部对话
框都以 TERM_DIALOG 函数终止；大于 1 的整数，其意义由应用程序决定。
释放(卸载)对话框
(UNLOAD_DIALOG "档案处理码")
例如
(UNLOAD_DIALOG DCL_ID)
从内存释放档案处理码（经由 LOAD_DIALOG 函数取得）指定的对话框定义档。
注意：
虽然定义档巳经完成，但仍要待学习完第 2 篇的课程后，才能开启及显示该对话框。
第二篇 开启对话框
第1节
AutoLISP 函数
加载 DCL 定义文件函数
(LOAD_DIALOG "对话框定义档名称")
例如
(LOAD_DIALOG "C:/RECT.DCL")
自变量是要加载的对话框定义文件名称字符串（所以要在前后加双引号）；若不设定扩展
只会在指定的目录内寻找。
不可以参考 ACAD.DCL 所定义的对话框，即不可以使用@include "acad.dcl"
预视对话框
若在 Visual LISP 中开启一对话框定义文件，即可使用：
工具 -- 接口工具 -- 预览编辑器 DCL
在下拉式列示框中，选取该定义文件中所设定的对话框名称，即可预视对话框
key 其属性值即为使用该组件的关键词，以便在 AutoLISP 程序中操控此组件。在同一个
对话框定义中，不能有相同名称的关键词定义。
edit_limit 指定在编辑框中可输入字符串的最大字符长度。
edit_width 指定编辑框显示时的宽度(通常与 fixed_width 属性一拼使用)。
value 指定编辑框显示时的默认值（注意，显示数值数据时，要先用 AutoLISP 函数将数
dcl_settings : default_dcl_settings {audit_level = 3;}
等级 0 不检查：只有在该定义档巳被检核，且不再作修改时使用。
等级 1 错误：找出可能造成 AutoCAD 终止的错误，此等级为默认值。
等级 2 警告：找出配置或行为模式的错误，所有定义在修改后，最少应执行此等级的检查
:text //文字组件 { label="Rectangle width :" ; //组件的属性 } ok_only;
}
定义说明：
1 设定对话框的名称为 RECT，紧接一个以冒号开始的组件 dialog
2 最左边为 dialog 组件的开大括号，接着是其属性 label，并以等号设定其属性值为
"Rectangle"，以分号结束此行叙述。
的错误。
第2节
定义档
BASE.DCL 预设在 SUPPORT 的目录中，它包含了各组件的原型定义及各类型巳定义的
其它基本组件。而所有自行开发的对话框定义文件，都可以使用在 BASE.DCL 定义文件中
的各个组件。
ACAD.DCL 预设在 SUPPORT 的目录中，它包含了 AutoCAD 中所有标准对话框的定义
言）所建立。
在 AutoLISP 程序中，配合可编程对话框（Porgrammable Dialog Box，简称 PDB）函数，
激活及操控对话框。
可以在一个定义档（扩展名 DCL）中定义多个对话框。
对话框由方块本身，及包含于其内的组件（或称为控件、构件）所组成。
每个组件的属性定义均包含在一对大括号{ }中。
第一篇 基本知识
第1节
基本知识
对话框是现今最流行的人机互动面接口;在早期的 AutoCAD 版本中巳经使用，但只有在 R12
版本开始，才提供给使用者自行编程的对话框开发功能。
对话框的描述定义在一纯文字文件（扩展名为 DCL）内，无须特别的开发环境。
定义文件中的对话框描述，均以对话控制语言（Dialog Control Language，简称 DCL 语
第3节
编辑框组件(edit_box)
供使用者直接输入字符串的矩形方框。注意，在编辑框中所显示及输入的数据均为字符串型
态，而数字则要在取得编辑框的字符串内容后(在下一篇中介绍)，使用 AutoLISP 函数将其
转为数值型数据。
:edit_box //组件名称
{
属性="属性值" ;
}
属性 label 显示在编辑框前面(左边)的提示文字。
开始接受使用者输入
(START_DIALOG)
函数不须提供任何自变量。
使前一个用 NEW_DIALOG 函数开启的对话框开始作用，直至动作表示式或回复函数呼
叫 DONE_DIALOG 函数为止。
一般 DONE_DIALOG 与关键词 accept（一般是按下确定按钮）或关键词 cancel（一般
是按下取消按钮）相关。
(NEW_DIALOG "RECT" DCL_ID)
(START_DIALOG) (UNLOAD_DIALOG DCL_ID)
)
程序说明：
1 以 DEFUN 函数定义程序的名称为 RECT，使用 LOAD_DIALOG 函数将对话框定义文件
RECT.DCL 载入，使用 SETQ 函数，将 LOAD_DIALOG 返回的档案处理码存入变量 DCL_ID
4 关括号是对应第 1 行 DEFUN 函数左边的开括号，结束整个程序。
练习
编写一 AutoLISP 程序，以开启上一课所定义的对话框，并将该程序命名为 RECT.LSP，存
于 C 盘的根目录中，程序代码如下：
(DEFUN C:RECT() (SETQ DCL_ID (LOAD_DIALOG "C:/RECT.DCL"))
4 开大括号{紧随组件名称之后，以包含组件的属性或其它组件。
包含在组件中的属性，要以等号＝赋以其右边的属性值，最后以分号;结束该行叙述。
5 关大括号}与第 4 行的开大括号}对应，以结束该组件（第 3 行）之定义。
双除号//右边的文字即为批注。
6 关大括号}与第 2 行的开大括号}对应，以结束该组件之定义（在本例中为整个对话框的
6 ok_only 为一“按钮组件”，它的作用是在对话框中显示一个“确定（OK）”按钮。在
一个对话框中，最少必需提供一个“确定”按钮，或一个“取消”按钮（组件名称为
cancel_button），以作为结束对话框之用。本例中不设定按钮之属性，固不需以冒号放在
组件名称的前面，但却需要以分号结束。
7 关大括号是对应第 2 行的开大括号，这对大括号同属于第 1 行的 dialog 组件。
一般组件要以冒号:开始，并为小写字母，因为不是属性，所以不须使用分号;结束。
2 开大括号{紧随组件名称之后，以包含该组件的属性或其它组件。label 为属性名称，并
以等号＝赋以其右边的属性值，最后以分号;结束该行叙述。
3 包含在对话框中的其它组件。
组件要以冒号:开始，并为小写字母，因为不是属性，所以不须使用分号;结束。
据转为字符型）。
fixed_width 通常与 width 属性一拼使用，以固定编辑框显示时的宽度(其属性值可设定为 true 或 false)。
is_enable 可设定编辑框是否可以使用（其属性值可设定为 true 或 false，默认值为 true）。
预设动作为字符串表示式。函数可以不加预设动作，或以空字符串""表示。