;;=====================================================
;; ZEALL.LSP (03-08-02) John F. Uhden, Cadlantic
;; Program to Zoom Extents in all Model Space Viewports.
;; An example of using Visual Lisp with ActiveX, R15+
;; Dedicated to Richard Chalmers
;;
(defun C:ZEALL (/ AcadApp CVport Doc Error)
  (vl-load-com)
  (setq AcadApp (vlax-get-acad-object)
        CVport 2
        Doc (vla-get-ActiveDocument AcadApp)
  )
  (vla-StartUndoMark Doc)
  (if (= (getvar "CTab") "Model")
    (while CVPort
      (setq Error (vl-catch-all-apply 'setvar (list "CVPORT" CVport))
            CVport (1+ CVport)
      )
      (if (vl-catch-all-error-p Error)
        (setq Cvport nil)
        (vla-ZoomExtents AcadApp)
      )
    )
    (princ "\nCommand reserved for Model Space only.")
  )
  (vla-EndUndoMark Doc)
  (princ)
)