Redraw Graphics Example (VBA)

This example shows how to redraw the graphics area.

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

'

' Preconditions: Model document is open.

'

' Postconditions: Graphics area is redrawn.

'

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

Option Explicit

Sub main()

    Dim swApp                       As SldWorks.SldWorks

    Dim swModel                     As SldWorks.ModelDoc2

    Set swApp = Application.SldWorks

    Set swModel = swApp.ActiveDoc

    swModel.GraphicsRedraw2

End Sub

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