为什么 action_tile 后面不能用 自定义函数(drawcircle)？

Question

(action_tile "accept" "(getdata) (done_dialog 1)") ;getdata调用的函数(action_tile "cancel" "(done_dialog 0)");done_dialog 当点击按钮回传一个值(setq std (start_dialog)) ;接收 action_tile回传值(unload_dialog dlg_id) ;卸载对话框dcl(if (= std 1)(command "circle" (list x y) r))(defun getdata()(setq x (atof (get_tile "e_x"))) ;atof 字符串转换成实型数字(setq y (atof (get_tile "e_y")))(setq r (atof (get_tile "e_r")))以上这样正确，但是(ation_tile "accept" "(getdata) (drawcircle) (done_dialog 1)") (action_tile "cancel" (done_dialog 0))(setq std (start_dialog))(unload_dialog dlg_id);;;;这样就错误 (defun drawcircle(）(command "circle" (list x y) r))

Answer 1

action_title (done_dialog 0) 外面要加上双引号。

Answer 2

对话框文件是扩展名为．dcl的文本文件，符合dcl对话框控制语言的语法。但对话框文件本身并不能工作，还必须要用autolisp或ads应用程序调用。

对话框由主对话框和其内部的各种片型框组成，其结构为数状。图1．1为一对话框结构示例，树叶是各种片型框，树根为dialog；图1．2为其在autocad中的显示。
在可编程对话框pdb中已预定义了以下基本片型框：

：dialog 对话

：button 按钮

：edit_box 编辑框

：list_box 列表框

：image_button 图像按钮

：popup_list 弹出表

：radio_button 单选按钮

：slider 滚动条

：toggle 开关

每个片型框包含一系列的属性，这些属性的值确定了片型框的位置、大小、长度、高度和文件标识等，例如lable属性确定了在片型框上显示的文字。用户可以根据dcl语法将这些基本的片型框组装起来，形成更为复杂，功能更为详尽的对话框，也可以定义与基本片型框无关的新片型框，并将其与基本片型框组合成新的片型框组。为了方便对话框的布局，可将一行或一列片型框当作一个新的片型框，并在其周围画上边框。对话框的基本布局有以下几种：

：column 列。定义，可以与行、列嵌套。

：row 行。片型框组按行平行分布，显示顺序同column，也可与行列嵌套。

：radio_column 单选列。包含一列单选片型框，同时只能选择一个片型框。

：radio_row 单选行。包含一行单选片型框，同时只能选择一个片型框。

：boxed_column 有界列。列的周围画上边框。

：boxed_row 有界行。行的周围画上边框。

：boxed_radio_column有界单选列。在单选列的周围画上边框。

：boxed_radio_row 有界单选行。在单选行的周围画上边框。

用户可以定义自己的属性，不过在一般情况下仅使用pdb预定义的属性就可以满足程序的要求了。当片型框中的属性未被指定时，pdb将赋于其缺省值。没片型框的预定义属性也各不相同，但布局属性和功能属性则是所有有效片型框的公共属性，这些公共属性是：

aligment 片型框的定位方式；

width height 片型框的宽度和高度；

fixed_width fixed_height 其值为true时，片型框大小固定不变；

children_aligment 子片型框的定位属性；

children_fixed_width 子片型框的宽度固定属性；

children_fixed_height 子片型框的固定高度属性；

label 显示在片型框内或左上方的文字；

key 指定程序引用片型框的文本字符串，在指定的对话框中，每个key的值应该是唯一的；

value 片型框的初始值，为一字符串；

mnemonic 片型框内快捷键，即带下划线的字母；

is_enabled 值为false时，片型框不可选；

is_tab_stop 值为false时，片型框不接受tab聚焦；

action 指定片型框时，对应的autolisp程序进行的操作。

另外，片型框还包括图像框image、文本框text和衬框spacer，这三种片型框只是起修饰作用和加强视觉效果，不能引起任何操作。

dcl文件采用c语言的风格，每个分号表示一名，每个片型框的定义用一对大括号括起来；注释在单行时用//，多行时可采用/*注释语句*/的形式。

下面以一个简单的例子说明dcl的编程，图2是调用example.dcl的显示。

//example.dcl对话框示例文件

test:dialog{

label="dialog example";

:text{//文本片型框

label="this is aexample.";

}

:button{//按钮片型框

key="accept";

//关键字key为accept

label="ok";//标号为ok

mnemonic="o";

//按alt_o键可以选择ok按钮

fixed_width=true;

//按钮的宽度固定不变

aligment=centered;

//按钮以中心对齐

is_default=true;

}

}

pdb在base.dcl中还提供了一组标准的按钮群，在我们自己的dcl文件中可以直接使用：

：ok_only单个ok按钮；

：lk_cancel ok按钮和cancel两个按钮；

：ok_cncel_help ok、cancel和help…三个按钮；

：ok_cncel_help_info ok、cancel、help…和info…四个按钮。

文本文件的对话框文件自身本身不能工作，需要用autolisp或ads应用程序调用对话框文件才行，ads的效率比较高，但掌握起来要困难一些，autolisp程序较为烦琐，但比较容易掌握。autolisp提供了一组管理对话框的函数包，处理用户与对话框之间的交互。下面是最重要的几个函数：

(load_dialog dclfile)用与装入一个dcl文件，返回一个整数标识。

(unload_dialog dcl_id)卸载标识为dcl_id的dcl文件。

(new_dialog dialog_name dcl_id)初始化对话框，并在屏幕显示对话框，其中dialog_name是在对话框文件中定义的对话框名称。

(start_dialog)启动对话框，并接受用户的输入信息。

(done_dialog)终止对话框信息的输入，并且停止显示对话框。

(action_tile key action_express)处理用户的选择，将片型框与应用程序中的对应操作联系起来，key是片型框的关键字。

下面的autolisp程序就是对上面的example.dcl对话框文件的管理：

；；；example.dcl管理example.dcl对话框文件的autolisp程序

(defun c:showdcl(/dcl_id)

(setq dcl_id (load_dialog"example.dcl"))

(if(not(new_dialog"test"dcl_id))

(exit))

(action_tile

"accept"

"(done_dialog)")

(start_dialog)

(unload_dialog dcl_id)

)

在autocad中显示图2对话框的过程如下：

command:(load"example.lsp")

c:showdcl

command:showdel