[求助]怎么反向选择?

psufngah

就是在点选全部选项时,所有的都选择了,但我现在要再选一次全部,把全部选项按钮换成空的,但其它的三个怎么也变成初始状态?

再如,我再增加一个按钮如选前面二项的,要求,在选中全部选项后,再点这个增加的按钮,.就只会选前面二项,全部按钮和第三项按钮都变成空的初始状态?

这下面是我写的一部份,麻烦DX帮忙修改下,多谢

(setq dcl_id(load_dialog "F:\\s04.dcl"))
(new_dialog "s04" dcl_id)
(action_tile "YY" "(tt)")
(action_tile "accpet" "(sss)(done_dialog)")
(start_dialog)(unload_dialog dcl_id)

(defun sss()(setq t1 (ATOI (GET_TILE "XX"))
                  t2 (ATOI (GET_TILE "XY"))
           t3 (ATOI (GET_TILE "YX"))
    t4 (ATOI (GET_TILE "YY"))))
(defun tt()(set_tile "XX" "1")
           (set_tile "XY" "1")
           (set_tile "YX" "1"))

ZZXXQQ

3. (setq tog T)
4. (setq dcl_id(load_dialog "F:\\s04.dcl"))
5. (new_dialog "s04" dcl_id)
6. (action_tile "YY" "(tt)")
7. (action_tile "accpet" "(sss)(done_dialog)")
8. (start_dialog)(unload_dialog dcl_id)
10. (defun sss()
11. (setq t1 (ATOI (GET_TILE "XX"))
12.        t2 (ATOI (GET_TILE "XY"))
13.        t3 (ATOI (GET_TILE "YX"))
14.        t4 (ATOI (GET_TILE "YY")))
15. )
16. (defun tt()
17. (if tog (progn
18. (set_tile "XX" "1")
19. (set_tile "XY" "1")
20. (set_tile "YX" "1")
21. (setq tog nil)
22. ) (progn
23. (set_tile "XX" "0")
24. (set_tile "XY" "0")
25. (set_tile "YX" "0")
26. (setq tog T)
27. ))
28. )

(setq tog T) (setq dcl_id(load_dialog "F:\\s04.dcl")) (new_dialog "s04" dcl_id) (action_tile "YY" "(tt)") (action_tile "accpet" "(sss)(done_dialog)") (start_dialog)(unload_dialog dcl_id) (defun sss() (setq t1 (ATOI (GET_TILE "XX"))        t2 (ATOI (GET_TILE "XY"))        t3 (ATOI (GET_TILE "YX"))        t4 (ATOI (GET_TILE "YY"))) ) (defun tt() (if tog (progn (set_tile "XX" "1") (set_tile "XY" "1") (set_tile "YX" "1") (setq tog nil) ) (progn (set_tile "XX" "0") (set_tile "XY" "0") (set_tile "YX" "0") (setq tog T) )) )

psufngah

OK,谢谢了,