find & replace string in layout names

hi,
I work with a drawings that have certain layout-names, is there a way to
change a string in those names globally through lisp, for example:
A01,A02,A03.. to B01,B02,B03...

martin

 

Hi...

I pass a routine to you that allows to change the name you of each LAYOUT, I occupy it for each one, but you can modify it so that he is more automatic...

CODE:

(defun c:r-layout (/ lst-layout contar nuevo-nombre)
  (setvar "cmdecho" 0)
  (setq lst-layout (layoutlist))
  (setq contar 0)
  (while (< contar (length lst-layout))
    (setq nuevo-nombre
(getstring T
(strcat
"\nIngrese nuevo nombre para reemplazar Layout <"
(nth contar lst-layout)
">: "
)
)
   &nbsp
    (command "_.-layout"
"_r"
(nth contar lst-layout)
nuevo-nombre
   &nbsp
    (setq contar (1+ contar))
 &nbsp ;_while
  (setvar "cmdecho" 1)
  (prin1)
) ;_defun

Un saludo de SpeedCAD...
CHILE

 

there seems to be some missing arguments, "error: too few arguments", when
executing the command...

martin

 

I modified it a bit. It will not prompt for the new and old strings.

(defun C:renameLayout (/ layouts)
(vl-load-com)
(setq newstr (getstring "\nEnter new string: ")
oldstr (getstring "\nEnter old string: "))
(setq layouts (vla-get-layouts
(vla-get-activedocument
(vlax-get-acad-object))))
(vlax-for each layouts
(cond
((/= (vla-get-name each) "Model")
(vla-put-name each (vl-string-subst newstr oldstr (vla-get-name
each)))
)
)
)
(princ)
)

--
Ken Alexander
Acad2000
Windows2000 Prof.

"We can't solve problems by using the same kind
of thinking we used when we created them."
--Albert Einstein