Sub Example_GetGridSpacing()
    ' Этот пример включает сетку для текущей области просмотра.
    ' Затем находит текущий интервал сетки и измененяет этот интервал.
    
    ' Найдите текущую активную область просмотра
    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, , "GetGridSpacing Пример"
    
    ' Измените интервал сетки
    XSpacing = XSpacing * 0.5
    YSpacing = YSpacing * 0.5
    viewportObj.SetGridSpacing XSpacing, YSpacing
    ThisDrawing.ActiveViewport = viewportObj
    MsgBox "X =" & XSpacing & ", Y =" & YSpacing, , "GetGridSpacing Пример"
   
End Sub