solidworks二次开发学习（1）如何选中一个草图并遍历草图中的所有直线

Imports SolidWorks.Interop.sldworks
Imports SolidWorks.Interop.swconst
Imports System.Runtime.InteropServices
Imports System

Partial Class SolidWorksMacro

    Public Sub main()


            Dim swDoc As ModelDoc2 = Nothing
            Dim swPart As PartDoc = Nothing
            Dim swDrawing As DrawingDoc = Nothing
            Dim swAssembly As AssemblyDoc = Nothing
            Dim boolstatus As Boolean = false
            Dim longstatus As Integer = 0
            Dim longwarnings As Integer = 0
            swDoc = CType(swApp.ActiveDoc,ModelDoc2)
        boolstatus = swDoc.Extension.SelectByID2("AIR_UP_SKETCH", "SKETCH", 0, 0, 0, False, 0, Nothing, 0)
        swDoc.EditSketch()
        swDoc.ClearSelection2(True)

        Dim theSketch As Sketch
        theSketch = swDoc.GetActiveSketch2
        Dim vSketchSeg As Object
        vSketchSeg = theSketch.GetSketchSegments
        Dim swSketchSeg As SketchSegment
        Dim k = 0
        If Not IsNothing(vSketchSeg) Then
            For k = 0 To UBound(vSketchSeg)
                swSketchSeg = vSketchSeg(k)
                swSketchSeg.SelectByMark(True, 0)
            Next k
        End If



    End Sub

    ''' <summary>
    ''' The SldWorks swApp variable is pre-assigned for you.
    ''' </summary>
    Public swApp As SldWorks


End Class