[已解决]VBA如何判断当前绘图是在模型空间还是图纸空间呢？

nhy12345678

有时候我在图纸空间绘图，但是使用VBA时没有反应才知道使用的是ThisDrawing.ModelSpace  而不是ThisDrawing.PaperSpace

有没有什么办法判断当前绘图是在模型空间还是图纸空间呢？如果实在模型空间的话，VBA就执行ThisDrawing.ModelSpace  　而在图纸空间就执行ThisDrawing.PaperSpace 这样的话在什么空间中画图都不会有错误了。

wylong

Public Sub CheckActiveSpace()
    If ThisDrawing.ActiveSpace = acPaperSpace Then '当前为图纸空间
        MsgBox "当前为图纸空间"
    Else
        MsgBox "当前为模型空间"
    End If
End Sub

nhy12345678

非常感谢wylong

这样写也可以，我发现了

    If ThisDrawing.ActiveSpace = 0 Then '当前为图纸空间
        MsgBox "当前为图纸空间"
    Else
        MsgBox "当前为模型空间"
    End If

清风明月名字

谢谢楼主，很有价值，