Set Grid Lines Example (VBA)

This example shows how to set the number of minor grid lines between major grid lines.

'--------------------------------------

'

' Preconditions: SolidWorks is running.

'

' Postconditions: Number of minor grid lines between

'                major grid lines is set to 15.

'

'--------------------------------------

Option Explicit

Dim swApp As SldWorks.SldWorks

Dim swModel As SldWorks.ModelDoc2

Dim minorGridLines As Long

Dim bReturnValue As Boolean

Sub main()

Set swApp = Application.SldWorks

Set swModel = swApp.ActiveDoc

Debug.Print swModel.GetUserPreferenceIntegerValue(swGridMinorLinesPerMajor)

bReturnValue = swModel.SetUserPreferenceIntegerValue(swGridMinorLinesPerMajor, 15)

Debug.Print minorGridLines

End Sub