Тест - скорость построения таблиц.

Public Sub TableTest()
   'тест скорости заполнения таблицы
   Dim objTable As AcadTable
   Dim varPt As Variant
   Dim i As Integer
   Dim Start As Double
   Dim Finish As Double
   varPt = ThisDrawing.Utility.GetPoint 'точка вставки таблицы
   Start = Timer
   'создаем таблицу из 2 строк и 5 столбцов
   Set objTable = ThisDrawing.ModelSpace.AddTable(varPt, 2, 5, 8, 10)
   objTable.RegenerateTableSuppressed = True
   objTable.DeleteRows 0, 1 'удаляем 1 строчку заголовка таблицы
   'устанавливаем высоту текста
   'для стандартного стиля таблиц
   objTable.SetTextHeight 3, 3
   objTable.SetTextHeight 4, 3
   'вообще-то для эксперимента стиль таблицы не имеет значения
   'заполняем шапку таблицы
   objTable.SetText 0, 0, "Поз"
   objTable.SetColumnWidth 0, 15
   objTable.SetText 0, 1, "Обозначение"
   objTable.SetColumnWidth 1, 70
   objTable.SetText 0, 2, "Наименование"
   objTable.SetColumnWidth 2, 70
   objTable.SetText 0, 3, "Кол"
   objTable.SetColumnWidth 3, 15
   objTable.SetText 0, 4, "Масса"
   objTable.SetColumnWidth 4, 20
   'заполняем таблицу
   For i = 1 To intFullNum
      'вставляем строчку
      objTable.InsertRows i, 10, 1
      'заполняем ячеки
      objTable.SetText i, 0, i
      objTable.SetText i, 1, "Обозначение" & i
      objTable.SetText i, 2, "Наименование" & i
      objTable.SetText i, 3, i
      objTable.SetText i, 4, i
   Next
   objTable.RegenerateTableSuppressed = False
   Finish = Timer
   MsgBox Finish — Start & " секунд"
End Sub

'References -> AutoCAD/ObjectDBX Common 16.0 Type Library
Public Const FILE_NAME = "F:\Work\DWG\2section.dwg"
Sub Example_AddTable()
   Dim Start As Double
   Dim Finish As Double
   Start = Timer
    Dim AcadApplication As Object
    On Error Resume Next
    Set AcadApplication = ThisDrawing.Application
    Dim Documents As AcadDocuments
    Set Documents = AcadApplication.Documents
    Dim MainDoc As AcadDocument
    Set MainDoc = Documents.Open(FILE_NAME)
    Dim pt(2) As Double
    Dim MS As AcadModelSpace
    Dim MyTable As AcadTable
    Set MS = MainDoc.ModelSpace
    Set MyTable = MS.AddTable(pt, 5, 5, 10, 30)
    Set MainDoc = Nothing
    Finish = Timer
    MsgBox (Finish - Start)
 End Sub

'References -> AutoCAD/ObjectDBX Common 17.0 Type Library
Public Const FILE_NAME = "F:\Work\DWG\2section.dwg"
Sub Example_AddTable()
   Dim Start As Double
   Dim Finish As Double
   Start = Timer
    Dim MainDoc As AXDBLib.AxDbDocument
    Set MainDoc = New AXDBLib.AxDbDocument
    MainDoc.Open (FILE_NAME)
    Dim MS As AcadModelSpace
    Dim pt(2) As Double
    Dim MyTable As AcadTable
    Set MS = MainDoc.ModelSpace
    Set MyTable = MS.AddTable(pt, 5, 5, 10, 30)
    Finish = Timer
    MsgBox (Finish - Start)
    MainDoc.SaveAs (MainDoc.Name)
    Set MainDoc = Nothing
End Sub