SetGridSpacing method example

Sub Example_SetGridSpacing()

' This example sets the current X- and Y-grid spacing to 2.

     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 grid spacing

     viewportObj.SetGridSpacing 2, 2

     ThisDocument.ActiveViewport = viewportObj

End Sub