Retrieve Custom data from DBDictionary

[waseefur.rahman]

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.

[dhaverstick]

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

[waseefur.rahman]

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

[_gile]

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.

[dhaverstick]

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