Sub Example_SetGridLineWeight()
    'Включите отображение весов линии
    Call ThisDrawing.SetVariable("LWDISPLAY", 1)
    Dim MyModelSpace As IAcadModelSpace2
    Set MyModelSpace = ThisDrawing.ModelSpace
    Dim pt(2) As Double
    Dim MyTable As AcadTable
    Set MyTable = MyModelSpace.AddTable(pt, 5, 5, 10, 30)

    'Установите вес линии для всех линий координатной сетки таблицы к 1.0
    Call MyTable.SetGridLineWeight(AcGridLineType.ackHorzTop + AcGridLineType.ackHorzBottom + AcGridLineType.ackHorzInside + _
                            AcGridLineType.ackVertLeft + AcGridLineType.ackVertInside + AcGridLineType.ackVertRight, _
                            AcRowType.ackDataRow + AcRowType.ackHeaderRow + AcRowType.ackTitleRow, _
                            AcLineWeight.acLnWt050)

    'Назначьте вес линии 2.0 к верхней линии координатной сетки строки Заголовка
    Call MyTable.SetGridLineWeight(AcGridLineType.ackHorzTop, AcRowType.ackTitleRow, AcLineWeight.acLnWt200)

    'Назначьте вес линии 2.0 к линии координатной сетки основания строки данных
    Call MyTable.SetGridLineWeight(AcGridLineType.ackHorzBottom, AcRowType.ackDataRow, AcLineWeight.acLnWt200)
    ZoomExtents


End Sub