Sub Example_SetGridSpacing()
    'Этот пример включает сетку для текущей области просмотра.
    'Затем находит текущий интервал сетки и изменения этот интервал.
    
    'Найдите текущую активную область просмотра
    Dim viewportObj As AcadViewport
    Set viewportObj = ThisDrawing.ActiveViewport
    
    'Включите сетку и сбросьте область просмотра.
    viewportObj.GridOn = True
    ThisDrawing.ActiveViewport = viewportObj
    
    'Найдите текущий интервал сетки
    Dim XSpacing As Double
    Dim YSpacing As Double
    
    viewportObj.GetGridSpacing XSpacing, YSpacing
    MsgBox "X =" & XSpacing & ", Y =" & YSpacing, , "SetGridSpacing Пример"
    
    'Измените интервал сетки
    XSpacing = XSpacing * 0.5
    YSpacing = YSpacing * 0.5
    viewportObj.SetGridSpacing XSpacing, YSpacing
    ThisDrawing.ActiveViewport = viewportObj
    MsgBox "X =" & XSpacing & ", Y =" & YSpacing, , "SetGridSpacing Пример"
   
End Sub