【布局】所有布局ZOOM E

marting

1. (defun c:xdtb_zoomall ()
   
2.   (or *Acad* (setq *Acad* (vlax-get-acad-object)))
   
3.   (or *AcadDoc*
   
4.       (setq *AcadDoc* (vla-get-activedocument *Acad*))
   
5.   )
   
6.   ((lambda (ctab)
   
7.      (foreach layout (layoutlist)
   
8.        (setvar 'ctab layout)
   
9.        (vla-put-mspace *AcadDoc* :vlax-false)
   
10.        (vla-zoomextents *Acad*)
    
11.      )
    
12.      (setvar 'ctab ctab)
    
13.    )
    
14.     (getvar 'ctab)
    
15.   )
    
16.   (princ)
    
17. )
    
18. 
    

(defun c:xdtb_zoomall ()<br />   (or *Acad* (setq *Acad* (vlax-get-acad-object)))<br />   (or *AcadDoc*<br />       (setq *AcadDoc* (vla-get-activedocument *Acad*))<br />   )<br />   ((lambda (ctab)<br />      (foreach layout (layoutlist)<br />        (setvar 'ctab layout)<br />        (vla-put-mspace *AcadDoc* :vlax-false)<br />        (vla-zoomextents *Acad*)<br />      )<br />      (setvar 'ctab ctab)<br />    )<br />     (getvar 'ctab)<br />   )<br />   (princ)<br /> )<br /> <br />

kyky1002

图片好像看不到了

singa

看不到，这个是做什么的？

ko05050

学习了                        

nckdkg

木看看不懂。。需要学习啊

df6605

试试看，感谢楼主

csy0415

感谢楼主分享！

a493899497

感谢楼主分享！