有一个细节问题请教各位！

zhumb

Dim oSpace As AcadBlock
With ThisDrawing
If .ActiveSpace = acModelSpace Then
Set oSpace = .ModelSpace
Else
Set oSpace = .PaperSpace
End If
End With 通过以上代码，现在oSpace中画图，适应于ModelSpace和PaperSpace， 但是，如果在PaperSpace中建一个视口，双击进入视口，这样，在视口里通过oSpace画的东西就会出现在PaperSpace中，而不在ModelSpace中，如何解决该问题？

mccad

2. Function GetActiveSpace() As AcadBlock
3.        Dim objSpace As AcadBlock
4.        With ThisDrawing
5.        If .ActiveSpace = acModelSpace Then
6.            Set objSpace = .ModelSpace
7.        Else
8.            If .MSpace = False Then
9.                Set objSpace = .PaperSpace
10.            Else
11.                Set objSpace = .ModelSpace
12.            End If
13.        End If
14.        End With
15.        Set GetActiveSpace = objSpace
16. End Function
17. Sub GetSpaceSample()
18. MsgBox "当前空间为： " & GetActiveSpace.Name, , "明经通道VBA示例"
19. End Sub

Function GetActiveSpace() As AcadBlock        Dim objSpace As AcadBlock        With ThisDrawing        If .ActiveSpace = acModelSpace Then            Set objSpace = .ModelSpace        Else            If .MSpace = False Then                Set objSpace = .PaperSpace            Else                Set objSpace = .ModelSpace            End If        End If        End With        Set GetActiveSpace = objSpace End Function Sub GetSpaceSample() MsgBox "当前空间为： " & GetActiveSpace.Name, , "明经通道VBA示例" End Sub

zhumb

OK了，谢谢版主！