Dim acEd As Editor = acDoc.Editor
Dim acDb As Database = acDoc.Database
If acDb.TileMode Then
acEd.WriteMessage(vbLf & "当前空间:【模型空间】")
ElseIf acDb.CurrentSpaceId = SymbolUtilityServices.GetBlockModelSpaceId(acDb) Then
acEd.WriteMessage(vbLf & "当前空间:【某一视口】")
Else
acEd.WriteMessage(vbLf & "当前空间:【图纸空间】")
End If
|
暂时没有评论
发表评论 - 不要忘了输入验证码哦! |