如何判断一个块在模型空间还是在图纸空间？

neteasy

如何判断一个块在模型空间还是在图纸空间？

mccad

2. Sub BlkOwnObj()
   
3.     Dim Ent As AcadEntity
   
4.     Dim Pnt As Variant
   
5.     ThisDrawing.Utility.GetEntity Ent, Pnt
   
6.     Dim OwnId As Long
   
7.     OwnId = Ent.OwnerID
   
8.     Dim Obj As AcadObject
   
9.     Set Obj = ThisDrawing.ObjectIdToObject(OwnId)
   
10.     If TypeName(Obj) = "IAcadModelSpace" Then
    
11.         MsgBox "选定对象是在模型空间中。", , "明经通道VBA示例"
    
12.     ElseIf TypeName(Obj) = "IAcadPaperSpace" Then
    
13.         MsgBox "选定对象是在图纸空间中。", , "明经通道VBA示例"
    
14.     End If
    
15. End Sub
    

Sub BlkOwnObj()<br />     Dim Ent As AcadEntity<br />     Dim Pnt As Variant<br />     ThisDrawing.Utility.GetEntity Ent, Pnt<br />     Dim OwnId As Long<br />     OwnId = Ent.OwnerID<br />     Dim Obj As AcadObject<br />     Set Obj = ThisDrawing.ObjectIdToObject(OwnId)<br />     If TypeName(Obj) = "IAcadModelSpace" Then<br />         MsgBox "选定对象是在模型空间中。", , "明经通道VBA示例"<br />     ElseIf TypeName(Obj) = "IAcadPaperSpace" Then<br />         MsgBox "选定对象是在图纸空间中。", , "明经通道VBA示例"<br />     End If<br /> End Sub<br />