apply system variable to all layouts

[samifox]

hi

 

i need to apply "psltscale=0" to all my 25 layouts. is there any way to do it at once?

 

thanks

s

[BIGAL]

Here is a pretty simple way, there is probably a smarter way.

(defun c:test ( / doc plotabs x tabname)
(setq doc (vla-get-activedocument (vlax-get-acad-object)))
(setq oldctab (getvar 'ctab))
(vlax-for lay (vla-get-Layouts doc)
  (setq plotabs (cons (vla-get-name lay) plotabs))
)
(repeat (setq x (length plotabs))
  (setq tabname (nth (setq x (- x 1)) plotabs))
  (if (/= tabname "Model")
    (progn 
       (setvar 'ctab tabname)
       (command "psltscale" 0)
    )
  )
)
(setvar 'ctab oldctab)
(princ)
)