;sets annotation variables for all layouts - CAD Studio - www.cadstudio.cz

(defun C:AllAnno (/ oldlo adoc layout)
  (vl-load-com)
  (setq oldlo (getvar "Ctab"))
  (setq adoc (vla-get-activedocument (vlax-get-acad-object)))
 
  (vlax-for layout (vla-get-layouts adoc)
    (if
      (/= (vla-get-name layout) "Model")
       (progn
         (vla-put-activelayout adoc layout)
         (setvar "Annoallvisible" 1)
         (setvar "Annoautoscale" 4)
		 ;(setvar "PSLTSCALE" 0) ; remove comment to reset PSLTSCALE
       )
    )
  );for
 
 (setvar "Ctab" oldlo)
 (princ)
)