Leaderboard

;;; zoome.lsp - Zoom extents in all viewports - By Jimmy Bergmark - Copyright (C) 1997-2006 JTB World, All Rights Reserved ;;; Website: www.jtbworld.com - E-mail: info@jtbworld.com - 2000-08-29 - Tested on AutoCAD 2000 (defun c:zoome (/ oldcmdecho vplist curcvport nr vpss ms en x) (setq oldcmdecho (getvar "cmdecho"))(setvar "cmdecho" 0)(setq vplist (mapcar 'car (vports)))(setq curcvport (getvar "cvport")) (if (= (getvar "tilemode") 0) (progn (if (= (setq ms (getvar "cvport")) 1)(command "._mspace")) (setq nr 0 vpss (ssget "_x" (list '(-4 . "<AND") '(0 . "VIEWPORT")(cons 410 (getvar "ctab")) '(-4 . "<NOT") '(69 . 1) '(-4 . "NOT>") '(-4 . "AND>")))) (if vpss (repeat (sslength vpss) (setq en (entget (ssname vpss nr))) (if (and (= 0 (logand 1 (cdr (assoc 90 en))))(< 0 (cdr (assoc 68 en)))(/= 16384 (logand 16384 (cdr (assoc 90 en))))) (progn (setvar "cvport" (cdr (assoc 69 en)))(command "._zoom" "_e"))) (setq nr (+ 1 nr)) ) ) (if (= ms 1) (command "._pspace")) ) (foreach x vplist (setvar "cvport" x) (command "._zoom" "_e")) ) (setq vpss nil)(setvar "cvport" curcvport)(setvar "cmdecho" oldcmdecho) (princ) ) ; zoom extents all view ports rlx 2 jul 2020 (defun c:zeavp ( / c)(setq c (getvar "CTAB"))(foreach l (layoutlist) (setvar "CTAB" l)(c:zoome))(setvar "CTAB" c)(princ)) (princ "\nType zeavp or (c:zeavp) to run") (princ)