Skip to main content

Select all sketch elements using SOLIDWORKS API

Selected sketch elements in the active sketch{ width=250 }

This example demonstrates how to select all sketch segments and sketch points in the active sketch using the direct ::Select method in SOLIDWORKS API.

Dim swApp As SldWorks.SldWorks

Sub main()

Set swApp = Application.SldWorks

Dim swModel As SldWorks.ModelDoc2

Set swModel = swApp.ActiveDoc

If Not swModel Is Nothing Then

Dim swSketch As SldWorks.sketch
Set swSketch = swModel.SketchManager.ActiveSketch

If Not swSketch Is Nothing Then

swModel.ClearSelection2 True

SelectAllSketchSegments swSketch

SelectAllSketchPoints swSketch

Else
MsgBox "Please open sketch"
End If

Else
MsgBox "Please open part or assembly"
End If

End Sub

Sub SelectAllSketchSegments(sketch As SldWorks.sketch)

Dim vSegs As Variant

vSegs = sketch.GetSketchSegments

Dim i As Integer

For i = 0 To UBound(vSegs)
Dim swSkSeg As SldWorks.SketchSegment
Set swSkSeg = vSegs(i)
swSkSeg.Select4 True, Nothing
Next

End Sub

Sub SelectAllSketchPoints(sketch As SldWorks.sketch)

Dim vPoints As Variant

vPoints = sketch.GetSketchPoints2

Dim i As Integer

For i = 0 To UBound(vPoints)
Dim swSkPt As SldWorks.SketchPoint
Set swSkPt = vPoints(i)
swSkPt.Select4 True, Nothing
Next

End Sub