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

Drawings and so on

This commit is contained in:
Mans 2021-04-07 15:21:17 +02:00
parent 53a3865523
commit 16f2c82142
7 changed files with 39 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
Files Needed/A3 Assembly.slddrt
View File

Binary file not shown.

BIN
Files Needed/A3 Part.slddrt
View File

Binary file not shown.

BIN
HLCt/Parts/START.SLDPRT
View File

Binary file not shown.

11
Wardrobe/SolidWorks/Drawing.vb
View File

@ -126,6 +126,8 @@ Public Class Drawing
status = swCustPropMgr.Add3("ExtraBenämning1", 30, "LxW " & Data.gratingL & "x" & Data.gratingW, 1) status = swCustPropMgr.Add3("ExtraBenämning1", 30, "LxW " & Data.gratingL & "x" & Data.gratingW, 1)
If User_Input.gratingSerrated Then If User_Input.gratingSerrated Then
status = swCustPropMgr.Add3("ExtraBenämning2", 30, "Serrated", 1) status = swCustPropMgr.Add3("ExtraBenämning2", 30, "Serrated", 1)
Else
status = swCustPropMgr.Add3("ExtraBenämning2", 30, "", 1)
End If End If
If User_Input.gratingLacquered Then If User_Input.gratingLacquered Then
status = swCustPropMgr.Add3("Materialsort", 30, User_Input.gratingMaterial & " (Lacquered)", 1) status = swCustPropMgr.Add3("Materialsort", 30, User_Input.gratingMaterial & " (Lacquered)", 1)
@ -135,6 +137,15 @@ Public Class Drawing
status = swCustPropMgr.Add3("Art. Nr", 30, "TBD", 1) status = swCustPropMgr.Add3("Art. Nr", 30, "TBD", 1)
status = swCustPropMgr.Add3("Material_Art", 30, "TBD", 1) status = swCustPropMgr.Add3("Material_Art", 30, "TBD", 1)
status = swCustPropMgr.Add3("Author", 30, "", 1)
status = swCustPropMgr.Add3("Ändrad av", 30, "", 1)
status = swCustPropMgr.Add3("SkapadDatum", 30, "", 1)
status = swCustPropMgr.Add3("RevideradDatum", 30, "", 1)
status = swCustPropMgr.Add3("epdmid", 30, "", 1)
status = swCustPropMgr.Add3("Revision", 30, "", 1)
longstatus = iPart.SaveAs3(newName, 0, 0) longstatus = iPart.SaveAs3(newName, 0, 0)
Model.ClearSelection2(True) Model.ClearSelection2(True)

6
Wardrobe/SolidWorks/Individual_Frame_3D.vb
View File

@ -251,7 +251,7 @@ Public Class Individual_Frame_3D
While frameLengths.Count > 0 While frameLengths.Count > 0
Dim frameCutList As New Dictionary(Of String, Integer) Dim frameCutList As New Dictionary(Of String, Integer)
frameCutList.Add(frameLengths.ElementAt(0).Key, frameLengths.ElementAt(0).Value) frameCutList.Add(frameLengths.ElementAt(0).Key, frameLengths.ElementAt(0).Value) 'Fixa så att vi hela tiden tar den längsta och testar mot de andra
frameLengths.Remove(frameLengths.ElementAt(0).Key) frameLengths.Remove(frameLengths.ElementAt(0).Key)
For i = 0 To 100 For i = 0 To 100
@ -298,7 +298,7 @@ Public Class Individual_Frame_3D
For j = 0 To cuttingList.Count - 1 For j = 0 To cuttingList.Count - 1
Dim Part = swApp.OpenDoc6(Settings.HLCtFolder & "\HLCt\frame_l_straight.SLDPRT", 1, 0, "", longstatus, longwarnings) Dim Part = swApp.OpenDoc6(Settings.HLCtFolder & "\HLCt\frame_l_straight.SLDPRT", 1, 0, "", longstatus, longwarnings)
longstatus = Part.SaveAs3(Settings.folderPaths("object_" & Data.objectNum & "_models3D_frames_sw_support") & "\frame_l_end_piece" & j + 1 & ".SLDPRT", 0, 0) longstatus = Part.SaveAs3(Settings.folderPaths("object_" & Data.objectNum & "_models3D_frames_sw_support") & "\FRAME_L_END_PIECE" & j + 1 & ".SLDPRT", 0, 0)
Dim swEquationMgr As EquationMgr Dim swEquationMgr As EquationMgr
swEquationMgr = Part.GetEquationMgr() swEquationMgr = Part.GetEquationMgr()
@ -338,7 +338,7 @@ Public Class Individual_Frame_3D
Dim swWarnings As Integer Dim swWarnings As Integer
boolstatus = Part.Save3(1, swErrors, swWarnings) boolstatus = Part.Save3(1, swErrors, swWarnings)
swApp.CloseDoc(Settings.folderPaths("object_" & Data.objectNum & "_models3D_frames_sw_support") & "\frame_l_end_piece" & j + 1 & ".SLDPRT") swApp.CloseDoc(Settings.folderPaths("object_" & Data.objectNum & "_models3D_frames_sw_support") & "\FRAME_L_END_PIECE" & j + 1 & ".SLDPRT")
Next Next
End Sub End Sub
End Class End Class

19
Wardrobe/SolidWorks/Individual_Frame_Drawing.vb
View File

@ -28,6 +28,25 @@ Public Class Individual_Frame_Drawing
Dim assemComps As Object Dim assemComps As Object
assemComps = assembly.AddComponents3((compNames), (transMatrix), (coordNames)) assemComps = assembly.AddComponents3((compNames), (transMatrix), (coordNames))
Dim config As Configuration
config = assembly.GetActiveConfiguration
Dim swCustPropMgr = config.CustomPropertyManager
longstatus = swCustPropMgr.Add3("Benämning", 30, "Whole L Straight Frame", 1) 'Lägg till storlek på frames
longstatus = swCustPropMgr.Add3("ExtraBenämning1", 30, "Cutting Instructions for Whole Frame ", 1)
longstatus = swCustPropMgr.Add3("Materialsort", 30, "Hot Dip Galvanized Steel", 1)
longstatus = swCustPropMgr.Add3("Art. Nr", 30, "TBD", 1)
longstatus = swCustPropMgr.Add3("Material_Art", 30, "TBD", 1)
longstatus = swCustPropMgr.Add3("Author", 30, "", 1)
longstatus = swCustPropMgr.Add3("Ändrad av", 30, "", 1)
longstatus = swCustPropMgr.Add3("SkapadDatum", 30, "", 1)
longstatus = swCustPropMgr.Add3("RevideradDatum", 30, "", 1)
longstatus = swCustPropMgr.Add3("ExtraBenämning2", 30, "", 1)
longstatus = swCustPropMgr.Add3("epdmid", 30, "", 1)
longstatus = swCustPropMgr.Add3("Revision", 30, "", 1)
longstatus = model.SaveAs3(Settings.folderPaths("object_" & Data.objectNum & "_models3D_frames_sw") & "\FRAME_ASSEMBLY" & i + 1 & ".SLDASM", 0, 0) longstatus = model.SaveAs3(Settings.folderPaths("object_" & Data.objectNum & "_models3D_frames_sw") & "\FRAME_ASSEMBLY" & i + 1 & ".SLDASM", 0, 0)
swApp.CloseDoc(Settings.folderPaths("object_" & Data.objectNum & "_models3D_frames_sw") & "\FRAME_ASSEMBLY" & i + 1 & ".SLDASM") swApp.CloseDoc(Settings.folderPaths("object_" & Data.objectNum & "_models3D_frames_sw") & "\FRAME_ASSEMBLY" & i + 1 & ".SLDASM")

7
Wardrobe/SolidWorks/Model_3D.vb
View File

@ -88,8 +88,13 @@ Public Class Model_3D
instanceCounter.Add(newName.Substring(0, newName.Length - 1), 1) instanceCounter.Add(newName.Substring(0, newName.Length - 1), 1)
End Try End Try
childrenDestPaths.Add(Settings.folderPaths("object_" & Data.objectNum & "_models3D_gratings_sw") & "\" & newName & If partNameArray(0) = "FRAME" Then
childrenDestPaths.Add(Settings.folderPaths("object_" & Data.objectNum & "_models3D_frames_sw") & "\" & newName &
instanceCounter(newName.Substring(0, newName.Length - 1)) & ".SLDPRT") instanceCounter(newName.Substring(0, newName.Length - 1)) & ".SLDPRT")
Else
childrenDestPaths.Add(Settings.folderPaths("object_" & Data.objectNum & "_models3D_gratings_sw") & "\" & newName &
instanceCounter(newName.Substring(0, newName.Length - 1)) & ".SLDPRT")
End If
Next Next
swApp.CloseAllDocuments(True) swApp.CloseAllDocuments(True)