Adding Object Data Records to Entity using Map 3D API

By Partha Sarkar

Many a times you want to add Object Data to entities in DWG file using Map 3D API. Using Map 3D C++ API or .NET API we can add object data to entities. Here is a VB.NET code snippet which shows how to add Object Data to a selected entity in AutoCAD Map 3D. One thing to note here – when you use AddRecord(record As Autodesk.Gis.Map.ObjectData.Record, dbObj As Autodesk.AutoCAD.DatabaseServices.DBObject) make sure that DBObject is open for write, otherwise you are likely to see an exception message.

Try
            Dim ed As Editor = Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument.Editor
            Dim prompt_result As PromptEntityResult = ed.GetEntity(vbCrLf + "Select the object...")
            id = prompt_result.ObjectId
            Dim dbObj As DBObject = trans.GetObject(id, Autodesk.AutoCAD.DatabaseServices.OpenMode.ForWrite)
 
            '' Presuming OD Table "MyTestODTable" exist in the DWG file  
            odTable = odTables.Item("MyTestODTable")
            Dim odrecords As ObjectData.Records = odTable.GetObjectTableRecords(Convert.ToUInt32(0), id, Constants.OpenMode.OpenForRead, False)
            Dim odRecord As ObjectData.Record = odrecords.Item(0)
            odRecord = Autodesk.Gis.Map.ObjectData.Record.Create()
            odTable.InitRecord(odRecord)
            Dim mapVal As Autodesk.Gis.Map.Utilities.MapValue
            '' Add a Record and assign a value to it
            mapVal = odRecord(0)
            mapVal.Assign("Test")
 
            mapVal = odRecord(1)
            mapVal.Assign(22)
 
            ' dbObj should be opened for Write, otherwise 
            odTable.AddRecord(odRecord, dbObj)            
            odRecord.Dispose()
            odrecords.Dispose()
            trans.Commit()
 
        Catch exc As Autodesk.Gis.Map.MapException           
            MsgBox("Error : " + exc.Message.ToString())   
        End Try

And here is the result :