Now use mathod → Ss = SwSk.GetSketchPoints
Function DelSkPt(SwModel As ModelDoc2, SwSk As Sketch)
Dim Ss
Dim SkPt As SketchPoint
''
Ss = SwSk.GetSketchPoints
If IsEmpty(Ss) Then
Exit Function
End If
For ii = 0 To UBound(Ss)
Set SkPt = Ss(ii)
SkPt.Select True
Next ii
SwModel.EditDelete
End Function
**********************
Help me.
Traverse SketchPoint → Foreach ... in .. next mehtod
SolidworksApi macros