블럭이름바꾸기 리습 수정 부탁드립니다.
컨텐츠 정보
- 359 조회
- 8 댓글
- 0 추천
- 0 비추천
-
목록
본문
블럭이름 바꾸기 리습입니다만
도면안에 있는 전체 블럭이름이 전부다 바뀝니다.
비슷한 리습에 문구를 복사해서 시도해봤지만 작동이 되지않아
선택한 블럭만 이름을 바꿀수 있게 염치없지만 수정 부탁드립니다.
관련자료
쩡오님의 댓글
네 선택한 블록만 새로운 이름으로 블록 만들고 싶습니다 여기서 어떤문구를 추가해야하는지 수정부탁드립니다.
;;;==================================== ;;; 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) )
CATS_Developer님의 댓글
선택한 블록만 새로운 이름의 블록으로 만들어야하는건가요? 아니면 기존의 블록 이름 자체를 수정하고 싶으신건가요?
리습은 아니고 따로 만들어 드릴 수 있습니다 ㅎㅎ