small fixes

Wardrobe/SolidWorks/Individual_Frame_3D.vb

@@ -1,7 +1,7 @@
 Imports XCCLibrary
 Imports SldWorks
 Public Class Individual_Frame_3D
-    Private Shared cuttingList As New Dictionary(Of Integer, Integer())
+    Public Shared cuttingList As New Dictionary(Of Integer, Integer())
     Private Shared designName As String
     Private Shared sideFrameLengths As New Dictionary(Of String, Integer)
     Public Shared Sub Build_Frame(gratingParameters As DataRow, parentID As Integer)

Wardrobe/SolidWorks/Individual_Frame_Drawing.vb

@@ -1,9 +1,36 @@
 Imports SldWorks
 Public Class Individual_Frame_Drawing
     Public Shared Sub Create_Assemblies()
+        Dim swApp As SldWorks.SldWorks
+        swApp = CType(System.Runtime.InteropServices.Marshal.GetActiveObject("SldWorks.Application"), SldWorks.SldWorks)
+        Dim model As ModelDoc2
+        Dim assembly As IAssemblyDoc
+        Dim longstatus As Integer
+        Dim frameComponents = Model_3D.partDT.Select("partType = 'frame_l_straight'")
 
 
+        For i = 0 To Individual_Frame_3D.cuttingList.Count - 1
+            model = swApp.NewDocument("C:\ProgramData\SolidWorks\SOLIDWORKS 2020\templates\Assembly.asmdot", 0, 0, 0)
+            assembly = model
+            Dim assemComp As Component2
+            Dim compNames(Individual_Frame_3D.cuttingList.ElementAt(i).Value.Count - 1) As String
+            Dim coordNames(Individual_Frame_3D.cuttingList.ElementAt(i).Value.Count - 1) As String
+            For j = 0 To compNames.Count - 1
+                Dim frameID = Individual_Frame_3D.cuttingList.ElementAt(i).Value(j) - 1
+                'assemComp = assembly.AddComponent5(Settings.filesFolder & "\Files\CADStart\" & frameComponents(frameID)("partName") & ".SLDPRT",
+                '0, Nothing, False, Nothing, 0, 0, 0)
+                compNames(j) = Settings.filesFolder & "\Files\CADStart\" & frameComponents(frameID)("partName") & ".SLDPRT"
+                coordNames()
 
+            Next
+            compNames(compNames.Length - 1) = Individual.filepath & "\Temp\frame_l_end_piece" & i + 1 & ".SLDPRT"
+            Dim transMatrix As Object = Nothing
+
+
+            assemComp = assembly.AddComponents3((compNames), (transMatrix), "")
+
+            longstatus = model.SaveAs3(Individual.filepath & "\Temp\frame_assembly" & i + 1 & ".SLDASM", 0, 0)
+        Next
 
     End Sub
 

Wardrobe/SolidWorks/Model_3D.vb

@@ -2,6 +2,7 @@
 
 Public Class Model_3D
     Private Shared designName As String
+    Public Shared partDT As New DataTable
     Public Shared Sub BuildGrating()
         Dim exportTable As DataTable
         exportTable = User_Input.Create_ExportTable()
@@ -46,6 +47,8 @@ Public Class Model_3D
 
         Recess_Indent()
         Individual_Frame_3D.Generate_End_Frame_Piece()
+        Individual_Frame_Drawing.Create_Assemblies()
+
     End Sub
 
     Private Shared Sub Inst_Recesses(parentID As Integer, gratingParameters As DataRow, recessDR As DataRow)
@@ -196,7 +199,7 @@ Public Class Model_3D
         AssemblyExtension = Assembly.Extension
         Dim sldata = SelMgr.CreateSelectData
 
-        Dim partDT As New DataTable
+
         partDT = partModel.selectPart("*")
 
         Assembly.ClearSelection2(True)