ygp820601 发表于 2014-5-29 14:43:13

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

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

ygp820601 发表于 2014-5-29 15:21:31

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

ygp820601 发表于 2014-5-29 15:27:53

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

c961806787 发表于 2014-12-16 10:06:09

ctrl+R

shh_188 发表于 2018-6-14 15:56:38

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


正好看到这个帖子，不知道作者还在吗。这段代码可以逐个给各个视口进行重生成。
如果你不想用重生成，只是要用redraw来重画的话，就把代码里 (vlax-invoke-method Doc "Regen" acActiveViewport)这句改成(command "redraw")就行了。
页: [1]
查看完整版本: 模型空间中，如何用命令切换视口？