An object data record.

Contains ODFieldValue objects.

Contained by an ODRecords collection.

Created by ODTable.CreateRecord.

For more information, click .

The following example shows how to use several properties of the Record object. First, create an object data table called SampleOD. For more information, click . Next, put this code into a procedure and run it. The object ID and value of data attached to each object from the SampleOD table prints in the Immediate Window.

Dim amap As AcadMap

Dim acadObj As Object

Dim ODtb As ODTable

Dim i As Integer

Dim prj As Project

Dim ODrcs As ODRecords

Dim boolVal As Boolean

 

Set amap = ThisDrawing.Application. _

GetInterfaceObject("AutoCADMap.Application") 

Set prj = amap.Projects(ThisDrawing)

prj.ProjectOptions.DontAddObjectsToSaveSet = True

Set ODtb = prj.ODTables.Item("SampleOD")

Set ODrcs = ODtb.GetODRecords

For Each acadObj In ThisDrawing.ModelSpace

boolVal = ODrcs.Init(acadObj, True, False) 

Debug.Print ODrcs.Record.tableName 

Debug.Print ODrcs.Record.ObjectID 

For i = 0 To ODrcs.Record.Count - 1 

Debug.Print ODrcs.Record.Item(i).Value 

Next i 

Next