这个有三个KEY的DCL文件怎么得到最后选择的那个，谢谢

ZZXXQQ

(defun ko-test (DoubleClick_en DoubleClick_Point / tempname dclname dclid dd)
(setq dclname
(cond  
((setq tempname (vl-filename-mktemp "ko-dcl-tmp.dcl") filen (open tempname "w"))
(foreach stream  
'(  
"da:dialog{\n"
"   label=\"面积单位KEY得到测试--LISP:2009.5.5 CopyRight(C) koyote\";\n"
"   :row{\n"
"      :boxed_radio_row{       \n"
"       key=\"dw\";\n"
"          :radio_button{\n"
"             label=\"平方米\";\n"
"             key=\"a\";\n"
"\n"
"          }\n"
"          :radio_button{\n"
"             label=\"亩\";\n"
"             key=\"b\";\n"
"             value=\"1\";\n"
"          }\n"
"          :radio_button{\n"
"             label=\"公倾\";\n"
"             key=\"c\";\n"
"          }\n"
"      }\n"
"   }\n"
"    spacer_1;\n"
"    ok_cancel;\n"
"}\n"
)
(princ stream filen)
)
(close filen)
tempname
)))
(setq dclid (load_dialog dclname))
(if (not (new_dialog "da" dclid)) (progn (alert "dcl对话框加载失败.")(exit)))
(action_tile "accept" "(setq aa (get_tile \"dw\"))(done_dialog 1)")
(setq dd (start_dialog))
(unload_dialog dclid)
(vl-file-delete dclname)
(if (= dd 1) (princ aa))
(print)
)

xyp1964

2. (defun c:tt ()
3.   (xyp-initSet '(k1 k2 k3) '("1" "0" "0"))
4.   (setq Ilst '((nil nil ":boxed_radio_column{label="面积单位";")
5.         ("k1" "平方米" "radio")
6.         ("k2" "亩" "radio")
7.         ("k3" "公倾" "radio")
8.         (nil nil "}")
9.         (nil nil "spacer;")
10.        )
11.   )
12.   (if (= (xyp-Dcl-Init Ilst "【面积标注】" t) 1)
13.     (alert "\n单选开关测试")
14.   )
15.   (princ)
16. )

(defun c:tt ()   (xyp-initSet '(k1 k2 k3) '("1" "0" "0"))   (setq Ilst '((nil nil ":boxed_radio_column{label="面积单位";")         ("k1" "平方米" "radio")         ("k2" "亩" "radio")         ("k3" "公倾" "radio")         (nil nil "}")         (nil nil "spacer;")        )   )   (if (= (xyp-Dcl-Init Ilst "【面积标注】" t) 1)     (alert "\n单选开关测试")   )   (princ) )