특정 치수 스타일 이름을 파일명으로 바꾸는 LISP 있을까요?
인벤터로 도면 작성 후 CAD로 변환하면 치수 스타일 이름이 모두 같게되어 변환됩니다.
그래서 다른 도면에 복사+붙여넣기 할때 치수 스타일이 이상하게 변경되는 문제가 있는데요
지금까지는 100장 200장의 도면이 있으면 모두 일일이 다 변환하여 넣고 있습니다. ㅜ ㅜ
혹시나해서 물어 보는건데요 “XXXXX” 이름의 치수 스타일명이 있다면 그것을 파일명과
동일한 이름으로 변경되는 리습 있을까요??
리습만들기 넘 어려워요,,, 공부해도 안되네요.. ㅜ ㅜ
능력자 님들 도와 주세요!!!!
내영혼의외침Lv.0
특정 치수 스타일 이름을 파일명으로 바꾸는 LISP 있을까요?
공유
참고로 인벤터에서 변환되었을때 스타일명은 두가지가 생성되며, 항상 동일한 이름을 가집니다.
(command “-layer” “r” 이전레이어명 바꿀레이어명
(defun c:ff(/ name len new )
(setq name(getvar ‘dwgname))
(setq len(strlen name))
(setq new(substr name 1 (- len 4)))
(command “_rename” “d” “치수스타일이름” new)
(princ)
)
치수스타일이름에 변환하실 이름 입력하세요..
감사 합니다 덕분에 퇴근시간 1시간은 빨라진듯 하네요 ㅎㅎ