solidworks二次开发学习（2）如何选中一个草图并遍历草图中的所有直线（非草图编辑状态）

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

Partial Class SolidWorksMacro

    Public Sub main()

        Dim swSelMgr As SelectionMgr
        Dim swDoc As ModelDoc2 = Nothing
        Dim swPart As PartDoc = Nothing
        Dim boolstatus As Boolean = False
        Dim longstatus As Integer = 0
        Dim swSketch As Sketch
        Dim swFeat As Feature
        Dim vSketchSeg As Object
        Dim swSketchSeg As SketchSegment
        Dim k As Integer = 0

        swDoc = CType(swApp.ActiveDoc, ModelDoc2)
        boolstatus = swDoc.Extension.SelectByID2("AIR_LOW_SKETCH", "SKETCH", 0, 0, 0, False, 0, Nothing, 0)
        swDoc = swApp.ActiveDoc
        swSelMgr = swDoc.SelectionManager
        swFeat = swSelMgr.GetSelectedObject6(1, 0)
        swSketch = swFeat.GetSpecificFeature2
        swDoc.ClearSelection2(True)
        vSketchSeg = swSketch.GetSketchSegments
        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