Batch rename layer lisp

[Anonymous]

Hi, I am looking for a lisp to rename over 500 layers to add an extension to them. Rename is too slow for this.

Thanks in advance.
Tony

[user181]

Here's one from autocad tips website:

;This routine will place a Suffix at the end of all Layer names and rename them.
 
;Of course, it will not rename Layer "0" or "Defpoints".
 

(defun C:LRN ( / acadDocument theLayers layName pre)
 
(vl-load-com)
 
(setq pre (getstring "\nEnter Layer Suffix : "))
 
(setq acadDocument (vla-get-activedocument (vlax-get-acad-object)))
 
(setq theLayers (vla-get-layers acadDocument))
 
(vlax-map-collection theLayers 'layer-mod)
 
(princ)
 
);defun
 
(defun layer-mod (theLayer)
 
(setq layName (vlax-get-property theLayer 'Name))
 
(if (not (member layName '("0" "Defpoints")))
 
(vla-put-Name thelayer (strcat layName pre))
 
) ;if
 
);defun
 
(princ)

[Anonymous]

Thanks, me being a bit unsure how do I use this?

[user181 · Accepted solution]

Copy and paste into a notepad document. save it with a name and .lsp extension (newname.lsp)  then use appload command to load it into cad or just drag and drop the .lsp file into autocad drawing area. use LRN at command line to start it. Then follow command line and enter layer suffix and then hit enter

[Anonymous]

Awesome...Thanks!

[Anonymous]

Is there a way to keep the old layers and add the new?

[user181]

It would need some modification.  You could post it in the lisp and customization forum HERE and see if someone could modify it. I am unable to modify it. 

[Anonymous]

Thats fine..Thanks!

[Rpunturi]

is there a way to identify when the lisp routine chooses to put the suffix at the end. 

I would like to modify this so it will add it to the beginning. 

[user181]

Try this:

;This routine will place a Prefix at the beginning of all Layer names and rename them.
 
;Of course, it will not rename Layer "0" or "Defpoints".
 

(defun C:LRN ( / acadDocument theLayers layName pre)
 
(vl-load-com)
 
(setq pre (getstring "\nEnter Layer Suffix : "))
 
(setq acadDocument (vla-get-activedocument (vlax-get-acad-object)))
 
(setq theLayers (vla-get-layers acadDocument))
 
(vlax-map-collection theLayers 'layer-mod)
 
(princ)
 
);defun
 
(defun layer-mod (theLayer)
 
(setq layName (vlax-get-property theLayer 'Name))
 
(if (not (member layName '("0" "Defpoints")))
 
(vla-put-Name thelayer (strcat pre layName))
 
) ;if
 
);defun
 
(princ)

[Rpunturi]

works perfectly. 

thank you. Very helpful.