[求助]：请问在XRecord中该用什么组码来保存实体句柄

rave

我想借助XRecord来保存实体句柄(Entity handle), 用以描述几个实体间的逻辑关系。XRecordDataType能不能用组码(Group Code)“ 5 ”?
如果不能，请问该用什么来保存实体句柄?

XDSoft

有两种方法：

1、不必用扩展记录，直接用对象的扩展词典，在扩展词典里面保存AcDbObject类对象，比如实体句柄。

2、使用扩展记录，扩展记录里面放resbuf链表，用组码1005保存句柄。

灯火

1.XRecordDataType可以使用通用组码，1-369，只受数据类型的限定。
2.ActiveX中实体句柄为String类型，可用组码为1-4,6-9,102,300-309,5和105也可以用。
3.参考以下代码，试着把XRecordType改为不同整数，看看结果便知。

2. 
   
3. Public Sub XRecordDataForRave()
   
4. 
   
5.     Dim objEn1 As AcadEntity, objEn2 As AcadEntity
   
6.     Dim ptv As Variant
   
7.     Dim objDict As AcadDictionary
   
8.     Dim XRecordData(0) As Variant
   
9.     Dim XRecordType(0) As Integer
   
10. 
    
11.     ThisDrawing.Utility.GetEntity objEn1, ptv, vbLf & "Select First:"
    
12.     ThisDrawing.Utility.GetEntity objEn2, ptv, vbLf & "Select Second:"
    
13.     XRecordData(0) = objEn1.Handle
    
14.     XRecordType(0) = 5
    
15.     Set objDict = objEn2.GetExtensionDictionary
    
16.     Set objXRecord = objDict.AddXRecord("MyHandle")
    
17.     objXRecord.SetXRecordData XRecordType, XRecordData
    
18. 
    
19. End Sub
    
20. 
    

<br /> Public Sub XRecordDataForRave()<br /> <br />     Dim objEn1 As AcadEntity, objEn2 As AcadEntity<br />     Dim ptv As Variant<br />     Dim objDict As AcadDictionary<br />     Dim XRecordData(0) As Variant<br />     Dim XRecordType(0) As Integer<br /> <br />     ThisDrawing.Utility.GetEntity objEn1, ptv, vbLf & "Select First:"<br />     ThisDrawing.Utility.GetEntity objEn2, ptv, vbLf & "Select Second:"<br />     XRecordData(0) = objEn1.Handle<br />     XRecordType(0) = 5<br />     Set objDict = objEn2.GetExtensionDictionary<br />     Set objXRecord = objDict.AddXRecord("MyHandle")<br />     objXRecord.SetXRecordData XRecordType, XRecordData<br /> <br /> End Sub<br /> <br />