各位高手:下面的是我编第一个对话框小程序,运行不了,望大家指导

lzgxklable

各位高手:下面的是我编第一个对话框小程序,运行不了,望大家指导
(defun c:qxtest()
  (setq dcl_id (load_dialog "qxtest.dcl"))
  (if (not (new_dialog "qx6" dcl_id)) (exit))
  (set_tile "xx" "0")
  (set_tile "yy" "0")
  
  (action_tile "xx" "(setq xx1 $value)")
  (action_tile "yy" "(setq yy1 $value)")
  (action_tile "accept" "(ok)")
  
  (start_dialog )
  (done_dialog)
  (unload_dialog dcl_id)
)

(defun ok()
         
         (command "circle" (list xx1 yy1) 200 "")
            
         ;(done_dialog)
)




qxtest.dcl文件是:
qx6:dialog{
label = "学习dcl";
:row {
:edit_box{
label="输入X坐标";
mneonic="NX";
key="xx";
edit_width=15;
}
:edit_box{
label="输入Y坐标";
mneonic="NY";
key = "yy";
edit_width=15;
}
} spacer_1;
ok_cancel_err;
}

Andyhon

好些观念没建立
先补些课:
http://www.afralisp.net/archive/lispa/lisp47.htm