DCL1 DLC 포함 리습 샘플 (defun c:SAMPLE1() (sample1_create_dialog) (setq dcl (strcat "SAMPLE1.DCL")) (setq dcl_id (load_dialog dcl)) (if (not (new_dialog "sample1" dcl_id)) (exit)) (action_tile "li" "(done_dialog 1)") (action_tile "ci" "(done_dialog 2)") (action_tile "pl" "(done_dialog 3)") (action_tile "in" "(done_dialog 4)") (setq wn (start_dialog)) (unload_dialog dcl_id) (cond ( (= wn 1)(command "line")) ( (= wn 2)(.. 2023. 2. 14. 이전 1 다음