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

nhy12345678 发表于 2008-7-4 23:56:00

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

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

wylong 发表于 2008-7-7 19:46:00

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

nhy12345678 发表于 2008-7-10 14:11:00

非常感谢wylong
这样写也可以，我发现了
    If ThisDrawing.ActiveSpace = 0 Then '当前为图纸空间
      MsgBox "当前为图纸空间"
    Else
      MsgBox "当前为模型空间"
    End If

清风明月名字 发表于 2012-5-14 20:14:00

谢谢楼主，很有价值，

查看完整版本: [已解决]VBA如何判断当前绘图是在模型空间还是图纸空间呢？