请教布局间的切换
请教如何进行模型空间中的各布局间的切换?模型空间与图纸空间间的切换倒是可以,但如何切换到指定名称的模型空间?
谢谢指教!
Dim Layouts As AcadLayouts, Layout As AcadLayout
Set Layouts = ThisDrawing.Layouts
For Each Layout In Layouts
ThisDrawing.SetVariable "CTAB", Layout.Name
...............
next
可以在各个布局中循环。
这个改变Layout.name就可以直接切换到指定名称的图纸空间了吧?我需要切换的图纸空间可不一定是邻近的,我明白天试试吧,谢谢! ThisDrawing.SetVariable "CTAB", Layout.Name
中的Layout.Name只要是你的布局名就是了.一个字符串.
页:
[1]