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


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

        Dim swMeasure As Measure = Nothing
		
		
		swDoc = CType(swApp.ActiveDoc, ModelDoc2)

        swDoc.SketchManager.Insert3DSketch(True)
		
        ' Construction de la ligne
        Dim skSegment As SketchSegment = Nothing
        skSegment = CType(swDoc.SketchManager.CreateLine(0, 0, 0, 1, 1, 1), SketchSegment)
        swDoc.ClearSelection2(True)
		
		' Test calcul longueur
		
		swMeasure = swDoc.Extension.CreateMeasure
		
        boolstatus = swDoc.Extension.SelectByID2("Line1", "SKETCHSEGMENT", 0.0, 0.0, 0.0, False, 0, Nothing, 0)
        
		' Quelle option choisir (0,1,2) ?
        swMeasure.ArcOption = 1
		
        Dim L As Double
        L = swMeasure.Length

        boolstatus = swMeasure.Calculate(Nothing)

        Debug.Print("Longueur = " & L)
        swDoc.ClearSelection2(True)

    End Sub

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


End Class