Topic: Rename Blocks:Replace XYZ with ABC in all block names

[Remarrk]

Hello Swamp,

I'm hoping that posting to this old thread helps with the explanation better than I could by starting a new thread.
I have a situation similar to the OP's.
I have created blocks in several master drawings for tool palettes use.
I want to change the convention of the blocks names.
I have, for example:
ISORED90_L1
ISORED90_L2
ISORED90_L3
etc., etc.

I want to change not only the names, but the case of part of the name,
for example:
iso90RED_L1
iso90RED_L2
iso90RED_L3
etc., etc.

I tried the lisp routines without success. It may be my ignorance of the first user entry "Block name pattern:". I don't know what is required there.

Also, I tried the AutoCAD rename with wild cards and all I was able to accomplish was adding my entry to the block name.

Perhaps someone could clear this up for me.

thanks,

[Lee Mac]

Very quickly written and untested, but may help:

Code - Auto/Visual Lisp: [Select]

1. (defun c:test ( / name ) (vl-load-com)
2.     (vlax-for block (vla-get-blocks (vla-get-activedocument (vlax-get-acad-object)))
3.         (if (wcmatch (setq name (vla-get-name block)) "ISORED90*")
4.             (vl-catch-all-apply 'vla-put-name (list block (strcat "iso90RED" (substr name 9))))
5.         )
6.     )
7.     (princ)
8. )

[Remarrk]

Lee Mac,
Works great, thanks much.

Remarrk

[Lee Mac]

Good stuff, happy to help