Insert Angular Running Dimension Example (VBA)
This example shows how to insert an angular running dimension and get its
properties.
'----------------------------------------------------------------------------
' Preconditions:
' 1. Open install_dir\samples\tutorial\advdrawings\foodprocessor.slddrw.
' 2. Open an Immediate window.
'
' Postconditions:
' 1. The specified angular running dimension is inserted into the drawing.
' 2. Inspect the Immediate window.
'
' NOTE: Because
the model is used elsewhere, do not save changes to it.
' ---------------------------------------------------------------------------
Dim swApp As SldWorks.SldWorks
Dim Part As SldWorks.ModelDoc2
Dim selmgr As SldWorks.SelectionMgr
Dim dispdim As SldWorks.DisplayDimension
Dim boolstatus As Boolean
Dim errstatus as Long
Option Explicit
Sub main()
Set swApp = Application.SldWorks
Set Part = swApp.ActiveDoc
boolstatus = Part.ActivateView("Drawing
View1")
boolstatus = Part.Extension.SelectByID2("",
"EDGE", 0.163726736787323, 0.199115091463415, 4.79999999993197E-03, True, 0,
Nothing, 0)
boolstatus = Part.Extension.SelectByID2("",
"EDGE", 0.220795425811714, 0.179644597560976, 4.79999999998881E-03, True, 0,
Nothing, 0)
Set dispdim = Part.Extension.AddAngularRunningDim(False,
True, True, 0.154288188900673, 7.94194886913027E-02, 0, errstatus)
Part.Extension.ReJogRunningDimension
Part.Extension.AlignRunningDimension
Part.SetPickMode
boolstatus = Part.Extension.SelectByID2("D2@Sketch31@foodprocessor.SLDDRW",
"DIMENSION", 4.08612062995185E-02, 0.166216670731707, 0, False, 0, Nothing, 0)
Set selmgr = Part.SelectionManager
Set dispdim = selmgr.GetSelectedObject6(1, -1)
Debug.Print "Display chained angular
dimensions? " & dispdim.DisplayAsChain
Debug.Print "Run the angular dimensions bidirectionally? " &
dispdim.RunBidirectionally
Debug.Print "Extend extension lines from center of angular
running dimension? " & dispdim.ExtensionLineExtendsFromCenterOfSet
Debug.Print "Are extension lines jogged? " & dispdim.Jogged
Debug.Print "Extension line style same as leader line style?
" & dispdim.ExtensionLineSameAsLeaderStyle
Debug.Print "Extension line uses document settings? " &
dispdim.ExtensionLineUseDocumentDisplay
End Sub