批量视口隔离

nyistjz

布局中视口多的时候，会影响运行刷新速度，这个时候，就可以只显示部分视口，隔离其它，就用到了下面的这个程序 。
但是这个程序也有个问题，就是视口多的时候，这个开关的速度也是不能让人满意的。

有没有朋友可以对这个程序进行优化，加快这个视口开关的速度 ？


;显示特定视口
(defun c:actvp(/ n ss)
        (setvar "cmdecho" 0)
        (if (= (getvar "tilemode") 1) (setvar "tilemode" 0))
        (princ "\n请选择需要显示的特定视口(回车全显)")
        (cond
                ((setq ss (ssget (list (cons 0 "viewport"))))
                        (setq n (sslength ss))
                        (setvar "maxactvp" (1+ n))
                        (vl-cmdf "vports" "on" ss "")
                        
                )
                (t (setvar "maxactvp" 64))
        )
        (setvar "cmdecho" 1)
        (princ)
)

nsh935

谢谢分享！明经由您更酱菜！

ssyfeng

你这个速度慢可能是因为你打开视口时对象比较多显示的慢，不是这个程序问题。

中位数Median

最讨厌一个布局里放几十张图纸上百个视口的人了，自己画图不觉得卡吗？老老实实一个布局一张图不好吗

jkop

收藏，未来有机会用到！顶！

KO你

怎么用你这个命令后命令行显示的提示是乱码

pxt2001

中位数Median 发表于 2023-7-18 09:32
最讨厌一个布局里放几十张图纸上百个视口的人了，自己画图不觉得卡吗？老老实实一个布局一张图不好吗

别人的画图习惯，不要去讨厌。其实这种画图方法很直观，画图方便。只不过CAD没有解决多视口显示慢的问题。否则巨多人会使用大量视口。

lxl217114

去年我也有类似的需求
大佬start4444  帮忙解决了，可以看看是不是差不多的需求。
帖子地址 http://bbs.mjtd.com/thread-186789-1-1.html