[已解决]vb能否实现从模型空间转换到布局空间

hillskysea

如题，我在模型空间中生成了一个实体，想要在vb中实现自动标注尺寸，cad中必须先切换到布局空间，请问cad中有没有命令可以从模型空间转换到布局空间，然后用sendcommand命令来实现呢？

xrongzhen

Sub DisplayLayout()
    Dim objLayout As AcadLayout
    Set objLayout = ThisDrawing.Layouts.Item("布局1")
    ThisDrawing.ActiveLayout = objLayout
End Sub

hillskysea

xrongzhen发表于2009-6-3 9:36:00Sub DisplayLayout()    Dim objLayout As AcadLayout    Set objLayout = ThisDrawing.Layouts.Item(\"布局1\")    ThisDrawing.ActiveLayout

非常感谢你，问题解决了

牵牛

xrongzhen 发表于 2009-6-3 09:36
Sub DisplayLayout()    Dim objLayout As AcadLayout    Set objLayout =  ...

你好 如何用vb读取里面的所有布局名称 然后挨个打开呢 可以指导下吗 我的qq 3078936913