list_box_test: dialog{
label=” Test…”;
:popup_list{
label=”1번리스트”;
key=”list1″;
}
:popup_list{
label=”2번리스트”;
key=”list2″;
}
ok_cancel;
}
(defun c:zzz3()
(DEFUN MY_LIST ()
(IF (= M_LIST1 “가”)
(PROGN
(START_LIST “list2”)(MAPCAR ‘ADD_LIST Alist)(END_LIST))
(PROGN
(START_LIST “list2”)(MAPCAR ‘ADD_LIST Blist)(END_LIST))))
(setq DCL_ID (load_dialog “list_box_test”))
(new_dialog “list_box_test” DCL_ID)
(setq KLIST (list “가” “나”))
(setq Alist (list “A1” “A2” “A3” “A4”))
(setq Blist (list “B1” “B2” “B3” “B4”))
(START_LIST “list1”)
(MAPCAR ‘ADD_LIST KLIST)
(END_LIST)
(ACTION_TILE “list1” “(SETQ M_LIST1 $VALUE)(MY_LIST)”)
(SETQ OK (START_DIALOG))
(DONE_DIALOG)
(UNLOAD_DIALOG DCL_ID)
)
1번리스트에서(LIST1)에서 “가” 를 선택할경우
2번리스트에서(LIST2)”Alist” 를 뿌려주고
1번리스트에서(LIST1)에서 “나” 를 선택할경우
2번리스트에서(LIST2)”Blist” 를 뿌려주는 프로그램 작성을 하려고 하는데
잘 안되네요 부탁드립니다. 자세히 설명을 좀 해주시면 고맙겠습니다.
아직 초보라서 너무 어려운데요