mehdi-tarkian
/
X2021
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

small fixes

This commit is contained in:
Mans 2021-03-25 14:58:18 +01:00
parent 61de434ebc
commit bd13643b2e
4 changed files with 32 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
HLCt/Parts/START.SLDPRT
View File

Binary file not shown.

2
Wardrobe/SolidWorks/Individual_Frame_3D.vb
View File

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

27
Wardrobe/SolidWorks/Individual_Frame_Drawing.vb
View File

@ -1,9 +1,36 @@
Imports SldWorks Imports SldWorks
Public Class Individual_Frame_Drawing Public Class Individual_Frame_Drawing
Public Shared Sub Create_Assemblies() 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 Sub

5
Wardrobe/SolidWorks/Model_3D.vb
View File

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