Toggle Display of Surface Curvatures Example (VBA)

This example shows how to toggle the display of surface curvatures.

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

'

' Preconditions: Model document is open.

'

' Postconditions: Display of surface curvatures is turned on or off.

'

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

Option Explicit

Sub main()

    Dim swApp                           As SldWorks.SldWorks

    Dim swModel                         As SldWorks.ModelDoc2

    Set swApp = Application.SldWorks

    Set swModel = swApp.ActiveDoc

    swModel.ViewDisplayCurvature

End Sub