Rename multiple blocks

[knutsen]

Hi,

is there some lisp/script, which renames multiple blocks in multiple drawings. I have about 300 blocks and 300 drawings and i need to rename every block in every drawing (about 10 blocks in one drawing). All the same, there aren't every 300 blocks in every drawing and that causes problems. I have a script, which works if there is every 300 block in one drawing, but there never is all the blocks in one drawing. I think i need to use some lisp with tblsearch-command, but i have no idea how to make a table where is "oldname" and "newname").

The command i want to use is something like this

rename block "oldname1" "newname1"
rename block "oldname2" "newname2"
rename block "oldname3" "newname3"
rename block "oldname4" "newname3"

Does anyone have an aid to deal with this problem?

[Opie]

What happens if the oldname1 and newname1 are in the same drawing?

[gilsoto13]

Hi,

is there some lisp/script, which renames multiple blocks in multiple drawings. I have about 300 blocks and 300 drawings and i need to rename every block in every drawing (about 10 blocks in one drawing). All the same, there aren't every 300 blocks in every drawing and that causes problems. I have a script, which works if there is every 300 block in one drawing, but there never is all the blocks in one drawing. I think i need to use some lisp with tblsearch-command, but i have no idea how to make a table where is "oldname" and "newname").

The command i want to use is something like this

rename block "oldname1" "newname1"
rename block "oldname2" "newname2"
rename block "oldname3" "newname3"
rename block "oldname4" "newname3"

Does anyone have an aid to deal with this problem?

+

Down here in this page is the layer renamer... that is the one I modified to be used with blocks... Also, this post has been already answered in Cadtutor by someone else and me...

hope it really helps you with your current task..

[alanjt]

Maybe something like this:

(defun BlockRename (#OldName #NewName)
  (and
    (tblsearch "block" #OldName)
    (not (tblsearch "block" #NewName))
    (snvalid #NewName)
    (or *AcadDoc*
        (setq *AcadDoc* (vla-get-activedocument (vlax-get-acad-object)))
    ) ;_ or
    (not (vl-catch-all-error-p
           (vl-catch-all-apply
             'vla-put-name
             (list (vla-item (vla-get-blocks *AcadDoc*) #OldName) #NewName)
           ) ;_ vl-catch-all-apply
         ) ;_ vl-catch-all-error-p
    ) ;_ not
  ) ;_ and
) ;_ defun

Returns T if renamed, nil if not.

[hajasulthan980561]

hi, try use RENAME command
eg,

which one u want remove just select that one and remove (oldname1- old*) and in rename to new*, try this it will work