[求助]：vba中一个object是在Model还是Paper怎么判断?

e2002

请教各位大虾:
vba中一个object是在Model还是Paper怎么判断?
我没找到方法?

秋枫

寄件者：James Welsh (jwelsh@btinternet.com.nospam)
主旨：Re: Determine if objects in Model Space or Layout
新闻群组：autodesk.autocad.customization.vba
View this article only
日期：2001-07-18 12:13:11 PST


Hi Mark,

Try this function...

2. 
   
3. [FONT=courier new]
   
4. Private Function GetEntitiesLayout(objEntity As AcadEntity) As AcadLayout
   
5. 
   
6. Dim objTemp As AcadLayout
   
7. For Each objTemp In ThisDrawing.Layouts
   
8.     If objEntity.OwnerID = objTemp.Block.ObjectID Then
   
9.         Set GetEntitiesLayout = objTemp
   
10.         Exit Function
    
11.     End If
    
12. Next
    
13. 
    
14. End Function
    
15. [/FONT]

<br /> [FONT=courier new]<br /> Private Function GetEntitiesLayout(objEntity As AcadEntity) As AcadLayout<br /> <br /> Dim objTemp As AcadLayout<br /> For Each objTemp In ThisDrawing.Layouts<br />     If objEntity.OwnerID = objTemp.Block.ObjectID Then<br />         Set GetEntitiesLayout = objTemp<br />         Exit Function<br />     End If<br /> Next<br /> <br /> End Function<br /> [/FONT]

... and here's an example of using it.

2. 
   
3. [FONT=courier new]
   
4. Sub JustTesting()
   
5. 
   
6. Dim sp(2) As Double
   
7. Dim ep(2) As Double
   
8. sp(0) = 0: sp(1) = 0: sp(2) = 0
   
9. ep(0) = 10: ep(1) = 0: ep(2) = 0
   
10. 
    
11. Dim objTemp As AcadEntity
    
12. Set objTemp = ThisDrawing.ModelSpace.AddLine(sp, ep)
    
13. 
    
14. Debug.Print GetEntitiesLayout(objTemp).Name
    
15. 
    
16. End Sub
    
17. [/FONT]

<br /> [FONT=courier new]<br /> Sub JustTesting()<br /> <br /> Dim sp(2) As Double<br /> Dim ep(2) As Double<br /> sp(0) = 0: sp(1) = 0: sp(2) = 0<br /> ep(0) = 10: ep(1) = 0: ep(2) = 0<br /> <br /> Dim objTemp As AcadEntity<br /> Set objTemp = ThisDrawing.ModelSpace.AddLine(sp, ep)<br /> <br /> Debug.Print GetEntitiesLayout(objTemp).Name<br /> <br /> End Sub<br /> [/FONT]

Hope this helps,

James

"Mark Sanchez" <specserv@gte.net> wrote in message
news:3B54D9E3.6359A1CC@gte.net...

efan2000

关于对象的ID号，在CAD中，它的结构是这样的：
主对象ObjectID——从对象OwnerID（主对象ObjectID）——从对象OwnerID。
因而，某一实体的关系可以这样子认为：
块集合——块（模型空间）——实体。