模型空间中，如何用命令切换视口？

ygp820601

模型空间中，如何用命令切换视口？望高手赐教。

ygp820601

在模型空间的当前视口中用redraw不亮显某个图形后，其它视口中的同一图形却仍然是亮显，如何也让其他视口的这个图形也不亮显呢？我想切换到那个视口中，用redraw命令实现，不知如何切换？或者有其他的方法？

ygp820601

在模型空间中，如何让某个对象在所有视口中同时亮显或不亮显？

c961806787

ctrl+R

shh_188

2. ;;重生成模型空间中的所有视口
   
3. (defun C:RegenAllViewportsInMspace (/ Doc ActiveViewport Viewports Count_Viewports)
   
4.   (setq Doc (vlax-get-property (vlax-get-acad-object) "ActiveDocument");;获取当前文件的名称
   
5.   ActiveViewport (vlax-get-property Doc "ActiveViewport");;获取当前使用的视口名称，用于程序结束后切换回当前视口
   
6.   Viewports (vlax-get-property Doc "Viewports");;获取所有模型视口的集合名称
   
7.   Count_Viewports 0
   
8.   )
   
9.   ;;逐个重生成模型视口
   
10.   (repeat (vlax-get-property Viewports "Count")
    
11.     (vlax-put-property Doc "ActiveViewport" (vlax-invoke-method Viewports "Item" Count_Viewports));;激活指定的模型视口
    
12.     (vlax-invoke-method Doc "Regen" acActiveViewport);;重生成当前模型视口
    
13.     (setq Count_Viewports (1+ Count_Viewports))
    
14.   );;repeat (vlax-get-property Viewports "Count")
    
15.   (vlax-put-property Doc "ActiveViewport" ActiveViewport);;切换回程序开始时的当前视口
    
16.   (princ)
    
17. );;defun C:RegenAllViewportsInMspace
    

;;重生成模型空间中的所有视口<br /> (defun C:RegenAllViewportsInMspace (/ Doc ActiveViewport Viewports Count_Viewports)<br />   (setq Doc (vlax-get-property (vlax-get-acad-object) "ActiveDocument");;获取当前文件的名称<br />   ActiveViewport (vlax-get-property Doc "ActiveViewport");;获取当前使用的视口名称，用于程序结束后切换回当前视口<br />   Viewports (vlax-get-property Doc "Viewports");;获取所有模型视口的集合名称<br />   Count_Viewports 0<br />   )<br />   ;;逐个重生成模型视口<br />   (repeat (vlax-get-property Viewports "Count")<br />     (vlax-put-property Doc "ActiveViewport" (vlax-invoke-method Viewports "Item" Count_Viewports));;激活指定的模型视口<br />     (vlax-invoke-method Doc "Regen" acActiveViewport);;重生成当前模型视口<br />     (setq Count_Viewports (1+ Count_Viewports))<br />   );;repeat (vlax-get-property Viewports "Count")<br />   (vlax-put-property Doc "ActiveViewport" ActiveViewport);;切换回程序开始时的当前视口<br />   (princ)<br /> );;defun C:RegenAllViewportsInMspace<br />

正好看到这个帖子，不知道作者还在吗。这段代码可以逐个给各个视口进行重生成。
如果你不想用重生成，只是要用redraw来重画的话，就把代码里   (vlax-invoke-method Doc "Regen" acActiveViewport)  这句改成  (command "redraw")  就行了。