SetSnapSpacing method example

Sub  SetSnapSpacing_Example()
' This example sets the current X- and Y-snap spacing to 0.5
    Dim viewportObj As AcadViewport
    Set viewportObj = ThisDrawing.ActiveViewport
    
    ' Turn on Snap and reset the viewport.
    viewportObj.SnapOn = True
    ThisDrawing.ActiveViewport = viewportObj
    ' Find the current Snap spacing
    viewportObj.SetSnapSpacing 0.5, 0.5
    ThisDrawing.ActiveViewport = viewportObj
End Sub