[求助]vb.net 扩展数据xrecord的问题

y357072939

Imports Autodesk.AutoCAD.DatabaseServices
Imports Autodesk.AutoCAD.Runtime
Imports Autodesk.AutoCAD.Geometry
Imports Autodesk.AutoCAD.ApplicationServices
Imports Autodesk.AutoCAD.EditorInput
Public Class MyXrecord
<CommandMethod("CreateXrecord")> _
Public Sub CreateXrecord()
    Dim ed As Editor = Application.DocumentManager.MdiActiveDocument.Editor
    Dim db As Database = HostApplicationServices.WorkingDatabase
    Using trans As Transaction = db.TransactionManager.StartTransaction
        '新建一个扩展记录对象
        Dim xrec As New Xrecord()
        '设置扩展记录中包含的数据列表，包括文本、坐标、数值、角度、颜色
        Dim pt As New Point3d(1.0, 2.0, 0.0)
        xrec.Data = New ResultBuffer( _
                    New TypedValue(DxfCode.Text, "这是一个测试用的扩展记录列表"), _
                    New TypedValue(DxfCode.XCoordinate, pt), _
                    New TypedValue(DxfCode.Real, 3.14159), _
                    New TypedValue(DxfCode.Angle, 3.14159), _
                    New TypedValue(DxfCode.Color, 1), _
                    New TypedValue(DxfCode.Int16, 180))
        '下面的操作用来选择要添加扩展记录的对象
        Dim opt As New PromptEntityOptions("请选择要添加扩展记录的对象")
        Dim res As PromptEntityResult = ed.GetEntity(opt)
        If res.Status <> PromptStatus.OK Then
            Return
        End If
        Dim ent As Entity = trans.GetObject(res.ObjectId, OpenMode.ForWrite)
        '判断所选对象是否已包含扩展记录
        If ent.ExtensionDictionary <> ObjectId.Null Then
            ed.WriteMessage("对象已包含扩展记录，无法再创建")
            Return
        End If
        '为所选择的对象创建一个扩展字典
        ent.CreateExtensionDictionary()
        Dim dictEntId As ObjectId = ent.ExtensionDictionary()
        Dim entXrecord As DBDictionary = trans.GetObject(dictEntId, OpenMode.ForWrite)
        '在扩展字典中加入上面新建的扩展记录对象，并指定它的搜索关键字为MyXrecord
        entXrecord.SetAt("MyXrecord", xrec)
        '通知事务处理完成扩展记录对象的加入
        trans.AddNewlyCreatedDBObject(xrec, True)
        trans.Commit()
    End Using
End Sub

End Class

 

问题：这是一个vb.net给要素增加扩展数据的代码。我现在想要在另一个程序中，通过拾取这个要素，从而获得这个要素中扩展数据的一项属性值（比如DxfCode.Color项。即已有扩展数据的颜色属性值赋值给一个参数A）。

最后想要实现的功能是：比如我生成了一条代表大车路的多段线。给这条多段线增加了“大车路”、“颜色：7号色”等扩展数据。然后通过拾取这条多段线来给另一条无属性项的多段线增加该大车路所有的属性项。

雪山飞狐_lzh

ResultBuffer的实质是一个链表，只能顺序访问

你的任务:

找到这个链表的第n项（由你的程序规定），读取或者替换整个链表