홈/ 질문/Q 113016
다음
진행 중
KhaXiz
Lv.0
등록일: 2021-04-15T16:53:35+09:00 카테고리:

캐드 find 명령어 대체 리습 문의드립니다.

캐드상으로 특정 텍스트 내용을 일괄 선택후 치환하는 리습을 사용하고 싶습니다.

find 명령어를 활용하여 작업중이지만 find입력후 멀티창 나오는게 너무 번거로워서…

” find 엔터 -> 찾을내용 입렵 -> 대치할 내용 입력 ->  전체 대치 “
하는 이 행정을 리습을 통해 하나의 단축키명령어로 사용하고 싶습니다.
예를들어 하나의 도면 파일 내에 “abcd123” 이라는 dtext 객체가 여러개 있을때

모든 “abcd123” dtext 객체를 선택하여 전부 “Hello” 로 변환하는 방식입니다…

find로 예를 들어보면

찾을내용 = abcd123

대치할 내용 = Hello

전체 대치 = YES
가 되겠네요
아직 22살 핏덩이라 리습에 관해서 막히는 부분이 많네요.. 고수님들 도움요청드립니다 ㅠㅠ
공유

    관련 있는 질문들

    2 답변

    1. aalan
    2. Lv.0

      EZCad의 EZFind 명령에는 텍스트 일괄 변경 기능이 있습니다.

      개인, 기업 모두 무료입니다.
      • 0
    3. Lv.0
      구글링해서 FindReplaceAll 이라는 루틴하나 주워왔습니다.
      전체대치는 굳이 필요하지않을 것 같아 넣이 않았습니다.
      (defun c:test ( / str1 str2 )
        (setq str1 (getstring “n찾을 문자 입력 : ” T))
        (setq str2 (getstring “n대치할 문자 입력 : ” T))
        (FindReplace str1 str2)
      )
      (defun FindReplaceAll (Find$ Replace$ / BlkEntList@ BlkEntName^ BlkEntType$ Cnt#
       DimEntList@ DimEntName^ DimEntType$ EntList@ EntName^ EntType$ FindReplace:
       Mid$ Mid2$ NewText$ Num# Replace$ SS& Text$)
       (defun FindReplace: (Str$ Find$ Replace$ / Cnt# FindLen# Loop Mid$ NewStr$ ReplaceLen#)
         (setq Loop t Cnt# 1 NewStr$ Str$ FindLen# (strlen Find$) ReplaceLen# (strlen Replace$))
         (while Loop
           (setq Mid$ (substr NewStr$ Cnt# FindLen#))
           (if (= Mid$ Find$)
             (setq NewStr$ (strcat (substr NewStr$ 1 (1- Cnt#)) Replace$ (substr NewStr$ (+ Cnt# FindLen#)))
                   Cnt# (+ Cnt# ReplaceLen#)
             );setq
             (setq Cnt# (1+ Cnt#))
           );if
           (if (= Mid$ “”) (setq Loop nil))
         );while
         NewStr$
       );defun FindReplace:
       ;—————————————————————————–
       ; Start of Main function
       ;—————————————————————————–
       (if (and (= (type Find$) ‘STR)(= (type Replace$) ‘STR)(/= Find$ “”))
         (progn
           (if (setq SS& (ssget “x” (list ‘(-4 . “<AND”)'(-4 . “<OR”)'(0 . “TEXT”)'(0 . “MTEXT”)'(0 . “DIMENSION”)'(0 . “INSERT”)'(-4 . “OR>”)(cons 410 (getvar “CTAB”))'(-4 . “AND>”))))
             (progn
               (command “UNDO” “BEGIN”)
               (setq Cnt# 0)
               (repeat (sslength SS&)
                 (setq EntName^ (ssname SS& Cnt#)
                       EntList@ (entget EntName^)
                       EntType$ (cdr (assoc 0 EntList@))
                       Text$ (cdr (assoc 1 EntList@))
                 );setq
                 (if (= EntType$ “INSERT”)
                   (if (assoc 66 EntList@)
                     (progn
                       (while (/= (cdr (assoc 0 EntList@)) “SEQEND”)
                         (setq EntList@ (entget EntName^))
                         (if (= (cdr (assoc 0 EntList@)) “ATTRIB”)
                           (progn
                             (setq Text$ (cdr (assoc 1 EntList@)))
                             (if (wcmatch Text$ (strcat “*” Find$ “*”))
                               (progn
                                 (setq ReplaceWith$ (FindReplace: Text$ Find$ Replace$))
                                 (entmod (subst (cons 1 ReplaceWith$) (assoc 1 EntList@) EntList@))
                                 (entupd EntName^)
                               );progn
                             );if
                           );progn
                         );if
                         (setq EntName^ (entnext EntName^))
                       );while
                     );progn
                   );if
                   (if (wcmatch Text$ (strcat “*” Find$ “*”))
                     (progn
                       (setq ReplaceWith$ (FindReplace: Text$ Find$ Replace$))
                       (entmod (subst (cons 1 ReplaceWith$) (assoc 1 EntList@) EntList@))
                       (entupd EntName^)
                     );progn
                   );if
                 );if
                 (setq Cnt# (1+ Cnt#))
               );repeat
               (command “UNDO” “END”)
             );progn
           );if
         );progn
       );if
       (princ)
      );defun FindReplaceAll
      • 0