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