(defun *error* (msg)
(princ “error : “)
(princ msg)
(terpri)
(princ)
);error msg
(DEFUN C:e-03 ()
(SETVAR “DRAGMODE” 2)
(SETVAR “HIGHLIGHT” 1)
(prompt “nInsert drawing lisp program … “)
(IF (/= L:3 NIL)
(PROGN (SETQ L:0 “c:/symbol/sym/e-03”);setq close
(SETQ L:5 (GETPOINT “n Insert point : “))
(COMMAND “INSERT” L:0 L:5 L:1 L:2 L:3)
)
(PROGN (SETQ L:0 “c:/symbol/sym/e-03”);setq close
(SETQ L:5 (GETPOINT “n Insert point : “))
(SETQ L:1 (GETSTRING “n X scale factor : “))
(SETQ L:2 (GETSTRING “n Y scale factor : “))
(SETQ L:3 (GETSTRING “n Angle : “))
(COMMAND “INSERT” L:0 L:5 L:1 L:2 L:3)
(SETQ L:3 NIL)
)
)
(PRIN1)
)
요렇게 되어있는데 이게 심볼을 불러와서 사용하는 리습인데 실행을 어찌할수있는걸까여
아시는분 제발 답변 부탁드립니다.
감사합니다.