안녕하세요.
문자를 수정하는데 어려움이 있어서 고수님들께 도움을 요청합니다.
지금 이 밑에있는 리습은 예를들어 09-01-30을 -만 빼는 리습입니다.
이 리습에 조금 변형해서 09.01.30이란문자를 09.11.01로 문자를 바구려고 하는데 제가 해봤지만 잘 안돼더라고요 고수님들 많은 도움 바랍니다.

(defun c:mm()
  (vl-load-com)
  (setq #sel_file (getfiled ” Select DWG file”  “.” “dwg” 4))
  (setq #sel_dir (vl-filename-directory #sel_file))
  (setq #dwg_list (vl-directory-files #sel_dir “*.dwg” 1))

  (setq #acadver (atoi (getvar “acadver”)))
  (startapp “regsvr32.exe” (strcat “/s ”” “Axdb” (itoa #acadver) “.dll” “””))
  (setq #dbxdoc (vla-GetInterfaceObject (vlax-get-acad-object) (strcat “ObjectDBX.AxDbDocument.” (itoa #acadver))))
 
  (setq #n 0)
  (while (setq #dwg_name (nth #n #dwg_list))
      (setq #dwg_file (strcat #sel_dir “\” #dwg_name))
      (print #dwg_file)
      (vla-open #dbxdoc #dwg_file)  
      (vlax-for #obj (vla-get-modelspace #dbxdoc)
        (if (and (= (vla-get-objectname #obj) “AcDbText”)  (wcmatch (vla-get-textstring #obj) “*-*.dwg”)  )
           (progn
              (setq #text (vla-get-textstring #obj))
              (print #text)
              (setq #text (apply ‘strcat (mapcar ‘chr (vl-remove 45 (vl-string->list #text)))))
              (print #text)
              (vla-put-textstring #obj #text)
           )
        )
      )
      (vla-saveas #dbxdoc #dwg_file)
      (setq #n (1+ #n))
  )
  (vlax-release-object #dbxdoc)
)

문자나 숫자를 수정하려고하는데 -01.dwg를 01.dwg로 변환하려고 합니다
리습으로 만들어서 스크립으로 돌리려고 합니다.
고수님들 부탁드립니다.
단)_폴더명을 바꾸는것이 아니고 도면내 표제란의 도면번호를 바꾸는 겁니다.
*일반 문자이고 모형탭에 있습니다.
-clod마크되어있는곳이 수정할부분입니다.
전체도면을 다 01.dwg로 바꾸면 됩니다.