[LISP]及对话框问题请教大虾

chenxianbi

我编写了一个程序，想点击radio_button后赋与popup_list 不同的列表，但列表长度（项数）不一样，但选取长的列表中的值时,只能选取后两项.请教大虾：部份程序如下： (defun c:aaa ()
(setq dcl_id1 (load_dialog "aaa.dcl"))
(if (null (new_dialog "aaa" dcl_id1))
(exit)
)
(ACTION_TILE "alum1" "(gettype)")
(ACTION_TILE "alumplastic" "(gettype)")
(action_tile
"splatethk"
"(sub_disp (nth (atoi $value) splatethk-list))"
)
(start_dialog)
(unload_dialog dcl_id1)
(princ)
) (defun sub_disp (newstr)
(set_tile "splatethk" newstr)
(prin1)
) (defun gettype ()
(setq m1 (GET_TILE "alum1"))
(setq m2 (GET_TILE "alumplastic"))
(COND ((= m1 "1")
(SETQ splatethk-list
(list "2.0"
"2.5"
"3.0"
"4.0"
)
)
)
((= m2 "1")
(SETQ splatethk-list
(list "4.0"
"6.0"
)
)
)
)
(start_list "splatethk")
(mapcar 'add_list splatethk-list)
(end_list)
(set_tile "splatethk" "0")
) aaa: dialog {
label = "金属幕墙计算程序--------cxb编于2005年04月";
:boxed_column{
label="设计地震荷载qE:";
:popup_list {
label = "金属板厚度Tgl(mm):";
key ="splatethk";
value="0";
list="2.0\n2.5\n3.0\n4.0";
fixed_width=true;
}
:boxed_radio_column {
label = "金属板类型:";
:radio_button {
label = "单层铝板";
key = "alum1";
value=1;
}
:radio_button {
label = "铝塑复合板";
key = "alumplastic";

}
}
:button{
label ="刷新数据";
key = "updatemetal";
width=20;
height=4;
fixed_width=true;
}
}
ok_cancel;
}

meflying

不明白你的意思