Flip Dowel Pin Symbol Example (VBA)

This example shows how to flip a dowel pin symbol

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

'

' Preconditions:

'           (1) Drawing document is open.

'           (2) Dowel pin symbol is selected.

'

' Postconditions: Dowel pin symbol is flipped.

'

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

Option Explicit

Sub main()

    Dim swApp                   As SldWorks.SldWorks

    Dim swModel                 As SldWorks.ModelDoc2

    Dim swSelMgr                As SldWorks.SelectionMgr

    Dim swDowel                 As SldWorks.DowelSymbol

    Dim swAnn                   As SldWorks.Annotation

    Dim bRet                    As Boolean

    Set swApp = Application.SldWorks

    Set swModel = swApp.ActiveDoc

    Set swSelMgr = swModel.SelectionManager

    Set swDowel = swSelMgr.GetSelectedObject5(1)

    Set swAnn = swDowel.GetAnnotation

    Debug.Print "File = " & swModel.GetPathName

    Debug.Print "   " & swAnn.GetName

    ' Flip dowel pin symbol

    If False = swDowel.Flipped Then

        swDowel.Flipped = True

    Else

        swDowel.Flipped = False

    End If

    ' Redraw

    swModel.GraphicsRedraw2

End Sub

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