Topic: working find and replace for autocad layers

[Crookedmonk]

Say I have multiple AutoCAD layers:
10 dr1111-ld1
20 dr1111-ld1
etc.

How could I change all dr1111's to say dr2222 at once?

I have tried AutoCAD rename but it does not seem to work even using ##, ** as wildcards.

Any ideas?

Thanks
Monk

[CAB]

Try one of these:
-------------   Layer Translate   -------------------
http://www.theswamp.org/index.php?topic=36566.0
http://www.theswamp.org/index.php?topic=30327.msg359285#msg359285
http://www.theswamp.org/index.php?topic=5835.msg71232#msg71232  Rename

[Crookedmonk]

Thank you Cab. But I have seen those:
We are not looking to merge layers (option 1)
We are not working with xrefs. (option 2). I may have completely misunderstood this one, so forgive me if I did.
Rename will only work with Prefix or Suffix (option 3). We are actually looking to change the alfa-numeric section in the middle.

We are more or less looking for a find and replace for layers similar to what you have in many word programs.

Thanks again
Monk

[ronjonp]

Maybe:

Code - Auto/Visual Lisp: [Select]

1. (defun _rename (find replace)
2.   (vl-load-com)
3.   (vlax-for x (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
4.     (if (vl-string-search (strcase find) (strcase (vla-get-name x)))
5.       (vl-catch-all-apply
6.         'vla-put-name
7.         (list x (vl-string-translate find replace (vla-get-name x)))
8.       )
9.     )
10.   )
11.   (princ)
12. )
13. (_rename "dr1111" "dr2222")

[CAB]

Here is a routine I use for one of my layer problems.

Code - Auto/Visual Lisp: [Select]

1. ;;  CALayers takes the suffex of layer names like -0 or -1
2. ;;  and makes it a pre fix like 0- or 1- so the names can be easily
3. ;;  sorted & floor can be set up in layer manager
4.  
5. (defun c:calayers (/ layer str suf l2del)
6.   (setvar "CLAYER" "0")
7.   (setq doc (vla-get-activedocument (vlax-get-acad-object)))
8.   (vlax-for layer (vla-get-layers doc)
9.     (setq str (vla-get-name layer))
10.     (if (or (wcmatch str "Camera*") ; delete these objects
11.             (wcmatch str "Terrain*")
12.             (wcmatch str "Furniture_*"))
13.       (setq l2del (cons str l2del))
14.     (if ;(and (> (strlen str) 1)
15.       (wcmatch str "*-#") ; last 2 char are a -number
16.        ;; )
17.        (progn
18.          (setq suf (substr str (- (setq slen (strlen str)) 1))
19.                str (substr str 1 (- slen 2))
20.                str (strcat (substr suf 2) "-" str)
21.          )
22.          (vla-put-name layer str)
23.        ) ; end progn
24.     ) ; endif
25.       ) ; endif
26.   )
27.   (if l2del (ARCH:DEL-LAYS doc l2del))
28.  
29.   (princ)
30. )

[Grrr1337]

CAB, isn't this:

Code: [Select]

(or (wcmatch str "Camera*") 
    (wcmatch str "Terrain*")
    (wcmatch str "Furniture_*"))

Equal to:

Code: [Select]

(wcmatch str "Camera*,Terrain*,Furniture_*") 

[CAB]

If you click on wcmatch in my previous post you will get the answer.

[jvillarreal]

Old code, but its dialog based, including optional search string, prefix addition, suffix addition, find/replace, merge and uppercase.