SelectByID2 can be delete line. follow code is
boolstatus = Part.ActivateView("bb")
boolstatus = Part.Extension.SelectByID2("Line3", "SKETCHSEGMENT", 0, 0, 0, False, 0, Nothing, 0)
boolstatus = Part.Extension.SelectByID2("Line2", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing, 1)
boolstatus = Part.Extension.SelectByID2("Line1", "SKETCHSEGMENT", 0, 0.1570691751775, 0, True, 0, Nothing, 1)
boolstatus = Part.Extension.SelectByID2("Line4", "SKETCHSEGMENT", 0, 0.1992614229289, 0, True, 0, Nothing, 1)
Part.EditDelete
****************************************************************
SwSketchSeg.Select True, SwDraw.EditDelete
Dim SwSketch As Sketch
Set SwSketch = SwView.GetSketch
Dim vSketchSeg, SwSketchSeg As SketchSegment
vSketchSeg = SwSketch.GetSketchSegments
''
For ii = 0 To UBound(vSketchSeg)
Set SwSketchSeg = vSketchSeg(ii)
SwSketchSeg.Select True
SwDraw.DeleteSelection True
Next ii
SwDraw.EditDelete
SolidworksApi macros