[求助]：求助：dcl的小问题

20020672

求助:关于dcl的一个小问题,请进来帮助

我写了个dcl文件,是关于画圆的程序:

RECT:dialog  
{  label="画圆程序" ;  
:edit_box  //编辑框元件  
{  label="输入圆心 : " ;  
  key="RECT_W" ;  
  edit_limit=16;  
  edit_width=20;  
  fixed_width=true;  
}  
:edit_box  //编辑框元件  
{  label="输入半径 :" ;  
  key="RECT_H" ;  
  edit_limit=16;  
  edit_width=20;  
  fixed_width=true;  
}

ok_cancel;  
}

lisp 程序:

(DEFUN C:RECT()  (SETQ DCL_ID (LOAD_DIALOG "C:/RECT.DCL"))  
(NEW_DIALOG "RECT" DCL_ID)  
(START_DIALOG) (UNLOAD_DIALOG DCL_ID)  
)

画圆程序:

(defun yuan ()
  (setq pt (getpoint "输入圆心坐标："))
  (setq r (getreal "输入半径"))
  (command "circle" pt r ))

请大家帮助一下,我怎么才能把窗口中显示的"输入圆心","输入半径"跟画圆程序中的pt和r结合起来啊?即在对话框里输入数据后，程序便可以自动画图了

flashhorse

action_tile  为某一控件指定一个动作表达式。当用户在对话本框中选择了这个控件时，就会对这个动作表达式进行求值。
(action_tile "accept" "(save_value)")   ;;把这段语句加在new_dialog和start_dialog之间

再加入
(defun save_value ()
         (setq r (atof (get_tile "react_h"))
          (setq pt (atof (get_tile "react_w"))         
          (done_dialog)                
)