EUREKA, I filnally got it !!!!
I did some more digging in the documentation and pulled all the pieces together.
just in case some other poor sap like me needs to extract object data.
Here is the code.
References are AcDbMgd, AcMgd, managedMapApi
Imports System
Imports Autodesk.AutoCAD.Runtime
Imports Autodesk.AutoCAD.ApplicationServices
Imports Autodesk.AutoCAD.DatabaseServices
Imports Autodesk.AutoCAD.Geometry
Imports Autodesk.AutoCAD.EditorInput
Imports Autodesk.Gis.Map.ObjectData
Imports Autodesk.Gis.Map
Private Sub TestExtractOBJData(ByRef acSSet As SelectionSet)
Dim doc As Document = Application.DocumentManager.MdiActiveDocument()
Dim db As Database = doc.Database
Dim ed As Editor = doc.Editor
Dim mapApp As MapApplication
mapApp = HostMapApplicationServices.Application
Dim activeProject As Autodesk.Gis.Map.Project.ProjectModel = mapapp.ActiveProject
Dim tableList As Autodesk.Gis.Map.ObjectData.Tables = activeProject.ODTables
'get specific table = "MyTable"
Dim table As ObjectData.Table = tableList("MyTable")
'Dim acEditor As Editor = Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument.Editor
'start a transaction
Dim tm As Autodesk.AutoCAD.DatabaseServices.TransactionManager = db.TransactionManager
Dim myT As Transaction = tm.StartTransaction()
Using myT
Try
'loop through object in the selection set
For Each sobj As SelectedObject In acSSet
Dim ent As Entity = myT.GetObject(sobj.ObjectId, OpenMode.ForRead)
If TypeOf ent Is DBText Then
Dim tt As DBText = DirectCast(ent, DBText)
Dim fieldDefs As ObjectData.FieldDefinitions = table.FieldDefinitions
Dim recs As ObjectData.Records
recs = table.GetObjectTableRecords(0, sobj.ObjectId, Constants.OpenMode.OpenForRead, True)
'check if there are records for the selected table
If (recs.Count() > 0) Then
For Each rec As ObjectData.Record In recs
'get object data for each record in table
For i As Integer = 0 To rec.Count() - 1
Dim val As Autodesk.Gis.Map.Utilities.MapValue
val = rec(i)
Dim fieldDef As ObjectData.FieldDefinition
fieldDef = fieldDefs(i)
ed.WriteMessage(vbNewLine + fieldDef.Name + ": ")
Select Case val.Type
Case Constants.DataType.Character
ed.WriteMessage(val.StrValue)
Case Constants.DataType.Integer
ed.WriteMessage(val.Int32Value.ToString)
Case Constants.DataType.Point
ed.WriteMessage("point")
Case Constants.DataType.Real
ed.WriteMessage(val.DoubleValue.ToString)
Case Else
ed.WriteMessage("undefined")
End Select
Next
Next
End If
recs.Dispose()
End If
Next
myT.Commit()
Catch ex As Autodesk.AutoCAD.Runtime.Exception
ed.WriteMessage(vbLf & "{0}" & vbLf & "{1}", ex.Message, ex.StackTrace)
End Try
End Using
End Sub Big thanks to alfred for spending time and patients with me
cheers
