[求助]对话框控件置灰

HONG112

一个对话框里有两个单选按钮a,b和一个普通按钮c,如何编写lisp实现按下a时,按钮c被置灰,按下b时,按钮c可以使用.我想应该是用(mode_tile " " 1)来做吧?可我试了n次都不行,对话框一闪而过,请哪位高手教教我应该如何实现这个动作,谢谢!

ZZXXQQ

试一下： (action_tile "a" "(SETQ A (ATOI $value))(SET_TILE \"b\" \"0\")(togscr)")
(action_tile "b" "(SETQ B (ATOI $value))(SET_TILE \"a\" \"0\")(togscr)") (defun togscr ()
(if (= A 1) (mode_tile "c" 1))
(if (= B 1) (mode_tile "c" 0))
)

HONG112

还是不行呀,大侠再看看好吗?拜托,拜托!

lockmyeye

程序内容如下： (DEFUN c:test (/ dcl_filename dcl_index dcl_name)
(SETQ dcl_filename "dialog_test.dcl"
dcl_name "test"
)
(IF (<= (SETQ dcl_index (LOAD_DIALOG dcl_filename)) 0)
(*error* (STRCAT "不能装入对话框文件“" dcl_filename "”。"))
)
(IF (NOT (NEW_DIALOG dcl_name dcl_index))
(PROGN
(UNLOAD_DIALOG dcl_index)
(*error* (STRCAT "在对话框文件“" dcl_filename "”中不能开始对话框“" dcl_name "”。"))
)
)
(ACTION_TILE "test" "(mode_tile \"c\"(if (= \"a\" $value) 1 0))")
(IF (> (START_DIALOG) 0)
(PRINC) ;作相应的处理
)
(UNLOAD_DIALOG dcl_index)
(PRINC)
) 对话框内容如下： test:dialog{
label = "Test";
: radio_row {
key = "test";
: radio_button {
key = "a";
label = "&A";
}
: radio_button {
key = "b";
label = "&B";
}
}
: edit_box {
key = "c";
label = "&C";
width = 10;
}
ok_cancel;
}

ZZXXQQ

程序：

2. (DEFUN C:TEST ()
3.   (IF (> (SETQ DCL_ID (LOAD_DIALOG "TEST")) 0)
4.    (IF (NEW_DIALOG "test" DCL_ID "") (PROGN
5.      (action_tile "test" "(SETQ TS $value) (togscr)")
6.      (action_tile "accept"   "(DONE_DIALOG 1)")
7.      (action_tile "cancel" "(DONE_DIALOG 0)")
8.      (SETQ RE (START_DIALOG))
9.    ) (PROGN
10.      (ALERT "Unable to display dialog box!\n无法显示对话框！")
11.      (UNLOAD_DIALOG DCL_ID)
12.    ))
13.    (ALERT "Unable to load dialog box!\n无法装载对话框！")
14.   )
15. )(defun togscr ()
16.   (if (= ts "a") (mode_tile "c" 1) (mode_tile "c" 0))
17. )

(DEFUN C:TEST ()   (IF (> (SETQ DCL_ID (LOAD_DIALOG "TEST")) 0)    (IF (NEW_DIALOG "test" DCL_ID "") (PROGN      (action_tile "test" "(SETQ TS $value) (togscr)")      (action_tile "accept"   "(DONE_DIALOG 1)")      (action_tile "cancel" "(DONE_DIALOG 0)")      (SETQ RE (START_DIALOG))    ) (PROGN      (ALERT "Unable to display dialog box!\n无法显示对话框！")      (UNLOAD_DIALOG DCL_ID)    ))    (ALERT "Unable to load dialog box!\n无法装载对话框！")   ) )(defun togscr ()   (if (= ts "a") (mode_tile "c" 1) (mode_tile "c" 0)) )

对话框

2. dcl_settings : default_dcl_settings { audit_level = 3; }
3. test : dialog {
4.      : radio_row {
5.            value = "b" ;
6.            key = "test" ;
7.            : radio_button {
8.                  key = "a" ;
9.                  label = "a" ;
10.            }
11.            : radio_button {
12.                  key = "b" ;
13.                  label = "b" ;
14.            }
15.      }
16.      : button {
17.            key = "c" ;
18.            label = "c" ;
19.      }
20.        ok_cancel ;
21. }

dcl_settings : default_dcl_settings { audit_level = 3; } test : dialog {      : radio_row {            value = "b" ;            key = "test" ;            : radio_button {                  key = "a" ;                  label = "a" ;            }            : radio_button {                  key = "b" ;                  label = "b" ;            }      }      : button {            key = "c" ;            label = "c" ;      }        ok_cancel ; }

HONG112

谢谢ZZXXQQ和lockmyeye的回答,问题已解决是用ZZXXQQ的方法做的,不过lockmyeye方法也可以,在此给二位大侠送上一朵鲜花,以表谢意.