Topic: ranaming layers

[DEVITG]

Hi all , I was loking for a way to change or rename the Layers names , by lisp .
If I had a lot off layers and want to add a prefix to them , how can I do it???

Thanks in advance.

[Jeff_M]

Here's one way....probably could use a check to make sure the new name is a valid name.

Code: [Select]


(defun c:layprefix (/ lays pre newname)
  (vl-load-com)
  (if (setq lays (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
   pre (getstring "\nNew layer prefix for all layers?: ")
   )
    (progn
      (vlax-for lay lays
(setq newname (strcat pre (vla-get-name lay)))
(if (and (not (eq (vla-get-name lay) "0"));can't rename layer 0
(vl-catch-all-error-p
  (vl-catch-all-apply '(lambda ()
 (vla-item lays newname))
    nil);this checks to ensure the name doesn't already exist
  )
)
 (vla-put-name lay newname)
 )
)
      )
    )
  (princ)
  )

[DEVITG]

Hi Jeff , thanks for it .
It will help me understand the MAGIC world of VL .
           

[daron]

Devit, in my opinion, the best part to figure out the MAGIC world of VL starts here: (vlax-get-acad-object).
Type that into the vlide, highlight it and inspect it. You should find lots of options/directions you can go.

[CADaver]

The RENAME command does that without lisp.

[Jeff_M]

The RENAME command does that without lisp.

Hi all , I was loking for a way to change or rename the Layers names , by lisp . If I had a lot off layers and want to add a prefix to them , how can I do it???
Thanks in advance.

2 things Randy. First, they specifically asked for lisp, maybe to include in something bigger. Second, and more importantly, Rename does not accept wildcards for use with more than 1 item at a time......
Here's my Command line when trying:
Command: -rename
Enter object type to rename
[Block/Dimstyle/LAyer/LType/Style/Ucs/VIew/VPort]: la

Enter old layer name: Corps*

Invalid layer name.

So if I want to add a prefix to all of my layers that begin with Corps, Rename is not quite the tool needed.

[CADaver]

2 things Randy. First, they specifically asked for lisp, maybe to include in something bigger. Second, and more importantly, Rename does not accept wildcards for use with more than 1 item at a time......
Here's my Command line when trying:
Command: -rename
...
So if I want to add a prefix to all of my layers that begin with Corps, Rename is not quite the tool needed.

RENAME will do EXACTLY that, not -rename, but RENAME.  It will allow wildcards:





and accomplish the OP's desire (add a prefix) without lisp.  If you wish to write lisp to do what ACAD already does, go right ahead.  But other than a learning tool, I don't see the point.

[AVCAD]

Not to bring back a almost 3 year topic...but...

I am looking to do something similar also and the rename tool in ACAD is useful yes but when you have too use it on a whole bunch of drawings in a package...say my current project 800 sheets going into each one is very time consuming. You also can not rename a layer say from:

prefix_layer1

too

Layer1

unless you do each layer individually, It would be nice to have a script that would be able to look for a certain string in the layer name and get rid of it, and for that matter if the layer your are trying to change already has that layer in the drawing would just add it to that layer without having to manually do that as well.

ex.

prefix_layer1   ---->   change to Layer1  --->  Layer1 already exists  ---->  Move objects on prefix_layer1 to Layer1