Topic: Find & Replace Layer Names?

[bman]

Is there a way to find a layer(s) with a specific string and replace that string globally for multiple layers?

ex.... Find A & Replace with B

A-P-EOP
A-P-BNDY
A-P-CL

Change to this:

B-P-EOP
B-P-BNDY
B-P-CL

[ronjonp]

Take a look at the rename command.

[bman]

That works fine for adding a prefix to multiple layers, but I still have to go back & edit & remove the old prefix on about 150 layers.

[Bob Wahr]

in the rename dialog box
in Old Name, type a-*
in rename to, type b-*
click OK,
works fine for me

[bman]

I was selecting the layers in lieu of typing the wildcard
Thnaks for the tip!

[Peter Jamtgaard]

Try this

Peter Jamtgaard

Code: [Select]

(defun C:RenameLayers ()
 (setq strOld (getstring "\nOld String: ")
       strNew (getstring "\nNew String: ")
 )
 (vlax-for objLayer
           (vla-get-layers
            (vla-get-activedocument
             (vlax-get-acad-object)
            )
           )
  (setq strLayerName (vla-get-name objLayer))
  (if (and
       (/= (vl-string-subst strNew StrOld strLayerName)
            strLayerName
           )
       )
       (not (tblsearch "layer" strLayerName))
      )
   (if
    (vl-catch-all-error-p
     (vl-catch-all-apply
      'vla-put-name
      (list objLayer (vl-string-subst strNew StrOld strLayerName))
     )
    )   
   )
  )
 )


[bman]

I'm getting a syntax error when tryimh to load it

[MP]

It's not you, the two if statements are malformed. I'm sure Peter will be around to fix it (and the local declarations) shortly -- I think he justed posted it real quick.

[Peter Jamtgaard]

Sorry for the error

Peter

Code: [Select]

(defun C:RenameLayers (/ objLayer strNew strOld )
 (setq strOld (getstring "\nOld String: ")
       strNew (getstring "\nNew String: ")
 )
 (vlax-for objLayer
           (vla-get-layers
            (vla-get-activedocument
             (vlax-get-acad-object)
            )
           )
  (setq strLayerName (vla-get-name objLayer))
  (if (and
       (/= (vl-string-subst strNew StrOld strLayerName)
            strLayerName
       )
       (not (tblsearch "layer" strLayerName))
      )
   
   (vl-catch-all-error-p
    (vl-catch-all-apply
     'vla-put-name       
     (list objLayer (vl-string-subst strNew StrOld strLayerName))
    )
   )
  )
 )
)