캐드

블럭이름바꾸기 리습 수정 부탁드립니다.

Cvkfshadk 쪽지보내기 메일보내기 자기소개 아이디로 검색 전체게시물 작성
작성일 2024.02.08 15:51

359 조회
8 댓글
0 추천
0 비추천
목록

글검색

블럭이름 바꾸기 리습입니다만
도면안에 있는 전체 블럭이름이 전부다 바뀝니다.

비슷한 리습에 문구를 복사해서 시도해봤지만 작동이 되지않아
선택한 블럭만 이름을 바꿀수 있게 염치없지만 수정 부탁드립니다.

쩡오 이름으로 검색
작성일 2020.12.20 23:36

메일 보내드렸습니다.

엔씨벤딩 이름으로 검색
작성일 2020.12.20 21:28

이 리습코드는 블록 안의 블록도 이름이 변경됩니다.

제가 방금 테스트도 해봤는데, 블록안블록의 이름까지 변경되는 것을 확인하였습니다.

쩡오 이름으로 검색
작성일 2020.12.20 18:56

사용해봤는데요. 선택하여 블럭이름을 바꾸는것은 맞습니다. 그런데 블럭안에 여러개의 블럭들이 잡혀있는경우 안에 잡혀있는 블럭들은 이름이 바뀌지 않습니다.

다른 방법은 없는지요.?

엔씨벤딩 이름으로 검색
작성일 2020.12.20 17:45

그러면, 이걸로 한번 해보세요.

쩡오 이름으로 검색
작성일 2020.12.20 17:05

고맙습니다만 이것도 써봤는데 블럭안에 블럭은 바뀌지 않아서요 ㅠㅠ

쩡오 이름으로 검색
작성일 2020.12.20 17:03

네 선택한 블록만 새로운 이름으로 블록 만들고 싶습니다 여기서 어떤문구를 추가해야하는지 수정부탁드립니다.

;;;==================================== ;;; Block명 일괄 변경 ;;;==================================== (defun c:bn ( / txt doc block ) (if (/= (setq txt (getstring 5 "n블럭이름앞에 추가할 내용을 입력하세요: ")) "") (progn (setq doc (vla-get-activedocument (vlax-get-acad-object))) (vlax-for block (vla-get-blocks doc) (setq blockname (vla-get-name block)) (if (/= (substr blockname 1 1) "*") (vla-put-name block (strcat txt blockname)) ) ) (vlax-release-object doc) ) ) (princ) )