程序有点问题，麻烦大家帮忙看一下

edata

(defun c:dia5a()
(setvar "cmdecho" 0)
(dcl_dia5a)
(prin1)
)
(defun dcl_dia5a()
(setq dcl_id (load_dialog "wenzi.dcl"))
(new_dialog "wenzi" dcl_id)
;(setq qq (get_tile "zi"))
(action_tile "accept" "(setq qq(get_tile \"zi\"))(done_dialog 1)")
(setq oke (start_dialog))
(unload_dialog dcl_id)
(if (= OKE 1)
    (ok_dia5a)
)
  
)
(defun ok_dia5a()
  (setq pt0(getpoint))
(command "_.text" "j" "m" pt0 10 0 qq)
)