(defun c:zea (/ acaddoc acadapp acadlyt)
  (vl-load-com)
  (setq	acadapp  (vlax-get-acad-object)
	acaddoc (vla-get-ActiveDocument acadapp)
	acadlyt (vla-get-ActiveLayout acaddoc)
  );; setq
  (vlax-for layout (vla-get-Layouts acaddoc)
    (vla-put-ActiveLayout acaddoc layout)
    (vla-ZoomExtents acadapp)
  );; vlax-for
  (vla-put-ActiveLayout acaddoc acadlyt)
  (princ)
);; zea