Changing the suffix of multiple layouts

[Allan_LT]

Hi, can anyone point me in the direction where I code find a lisp code that will rename the suffix all the layout tabs in my current drawing. last three characters only of a 8 character layout name.

 

many thanks
 

 

[Tharwat]

Post an example dwg for further clarification.

[ronjonp]

Try this:

(defun c:foo (/ str)
  (if (= 3 (strlen (setq str (getstring "\Enter new 3 digit suffix"))))
    (vlax-for l	(vla-get-layouts (vla-get-activedocument (vlax-get-acad-object)))
      (vl-catch-all-apply 'vla-put-name (list l (strcat (substr (vla-get-name l) 1 5) str)))
    )
    (print "Input is invalid!")
  )
  (princ)
)

 

[Allan_LT]

Thank Ronjonp, worked perfectly 

[ronjonp]

2 hours ago, Allan_LT said:

Thank Ronjonp, worked perfectly 

Glad to help.