diff --git a/HLCt/pressure_welded.SLDPRT b/HLCt/pressure_welded.SLDPRT index fe91469..be8cdd2 100644 Binary files a/HLCt/pressure_welded.SLDPRT and b/HLCt/pressure_welded.SLDPRT differ diff --git a/HLCt/recess_rectangle.SLDPRT b/HLCt/recess_rectangle.SLDPRT new file mode 100644 index 0000000..0cf8f5e Binary files /dev/null and b/HLCt/recess_rectangle.SLDPRT differ diff --git a/Wardrobe/GUI.vb b/Wardrobe/GUI.vb index c3bdd69..316a1f2 100644 --- a/Wardrobe/GUI.vb +++ b/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\xperd\Documents" + 'Public Shared filepath As String = "C:\Users\Anton\Documents\Exjobb" + Public Shared filepath As String = "C:\Users\xperd\Documents" Dim excelApp As Excel.Application = New Excel.Application Dim excelWB As Excel.Workbook diff --git a/Wardrobe/GUI_Drawing_Panel.vb b/Wardrobe/GUI_Drawing_Panel.vb index d666961..4a56bc5 100644 --- a/Wardrobe/GUI_Drawing_Panel.vb +++ b/Wardrobe/GUI_Drawing_Panel.vb @@ -208,6 +208,7 @@ Next + Dim Pendot As Pen = New Pen(Color.Gray, 1) Pendot.DashPattern = {2, 4} diff --git a/Wardrobe/SW_HLCt_Gratings.vb b/Wardrobe/SW_HLCt_Gratings.vb index 11e6ffa..66dff40 100644 --- a/Wardrobe/SW_HLCt_Gratings.vb +++ b/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