Dim idArray() As ObjectId
Try
Dim res As PromptSelectionResult = ed.GetSelection
If res.Status PromptStatus.OK Then
Exit Sub
End If
Dim SS As Autodesk.AutoCAD.EditorInput.SelectionSet = res.Value
idArray = SS.GetObjectIds()
Dim objId As ObjectId
For Each objId In idArray
Dim XDataEnt As Entity = CType(myT.GetObject(objId, OpenMode.ForRead), Entity)
If XDataEnt.GetType.Name.ToString() = "YourXDataEntity ex. CIRCLE LINE etc...." Then
Try
Dim myXdata As Array
myXdata = XDataEnt.XData.AsArray
var0 = myXdata.GetValue(0)
var1 = myXdata.GetValue(1)
Catch ex As Exception
ed.WriteMessage("Selected entity does not have any xdata attached to it." & vbCrLf & "Try Again!")
Exit Sub
End Try
End If
Next
myT.Commit()
Catch ex As Exception
ed.WriteMessage(ex.ToString)
Finally
myT.Dispose()
End Try
ed.WriteMessage(var0 & ", " & var1)
null