所有的LAYOUT ZOOM E

Lisphk

1. (defun c:zea ( / app ctb doc )
   
2.    (setq app (vlax-get-acad-object)
   
3.          doc (vla-get-activedocument app)
   
4.          ctb (getvar 'ctab)
   
5.    )
   
6.    (foreach tab (layoutlist)
   
7.        (setvar 'ctab tab)
   
8.        (vla-put-mspace doc :vlax-false)
   
9.        (vla-zoomextents app)
   
10.    )
    
11.    (setvar 'ctab ctb)
    
12.    (princ)
    
13. )

(defun c:zea ( / app ctb doc )<br />    (setq app (vlax-get-acad-object)<br />          doc (vla-get-activedocument app)<br />          ctb (getvar 'ctab)<br />    )<br />    (foreach tab (layoutlist)<br />        (setvar 'ctab tab)<br />        (vla-put-mspace doc :vlax-false)<br />        (vla-zoomextents app)<br />    )<br />    (setvar 'ctab ctb)<br />    (princ)<br /> )