Creates an object data table.
Add( _
TableName As String, _
TableDescription As String, _
ODFieldDefs As ODFieldDefs, _
StoreAsXData As Boolean _
) As ODTable
Returns the specified table.
TableName
TableDescription
ODFieldDefs
StoreAsXData
The following code is an excerpt from a larger example. The code shows how to prevent an error by checking that the table you want to add doesn't already exist. For the entire example, click .
Dim amap As AcadMap
Dim ODfdfs As ODFieldDefs
Dim ODtb As ODTable
'Ensure Table Does Not Exist
If amap.Projects(ThisDrawing) _
.ODTables.Item("TableA") Is Nothing Then
'Register OD Table in the drawing
Set ODtb = amap.Projects(ThisDrawing) _
.ODTables.Add("TableA", "Sample Xdata", ODfdfs, True)
.
.
.
End If