我的对话框是这样的:
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"))) )
请问怎么处理? |