Community
It seems that you are confusing XData (Extensed Data) with ExtensionDictionary, which I also noticed in your previous post.
XData is a set of ResultBuffers grouped by RegistredApplication, being attached to Entities, while ExtensionDictionary itself is a DBObject(DBDictionary) that usually contains either DBDictionary, or XRecord, indexed by named keys.
For XData's ResultBuffer (TypedValue array), its data type can only be DxfCode.ExtendedDataXXXXXX.
So, while you can attatch both XData and ExtensionDictionary to an Entity, you need to know they are different things and treat they seperately. Thus, the Sync() method in your code doe not make much sense for what you want to do, if you are to use XData.
Since your requirement is fairly easy (simply attach 2 pieces of data, a string and a double) to an entity, it would fairly easy. I just make some changes with your code (but I prefer to make the process as and extension method to an Entity, or better yet, to ObjectId):
Public Class BESDXData
Private entID As ObjectId
Private convType As String
Private convLength As Double
Private appName As String = "BESD"
Public Exist As Boolean
''Dim doc As Document = Application.DocumentManager.MdiActiveDocument
''Dim db As Database = doc.Database
Public Sub New(objEntId As ObjectId)
entID = objEntId
Using tran As Transaction = entId.Database.TransactionManager.StartTransaction()
Dim objEnt = tran.GetObject(entId, OpenMode.ForRead)
Dim rb As ResultBuffer = objEnt.GetXDataForApplication(appName)
''Dim ed As Editor = doc.Editor
If IsNothing(rb) Then
''ed.WriteMessage(vbLf + "Result Buffer is empty !")
Exist = False
Else
'' Initialise member field with retrieved XData here
Dim vals = rb.AsArray()
If vals.Length = 3 Then
'' First element is the application name
convType=vals(1).Value.ToString()
convLength=Convert.ToDouble(vals(2).Value)
Exist = True
Else
Exist = False
End If
End If
tran.Commit()
End Using
End Sub
Property Type As String
Get
Return convType
End Get
Set(value As String)
convType = value
End Set
End Property
Property Length As Double
Get
Return convLength
End Get
Set(value As Double)
convLength = value
End Set
End Property
Public Sub Sync()
Using trans As Transaction = entId.Database.TransactionManager.StartTransaction
Dim objEnt As DBObject = tran.GetObject(entId, OpenMode.ForWrite)
Dim vals As TypedValue(0 to 2)
vals(0)=New TypedValue(DxfCode.ExtendedDataRegAppName, appName)
vals(1)=New TypedValue(DfCode.ExtendedDataAsciiString, convType)
vals(2)=New TypedValue(DxfCode.ExtendedDataReal, convLength)
Dim rb As ResultBuffer = New ResultBuffer(vals)
objEnt.XData = rb
trans.Commit()
End Using
End Sub
End Class
If you want to store data with entity as ExtensionDictionary, the code would be different. Again, XData and ExtensionDictionary are different things.
Hi,
For my part, I prefer to use extension methods.
With VB, to add the class (module with VB) to the Autodesk.AutoCAD.DatabaseServices namespace you should have to clear the 'root namespace'.
using System;
using Autodesk.AutoCAD.Runtime;
namespace Autodesk.AutoCAD.DatabaseServices
{
public static class Extension
{
public static T GetObject<T>(
this ObjectId id,
OpenMode mode = OpenMode.ForRead,
bool openErased = false,
bool forceOpenOnLockedLayer = false)
where T : DBObject
{
if (id.IsNull)
throw new Runtime.Exception(ErrorStatus.NullObjectId);
Transaction tr = id.Database.TransactionManager.TopTransaction;
if (tr == null)
throw new Runtime.Exception(ErrorStatus.NoActiveTransactions);
return (T)tr.GetObject(id, mode, openErased, forceOpenOnLockedLayer);
}
public static DBDictionary TryGetExtensionDictionary(this DBObject source)
{
if (source == null)
throw new ArgumentNullException(nameof(source));
ObjectId dictId = source.ExtensionDictionary;
if (dictId == ObjectId.Null)
{
return null;
}
return dictId.GetObject<DBDictionary>();
}
public static DBDictionary GetOrCreateExtensionDictionary(this DBObject source)
{
if (source == null)
throw new ArgumentNullException(nameof(source));
if (source.ExtensionDictionary == ObjectId.Null)
{
source.UpgradeOpen();
source.CreateExtensionDictionary();
}
return source.ExtensionDictionary.GetObject<DBDictionary>();
}
public static ResultBuffer GetXDictionaryXrecordData(this DBObject source, string key)
{
if (source == null)
throw new ArgumentNullException(nameof(source));
if (string.IsNullOrWhiteSpace(key))
throw new ArgumentNullException(nameof(key));
DBDictionary xdict = source.TryGetExtensionDictionary();
if (xdict == null)
{
return null;
}
return xdict.GetXrecordData(key);
}
public static void SetXDictionaryXrecordData(this DBObject target, string key, params TypedValue[] values)
{
target.SetXDictionaryXrecordData(key, new ResultBuffer(values));
}
public static void SetXDictionaryXrecordData(this DBObject target, string key, ResultBuffer data)
{
if (target == null)
throw new ArgumentNullException(nameof(target));
if (string.IsNullOrWhiteSpace(key))
throw new ArgumentNullException(nameof(key));
target.GetOrCreateExtensionDictionary().SetXrecordData(key, data);
}
public static ResultBuffer GetXrecordData(this DBDictionary dict, string key)
{
if (dict == null)
throw new ArgumentNullException(nameof(dict));
if (!dict.Contains(key))
{
return null;
}
ObjectId id = (ObjectId)dict[key];
if (id.ObjectClass != RXObject.GetClass(typeof(Xrecord)))
return null;
return id.GetObject<Xrecord>().Data;
}
public static void SetXrecordData(this DBDictionary dict, string key, ResultBuffer data)
{
if (dict == null)
throw new ArgumentNullException(nameof(dict));
if (string.IsNullOrWhiteSpace(key))
throw new ArgumentNullException(nameof(key));
Transaction tr = dict.Database.TransactionManager.TopTransaction;
if (tr == null)
throw new Runtime.Exception(ErrorStatus.NoActiveTransactions);
Xrecord xrec;
if (dict.Contains(key))
{
xrec = ((ObjectId)dict[key]).GetObject<Xrecord>(OpenMode.ForWrite);
}
else
{
dict.UpgradeOpen();
xrec = new Xrecord();
dict.SetAt(key, xrec);
tr.AddNewlyCreatedDBObject(xrec, true);
}
xrec.Data = data;
}
}
}
Testing example:
[CommandMethod("XRECTEST")]
public static void XrecordTest()
{
var doc = Application.DocumentManager.MdiActiveDocument;
var db = doc.Database;
var ed = doc.Editor;
var per = ed.GetEntity("\nSelect object: ");
if (per.Status == PromptStatus.OK)
{
using (var tr = db.TransactionManager.StartTransaction())
{
var ent = (Entity)tr.GetObject(per.ObjectId, OpenMode.ForRead);
var data = ent.GetXDictionaryXrecordData("TestXrec");
if (data == null)
{
ed.WriteMessage("\nThe entity does not have a 'TextXrec' Xrecord, it will be added");
ent.SetXDictionaryXrecordData("TestXrec", new TypedValue(1, "foo"), new TypedValue(70, 42));
}
else
{
foreach (var tv in data.AsArray())
{
ed.WriteMessage($"\nTypeCode: {tv.TypeCode}, Value: {tv.Value}");
}
}
tr.Commit();
}
}
}
Can't find what you're looking for? Ask the community or share your knowledge.
Post to forums
