[求助]：求助:请各位看看这段小程序,感激!

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 "d:/RECT.DCL"))  
(NEW_DIALOG "RECT" DCL_ID)
(action_tile "accept" "(save_value)")
  
  (START_DIALOG) (UNLOAD_DIALOG DCL_ID)
  

(done_dialog)
)

(defun c:save_value()
(setq r (atof (get_tile "RECT_H"))
(setq pt (atof (get_tile "RECT_W"))
      (command "circle" pt r )
)
我不知道是哪错了,现在好急啊!请大家赐教好吗?

eachy

1 首先 第二个函数中的括号不对

2 (defun c:save_value() 与前面的 (action_tile "accept" "(save_value)") 不符

3 command 命令不能放到函数内，要在 对话框 (done_dialog) 后才可以执行