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