topic Remove suffix's from Blocks names in AutoCAD Forum

Remove suffix's from Blocks names

gabrielUMFVH — Sun, 07 Feb 2021 10:10:39 GMT

I keep receiving plans we very long layer and block names and the CAFM system we use only support 64 character blocks

For example a plan I have at the moment all the blocks end with "-AL_72_01 Furniture _ Fittings Ground Floor", but can vary from plan to plan and sometime within the plans i,e, there may be 2 multiple suffixes of varying length.

DO anyone know a quick way, or has a handy lisp/code that would say rename Blocks and Layers by removing say "-AL*" where * is a wild card

Re: Remove suffix's from Blocks names

imadHabash — Sun, 07 Feb 2021 10:44:45 GMT

Hi,

I suggest to use RENAME command with Wild-Card Characters . also you can try this outsource plugin here .

Re: Remove suffix's from Blocks names

gabrielUMFVH — Sun, 07 Feb 2021 10:57:03 GMT

Hi
RENAME doesn't appear to work for Suffixes, I use it to Rename for Prefixes
Unless I doing something wrong, the following doesn't work
[cid:image001.png@01D6FD3F.DA86C280]

Re: Remove suffix's from Blocks names

Kent1Cooper — Mon, 08 Feb 2021 12:31:11 GMT

@gabrielUMFVH wrote:
.... the following doesn't work
[cid:image001.png@01D6FD3F.DA86C280]

The "following" didn't come through. Can you try again?

Re: Remove suffix's from Blocks names

Kent1Cooper — Mon, 08 Feb 2021 13:02:11 GMT

@gabrielUMFVH wrote:

....

DO anyone know a quick way, or has a handy lisp/code that would say rename Blocks and Layers by removing say "-AL*" where * is a wild card

Try this [minimally tested]:

(vl-load-com) (defun C:BNT-AL ; = Block Name Truncate, removing "-AL" and following (/ blk old pos new inc newsuf) (while (setq blk (tblnext "block" (not blk))) (setq old (cdr (assoc 2 blk))) (if (setq pos (vl-string-search "-AL" old)) (progn ; then (setq new (substr old 1 pos) inc 1 ); setq (if (tblsearch "block" new); same truncated name already exists (progn ; then (setq newsuf (strcat new (itoa inc))) (while (tblsearch "block" newsuf) (setq newsuf (strcat new (itoa (setq inc (1+ inc))))) ); while (setq new newsuf) ); progn ); if (command "_.rename" "block" old new) ); progn ); if ); while (princ) ); defun