[己解決]如何由選單1 控制選單2 內容?

各位先進,小弟有一程式百思不得其解,想請大家幫忙找 bug
目的是由 選單1(管嘴尺寸) , 控制選單2(銲管等級) 的內容
若有更好的方法,也請不吝告訴後進, tks /^O^/
------
test01.lsp
------
(defun c:test01()
(setq Noz_size_list '("1/2\"" "3/4\"" "1\""))
(setq ns_list '("0a" "0b" "1a" "01"))
(setq 0a_sch_list '("STD." "160" "XXS"));3/4
(setq 0b_sch_list '("STD." "160" "XXS"));1/2
(setq 01_sch_list '("STD." "160" "XXS"));1
(dcl_nzdt)
)
(defun dcl_nzdt()
(setq dcl_id (load_dialog "test01"))
(new_dialog "test01" dcl_id)
(show_list "Noz_size" Noz_size_list)
(action_tile "Noz_size" "(recomm_Noz_sch)")
(action_tile "accept" "(done_dialog 1)")
(setq dd (start_dialog))
)
(defun show_list(key newlist)
(start_list key 3)
(mapcar 'add_list newlist )
(end_list)
)
(defun recomm_Noz_sch()
(setq nos_size (atoi (get_tile "Noz_size")))
(setq ns (nth nos_size ns_list))
(setq pip_sch_list (strcat ns "_sch_list"))
(prompt (strcat "\nSch_list_name:" pip_sch_list))
(show_list "Pip_sch" pip_sch_list)
(setq comm_corr_0_sch '(0 0 0))
(setq no_comm_0 (nth nos_size comm_corr_0_sch))
(setq comm_0 (nth no_comm_0 pip_sch_list))
(prompt (strcat "\n0:" comm_0))
)
------
test01.dcl
------
test01:dialog{
:column{
:popup_list{label ="管嘴尺寸";key="Noz_size";}
:popup_list{label ="銲管等級";key="Pip_sch";}
:text{key ="Pip_sch_comd";}
}
ok_cancel_err;
}

選擇選單一時,取得它的值,在利用判斷式來顯示想要的列表並取得其值

謝謝 shenhung 大大
熱心給予詳盡的解說與指導 , 在下受益良多,
尤其是 (eval (read val)) 的用法正是程式瓶頸所在,
感謝不吝分享,衝破瓶頸 !