各位高手:下面的是我编第一个对话框小程序,运行不了,望大家指导
各位高手:下面的是我编第一个对话框小程序,运行不了,望大家指导(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;
}
好些观念没建立
先补些课:
http://www.afralisp.net/archive/lispa/lisp47.htm
页:
[1]