请教一个画圆的问题

我做了一个简单的画圆程序 不知道怎么回事无法实现 ，请高手帮忙看看问题出在哪啊。

LISP程序

(defun c:rect()
 (setq dcl_id (load_dialog "circle"))
 (new_dialog "rect" dcl_id)
 (action_tile "accept" "(sae_alue)")
 (start_dialog) (unload_dialog dcl_id)
)
(defun c:yuan()
 (setq pt (getpoint "输入圆心坐标:"))
 (setq r (getreal "输入半径"))
 (command "circle" pt r )
)
(defun sae_alue ()
 (setq r (atof (get_tile "react_h"))
 (setq pt (atof (get_tile "react_w"))
 (done_dialog)
)

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;
}