2对话框驱动及应用实例.ppt

矩形对话框驱动程序（rect.lsp)： 例4 多圆对话框设计 多圆对话框定义（yuan.dcl)： 多圆对话框驱动程序设计（yuan.lsp)：  能够编写对话框文件，仅仅是迈出了对话框设计的第一步，事实上，编写对话框文件比较容易，而要控制对话框，使之实现应有的功能，就要下更大的功夫。要显示编写的对话框并有效控制它，需要结合AutoLISP编程。 AutoLISP提供了处理对话框的各种管理函数，利用它们可以实现DCL文件的各种控制。 对话框驱动及应用实例  1) action_tile函数 格式： (action_tile 控件操作名 动作描述符） 功能：将控件与操作表达式联系起来。当用户选择了该控件时，就执行操作表达式所指定的内容。 例: (action_tile “a3” “(setq l 594 h 420 c 5)”) (action_tile “accept” “(done_dialog)”) (action_tile “cancel” “(setq a –1) (done_dialog)”) 1 常用对话框处理函数  2) add_list函数 格式：(add_list 字串） 功能：将指定的字串加入到当前已激活的列表中。 例: (add_list “1 1.5 2 2.25 2.5 3 3.5 4 5”) 3) client_data_tile函数 格式: (client_data_tile 控件操作名 数据属性名) 功能：把应用程序专用数据与由参数控制操作名指定的控件相联系。  4) dimx_tile函数和dimy_tile函数 格式：(dimx_tile 控件操作名） 或（dimy_tile 控件操作名） 功能：用于获得控件的宽度和高度。控件的坐标原点在控件的左上角。 5) done_dialog函数 格式: (done_dialog [结束码 ] ) 功能： 结束当前对话框。结束码是由（start_dialog)函数返回的值，可以省去，若有，必须为正整数。  6) end_image函数 格式：(end_image) 功能：结束创建当前活动图像，一般应与（start_image)函数成对调用。 7) end_list函数 格式: (end_list) 功能： 结束当前列表框或弹出式列表的选择列表项的处理。一般与(start_list)函数成对出现。  8) fill_image函数 格式：(fill_image x1 y1 x2 y2 color) 功能：在当前激活的图像中画填充矩形。该矩形的两个角点坐标是(x1, y1)和(x2, y2), color为填充的颜色号。 9) get_attr函数 格式: (get_attr 控件操作名 属性名) 功能： 获取DCL文件中指定控件和属性的属性值。  10) get_tile函数 格式：(get_tile 控件操作名) 功能：得到正在运行的控件的关键字的值。返回该控件的value属性值的字符串。 11) load_dialog函数 格式: (load_dialog 对话框文件名) 功能： 加载一个DCL文件中，这个DCL文件可以包含多个对话框的定义。若加载成功该函数返回一个整数，否则，返回一个负整数。  12) mode_tile函数 格式：(mode_tile 控件操作名 mode) 功能：用于设置控件的显示状态。参数mode的值和含义见下表： mode 含义 0 启用控件 1 禁用控件 2 设置聚焦的控件 3 高亮度显示编辑框中的内容 4 切换图像控件的高亮度显示  13) new_dialog函数 格式：(new_dialog 对话框名 dcl_id) 功能：初始化并显示对话框，若该函数调用成功，将返回T，否则返回NIL。参数dcl_id为（load_dialog)函数返回的值。 14) set_tile函数 格式：(set_tile 控件操作名 value) 功能：设置控件的值，参数value是要新设置的值，为字符串类型。  15) slide_image函数 格式：(slide_image x1 y1 x2 y2 幻灯片名) 功能：在当前激活的图像控件中显示一个AutoCAD幻灯片。显示位置由坐标点(x1,y1)和(x2,y2)指定。 16) start_dialog函数 格式：(start_dialog ) 功能：开始对话框并接受用户输入。在调用该函数之前，你必须通过(new_dialog)函数来初始化。同时这个对话框必须在一个动作表