Start to HLCt recesses

Wardrobe/GUI.vb

@@ -2,8 +2,8 @@
 Imports Excel = Microsoft.Office.Interop.Excel
 
 Public Class GUI
-    Public Shared filepath As String = "C:\Users\Anton\Documents\Exjobb"
+    'Public Shared filepath As String = "C:\Users\Anton\Documents\Exjobb"
-    'Public Shared filepath As String = "C:\Users\xperd\Documents"
+    Public Shared filepath As String = "C:\Users\xperd\Documents"
 
     Dim excelApp As Excel.Application = New Excel.Application
     Dim excelWB As Excel.Workbook

Wardrobe/GUI_Drawing_Panel.vb

@@ -208,6 +208,7 @@
         Next
 
 
+
         Dim Pendot As Pen = New Pen(Color.Gray, 1)
         Pendot.DashPattern = {2, 4}
 

Wardrobe/SW_HLCt_Gratings.vb

@@ -26,11 +26,21 @@ Public Class SW_HLCt_Gratings
             ExternalClass.modify_parameter_value("DP_CROSSBAR_HEIGHT", inst_, gratingParameters("CROSSBAR_HEIGHT"))
         End If
 
+        'Instantiate recess rectangle
+        parentID = inst_
+        inst_ = ExternalClass.instantiate_parts(parentID, "recess_rectangle", "")
+
+
         importClass.copyGroupsByDataSet(ExternalClass.groupds_new)
         Dim grNr = groupClass.NewGroupID
         Dim designTable = designModel.selectDesign("*")
         Dim designName = designTable.rows(0)("designName")
         groupClass.InstantiateGroup(designName, grNr, "START")
+
+
+
+
+
     End Sub
 
 End Class