topic Re: Retrieve Custom data from DBDictionary in .NET Forum

Retrieve Custom data from DBDictionary

waseefur.rahman — Thu, 28 Jan 2021 19:35:33 GMT

Hi everyone,

I am trying to retrieve custom data which stored in DBDictionary

below method used in objectarx, it works fine

AcDbObject::dwgInFields(pFilter); //read data from acad model Int32 size; pFilter->readInt32(&size); TVector<char> mem(size); pFilter->readBytes(mem.begin(), size);

but in .net i was not able to retrive the data,

Dim pNamedobj As DBDictionary = tr.GetObject(db.NamedObjectsDictionaryId, OpenMode.ForRead, False) 'Dim DBDict As DBDictionary Dim DBDict As DBObject Try DBDict = tr.GetObject(pNamedobj.GetAt(s_cLVScene), OpenMode.ForRead) Catch ex As Autodesk.AutoCAD.Runtime.Exception MsgBox(ex.Message) Exit Sub End Try Dim pFilter As DwgFiler DBDict.DwgIn(pFilter) Dim XMLDATA = pFilter.ReadByte()

could anyone please advice, what needs to be modified to achieve the output.

Re: Retrieve Custom data from DBDictionary

dhaverstick — Fri, 05 Feb 2021 14:50:50 GMT

What type of data was stored in the custom dictionary and how was it stored?

I use DBDictionaries to store data in Xrecords. Here is some code that shows how I get that data in and out of a DBDictionary.

Writing data:

Private Sub CreateDictionaryXRecord(ByRef TransactionObject As Transaction, ByRef DictionaryObject As DBDictionary, ByVal XRecordName As String, ByVal DxfCodeType As String, ByVal XRecordValue As Object) Dim BufferObject As New ResultBuffer Dim XRecordObject As New Xrecord If DxfCodeType.ToUpper = "INT16" Then BufferObject.Add(New TypedValue(DxfCode.Int16, CType(XRecordValue, Int16))) ElseIf DxfCodeType.ToUpper = "REAL" Then BufferObject.Add(New TypedValue(DxfCode.Real, CType(XRecordValue, Double))) ElseIf DxfCodeType.ToUpper = "TEXT" Then BufferObject.Add(New TypedValue(DxfCode.Text, CType(XRecordValue, String))) End If XRecordObject.Data = BufferObject DictionaryObject.SetAt(XRecordName, XRecordObject) TransactionObject.AddNewlyCreatedDBObject(XRecordObject, True) End Sub

Reading data:

DictionaryObject = TransactionObject.GetObject(DictionaryObjectID, OpenMode.ForRead) XRecordObject = TransactionObject.GetObject(DictionaryObject.GetAt(NameOfXRecord), OpenMode.ForRead) XDataValueOut = XRecordObject.Data.AsArray If TypeOf XDataValueOut(0).Value Is String Then DataValue = XDataValueOut(0).Value.ToString ElseIf TypeOf XDataValueOut(0).Value Is Integer Then DataValue = CInt(XDataValueOut(0).Value) Else DataValue = CDbl(XDataValueOut(0).Value) End If

I hope this helps!

Darren

Re: Retrieve Custom data from DBDictionary

waseefur.rahman — Mon, 08 Feb 2021 10:50:47 GMT

Hi @dhaverstick ,

Thanks you for replay,

i tried you code and got this error,

Actually its a Proxy Object, which is stored in DBDictionary,
Can you please guide me on ow to retrive data from Proxyobject?

Thanks

Re: Retrieve Custom data from DBDictionary

_gile — Mon, 08 Feb 2021 12:49:49 GMT

Hi,

you cannot get other data from a ProxyObject the the ProxyObject properties.

To get more, you must have the application wich creates the underlying custom object.

Re: Retrieve Custom data from DBDictionary

dhaverstick — Mon, 08 Feb 2021 13:03:29 GMT

The code I shared was not intended to be used verbatim. It was an example of how I get data in and out of a DBDictionary using Xrecords. I have no idea what data you are trying to store and retrieve.

Darren