再问：怎样给对话框里的属性赋不同的值？

bdwzx

我的对话框是这样的：

dia1:dialog{
:column{
:row{:radio_button{label="mc1";
key="m1";}
:radio_button{label="mc2";
key="m2";}
:radio_button{label="mc3";
key="m3";}}
......
:row{label="分解位置";
:edit_box{label="X方向距离";key="kx";width=1;}
:edit_box{label="Y方向距离";key="ky";width=1;}
:edit_box{label="Z方向距离";key="kz";width=1;}
}
ok_cancel;}}

我想给mc1、mc2、mc3……赋值为“轴”、“齿轮”……

我的驱动程序是这样的：

(defun c:ww()
  (stvar "cmdecho" 0)
  (dcl_dia1)
  (prin1))
(defun dcl_dia1()
 (setq va_list '("m1" "m2" "m3"))
  (setq mc_list '(list "轴" "齿轮" "垫片"))
??????

(setq dcl_id(load_dialog "h:/w"))
  (new_dialog "dia1" dcl_id)
  (set_tile "m1" "100")
  (set_tile "kx" "100")
  (set_tile "ky" "100")
  (set_tile "kz" "100")
  (action_tile "m1" "(setq i 1)(okd)")
  (action_tile "m2" "(setq i 2)(okd)")
  (action_tile "m3" "(setq i 3)(okd)")
  (setq dd(start_dialog))
  )
 (defun okd()
   (setq dx (atof (get_tile "kx")))
     (setq dy (atof (get_tile "ky")))
     (setq dz (atof (get_tile "kz")))
   )

请问怎么处理？

ZZXXQQ

将对话框
......
:column{
:row{:radio_button{label="mc1";
key="m1";}
:radio_button{label="mc2";
key="m2";}
:radio_button{label="mc3";
key="m3";}}
......
改成
:boxed_row {
 label="";
 :column {
  :text {label="";key="mc1";}
  :text {label="";key="mc2";}
  :text {label="";key="mc3";}
 }
 :radio_column {
  key="mx"; value="m1";
  :radio_button{label="";key="m1";}
  :radio_button{label="";key="m2";}
  :radio_button{label="";key="m3";}
 }
}
在LISP程序中对前面text的key赋值就行了。

bdwzx

谢谢