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