GetSnapSpacing method example

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