리습 초보입니다.
DCL.파일
FAN4 : dialog {
label = “그리기”;
: column {
: list_box {
label = “4A FAN :”;
width = 25;
key = “4a”;
}
: list_box {
label = “4b FAN :”;
width = 25;
key = “4b”;
}
}
ok_cancel;
}
LSP 파일
(defun c:f4()
(setq id (load_dialog “4FAN.dcl”))
(new_dialog “FAN4” id)
(setq fan4a (list “line” “pline”))
(setq fan4b (list “circle” “ellipse”))
(start_list “4a”)
(mapcar ‘add_list fan4a)
(end_list)
(action_tile “4a” “(setq num (atoi $value))”)
(start_list “4b”)
(mapcar ‘add_list fan4b)
(end_list)
(action_tile “4b” “(setq num (atoi $value))”)
(setq ok (start_dialog))
(if (= ok 1)
(progn
(setq cmd (nth num fan4a))
(setq cmd (nth num fan4b))
(command cmd)
)
)
(unload_dialog id)
(princ)
)
위와 같이 열심히 했는데…
4a을 받지를 못하네요..
line을 선택해도 원만 자꾸 그려지네요..
어디가 틀런건가요..
부탁드립니다.