안녕하십니까. 고캐드 여러 능력자 분들의 도움으로 열일 하고 있는 직장인 입니다.
이전 치수 스타일 변경과 관련하여 많은 고캐드 능력자 분들의 도움을 받아서 잘쓰고 있는데요.
개선이 필요한 부분이 있어 질문 올립니다.
====================================
(defun c:RR(/ name len new name len new)
(setq name(getvar ‘dwgname))
(setq len(strlen name))
(setq new(substr name 1 (- len 4)))
(command “_rename” “d” “PNP-치수-ver3” new)
(setq name(getvar ‘dwgname))
(setq len(strlen name))
(setq new(substr name 1 (- len 3)))
(command “_rename” “d” “PNP-치수-ver3$7” new)
(princ)
)
=====================================
상기 LISP은 일부만 있는거구요, 제가 LISP 짜집기를 해서
1. 치수 스타일 이름을 파일명으로 바꿈.
2. 도면내 모든 속성 BLOCK을 데이터 유지시킨상태에서 분해.
3. 도면내 모든 문자에 대하여 길이를 0으로 변경시킴
이렇게 진행되어야 하는데 정상적인 경우라면 동작을 잘합니다. 그런데
만약 파일 이름에 특수문자나, 쉼표등이 존재 할 경우 그리고 치수스타일이 없을때
오류로 인해 2번째 단계로 진행이 안됩니다.
치수 스타일 “PNP-치수-ver3″을(를) 찾을 수 없음.
; 오류: 함수가 취소되었습니다
이전 치수 스타일 이름 입력:
이게 보통 20~30장을 한번에 하는거라서 일일이 치수 스타일 이름을 입력하기가 힘든
상황이구요.
이런 비정상적인 상황에서는 그냥 건너 뛰는 방법이 있을까요??