topic Re: block rename lsp in Visual LISP, AutoLISP and General Customization Forum

block rename lsp

Anonymous — Thu, 29 Nov 2018 07:02:55 GMT

hello expert friends, always thanks

should I get block rename lsp???

there are same blocks and select blocks, and then change blocks name

I attached jpg file. waitting for some help. advanced thank you all

Re: block rename lsp

dbhunia — Thu, 29 Nov 2018 07:20:30 GMT

Check this.....

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

Re: block rename lsp

Anonymous — Thu, 29 Nov 2018 09:20:11 GMT

thank you your answer.
but this lisp is only one selected

I want it multi objects selected lsp

Re: block rename lsp

dbhunia — Thu, 29 Nov 2018 10:40:36 GMT

First thing You can not Rename the existing Blocks in a drawing with SAME name......

And what I got from your attached image ...... The blocks which you want to rename, are same block with same properties (scale factor, rotation, layer .... etc.).......

In that case I suggest to copy a Block with New Name and insert the Newly Named Block in place of Old Block (The Blocks which you want to Rename) ........

Try this ...... I had made some rough changes in @Lee_Mac code....

Re: block rename lsp

Kent1Cooper — Thu, 29 Nov 2018 11:49:24 GMT

@Anonymous wrote:

.… should I get block rename lsp???

there are same blocks and select blocks, and then change blocks name ....

I think Blockreplace.lsp with its BRS command, >here<, may do what you want. It allows selection of multiple Blocks to be replaced, and replaces each with the Block name you've specified, at the same rotation and scale(s), and on the same Layer, etc., as the one(s) being replaced.

Re: block rename lsp

Shneuph — Thu, 29 Nov 2018 16:49:14 GMT

The way I always do this is to:

Select all the blocks you want to rename.

Copy them with basepoint 0,0,0

Paste in new drawing with basepoint 0,0,0

Rename the block. (you can use the rename command)

Delete the original set of blocks from the 1st drawing
Copy newly named blocks from 2nd drawing back into the 1st drawing with the same process as before.

Re: block rename lsp

dbhunia — Thu, 29 Nov 2018 17:11:02 GMT

@Shneuph wrote:

The way I always do this is to:

Select all the blocks you want to rename.

Copy them with basepoint 0,0,0

Paste in new drawing with basepoint 0,0,0

Rename the block. (you can use the rename command)

Delete the original set of blocks from the 1st drawing
Copy newly named blocks from 2nd drawing back into the 1st drawing with the same process as before.

The above way you will Rename all the existing Blocks in the Drawing......

Here the Requirement is to Rename few selected Blocks ........... Which is not possible without Copying the Block with a New Name & Reinserting them at the Selected Blocks Position (Simply Replacing the Selected Blocks with New one).....

Re: block rename lsp

Shneuph — Thu, 29 Nov 2018 17:16:38 GMT

"Select all the blocks you want to rename."

You select only the blocks you want to rename.. Then copy them back. The leftover blocks in dwg 1 with the same name will remain. The ones you did the copying to will have their new name and copy back into the original drawing leaving the ones you left intentionally.

Re: block rename lsp

Shneuph — Thu, 29 Nov 2018 17:24:15 GMT

See Screencast

https://autode.sk/2zw4CXs

Re: block rename lsp

_Tharwat — Thu, 29 Nov 2018 17:27:18 GMT

This is a singular pick but generic one I believe.

https://autolispprograms.wordpress.com/rename-a-block/

Re: block rename lsp

Kent1Cooper — Thu, 29 Nov 2018 17:56:12 GMT

@Anonymous wrote:

.... there are same blocks and select blocks, and then change blocks name ....

Can we get a clarification? I'm not sure any more what you mean by "rename" and "change blocks name" in this situation.

Are you talking about picking some of the "xo-1" Blocks in your example, and changing them to Blocks of the name "aaa"? That is, replacing them with "aaa" Blocks? With "aaa" already being a Block defined in the drawing? And if the "aaa" Block definition is different from the "xo-1" Block, they would look different [which they don't in your image]? That is what I assumed from the wording in the image, and it is what my BlockReplace.lsp routines do.

Or [since they don't look any different in your image] do you mean that you want a new Block definition created, that is the same as the "xo-1" Block but has the new name "aaa" instead? [Presumably you would not want two identical Block definitions under different names, but you would then edit the new one with whatever differences you need.] If that's what you're after, there are routines out there to make a new Block out of an existing one, such as my BlockDupNewName.lsp with its BDN command, which is in the .zip file attached >here<, or several on the Cadalyst CAD Tips site such as >this one< and >this other one<, and no doubt others.

Re: block rename lsp

Anonymous — Fri, 30 Nov 2018 23:54:23 GMT

thank you all. have a good day.

Re: block rename lsp

Kent1Cooper — Fri, 25 Jan 2019 20:47:59 GMT

@Kent1Cooper wrote:
.... to make a new Block out of an existing one, such as my BlockDupNewName.lsp with its BDN command....

For anyone who finds this looking for that kind of thing, BlockDupNewName.lsp has been upgraded [attached].

Aside from making the Undo begin-end operation suited to newer versions, and a small correction, this is what's improved:

It now uses a text-editing window up in the screen, rather than asking for a new name at the Command line. That window is pre-populated with the name of the current Block and a hyphenated-number suffix. So if a lot of the new name you want is the same as the old one, you can leave most of it and edit just part(s) of it, and don't need to type the whole thing in, as you did before if you didn't want the offered numerical-suffix new name.

It used to ask again if you either typed in a Block name already in the drawing or only a space or spaces, but it now also asks again if you "empty" the string in the editing window to nothing.

It used to offer a new Block name only by adding a hyphenated-number suffix on the selected Block's name. That meant that if you had used BDN on something before, for instance starting with a Block named "Block" and you had accepted the offered new name of "Block-1" [or other suffixed number], and then you later used it again on one of those "Block-1" Blocks, it used to offer "Block-1-1" as the new name. It now recognizes that the old name was likely the result of a BDN operation, and [whether that was the origin, or for any Block name ending in a hyphen and number(s) only] it offers the next available number suffix, in that case offering "Block-2" [if that isn't already used, similarly incrementing up from there if it is].

Re: block rename lsp

arpansark0544TCX — Tue, 05 Apr 2022 06:18:36 GMT

This program is quite useful as it saves some time to search for block names.
Thank you.

Re: block rename lsp

_Tharwat — Tue, 05 Apr 2022 06:53:04 GMT

@arpansark0544TCX wrote:
This program is quite useful as it saves some time to search for block names.
Thank you.

You're welcome anytime.

Re: block rename lsp

id_11 — Sat, 10 Jan 2026 08:02:07 GMT

I'm finding Kent1Cooper's solution quite good (Message 13, ‎01-25-2019 12:39 PM).

Is it possible to simplify code so that suggestion in dialogue is exactly the same as the existing name, and then let user modify string. There is already an error handler which tests if new name is the same as existing.

Re: block rename lsp

Kent1Cooper — Sat, 10 Jan 2026 13:16:52 GMT

@id_11 wrote:

....

Is it possible to simplify code so that suggestion in dialogue is exactly the same as the existing name, and then let user modify string. ....

Yes -- see the attached revised version [minimally tested].

[I didn't alter the file or command names, so if you want both kinds available, rename those in one of them.]

Re: block rename lsp

id_11 — Sat, 10 Jan 2026 13:54:18 GMT

Thanks for the quick response Kent, it works as intended for my purpose

Re: block rename lsp

Sea-Haven — Sun, 11 Jan 2026 00:05:53 GMT

Just a comment @Kent1Cooper "Lisped" is not supported in Bricscad, V25 etc but you can make a dcl to do the same task with an Edit box.

This is an example of such a dcl code, it puts the value of SC in a edit box but could be a text string. The width could be adjusted by using (strlen str) with say number of extra characters needed that way would grow or shrink depending on string.

(setq fo (open (setq fname (vl-filename-mktemp "" "" ".dcl")) "w")) (write-line "ddgetvalAH : dialog {" fo) (write-line (strcat " label = \"Set Scale\" ;") fo) (write-line " : column {" fo) (write-line " width =25 ;" fo) (write-line ": edit_box {" fo) (write-line " key = \"Key1\" ;" fo) (write-line (strcat " label = \"Enter scale\" ;") fo) (write-line (strcat " edit_width = 10 ;") fo) (write-line (strcat " edit_limit = 9 ;") fo) (write-line " is_enabled = true ;" fo) (write-line " allow_accept=true ;" fo) (write-line " }" fo) (write-line " }" fo) (write-line "spacer_1 ;" fo) (write-line "ok_cancel;}" fo) (close fo) (setq dcl_id (load_dialog fname)) (if (not (new_dialog "ddgetvalAH" dcl_id)) (exit) ) (set_tile "Key1" (rtos sc 2 0)) (action_tile "accept" "(setq sc (get_tile \"Key1\"))(done_dialog)") (action_tile "cancel" "(done_dialog)") (start_dialog) (unload_dialog dcl_id) (vl-file-delete fname)

Apart from varaible name changes as your dealing with strings dont need the (rtos sc 2 0)

Re: block rename lsp

Kent1Cooper — Sun, 11 Jan 2026 11:19:01 GMT

@Sea-Haven wrote:

Just a comment @Kent1Cooper "Lisped" is not supported in Bricscad....

[Just a comment, @Sea-Haven : Bricscad is not the subject of this Forum.]