기존 dwg 열어서 문자 수정한 후 다른 이름으로 저장

 

🔎 acad lisp 기존 dwg 열어서 문자 수정한 후 다른 이름으로 저장하는 리습: Google 검색

(vl-load-com)

(defun c:CHG_SAVEAS ( / acadObj docsObj targetFile saveFile oldText newText dbxDoc)
  (setq acadObj (vlax-get-acad-object))
  (setq docsObj (vla-get-documents acadObj))
  
  ;; 1. 사용자 입력 받기
  (setq targetFile (getfiled "원본 DWG 파일 선택" "" "dwg" 0))
  (if (not targetFile) (exit))
  
  (setq saveFile (getfiled "새로운 이름으로 저장할 경로 및 이름 지정" targetFile "dwg" 1))
  (if (not saveFile) (exit))
  
  (setq oldText (getstring t "\n찾을 문자 입력: "))
  (setq newText (getstring t "\n바꿀 문자 입력: "))
  
  ;; 2. ObjectDBX를 이용해 파일 백그라운드 오픈 (화면 깜빡임 없음)
  (setq dbxDoc (vla-GetInterfaceObject acadObj 
                 (strcat "ObjectDBX.AxDbDocument." (substr (getvar "ACADVER") 1 2))
               )
  )
  
  (if (vl-catch-all-error-p (vl-catch-all-apply 'vla-open (list dbxDoc targetFile)))
    (progn
      (princ "\n파일을 열 수 없습니다. 경로를 확인하세요.")
      (vlax-release-object dbxDoc)
      (exit)
    )
  )
  
  ;; 3. Model Space 및 Paper Space 내 문자 탐색 및 수정
  (vlax-for layout (vla-get-Layouts dbxDoc)
    (vlax-for obj (vla-get-Block layout)
      ;; 일반 TEXT 또는 MTEXT 확인
      (if (vl-position (vla-get-ObjectName obj) '("AcDbText" "AcDbMText"))
        (progn
          ;; 원하는 문자열을 포함하고 있는지 확인 후 교체
          (if (vl-string-search oldText (vla-get-TextString obj))
            (vla-put-TextString obj 
              (vl-string-subst newText oldText (vla-get-TextString obj))
            )
          )
        )
      )
    )
  )
  
  ;; 4. 다른 이름으로 저장 후 객체 해제
  (if (vl-catch-all-error-p (vl-catch-all-apply 'vla-saveas (list dbxDoc saveFile)))
    (princ "\n저장에 실패했습니다. 파일이 열려있거나 경로가 올바르지 않습니다.")
    (princ (strcat "\n성공적으로 변경되어 저장되었습니다: " saveFile))
  )
  
  (vlax-release-object dbxDoc)
  (princ)
)