Rename dynamic block and maintain visibility state

[dtrill]

Using the AuoLisp code (vlax-put obj 'Name (vlax-get obj 'Effectivename)) a dynamic block 'obj' can be renamed to the 'effective' block name.  However, the visibility state is then reset to the default value.  Is there a way in AutoLisp to rename a dynamic block and maintain the current visibility state?  

[Carthik_Babu]

Last but not the least....

http://www.lee-mac.com/copyblock.html

[Scottu2]

I realize this is an old post, but try this lisp routine.  I have been using it for some time.

See attached file, Brename.lsp.

Hope this helps.