SetGridSpacing Example |
Using Programming Languages other than VBA
Sub Example_SetGridSpacing() ' This example turns on the grid for the current viewport. ' It then finds the current grid spacing, and changes that spacing. ' Find the current active viewport Dim viewportObj As AcadViewport Set viewportObj = ThisDrawing.ActiveViewport ' Turn on the grid and reset the viewport to see it come on. viewportObj.GridOn = True ThisDrawing.ActiveViewport = viewportObj ' Find the current grid spacing Dim XSpacing As Double Dim YSpacing As Double viewportObj.GetGridSpacing XSpacing, YSpacing MsgBox "X =" & XSpacing & ", Y =" & YSpacing, , "SetGridSpacing Example" ' Change the grid spacing XSpacing = XSpacing * 0.5 YSpacing = YSpacing * 0.5 viewportObj.SetGridSpacing XSpacing, YSpacing ThisDrawing.ActiveViewport = viewportObj MsgBox "X =" & XSpacing & ", Y =" & YSpacing, , "SetGridSpacing Example" End Sub
Comments? |