auto cad 2013버전 사용중 LISP과 DCL을 사용해서 필요한 작업을 짜려고 우선 예제 테스트 중인데 다음과 같은 오류가 나네요.
Command: MY_DCL
; error: no function definition: NEW
Command:
LISP과 DCL은 다음과 같은 단순 예제로 테스트 해봤습니다.
LISP (MY_DCL.lsp) =================================================
(defun c:MY_DCL()
(setq dcl_id (load_dialog “MY_DCL.dcl”))
(if (not (new _dialog “MY_DCL” dcl_id) )(exit))
(action_tile “cancel” “(setq dn 1)(done_dialog)”)
(action_tile “accept” “(setq dn 2)(done_dialog)”)
(start_dialog)
(unload_dialog dcl_id)
(if (=dn 1)
(princ “n n …DCL_TEST Cancelled.n “)
)
(if (= dn 2)
(alert “You pressed the OKAY button!”)
)
(princ)
)
DCL (MY_DCL.dcl) =================================================
MY_DCL : dialog {
: boxed_row {
: button {
key =”accept”;
label = “okay”;
is_default = true;
}
:button {
key = “cancel”;
label = “Cancel”;
is_default = false;
is_cancel = true;
}
}
}
우선 LISP과 DCL은 같은 폴더에 저장했고 파일명은 앞에 써있는바와 같습니다.
캐드상에서 appload 로 LISP을 load시킨 후 command 창에 “MY_DCL”이란 함수를 실행시키면 앞에 적은 에러가 나면서 아무것도 뜨질 않습니다.
LISP, DCL 고수님 도움이 필요합니다.
감사합니다.
모든 답글 감사드립니다. 많은 도움 되었어요!!