topic Re: retrieve xdata in VBA Forum

retrieve xdata

Anonymous — Mon, 06 Oct 2014 00:09:18 GMT

This porting VBA to ,net is a pain. I have attatched a number of xdata to an object in one function. I need to retrieve specific xdata in another. I cant seem to find where to put the index value to get to item 5 in the xdata. I can read all of the xdata just fine

Thanks Mike

Re: retrieve xdata

Alfred.NESWADBA — Fri, 10 Oct 2014 20:58:25 GMT

Hi,

please upload either a drawing with one element in modelspace with your EED/XDATA or show your code so we see what you wrote/how you did it.

The element with index 5 of an array is normally readable by

myArrData(5)

But as there might be more than just one application that needs to assign EED to an object you have 2 options to get your data&colon;

a) take all XDATA from the object (as array), then scan it for your appname and that is the index where you start now, add + 5 to get your value

b) use the function DBObj.GetXDataForApplication ==> that gives you only your EED as resultbuffer

HTH, - alfred -

Re: retrieve xdata

Anonymous — Sat, 11 Oct 2014 00:33:24 GMT

Here is the code i have. I got it returning the first character in each
xdata record:

Public Sub ViewXData()
' Get the current database and start a transaction
Dim acCurDb As Autodesk.AutoCAD.DatabaseServices.Database
acCurDb = Application.DocumentManager.MdiActiveDocument.Database

Dim acDoc As Document =
Application.DocumentManager.MdiActiveDocument

Dim appName As String = "mikeC"
Dim msgstr As String = ""
Dim objColection As ObjectIdCollection = New ObjectIdCollection()
Using acTrans As Transaction =
acCurDb.TransactionManager.StartTransaction()

' Request objects to be selected in the drawing area
Dim acSSPrompt As PromptSelectionResult =
acDoc.Editor.GetSelection()

' If the prompt status is OK, objects were selected
If acSSPrompt.Status = PromptStatus.OK Then
Dim i As Integer
i = 0
Dim acSSet As SelectionSet = acSSPrompt.Value
'' add more objects
objColection = New ObjectIdCollection(acSSet.GetObjectIds())
' Step through the objects in the selection set
For Each acSSObj As SelectedObject In acSSet
' Open the selected object for read
Dim acEnt As Object =
acTrans.GetObject(acSSObj.ObjectId, _

OpenMode.ForRead)

' Get the extended data attached to each object for
mikeC
Dim rb As ResultBuffer =
acEnt.GetXDataForApplication(appName)

' Make sure the Xdata is not empty
If Not IsNothing(rb) Then
' Get the values in the xdata
For Each typeVal As TypedValue In rb
MsgBox(typeVal.Value(i)).ToString()

msgstr = msgstr & vbCrLf &
typeVal.TypeCode.ToString() & ":" & typeVal.Value

Next
Else
msgstr = "NONE"
End If

' Display the values returned
MsgBox(appName & " xdata on " &
VarType(acEnt).ToString() & ":" & vbCrLf & msgstr)

msgstr = ""
Next
i = i + 1
End If

' Ends the transaction and ensures any changes made are ignored
acTrans.Abort()

' Dispose of the transaction
End Using
End Sub

Re: retrieve xdata

Alfred.NESWADBA — Sat, 11 Oct 2014 08:07:50 GMT

Hi,

>> I got it returning the first character in each xdata record

Look to that lines:

For Each typeVal As TypedValue In rb

MsgBox(typeVal.Value(i)).ToString()

There you start of a loop that already handles each item of the resultbuffer (For Each ...)

And within that loop you should take the value (typeVal.Value) and that's it

With your syntax typeVal.Value(i) you don't take the full string, you just take the element i in the array ... for a string that means you take the character at position i out of the array of characters.

HTH, - alfred -

Re: retrieve xdata

Anonymous — Fri, 17 Oct 2014 14:49:48 GMT

Also, don't forget that the arrays are 0 based so element 5 is going to be located at position 4...

Tom

Re: retrieve xdata

Anonymous — Mon, 20 Oct 2014 11:48:57 GMT

I don't know if this the correct way to do this but here is what worked.

My above Code

If rb IsNot Nothing Then
' Get the values in the xdata
Dim XdataOut As TypedValue() = rb.AsArray()

Dim xdata4 As Double = XdataOut.ElementAt(4).Value
Dim xdata5 As Double = XdataOut.ElementAt(5).Value

Thanks Mike