39 lines
1.8 KiB
VB.net
39 lines
1.8 KiB
VB.net
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
|
|
|
|
|
|
End Class
|