能对一个文件内的各个布局全部：ZOOM--E吗

xmq1103

求段代码：
可以一次把所有的布局自动运行一遍ZOOM--E。
也就是要求每个布局的图元都全部居中显示。有时候可能要很多布局，速度不要太慢喽。
求帮助！！辛苦，谢谢啦！！！！！

999999

看看行不行
(defun  C:zoome (/ *acad* *acaddoc*)
        (COMMAND "MAXACTVP" "2" )
        (or *Acad* (setq *Acad* (vlax-get-acad-object)))
        (or *AcadDoc*
    (setq *AcadDoc* (vla-get-activedocument *Acad*))
        )
        ((lambda (ctab)
                 (foreach layout (layoutlist)
                         (setvar 'ctab layout)
                         (vla-put-mspace *AcadDoc* :vlax-false)
                         (vla-zoomextents *Acad*)
                 )
                 (setvar 'ctab ctab)
         )
                (getvar 'ctab)
        )
        (COMMAND "MAXACTVP" "20" )
        (princ)
)

xmq1103

总算淘到了，收个搬运费，有更好的继续希望大家分享一下

yoyoho

谢谢! xmq1103 分享程序!!!!

894560869

yoyoho 发表于 2020-10-7 17:49
谢谢! xmq1103 分享程序!!!!

好贴!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

LIULISHENG

好贴!!!!!!!!

xmq1103

999999 发表于 2020-8-26 09:53
看看行不行
(defun  C:zoome (/ *acad* *acaddoc*)
        (COMMAND "MAXACTVP" "2" )

感谢回答，虽然问题早就解决，还是感谢热心的你，最佳，就你了！！！

戏男

非常不错的！！

dingtiedt

沙发和板凳是一样的。能做到不闪屏吗