Change Angle to Supplementary Angle Example (VBA)

This example shows how to change the angle in an angular dimension to its supplementary angle.

'-----------------------------------------------------------
' Preconditions:
' 1. Open install_dir\samples\tutorial\api\clamp1.sldprt.
' 2. Make a drawing from the part.
' 3. Drag the *Current view into the drawing.
' 4. Add an angular dimension between two adjoining teeth.
' 5. Select the angular dimension.
'
' Postconditions:
' 1. Changes the angle to its supplementary angle.
' 2. Examine the graphics area.
'
' NOTE: Because the part is used elsewhere, do not save
' changes.
'-----------------------------------------------------------
Option Explicit

Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Dim swModelDocExt As SldWorks.ModelDocExtension
Dim swSelectionMgr As SldWorks.SelectionMgr
Dim swDisplayDimension As SldWorks.DisplayDimension
Dim status As Boolean

Sub main()

    Set swApp = Application.SldWorks
    Set swModel = swApp.ActiveDoc
    Set swModelDocExt = swModel.Extension    

    'Select angular dimension
    status = swModelDocExt.SelectByID2("RD1@Drawing View1", "DIMENSION", 0.115166498498499, 0.167429477477477, 0, False, 0, Nothing, 0)
    Set swSelectionMgr = swModel.SelectionManager
    Set swDisplayDimension = swSelectionMgr.GetSelectedObject6(1, -1)    

    'Change angle to supplementary angle
    status = swDisplayDimension.SupplementaryAngle

End Sub