[LISP程序]：怎样获取由对话框输入的数据？？请各位大虾指点一二！！

benbenzhuzhu

小弟刚开始学vlisp，想做个简单的对话框，结果很失败。搞不懂到底是什么问题，请各位大虾指点！！谢谢！！！
另外，get_tile与$value各是什么作用？？有什么区别？

如下面例子：
(defun c:circle ()
  (if (> (setq dcl_id (load_dialog "circle")) 0)
     (progn
        (if (new_dialog "ciecle" dcl_id)
            (progn
                (set_tile "circle_edit" (rtos r1 2 2))
                (action "accept" "(setq r1 (atof (get_tile "circle_edit")))")
                (actiom "cancel" "(done_dialog)")
            )
          )
      (start_dialog)
     (draw)
     )
    )
   (unload_dialog dcl_id)
)

(defun draw(/ r)
  (setq p0 (getpoint "基点:"))
  (setq r r1)
  (command "circle" p0 r "")
)

circle:dialog{
:edit_box{
label="输入半径:";
key="circle_edit";
}
}