GetSnapSpacing method example

Sub GetSnapSpacing_Example()
' This example finds the current Snap spacing.
' First, find the current active viewport
    Dim viewportObj As AcadViewport
    Dim XSnap As Double
    Dim YSnap As Double
    Set viewportObj = ThisDrawing.ActiveViewport
    ' Turn on Snap and reset the viewport.
    viewportObj.SnapOn = True
    ThisDrawing.ActiveViewport = viewportObj
    ' Find the current Snap spacing
    viewportObj.GetSnapSpacing XSnap, YSnap
    MsgBox "X Snap Spacing = " & XSnap & " Y Snap Spacing = " & YSnap
End Sub