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