Gets symbol table information to use in queries.

GetTableList(PropertyIndex As ETableType) As Variant

Returns the specified symbol table information, an array of String.

PropertyIndex

A symbol table.

AutoCAD Map stores non-graphical information such as block definitions, layers, groups, and text styles in symbol tables. Any source drawing or project can have symbol tables. Use UBound to find the upper limit of the array returned by this function. Check that the array is not empty before you use it, as shown in the example, which displays the list of layers in the symbol table of a drawing.

Dim amap As AcadMap
Dim prj As Project
Dim strArray As Variant
Dim i As Integer
Dim strOutput As String

Set amap = ThisDrawing.Application. _
GetInterfaceObject("AutoCADMap.Application") 
Set prj = amap.Projects(ThisDrawing)
strArray = prj.DrawingSet.GetTableList(kLayerTable)
If UBound(strArray) > -1 Then
   For i = 0 To UBound(strArray) 
      strOutput = strOutput & strArray(i) & Chr(13) 
   Next i 
   MsgBox strOutput 
Else
   MsgBox "No tables found." 
End If