Zoom extents in all viewports

Lisphk

1. ;;; zoome.lsp
   
2. ;;;
   
3. ;;; Zoom extents in all viewports
   
4. ;;;
   
5. ;;; By Jimmy Bergmark
   
6. 
   
7. (defun c:zoome (/ oldcmdecho vplist curcvport nr vpss ms en x)
   
8.   (setq oldcmdecho (getvar "cmdecho"))
   
9.   (setvar "cmdecho" 0)
   
10.   (setq vplist (mapcar 'car (vports)))
    
11.   (setq curcvport (getvar "cvport"))
    
12.   (if (= (getvar "tilemode") 0)
    
13.     (progn
    
14.       (if (= (setq ms (getvar "cvport")) 1)
    
15.         (command "._mspace")
    
16.       )
    
17.       (setq vpss (ssget "_x"
    
18.                         (list '(-4 . "<AND")
    
19.                               '(0 . "VIEWPORT")
    
20.                               (cons 410 (getvar "ctab"))
    
21.                               '(-4 . "<NOT")
    
22.                               '(69 . 1)
    
23.                               '(-4 . "NOT>")
    
24.                               '(-4 . "AND>")
    
25.                         )
    
26.                  )
    
27.       )
    
28.       (setq nr 0)
    
29.       (if vpss                          ; in case there are no viewports
    
30.         (repeat (sslength vpss)
    
31.           (setq en (entget (ssname vpss nr)))
    
32.           (if (and (= 0 (logand 1 (cdr (assoc 90 en))))
    
33.                                         ; not perspective
    
34.                    (< 0 (cdr (assoc 68 en))) ; on and active
    
35.                    (/= 16384 (logand 16384 (cdr (assoc 90 en))))
    
36.                                         ; not locked
    
37.               )
    
38.             (progn
    
39.               (setvar "cvport" (cdr (assoc 69 en)))
    
40.               (command "._zoom" "_e")
    
41.             )
    
42.           )
    
43.           (setq nr (+ 1 nr))
    
44.         )
    
45.       )
    
46.       (if (= ms 1) (command "._pspace"))
    
47.     )
    
48.     (foreach x vplist
    
49.       (setvar "cvport" x)
    
50.       (command "._zoom" "_e")
    
51.     )
    
52.   )
    
53.   (setvar "cvport" curcvport)
    
54.   (setvar "cmdecho" oldcmdecho)
    
55.   (princ)
    
56. )
    

;;; zoome.lsp<br /> ;;;<br /> ;;; Zoom extents in all viewports<br /> ;;;<br /> ;;; By Jimmy Bergmark<br /> <br /> (defun c:zoome (/ oldcmdecho vplist curcvport nr vpss ms en x)<br />   (setq oldcmdecho (getvar "cmdecho"))<br />   (setvar "cmdecho" 0)<br />   (setq vplist (mapcar 'car (vports)))<br />   (setq curcvport (getvar "cvport"))<br />   (if (= (getvar "tilemode") 0)<br />     (progn<br />       (if (= (setq ms (getvar "cvport")) 1)<br />         (command "._mspace")<br />       )<br />       (setq vpss (ssget "_x"<br />                         (list '(-4 . "<AND")<br />                               '(0 . "VIEWPORT")<br />                               (cons 410 (getvar "ctab"))<br />                               '(-4 . "<NOT")<br />                               '(69 . 1)<br />                               '(-4 . "NOT>")<br />                               '(-4 . "AND>")<br />                         )<br />                  )<br />       )<br />       (setq nr 0)<br />       (if vpss                          ; in case there are no viewports<br />         (repeat (sslength vpss)<br />           (setq en (entget (ssname vpss nr)))<br />           (if (and (= 0 (logand 1 (cdr (assoc 90 en))))<br />                                         ; not perspective<br />                    (< 0 (cdr (assoc 68 en))) ; on and active<br />                    (/= 16384 (logand 16384 (cdr (assoc 90 en))))<br />                                         ; not locked<br />               )<br />             (progn<br />               (setvar "cvport" (cdr (assoc 69 en)))<br />               (command "._zoom" "_e")<br />             )<br />           )<br />           (setq nr (+ 1 nr))<br />         )<br />       )<br />       (if (= ms 1) (command "._pspace"))<br />     )<br />     (foreach x vplist<br />       (setvar "cvport" x)<br />       (command "._zoom" "_e")<br />     )<br />   )<br />   (setvar "cvport" curcvport)<br />   (setvar "cmdecho" oldcmdecho)<br />   (princ)<br /> )<br />