xmq1103 发表于 2020-8-26 09:53:03

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

本帖最后由 xmq1103 于 2022-3-28 17:37 编辑

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

999999 发表于 2020-8-26 09:53:04

看看行不行
(defunC: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 发表于 2020-10-6 21:54:17

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

yoyoho 发表于 2020-10-7 17:49:23

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

894560869 发表于 2021-7-18 14:28:39

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

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

LIULISHENG 发表于 2021-9-9 08:22:52

好贴!!!!!!!!

xmq1103 发表于 2022-3-28 17:45:39

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


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

戏男 发表于 2023-6-14 08:46:47

非常不错的！！

dingtiedt 发表于 2025-1-22 23:20:08

本帖最后由 dingtiedt 于 2025-1-22 23:26 编辑

沙发和板凳是一样的。能做到不闪屏吗
页: [1]
查看完整版本: 能对一个文件内的各个布局全部：ZOOM--E吗