Rename layer at suffix

I did a little searching around, but I didn't find a solution.

I need a little program code to change any layers in a dwg file that "end" with a specific text string. Ex. A-ANNO-NOTE-65%, A-ANNO-DIMS-65%, A-ANNO-SYMS-65%. In this case, I need to change the 65%'s to 95%. Once I have the code, I'll run it using a batch program.

Thanks in advance,
Brock

 

(setq OLS "%65")
(setq NLS "%95")
(setq TS (tblnext "LAYER" T))
(while TS
(setq OLN (cdr (assoc 2 TS)))
(if (wcmatch OLN (strcat "*" OLS))
(progn
(setq NLN (strcat (substr OLN 1 (- (strlen OLN) (strlen OLS))) NLS))
(command "RENAME" "LAYER" OLN NLN)
(princ (strcat "\nChanged Layer " OLN " to " NLN))
)
(princ (strcat "\nLayer NOT Changed " OLN))
)
(setq TS (tblnext "LAYER"))
)
(princ)

Please note - wcmatch command has special characters that may change at any
time in future releases of AutoCAD.
I tested this with Acad 2002 and the % is currently NOT a wildcard.

 

Sorry, but this didn't work. Here's the response I recevied:

Layer NOT Changed P-ANNO-NOTE-65%
Layer NOT Changed P-ANNO-DIMS-65%
Layer NOT Changed P-ANNO-SYMS-65%

Any ideas what went wrong?
Brock

 

I just read that by using ObjectDBX, simple modifications such as mine can be performed without even opening the files. This is perfect for my needs because I'm not changing geometry. Can anyone hook me up with a code for this?

 

Sorry, I was being dyslexic.
Change -
(setq OLS "%65")
(setq NLS "%95")
to -
(setq OLS "65%")
(setq NLS "95%")

 

That did it! I thought that might be the case, but you said it work in your test.

Will this work with any layer characters I want to change within the name or just the ending letters? Can I exchange the OLS and NLS at will?

Also, you mind if I email you?

 

or just the ending letters?
Just ending letters.

Okay.

 

Please do.