Re-name layers from C-somethign to V-something

[baker]

I have a drawing i need to simply change the leading letters of the layer (C-***) to V-***.

 

anyway to Find and Replace?

[alanjt]

Look at the RENAME command.

C-* to V-*

[Tharwat]

Try this baker and it is case sensitive which means ( c- (small letter) is not equal to C- (capital letter)) .

 

Codes better than Command calls .

(defun c:TesT (/ nxt layrs Nme)
 ;; == TharwaT 01. 09. 2011 == ;;
 (while
   (setq nxt (tblnext "LAYER" (null nxt)))
    (setq
      layrs
       (entget (tblobjname "LAYER" (setq Nme (cdr (assoc 2 nxt)))))
    )
    (if (and (not (eq Nme "0"))
             (eq (vl-string-search "C-" Nme 0) 0)
        )
      (entmod
        (subst (cons 2 (vl-string-subst "V-" "C-" (cdr (assoc 2 layrs))))
               (assoc 2 layrs)
               layrs
        )
      )
    )
 )
 (princ)
)

 

Tharwat

[Lee Mac]

(eq (vl-string-search "C-" Nme 0) 0)

 

*cough* wcmatch *cough*

 

 

But I try not to re-invent the wheel where possible

[Tharwat]

*cough* wcmatch *cough*

But I try not to re-invent the wheel where possible

 

I have thought of that as another access to Layer name matches and I do agree that the function wcmatch is much better than vl-string-search in this case .

 

Anyway here it goes .

 

Comments are also welcomed .

 

(defun c:TesT (/ nxt layrs Nme)
 ;; == TharwaT 01. 09. 2011 == ;;
 (while
   (setq nxt (tblnext "LAYER" (null nxt)))
    (setq
      layrs
       (entget (tblobjname "LAYER" (setq Nme (cdr (assoc 2 nxt)))))
    )
    (if (and (not (eq Nme "0"))
             (wcmatch Nme "C-*")
        )
      (entmod
        (subst (cons 2 (vl-string-subst "V-" "C-" (cdr (assoc 2 layrs))))
               (assoc 2 layrs)
               layrs
        )
      )
    )
 )
 (princ)
)

[BlackBox]

Tharwat,

 

Not that you have to of course, but out of curiosity... if you're not going to use the RENAME command, and you're going to use vl-* functions, then why not just iterate the Layers Collection instead?

 

Pseudo code:

 

((lambda (acDoc / )
 (vlax-for lay (vla-get-layers acDoc)
   [color=seagreen];;<-- Check / rename layers here[/color]
   )
 )
 (vla-get-activedocument (vlax-get-acad-object)))

[Tharwat]

.. if you're not going to use the RENAME command,

 

If you have many layers (maybe Hundreds) in a dwg , the command call would be lazy .

 

and you're going to use vl-* functions, then why not just iterate the Layers Collection instead?

 

Both are the same , aren't they ?

 

One more routine in Vl .

 

(defun c:TesT (/ lays Nme)
 ;; == TharwaT 01. 09. 2011 == ;;
 (setq lays (vla-get-layers
              (vla-get-activedocument (vlax-get-acad-object))
            )
 )
 (vlax-for x lays
   (if (wcmatch (setq Nme (vla-get-name x)) "C-*")
     (vla-put-name x (vl-string-subst "V-" "C-" Nme))
   )
 )
 (princ)
)

 

Regards,

 

Tharwat

[alanjt]

Codes better than Command calls .

[Tharwat]

I have forgotten that Multiple Selection method is allowed in Rename Command .

[alanjt]

I have forgotten that Multiple Selection method is allowed in Rename Command .

Work smart, not hard.

[Tharwat]

Work smart, not hard.

 

Nice saying .

 

When being overwhelmed by lots of projects to hand over on time , there won't be time to spend on thinking than keep on working (sometimes)

[alanjt]

Nice saying .

 

When being overwhelmed by lots of projects to hand over on time , there won't be time to spend on thinking than keep on working (sometimes)

Then maybe you should spend more time working and less time trolling the forums.

[Tharwat]

There must a few seconds to get some fresh air , to be able to carry on and to keep the brain a live .

[alanjt]

There must a few seconds to get some fresh air , to be able to carry on and to keep the brain a live .

Quick, step outside.

[baker]

I am an idiot!!! thank you guys for being patient and supportive!!

[BlackBox]

I am an idiot!!! thank you guys for being patient and supportive!!

 

 

*US*

 

We'll whip you numpties into shape, one way or another! LoL

 

^^ Just being sarcastic, of course. Please take no offense.

[baker]

none taken.. i own a VW enthusiasts forum and we toss poo at each other all the time!! all in good fun!

[BlackBox]

none taken.. i own a VW enthusiasts forum and we toss poo at each other all the time!! all in good fun!

 

^^ Gold, that is.

 

I'm glad you share the sense of humor; you *should* fit in nicely.

[alanjt]

Man, this thread seems to have take a sh!77y direction and done down the toilet.

[BlackBox]

Man, this thread seems to have take a sh!77y direction and done down the toilet.

 

I hate it when things 'done down the toilet'.