Flip Sketch Example (VBA)

This example shows how to flip the coordinate system of a sketch.

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

'

' Preconditions: Model document is open and a sketch is open or selected.

'

' Postconditions: The sketch's coordinate system is flipped.

'

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

Option Explicit

Sub main()

    Dim swApp                   As SldWorks.SldWorks

    Dim swModel                 As SldWorks.modelDoc

    Dim bRet                    As Boolean

    Set swApp = Application.SldWorks

    Set swModel = swApp.ActiveDoc

    ' ModelDoc2::SketchModifyFlip

    '   AxisFlag

    '       X axis = 1

    '       Y axis = 2

    swModel.SketchModifyFlip 1

    bRet = swModel.EditRebuild3: Debug.Assert bRet

End Sub

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