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