求助

bdwzx

我在对话框里设置了６个开关和两个按钮，这两个按钮分别是＂全选＂和＂全清楚＂，这两个按钮的动作如何实现？

ZZXXQQ

在ACTION_TILE函数中调用的LISP函数中用SET_TILE函数更改指定的KEY。

bdwzx

dia1:dialog{
label="";
:toggle{label="滑轮座";
key="bb1";}
:toggle{label="齿轮油泵";
key="bb2";}
:toggle{label="减速箱";
key="bb3";}
:row{
:button{label="全选";
key="bb4";}
:button{label="全清除";
key="bb5";}}
ok_cancel;
}
(defun c:sw()
   (dcl_dia1)
  (prin1))
(defun dcl_dia1()
  (setq dcl_id (load_dialog "d:/w.dcl"))
  (new_dialog "dia1" dcl_id)
(action_tile "bb4" "(setq dd 2)") 
(action_tile "bb5" "(setq dd 3)")
  (setq dd (start_dialog))
(cond ((= dd 2)(ok_all))
      ((= dd 3)(ok_clear))
  ))
(defun ok_all()
  (set_tile "bb1" "1")
  (set_tile "bb2" "1")
   (set_tile "bb3" "1"))
 (defun ok_all()
  (set_tile "bb1" "0")
  (set_tile "bb2" "0")
   (set_tile "bb3" "0"))