Imports XCCLibrary
'Imports SolidWorks.Interop.sldworks
'Imports SolidWorks.Interop.swconst
Imports System.Runtime.InteropServices
Imports System
Imports SldWorks
Public Class Program
    Public Shared Sub Export_SW()
        Dim swApp As SldWorks.SldWorks
        swApp = CType(System.Runtime.InteropServices.Marshal.GetActiveObject("SldWorks.Application"), SldWorks.SldWorks)
        Dim Model As ModelDoc2
        Dim Part As PartDoc
        Dim RootPoint(2) As Double
        Dim Normal(2) As Double
        'Dim TempBody As Body2
        'Dim isGood As Boolean
        swApp.UserControl = True
        'Create a new blank document
        Model = swApp.NewDocument("C:\ProgramData\SOLIDWORKS\SOLIDWORKS 2020\templates\part.prtdot", 0, 0, 0)
        Part = Model

        Dim swSkMgr As SketchManager
        Dim longstatus As Integer
        Dim boolstatus As Boolean

        swSkMgr = Model.SketchManager
        swSkMgr.InsertSketch(True)
        boolstatus = Model.Extension.SelectByID2("Front Plane", "PLANE", 0, 0, 0, False, 0, Nothing, 0)
        Model.ClearSelection2(True)

        Dim skPoint As SketchPoint
        skPoint = swSkMgr.CreatePoint(1, 0, 0)
        swSkMgr.InsertSketch(True)
    End Sub

End Class