SetSnapSpacing method example

Sub Example_SetSpacing()

' This example sets the current X- and Y-snap spacing to 0.5.

     Dim viewportObj As IntelliCAD.Viewport

     Set viewportObj = ThisDocument.ActiveViewport

     ' Turn on the grid and reset the viewport to see it come on.

     viewportObj.GridOn = True

     ThisDocument.ActiveViewport = viewportObj

     ' Set the current snap spacing

     viewportObj.SetSnapSpacing 0.5, 0.5

     ThisDocument.ActiveViewport = viewportObj

End Sub