From f27db3229c9412d193c3255929bfecaa1f962173 Mon Sep 17 00:00:00 2001
From: Anton <anton.luning@gmail.com>
Date: Wed, 27 Jan 2021 14:04:58 +0100
Subject: [PATCH] Added drawings of the part

---
 Wardrobe/GUI.vb     |  1 +
 Wardrobe/Program.vb | 31 +++++++++++++++++++++++++++++++
 2 files changed, 32 insertions(+)

diff --git a/Wardrobe/GUI.vb b/Wardrobe/GUI.vb
index ecf5170..8ca9e86 100644
--- a/Wardrobe/GUI.vb
+++ b/Wardrobe/GUI.vb
@@ -145,6 +145,7 @@ Public Class GUI
         pointTable = Create_PointTable()
 
         Program.Export_SW(pointTable)
+        Program.Create_Drawing()
     End Sub
 
 End Class
diff --git a/Wardrobe/Program.vb b/Wardrobe/Program.vb
index e451251..a9d160b 100644
--- a/Wardrobe/Program.vb
+++ b/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