[讨论]：关于layout切换时重生成的问题

秋枫

问题的起因是这样：有一张很大的图（防洪工程大坝，好几公里长），出图时分段出图，
用分成了几十张layout图纸出图。这个图regen需要5分钟。在layout中切换时，会引起
漫长的regen，（说明：LayoutRegenCtl系统变量设成0了。如果让它自动cache的话，
你会死得很难看，除非你有几个G的内存，而且这种cache的有效性也不高）。于是我想
写个程序，一个命令把所有layout中的所有viewport物体关闭掉，即抢在regen之前关掉它。

程序代码如下：
(defun setvtest (hide / acada doc layouts layout objs obj)
  (setq acada (vlax-get-acad-object))
  (setq doc (vla-get-ActiveDocument acada))
  (setq layouts (vla-get-Layouts doc))
  (vlax-for layout layouts  ; 遍历layout
    (if (= :vlax-false (vla-get-modeltype layout))
      (progn
        (setq objs (vla-get-block layout))
        (vlax-for obj objs ; 遍历layout中的物体
          (if (= "AcDbViewport" (vla-get-objectname obj)) ;是viewport
;;; =========处理代码=============
            (vla-put-ViewportOn
              obj
              (if hide
                :vlax-false
                :vlax-true
              )
            )
;;; =========处理代码=============
          )
        )
      )
    )
  )
)

设想是这样：(setvtest T)关闭所有viewport，(setvtest nil)打开所有viewport
这个简单的程序试运行一下，不成功。提示出错。

查帮助，发现还有一个method，改成
(vla-display obj (if hide :vlax-false :vlax-true))
试验，不成功

再改：用autolisp传统方法：
;;;           (setq ent (entget (vlax-vla-object->ename obj)))
;;;           (setq ent (subst (cons 68 0) (assoc 68 ent) ent))
;;;           (entmod ent)
还是不成功

于是想别的办法，如果把viewport的visible设成false, 如何呢：
(vla-put-visible obj (if hide :vlax-false :vlax-true))
程序运行成功，但结果不是我要的：viewport的边框invisible了，
但里面照样有显示，切换时regen你没商量。

那么，就没有办法设置不在当前layout中的viewport的viewportOn属性了吗？
如果能做到这点，我认为是最好的解决办法。

现在我的做法是：把图纸空间中的物体放在特定的层上，对图纸空间操作时，
冻结所有与图纸空间无关的层。使用了layer state 保存与恢复功能
（感谢express和AutoCAD 2002，这个功能非常有用），切换时重生成时间
大大减少。但毕竟还是不太方便。

我还有一个设想，如果有个程序，把各个视口中的图层冻结，也不错。
autocad是能够单独控制各个视口的图层状态的。不过要为每个视口保护现场，
需要时可以恢复。实现有点麻烦。

大家能不能讨论讨论，有经验或主意的朋友，请不吝赐教。


[ps: 如果论坛支持贴html就好了。

秋枫

秋枫

xotoo

我把这个老帖子顶出来吧
有时布局多了的确比较烦，点开一个布局都那么慢，有没有办法点开布局的时候不重新生成，等到我们需要的时候可以按比如“F5”键进行刷新……

Sayonana

你的程序有问题,你的想法也有问题.
首先,跨布局操作视口是有问题的.
其次,每个布局就是一个视口,你能PUT布局OFF吗?
我的做法是:只用一个LAYOUT.做多个视口,做一个关闭一个.视口做完后全部处于关闭状态.以上操作用程序完成.需要时再把视口打开.

2. ;;;打开或关闭VIEWPORT.如果是打开的则关闭,如果是关闭的则打开.
3. (defun c:vw ()
4.   (princ "\n打开或关闭VIEWPORT.")
5.   (setvar "cmdecho" 0)
6.   (setvar "LAYOUTREGENCTL" 0)
7.   (setq n 0 i 0 h 0)
8.   (if (/= 0 (getvar "tilemode"))
9.     (princ "\n只能在图纸空间使用.")
10.   (if (setq ss (ssget '((0 . "VIEWPORT"))))
11.     (repeat (sslength ss)
12.       (setq vo (vlax-ename->vla-object (ssname ss n)))
13.       (if (= :vlax-true (vla-get-viewporton vo))
14. (progn
15. (vla-put-viewporton vo :vlax-false)(setq i (1+ i)))
16. (progn
17. (vla-put-viewporton vo :vlax-true)(setq h (1+ h)))
18.       )
19.       (setq n (1+ n))
20.     )
21.   )
22.     )
23.   (princ (strcat "\n打开了" (rtos h 2 0) "个视口"))
24.   (princ (strcat "\n关闭了" (rtos i 2 0) "个视口"))
25.   (princ)
26. )

;;;打开或关闭VIEWPORT.如果是打开的则关闭,如果是关闭的则打开. (defun c:vw ()   (princ "\n打开或关闭VIEWPORT.")   (setvar "cmdecho" 0)   (setvar "LAYOUTREGENCTL" 0)   (setq n 0 i 0 h 0)   (if (/= 0 (getvar "tilemode"))     (princ "\n只能在图纸空间使用.")   (if (setq ss (ssget '((0 . "VIEWPORT"))))     (repeat (sslength ss)       (setq vo (vlax-ename->vla-object (ssname ss n)))       (if (= :vlax-true (vla-get-viewporton vo)) (progn (vla-put-viewporton vo :vlax-false)(setq i (1+ i))) (progn (vla-put-viewporton vo :vlax-true)(setq h (1+ h)))       )       (setq n (1+ n))     )   )     )   (princ (strcat "\n打开了" (rtos h 2 0) "个视口"))   (princ (strcat "\n关闭了" (rtos i 2 0) "个视口"))   (princ) )

carrot1983

好东西,前些日子正烦这个呢...

批量打印布局,最后打到"虚拟内存不足"

晕死...总共就16个布局,受不了...(以前没用过布局.呵呵)