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