Change Angle to Supplementary Angle Example (VBA)

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

'-----------------------------------------------------------
' Preconditions: Verify that the drawing exists.
'
' Postconditions:
' 1. Opens the drawing.
' 2. Selects the angular dimension.
' 3. Changes the angle to its supplementary angle.
' 4. Examine the graphics area.
'
' NOTE: Because the drawing 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
Dim warnings As Long
Dim errors As Long
Dim fileName As String

Sub main()

    Set swApp = Application.SldWorks
    fileName = "C:\Users\Public\Documents\SOLIDWORKS\SOLIDWORKS 2018\samples\tutorial\api\clamp1.slddrw"
    Set swModel = swApp.OpenDoc6(fileName, swDocumentTypes_e.swDocDRAWING, swOpenDocOptions_e.swOpenDocOptions_Silent, "", errors, warnings)
    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