Get Sketch Segment Length Example (VBA)
This example shows how to get the length of a sketch segment.
'------------------------------------------------------------
Dim SelectionManager As Object
Dim SketchSegment As Object
Dim Length As Double
Sub main()
Set swApp = CreateObject("SldWorks.Application")
Set Part = swApp.ActiveDoc
Set SelectionManager = Part.SelectionManager()
Part.SelectByID
"Parabola3@Sketch1", "EXTSKETCHSEGMENT", 0, 0, 0
Set SketchSegment = SelectionManager.GetSelectedObject2(1)
Length = SketchSegment.GetLength()
End Sub