topic Re: Batch rename layer lisp in AutoCAD Forum

Batch rename layer lisp

Anonymous — Fri, 12 Apr 2019 16:16:48 GMT

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

Re: Batch rename layer lisp

user181 — Fri, 12 Apr 2019 16:53:54 GMT

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)

Re: Batch rename layer lisp

Anonymous — Fri, 12 Apr 2019 16:59:35 GMT

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

Re: Batch rename layer lisp

user181 — Fri, 12 Apr 2019 17:06:42 GMT

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

Re: Batch rename layer lisp

Anonymous — Fri, 12 Apr 2019 17:07:49 GMT

Awesome...Thanks!

Re: Batch rename layer lisp

Anonymous — Fri, 12 Apr 2019 17:11:15 GMT

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

Re: Batch rename layer lisp

user181 — Fri, 12 Apr 2019 17:18:35 GMT

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.

Re: Batch rename layer lisp

Anonymous — Fri, 12 Apr 2019 18:18:55 GMT

Thats fine..Thanks!

Re: Batch rename layer lisp

Rpunturi — Fri, 04 Sep 2020 16:51:13 GMT

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.

Re: Batch rename layer lisp

user181 — Fri, 04 Sep 2020 17:02:25 GMT

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)

Re: Batch rename layer lisp

Rpunturi — Fri, 11 Sep 2020 12:25:42 GMT

works perfectly.

thank you. Very helpful.