Added drawings of the part

Wardrobe/GUI.vb

@@ -145,6 +145,7 @@ Public Class GUI
         pointTable = Create_PointTable()
 
         Program.Export_SW(pointTable)
+        Program.Create_Drawing()
     End Sub
 
 End Class

Wardrobe/Program.vb

@@ -81,6 +81,37 @@ Public Class Program
         newName = "C:\Users\Anton\Documents\Exjobb\Temp" & "\TESTPART" & randInt & ".SLDPRT"
         longstatus = Part.SaveAs3(newName, 0, 0)
 
+    End Sub
+
+    Public Shared Sub Create_Drawing()
+        Dim swApp As SldWorks.SldWorks
+        swApp = CType(System.Runtime.InteropServices.Marshal.GetActiveObject("SldWorks.Application"), SldWorks.SldWorks)
+
+        Dim iPart As PartDoc
+        iPart = swApp.ActiveDoc
+
+        Dim iDrawing As DrawingDoc
+        Dim swSheetWidth As Double
+        swSheetWidth = 0.42
+        Dim swSheetHeight As Double
+        swSheetHeight = 0.297
+        iDrawing = swApp.NewDocument("C:\ProgramData\SolidWorks\SOLIDWORKS 2020\templates\Drawing.drwdot", 12, swSheetWidth, swSheetHeight)
+
+        Dim swSheet As Sheet
+        swSheet = iDrawing.GetCurrentSheet()
+        swSheet.SetProperties2(12, 12, 1, 1, False, swSheetWidth, swSheetHeight, True)
+        swSheet.SetTemplateName("C:\ProgramData\SolidWorks\SOLIDWORKS 2020\lang\english\sheetformat\a3 - iso.slddrt")
+        swSheet.ReloadTemplate(True)
+
+        Dim myView
+        myView = iDrawing.CreateDrawViewFromModelView3("C:\Users\Anton\Documents\Exjobb\Temp\TESTPART707.SLDPRT", "*Front", swSheetWidth / 2, swSheetHeight / 2, 0)
+
+
+
+
+
+
+
     End Sub
 
 End Class