[编程申请]：把所有layout中的viewport关闭/打开

秋枫

在一张大图中，每次切换layout （一般有十几个layout），都会引起重生成，想省点时间，先把viewport 关掉，只重生成图纸空间中的物体。

2. 
   
3. [FONT=courier new]
   
4. ;;; (defun setv_OFF        (/ acada doc layouts layout objs obj ent)
   
5. ;;;   (setq acada (vlax-get-acad-object))
   
6. ;;;   (setq doc (vla-get-ActiveDocument acada))
   
7. ;;;   (setq layouts (vla-get-Layouts doc))
   
8. ;;;   (vlax-for layout layouts
   
9. ;;;     (if        (= :vlax-false (vla-get-modeltype layout))
   
10. ;;;       (progn
    
11. ;;;         (setq objs (vla-get-block layout))
    
12. ;;;         (vlax-for obj objs
    
13. ;;;           (if (= "AcDbViewport" (vla-get-objectname obj))
    
14. ;;;             (progn
    
15. ;;;               (setq ent (entget (vlax-vla-object->ename obj)))
    
16. ;;;               (setq ent (subst (cons 68 0) (assoc 68 ent) ent))
    
17. ;;;               (entmod ent)
    
18. ;;;             )
    
19. ;;;           )
    
20. ;;;         )
    
21. ;;;       )
    
22. ;;;     )
    
23. ;;;   )
    
24. ;;; )[/FONT]

<br /> [FONT=courier new]<br /> ;;; (defun setv_OFF        (/ acada doc layouts layout objs obj ent)<br /> ;;;   (setq acada (vlax-get-acad-object))<br /> ;;;   (setq doc (vla-get-ActiveDocument acada))<br /> ;;;   (setq layouts (vla-get-Layouts doc))<br /> ;;;   (vlax-for layout layouts<br /> ;;;     (if        (= :vlax-false (vla-get-modeltype layout))<br /> ;;;       (progn<br /> ;;;         (setq objs (vla-get-block layout))<br /> ;;;         (vlax-for obj objs<br /> ;;;           (if (= "AcDbViewport" (vla-get-objectname obj))<br /> ;;;             (progn<br /> ;;;               (setq ent (entget (vlax-vla-object->ename obj)))<br /> ;;;               (setq ent (subst (cons 68 0) (assoc 68 ent) ent))<br /> ;;;               (entmod ent)<br /> ;;;             )<br /> ;;;           )<br /> ;;;         )<br /> ;;;       )<br /> ;;;     )<br /> ;;;   )<br /> ;;; )[/FONT]

上述代码不能工作，用activex方法也试过：pviewport.display false 和 pviewport.viewporton = false
如何解决？

XDSoft

就是要把VIEWPORT关闭吗？

重生成VIEWPORT，速度很慢吗？

秋枫

是的。两个命令：打开所有/关闭所有

很慢。2分钟一次regen, 太慢了。我十几张图，改一下图面，就要半个小时啊。现在我是freeze掉所有的层，只剩下几个要改的层，才好一点。

XDSoft

用 vlax-put-property
设置下VIEWPORT的属性，看看。

秋枫

FT,不是说试过了吗。不行。

e2002

没找到办法...8-(