홈/ 질문/Q 112825
다음
진행 중
KAMJA
Lv.0
등록일: 2021-01-22T17:01:00+09:00 카테고리:

동일한 이름의 블럭 다른 도면으로 복사시 변경되지 않게 하고 싶어요.

1도면과 2도면에 같은 이름의 블럭이 있습니다.

비교를 위해서 1번 도면의 블럭을 2번으로 복사해서 가져가면 2번 블럭의 모양으로 변해버리는데
이때 1번도면의 블럭 이름을 변경하거나 깨지 않고 가져와도 2번도면에 다른 모양을 비교할수잇게 가져오는 방법이 있을까요?
도면에 블럭이 엄청 많은데 하나하나 이름을 바꾸어서 가져오기가 힘드네요;;
혹시 관련 리습이나 방법이 있는지 조언 부탁 드립니다~
공유

    관련 있는 질문들

    8 답변

    1. aalan
    2. Lv.0
      붙여넣을 도면에 있는 블록들의 이름이 변경되어도 상관없다면, 아래리습을 쓰시면 됩니다.

      붙여넣기할 때, CTRL+V말고 아래리습으로 해보세요.

             ;;;;;;;;; 블록 붙여넣기 , 블록이름이 중복되어 블록형상이 변하는 것을 방지
      (defun c:bbt ( / txt op oDocument oblock txt2 d d1 t1 )
      (vl-load-com)
           (setq d (rtos (getvar “cdate”) 2 7))
           (setq d1 (substr d 1 8)
                 t1 (substr d 10 7)
                 txt (strcat “_” d1 t1)
           );setq end
        
        (setq oDocument (vla-get-activedocument (vlax-get-acad-object)))
        (vlax-for oBlock (vla-get-blocks oDocument)
          (if (/= (substr (vla-get-name oBlock) 1 1) “*”)
             (if (/= (substr (vla-get-name oBlock) 1 8) “MAT_DRAW”)
                (progn
          (if ( > ( strlen (vla-get-name oBlock) ) 60 )
                     (setq txt2 (substr (vla-get-name oBlock) 1 40 ) )
                     (setq txt2 (vla-get-name oBlock) )
                  );if end
                  (vla-put-name oBlock (strcat txt2 txt))
        );progn end
             );if end   
          )
        )
          (command “pasteclip” )
      );defun end
      • 0
    3. Lv.0

      만약 붙여넣을 도면의 블록이름이 변경되는 걸 원치 않으신다면,

      아래 리습을 쓰시면 됩니다.
      이 리습은 복사할 도면의 모든 블록이름을 임의로 변경합니다.
      복사할 때 , CTRL+C 말고 아래리습으로 복사하세요.
             ;;;;;;;;;   현재도면의 모든 블록이름 변경후에 복사
      (defun c:bbc ( / txt op oDocument oblock txt2 d d1 t1 )
      (vl-load-com)
           (setq d (rtos (getvar “cdate”) 2 7))
           (setq d1 (substr d 1 8)
                 t1 (substr d 10 7)
                 txt (strcat “_” d1 t1)
           );setq end
        
        (setq oDocument (vla-get-activedocument (vlax-get-acad-object)))
        (vlax-for oBlock (vla-get-blocks oDocument)
          (if (/= (substr (vla-get-name oBlock) 1 1) “*”)
             (if (/= (substr (vla-get-name oBlock) 1 8) “MAT_DRAW”)
              (progn
         (if ( > ( strlen (vla-get-name oBlock) ) 60 )
                    (setq txt2 (substr (vla-get-name oBlock) 1 40 ) )
                    (setq txt2 (vla-get-name oBlock) )
              );if end
              (vla-put-name oBlock (strcat txt2 txt))
      );progn end
            );IF END  
          )
        )
        (princ )
        (command “copyclip” )
      );defun end
      • 0
    4. Lv.0

      답변 감사합니다~ 제가 찾던 리습이에요~

      그런데 리습 실행하면
      “《오류》 Automation 오류 중복 레코드 이름입니다.”
      이렇게 오류가 나는데 왜그러는 걸까요?ㅠ
      • 0
    5. Lv.0
      제 컴퓨터에서는 에러없이 잘 되는 거 같은데 이상하네요…

      그러면, 이건 어떤가요?

      • 0
    6. Lv.0

      답변 감사 드립니다~

      알려주신 링크 따라갔는데 리습이 다운이 안되서 그러는데
      혹시 받아놓으신게 있으시면 올려주실수 있을까요?ㅠ
      • 0
    7. Lv.0

      만약 클릭했는데, 파일이 다운로드가 안 되실 때에는,

      우클릭하셔서 [새 탭에서 링크 열기] 를 클릭하시면 다운로드가 될 거에요.
      • 0
    8. Lv.0

      답변 감사드립니다~

      아 다운도 되고 지난주에 알려주신 리습도 오늘 다시해보니 오류 가 안뜨네요;;
      정말 감사합니다~ 덕분에 정말 많은 도움이 되었습니다~
      복 받으시고 오늘 하루도 좋은일 가득 하세요~^^
      • 0
    9. Lv.0

      ㅊㄱㅍ

      • 0