求助程序问题！

bdwzx

我在对话框里设置了3个开关和两个按钮，这两个按钮分别是＂全选＂和＂全清楚＂，这两个按钮的动作如何实现？我编程序没动作，麻烦给看一下：dia1:dialog{

2. dia1:dialog{
3. label="";
4. :toggle{label="滑轮座";
5. key="bb1";}
6. :toggle{label="齿轮油泵";
7. key="bb2";}
8. :toggle{label="减速箱";
9. key="bb3";}
10. :row{
11. :button{label="全选";
12. key="bb4";}
13. :button{label="全清除";
14. key="bb5";}}
15. ok_cancel;
16. }

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; }

2. (defun c:sw()
3.    (dcl_dia1)
4.   (prin1))
5. (defun dcl_dia1()
6.   (setq dcl_id (load_dialog "d:/w.dcl"))
7.   (new_dialog "dia1" dcl_id)
8. (action_tile "bb4" "(setq dd 2)")  
9. (action_tile "bb5" "(setq dd 3)")
10.   (setq dd (start_dialog))
11. (cond ((= dd 2)(ok_all))
12.       ((= dd 3)(ok_clear))
13.   ))
14. (defun ok_all()
15.   (set_tile "bb1" "1")
16.   (set_tile "bb2" "1")
17.    (set_tile "bb3" "1"))
18. (defun ok_all()
19.   (set_tile "bb1" "0")
20.   (set_tile "bb2" "0")
21.    (set_tile "bb3" "0"))

(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"))

meflying

你这样是要退出对话框才有动作,,,DCL_DIA1函数这样改:

(defun dcl_dia1()
  (setq dcl_id (load_dialog "d:/w.dcl"))
  (new_dialog "dia1" dcl_id)
(action_tile "bb4" "(ok_all)") 
(action_tile "bb5" "(ok_clear)")
  (setq dd (start_dialog))
)

bdwzx

我按照你的程序试了，还是没有动作，请再指教

xazhji

(setq dd (start_dialog))
是结束对话框后得值！

ZZXXQQ

更改后的程序：

 

bdwzx

做好了，非常感谢！！！