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

선택한 블록만 새로운 이름의 블록으로 만들어야하는건가요? 아니면 기존의 블록 이름 자체를 수정하고 싶으신건가요?

리습은 아니고 따로 만들어 드릴 수 있습니다 ㅎㅎ

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

;;;==================================== ;;;  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) )

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

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

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

다른 방법은 없는지요.?  

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

메일 보내드렸습니다.