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

Almost done!

This commit is contained in:
Anton 2021-05-05 15:31:52 +02:00
parent 7bae694fd3
commit e8f4d65a8d
20 changed files with 143 additions and 104 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.

BIN
HLCt/pressure_welded_serrated.SLDPRT
View File

Binary file not shown.

BIN
HLCt/recess_middle_square.SLDPRT
View File

Binary file not shown.

BIN
HLCt/type_a_serrated.SLDPRT
View File

Binary file not shown.

5
Wardrobe/GUI/Export.vb
View File

@ -53,6 +53,8 @@
' ---------------------------------- Export Button ---------------------------------- ' ---------------------------------- Export Button ----------------------------------
Private Sub Button_Export_SW_Click(sender As Object, e As EventArgs) Handles PictureBox_Export.Click Private Sub Button_Export_SW_Click(sender As Object, e As EventArgs) Handles PictureBox_Export.Click
Cursor.Current = Cursors.WaitCursor
If AppForm.fillMode Then If AppForm.fillMode Then
Calculate_Fill_Grid.Calculate_Grid() Calculate_Fill_Grid.Calculate_Grid()
@ -134,7 +136,7 @@
simplifiedCreated = True simplifiedCreated = True
End If End If
If simplifiedCreated = False Then If simplifiedCreated = False Then
Multiple_3D_Simplified.Build_Grid(False) Individual_3D_Simplified.Build_Simplified(False)
End If End If
Instructions.Generate_Instructions(User_Input.addFrame) Instructions.Generate_Instructions(User_Input.addFrame)
End If End If
@ -144,6 +146,7 @@
GUI_Export.Generate_Quote() GUI_Export.Generate_Quote()
End If End If
Cursor.Current = Cursors.Default
Me.Close() Me.Close()
End Sub End Sub
Private Sub PictureBox_Export_MouseEnter(sender As Object, e As EventArgs) Handles PictureBox_Export.MouseEnter Private Sub PictureBox_Export_MouseEnter(sender As Object, e As EventArgs) Handles PictureBox_Export.MouseEnter

81
Wardrobe/GUI/Main_Menu.vb
View File

@ -2,52 +2,49 @@
Public Class Main_Menu Public Class Main_Menu
Private Sub Generate_Folders() Private Sub Generate_Folders()
Settings.folderPaths.Add("object_" & Data.objectNum, Settings.folderPaths("order") & "\Object " & Data.objectNum)
System.IO.Directory.CreateDirectory(Settings.folderPaths("object_" & Data.objectNum))
' 3D-Models ' 3D-Models
Settings.folderPaths.Add("object_" & Data.objectNum & "_models3D", Settings.folderPaths("object_" & Data.objectNum) & "\3D-Models") Settings.folderPaths.Add("models3D", Settings.folderPaths("order") & "\3D-Models")
System.IO.Directory.CreateDirectory(Settings.folderPaths("object_" & Data.objectNum & "_models3D")) System.IO.Directory.CreateDirectory(Settings.folderPaths("models3D"))
Settings.folderPaths.Add("object_" & Data.objectNum & "_models3D_gratings", Settings.folderPaths("object_" & Data.objectNum & "_models3D") & "\Floor Gratings") Settings.folderPaths.Add("models3D_gratings", Settings.folderPaths("models3D") & "\Floor Gratings")
System.IO.Directory.CreateDirectory(Settings.folderPaths("object_" & Data.objectNum & "_models3D_gratings")) System.IO.Directory.CreateDirectory(Settings.folderPaths("models3D_gratings"))
Settings.folderPaths.Add("object_" & Data.objectNum & "_models3D_gratings_sw", Settings.folderPaths("object_" & Data.objectNum & "_models3D_gratings") & "\SLD") Settings.folderPaths.Add("models3D_gratings_sw", Settings.folderPaths("models3D_gratings") & "\SLD")
System.IO.Directory.CreateDirectory(Settings.folderPaths("object_" & Data.objectNum & "_models3D_gratings_sw")) System.IO.Directory.CreateDirectory(Settings.folderPaths("models3D_gratings_sw"))
Settings.folderPaths.Add("object_" & Data.objectNum & "_models3D_gratings_sw_support", Settings.folderPaths("object_" & Data.objectNum & "_models3D_gratings_sw") & "\Support Models") Settings.folderPaths.Add("models3D_gratings_sw_support", Settings.folderPaths("models3D_gratings_sw") & "\Support Models")
System.IO.Directory.CreateDirectory(Settings.folderPaths("object_" & Data.objectNum & "_models3D_gratings_sw_support")) System.IO.Directory.CreateDirectory(Settings.folderPaths("models3D_gratings_sw_support"))
Settings.folderPaths.Add("object_" & Data.objectNum & "_models3D_gratings_stp", Settings.folderPaths("object_" & Data.objectNum & "_models3D_gratings") & "\STP") Settings.folderPaths.Add("models3D_gratings_stp", Settings.folderPaths("models3D_gratings") & "\STEP")
System.IO.Directory.CreateDirectory(Settings.folderPaths("object_" & Data.objectNum & "_models3D_gratings_stp")) System.IO.Directory.CreateDirectory(Settings.folderPaths("models3D_gratings_stp"))
Settings.folderPaths.Add("object_" & Data.objectNum & "_models3D_frames", Settings.folderPaths("object_" & Data.objectNum & "_models3D") & "\Frames") Settings.folderPaths.Add("models3D_frames", Settings.folderPaths("models3D") & "\Frames")
System.IO.Directory.CreateDirectory(Settings.folderPaths("object_" & Data.objectNum & "_models3D_frames")) System.IO.Directory.CreateDirectory(Settings.folderPaths("models3D_frames"))
Settings.folderPaths.Add("object_" & Data.objectNum & "_models3D_frames_sw", Settings.folderPaths("object_" & Data.objectNum & "_models3D_frames") & "\SLD") Settings.folderPaths.Add("models3D_frames_sw", Settings.folderPaths("models3D_frames") & "\SLD")
System.IO.Directory.CreateDirectory(Settings.folderPaths("object_" & Data.objectNum & "_models3D_frames_sw")) System.IO.Directory.CreateDirectory(Settings.folderPaths("models3D_frames_sw"))
Settings.folderPaths.Add("object_" & Data.objectNum & "_models3D_frames_sw_support", Settings.folderPaths("object_" & Data.objectNum & "_models3D_frames_sw") & "\Support Models") Settings.folderPaths.Add("models3D_frames_sw_support", Settings.folderPaths("models3D_frames_sw") & "\Support Models")
System.IO.Directory.CreateDirectory(Settings.folderPaths("object_" & Data.objectNum & "_models3D_frames_sw_support")) System.IO.Directory.CreateDirectory(Settings.folderPaths("models3D_frames_sw_support"))
Settings.folderPaths.Add("object_" & Data.objectNum & "_models3D_frames_stp", Settings.folderPaths("object_" & Data.objectNum & "_models3D_frames") & "\STP") Settings.folderPaths.Add("models3D_frames_stp", Settings.folderPaths("models3D_frames") & "\STEP")
System.IO.Directory.CreateDirectory(Settings.folderPaths("object_" & Data.objectNum & "_models3D_frames_stp")) System.IO.Directory.CreateDirectory(Settings.folderPaths("models3D_frames_stp"))
' Drawings ' Drawings
Settings.folderPaths.Add("object_" & Data.objectNum & "_drawings", Settings.folderPaths("object_" & Data.objectNum) & "\Drawings") Settings.folderPaths.Add("drawings", Settings.folderPaths("order") & "\Drawings")
System.IO.Directory.CreateDirectory(Settings.folderPaths("object_" & Data.objectNum & "_drawings")) System.IO.Directory.CreateDirectory(Settings.folderPaths("drawings"))
Settings.folderPaths.Add("object_" & Data.objectNum & "_drawings_gratings", Settings.folderPaths("object_" & Data.objectNum & "_drawings") & "\Floor Gratings") Settings.folderPaths.Add("drawings_gratings", Settings.folderPaths("drawings") & "\Floor Gratings")
System.IO.Directory.CreateDirectory(Settings.folderPaths("object_" & Data.objectNum & "_drawings_gratings")) System.IO.Directory.CreateDirectory(Settings.folderPaths("drawings_gratings"))
Settings.folderPaths.Add("object_" & Data.objectNum & "_drawings_gratings_sw", Settings.folderPaths("object_" & Data.objectNum & "_drawings_gratings") & "\SLD") Settings.folderPaths.Add("drawings_gratings_sw", Settings.folderPaths("drawings_gratings") & "\SLD")
System.IO.Directory.CreateDirectory(Settings.folderPaths("object_" & Data.objectNum & "_drawings_gratings_sw")) System.IO.Directory.CreateDirectory(Settings.folderPaths("drawings_gratings_sw"))
Settings.folderPaths.Add("object_" & Data.objectNum & "_drawings_gratings_pdf", Settings.folderPaths("object_" & Data.objectNum & "_drawings_gratings") & "\PDF") Settings.folderPaths.Add("drawings_gratings_pdf", Settings.folderPaths("drawings_gratings") & "\PDF")
System.IO.Directory.CreateDirectory(Settings.folderPaths("object_" & Data.objectNum & "_drawings_gratings_pdf")) System.IO.Directory.CreateDirectory(Settings.folderPaths("drawings_gratings_pdf"))
Settings.folderPaths.Add("object_" & Data.objectNum & "_drawings_frames", Settings.folderPaths("object_" & Data.objectNum & "_drawings") & "\Frames") Settings.folderPaths.Add("drawings_frames", Settings.folderPaths("drawings") & "\Frames")
System.IO.Directory.CreateDirectory(Settings.folderPaths("object_" & Data.objectNum & "_drawings_frames")) System.IO.Directory.CreateDirectory(Settings.folderPaths("drawings_frames"))
Settings.folderPaths.Add("object_" & Data.objectNum & "_drawings_frames_sw", Settings.folderPaths("object_" & Data.objectNum & "_drawings_frames") & "\SLD") Settings.folderPaths.Add("drawings_frames_sw", Settings.folderPaths("drawings_frames") & "\SLD")
System.IO.Directory.CreateDirectory(Settings.folderPaths("object_" & Data.objectNum & "_drawings_frames_sw")) System.IO.Directory.CreateDirectory(Settings.folderPaths("drawings_frames_sw"))
Settings.folderPaths.Add("object_" & Data.objectNum & "_drawings_frames_pdf", Settings.folderPaths("object_" & Data.objectNum & "_drawings_frames") & "\PDF") Settings.folderPaths.Add("drawings_frames_pdf", Settings.folderPaths("drawings_frames") & "\PDF")
System.IO.Directory.CreateDirectory(Settings.folderPaths("object_" & Data.objectNum & "_drawings_frames_pdf")) System.IO.Directory.CreateDirectory(Settings.folderPaths("drawings_frames_pdf"))
' Quote ' Quote
Settings.folderPaths.Add("object_" & Data.objectNum & "_quote", Settings.folderPaths("object_" & Data.objectNum) & "\Quote") Settings.folderPaths.Add("quote", Settings.folderPaths("order") & "\Quote")
System.IO.Directory.CreateDirectory(Settings.folderPaths("object_" & Data.objectNum & "_quote")) System.IO.Directory.CreateDirectory(Settings.folderPaths("quote"))
' Placement Guides ' Placement Guides
Settings.folderPaths.Add("object_" & Data.objectNum & "_guide", Settings.folderPaths("object_" & Data.objectNum) & "\Placement Guides") Settings.folderPaths.Add("guide", Settings.folderPaths("order") & "\Instructions")
System.IO.Directory.CreateDirectory(Settings.folderPaths("object_" & Data.objectNum & "_guide")) System.IO.Directory.CreateDirectory(Settings.folderPaths("guide"))
End Sub End Sub
@ -58,10 +55,8 @@ Public Class Main_Menu
PictureBox_Multiple.Enabled = True PictureBox_Multiple.Enabled = True
PictureBox_Multiple.BackgroundImage = Global.Wardrobe.My.Resources.Resources.Icon_Multiple1_01 PictureBox_Multiple.BackgroundImage = Global.Wardrobe.My.Resources.Resources.Icon_Multiple1_01
Settings.folderPaths.Add("order", Settings.exportFolder & "\Order " & GUI_Export.Get_RandomNumber(10000, 99999)) Settings.folderPaths.Add("order", Settings.exportFolder & "\Order " & GUI_Export.Get_RandomNumber(100000, 999999))
System.IO.Directory.CreateDirectory(Settings.folderPaths("order")) System.IO.Directory.CreateDirectory(Settings.folderPaths("order"))
Data.objectNum = 0
End Sub End Sub
Private Sub PictureBox_CreateOrder_MouseEnter(sender As Object, e As EventArgs) Handles PictureBox_CreateOrder.MouseEnter Private Sub PictureBox_CreateOrder_MouseEnter(sender As Object, e As EventArgs) Handles PictureBox_CreateOrder.MouseEnter
PictureBox_CreateOrder.BackgroundImage = Global.Wardrobe.My.Resources.Resources.Icon_CreateOrder2_01 PictureBox_CreateOrder.BackgroundImage = Global.Wardrobe.My.Resources.Resources.Icon_CreateOrder2_01
@ -100,7 +95,6 @@ Public Class Main_Menu
Grating_Configurator.Load_GUI() Grating_Configurator.Load_GUI()
Grating_Configurator.Show() Grating_Configurator.Show()
Data.objectNum += 1
Generate_Folders() Generate_Folders()
End Sub End Sub
Private Sub PictureBox_Individual_MouseEnter(sender As Object, e As EventArgs) Handles PictureBox_Individual.MouseEnter Private Sub PictureBox_Individual_MouseEnter(sender As Object, e As EventArgs) Handles PictureBox_Individual.MouseEnter
@ -126,7 +120,6 @@ Public Class Main_Menu
Grating_Configurator.Load_GUI() Grating_Configurator.Load_GUI()
Grating_Configurator.Show() Grating_Configurator.Show()
Data.objectNum += 1
Generate_Folders() Generate_Folders()
End Sub End Sub
Private Sub PictureBox_Multiple_MouseEnter(sender As Object, e As EventArgs) Handles PictureBox_Multiple.MouseEnter Private Sub PictureBox_Multiple_MouseEnter(sender As Object, e As EventArgs) Handles PictureBox_Multiple.MouseEnter

4
Wardrobe/GUI/Settings.vb
View File

@ -93,6 +93,8 @@ Public Class Settings
' ---------------------------------- Update KB Button ---------------------------------- ' ---------------------------------- Update KB Button ----------------------------------
Private Sub Button_KB_Click(sender As Object, e As EventArgs) Handles PictureBox_UpdateKB.Click Private Sub Button_KB_Click(sender As Object, e As EventArgs) Handles PictureBox_UpdateKB.Click
Cursor.Current = Cursors.WaitCursor
adminClass.updateDatabase() 'Update KB adminClass.updateDatabase() 'Update KB
Dim timeNow As Date = Date.Now Dim timeNow As Date = Date.Now
@ -100,6 +102,8 @@ Public Class Settings
Label_KB_Updated.Text = "Last Updated: " & KBUpdateTime Label_KB_Updated.Text = "Last Updated: " & KBUpdateTime
Update_AppData(KBUpdateTimeHead, KBUpdateTime) Update_AppData(KBUpdateTimeHead, KBUpdateTime)
Cursor.Current = Cursors.Default
End Sub End Sub
Private Sub PictureBox_UpdateKB_MouseEnter(sender As Object, e As EventArgs) Handles PictureBox_UpdateKB.MouseEnter Private Sub PictureBox_UpdateKB_MouseEnter(sender As Object, e As EventArgs) Handles PictureBox_UpdateKB.MouseEnter
PictureBox_UpdateKB.BackgroundImage = Global.Wardrobe.My.Resources.Resources.Icon_UpdateKB2_01 PictureBox_UpdateKB.BackgroundImage = Global.Wardrobe.My.Resources.Resources.Icon_UpdateKB2_01

2
Wardrobe/Gratings Data/Data.vb
View File

@ -1,6 +1,4 @@
Public Class Data Public Class Data
Public Shared objectNum As Integer
Public Shared grossAreaPoints As New DataTable Public Shared grossAreaPoints As New DataTable
Public Shared gratingPoints As New DataTable Public Shared gratingPoints As New DataTable
Public Shared gratingMiddlePoints As New DataTable Public Shared gratingMiddlePoints As New DataTable

7
Wardrobe/Quote_Export/GUI_Export.vb
View File

@ -17,7 +17,7 @@ Public Class GUI_Export
Create_GratingPicture(doc) Create_GratingPicture(doc)
Create_GratingData(doc) Create_GratingData(doc)
doc.ExportAsFixedFormat(Settings.folderPaths("object_" & Data.objectNum & "_quote") & "\Specification.pdf", Word.WdExportFormat.wdExportFormatPDF) doc.ExportAsFixedFormat(Settings.folderPaths("quote") & "\Quote.pdf", Word.WdExportFormat.wdExportFormatPDF)
doc.Close(False) doc.Close(False)
End Sub End Sub
@ -27,7 +27,7 @@ Public Class GUI_Export
Draw_Grating.Draw_ForExport(graphicImg, 12) Draw_Grating.Draw_ForExport(graphicImg, 12)
gratingImg.Save(Settings.folderPaths("object_" & Data.objectNum & "_quote") & "\GUI.png", Imaging.ImageFormat.Png) gratingImg.Save(Settings.folderPaths("quote") & "\GUI_Drawing.png", Imaging.ImageFormat.Png)
End Sub End Sub
@ -202,7 +202,7 @@ Public Class GUI_Export
drawingPara = doc.Content.Paragraphs.Add(lineRange) drawingPara = doc.Content.Paragraphs.Add(lineRange)
drawingPara.Range.InsertParagraphBefore() drawingPara.Range.InsertParagraphBefore()
drawingPara.Format.SpaceBefore = 10 drawingPara.Format.SpaceBefore = 10
drawingPara.Range.InlineShapes.AddPicture(Settings.folderPaths("object_" & Data.objectNum & "_quote") & "\GUI.png") drawingPara.Range.InlineShapes.AddPicture(Settings.folderPaths("quote") & "\GUI_Drawing.png")
drawingPara.Range.InlineShapes(1).ScaleHeight = 55 drawingPara.Range.InlineShapes(1).ScaleHeight = 55
drawingPara.Range.InlineShapes(1).ScaleWidth = 55 drawingPara.Range.InlineShapes(1).ScaleWidth = 55
drawingPara.Format.SpaceAfter = 1 drawingPara.Format.SpaceAfter = 1
@ -258,7 +258,6 @@ Public Class GUI_Export
End Sub End Sub
Public Shared Function Get_RandomNumber(Min As Integer, Max As Integer) As Integer Public Shared Function Get_RandomNumber(Min As Integer, Max As Integer) As Integer
Static Generator As System.Random = New System.Random() Static Generator As System.Random = New System.Random()
Return Generator.Next(Min, Max) Return Generator.Next(Min, Max)

4
Wardrobe/SolidWorks/Frame_3D.vb
View File

@ -478,7 +478,7 @@ Public Class Frame_3D
If endPieceLength > 0 Then If endPieceLength > 0 Then
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("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()
@ -518,7 +518,7 @@ Public Class Frame_3D
Dim swWarnings As Integer Dim swWarnings As Integer
boolstatus = Part.Save3(4, swErrors, swWarnings) boolstatus = Part.Save3(4, swErrors, swWarnings)
swApp.CloseDoc(Settings.folderPaths("object_" & Data.objectNum & "_models3D_frames_sw_support") & "\FRAME_L_END_PIECE" & j + 1 & ".SLDPRT") swApp.CloseDoc(Settings.folderPaths("models3D_frames_sw_support") & "\FRAME_L_END_PIECE" & j + 1 & ".SLDPRT")
End If End If
Next Next
End Sub End Sub

14
Wardrobe/SolidWorks/Frame_Drawing.vb
View File

@ -30,12 +30,12 @@ Public Class Frame_Drawing
Dim transMatrix As Object = Nothing Dim transMatrix As Object = Nothing
For j = 0 To compNames.Count - 2 + endPieceExist For j = 0 To compNames.Count - 2 + endPieceExist
Dim frameID = Frame_3D.cuttingList.ElementAt(i).Value(j) Dim frameID = Frame_3D.cuttingList.ElementAt(i).Value(j)
compNames(j) = Settings.folderPaths("object_" & Data.objectNum & "_models3D_frames_sw") & "\" & "FRAME_L_STRAIGHT_" & frameID & ".SLDPRT" compNames(j) = Settings.folderPaths("models3D_frames_sw") & "\" & "FRAME_L_STRAIGHT_" & frameID & ".SLDPRT"
coordNames(j) = "" coordNames(j) = ""
Next Next
If endPieceLength > 0 Then If endPieceLength > 0 Then
compNames(compNames.Count - 1) = Settings.folderPaths("object_" & Data.objectNum & "_models3D_frames_sw_support") & "\FRAME_L_END_PIECE" & i + 1 & ".SLDPRT" compNames(compNames.Count - 1) = Settings.folderPaths("models3D_frames_sw_support") & "\FRAME_L_END_PIECE" & i + 1 & ".SLDPRT"
coordNames(coordNames.Count - 1) = "" coordNames(coordNames.Count - 1) = ""
End If End If
@ -60,9 +60,9 @@ Public Class Frame_Drawing
longstatus = swCustPropMgr.Add3("Revision", 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("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("models3D_frames_sw") & "\FRAME_ASSEMBLY" & i + 1 & ".SLDASM")
Next Next
End Sub End Sub
@ -99,7 +99,7 @@ Public Class Frame_Drawing
status = layMgr.SetCurrentLayer("Svenska") status = layMgr.SetCurrentLayer("Svenska")
Dim myView As View Dim myView As View
myView = iDrawing.CreateDrawViewFromModelView3(Settings.folderPaths("object_" & Data.objectNum & "_models3D_frames_sw") & "\FRAME_ASSEMBLY" & i + 1 & ".SLDASM", myView = iDrawing.CreateDrawViewFromModelView3(Settings.folderPaths("models3D_frames_sw") & "\FRAME_ASSEMBLY" & i + 1 & ".SLDASM",
"*Front", swSheetWidth / 2, swSheetHeight / 2, 0) "*Front", swSheetWidth / 2, swSheetHeight / 2, 0)
myView.UseSheetScale() = True myView.UseSheetScale() = True
myView.SetDisplayTangentEdges2(2) myView.SetDisplayTangentEdges2(2)
@ -192,10 +192,10 @@ Public Class Frame_Drawing
Next Next
Dim newName As String Dim newName As String
newName = Settings.folderPaths("object_" & Data.objectNum & "_drawings_frames_sw") & "\frame_drawing.SLDDRW" newName = Settings.folderPaths("drawings_frames_sw") & "\frame_drawing.SLDDRW"
status = iDrawing.SaveAs3(newName, 0, 0) status = iDrawing.SaveAs3(newName, 0, 0)
status = iDrawing.SaveAs3(Settings.folderPaths("object_" & Data.objectNum & "_drawings_frames_pdf") & "\frame_drawing.pdf", 0, 2) status = iDrawing.SaveAs3(Settings.folderPaths("drawings_frames_pdf") & "\frame_drawing.pdf", 0, 2)
End Sub End Sub

16
Wardrobe/SolidWorks/Individual_3D.vb
View File

@ -62,6 +62,8 @@ Public Class Individual_3D
Dim Assembly = swApp.ActiveDoc() Dim Assembly = swApp.ActiveDoc()
status = Assembly.EditRebuild3()
Dim Errors As Integer Dim Errors As Integer
Dim Warnings As Integer Dim Warnings As Integer
@ -77,7 +79,7 @@ Public Class Individual_3D
'To STEP 'To STEP
If User_Input.add3DStep = True Then If User_Input.add3DStep = True Then
status = Assembly.SaveAs3(Settings.folderPaths("object_" & Data.objectNum & "_models3D_gratings_stp") & "\GRATING_ASSEMBLY.STEP", 0, 2) status = Assembly.SaveAs3(Settings.folderPaths("models3D_gratings_stp") & "\GRATING_ASSEMBLY.STEP", 0, 2)
End If End If
Dim sourcePath, destPath As String Dim sourcePath, destPath As String
@ -85,10 +87,10 @@ Public Class Individual_3D
Dim childrenDestPaths As New List(Of String) Dim childrenDestPaths As New List(Of String)
sourcePath = Settings.filesFolder & "\Files\CADStart\" & designName & ".SLDASM" sourcePath = Settings.filesFolder & "\Files\CADStart\" & designName & ".SLDASM"
destPath = Settings.folderPaths("object_" & Data.objectNum & "_models3D_gratings_sw") & "\GRATING_ASSEMBLY.SLDASM" destPath = Settings.folderPaths("models3D_gratings_sw") & "\GRATING_ASSEMBLY.SLDASM"
childrenSourcePaths.Add(Settings.HLCtFolder & "\HLCt\Parts\START.SLDPRT") childrenSourcePaths.Add(Settings.HLCtFolder & "\HLCt\Parts\START.SLDPRT")
childrenDestPaths.Add(Settings.folderPaths("object_" & Data.objectNum & "_models3D_gratings_sw_support") & "\MASTER.SLDPRT") childrenDestPaths.Add(Settings.folderPaths("models3D_gratings_sw_support") & "\MASTER.SLDPRT")
Dim instanceCounter As New Dictionary(Of String, Integer) Dim instanceCounter As New Dictionary(Of String, Integer)
For i = 0 To partDT.Rows.Count - 1 For i = 0 To partDT.Rows.Count - 1
@ -109,10 +111,10 @@ Public Class Individual_3D
End Try End Try
If partNameArray(0) = "FRAME" Then If partNameArray(0) = "FRAME" Then
childrenDestPaths.Add(Settings.folderPaths("object_" & Data.objectNum & "_models3D_frames_sw") & "\" & newName & childrenDestPaths.Add(Settings.folderPaths("models3D_frames_sw") & "\" & newName &
instanceCounter(newName.Substring(0, newName.Length - 1)) & ".SLDPRT") instanceCounter(newName.Substring(0, newName.Length - 1)) & ".SLDPRT")
Else Else
childrenDestPaths.Add(Settings.folderPaths("object_" & Data.objectNum & "_models3D_gratings_sw") & "\" & newName & childrenDestPaths.Add(Settings.folderPaths("models3D_gratings_sw") & "\" & newName &
instanceCounter(newName.Substring(0, newName.Length - 1)) & ".SLDPRT") instanceCounter(newName.Substring(0, newName.Length - 1)) & ".SLDPRT")
End If End If
Next Next
@ -286,8 +288,10 @@ Public Class Individual_3D
Dim modelDoc As IModelDoc2 Dim modelDoc As IModelDoc2
modelDoc = Assembly modelDoc = Assembly
Assembly.ClearSelection2(True)
boolstatus = AssemblyExtension.SelectByID2("HorizontalSplitBody@" & gratingPartName & "-1@" & designName, "BODYFEATURE", 0, 0, 0, False, 0, Nothing, 0) boolstatus = AssemblyExtension.SelectByID2("HorizontalSplitBody@" & gratingPartName & "-1@" & designName, "BODYFEATURE", 0, 0, 0, False, 0, Nothing, 0)
modelDoc.EditSuppress2() modelDoc.EditSuppress2()
Assembly.ClearSelection2(True)
boolstatus = AssemblyExtension.SelectByID2("VerticalSplitBody@" & gratingPartName & "-1@" & designName, "BODYFEATURE", 0, 0, 0, False, 0, Nothing, 0) boolstatus = AssemblyExtension.SelectByID2("VerticalSplitBody@" & gratingPartName & "-1@" & designName, "BODYFEATURE", 0, 0, 0, False, 0, Nothing, 0)
modelDoc.EditSuppress2() modelDoc.EditSuppress2()
@ -311,8 +315,6 @@ Public Class Individual_3D
' End If ' End If
'Next 'Next
Dim recessPartName As String Dim recessPartName As String
For i = 0 To recessParts.Count - 1 For i = 0 To recessParts.Count - 1
Dim partName As String = recessParts(i)("partName") Dim partName As String = recessParts(i)("partName")

20
Wardrobe/SolidWorks/Individual_3D_Simplified.vb
View File

@ -86,9 +86,9 @@ Public Class Individual_3D_Simplified
'Dim newName As String 'Dim newName As String
'If withFrame = True Then 'If withFrame = True Then
' newName = Settings.folderPaths("object_" & Data.objectNum & "_models3D_gratings_sw_support") & "\grating_assembly_simplified_with_frame.SLDASM" ' newName = Settings.folderPaths("models3D_gratings_sw_support") & "\grating_assembly_simplified_with_frame.SLDASM"
'Else 'Else
' newName = Settings.folderPaths("object_" & Data.objectNum & "_models3D_gratings_sw_support") & "\grating_assembly_simplified.SLDASM" ' newName = Settings.folderPaths("models3D_gratings_sw_support") & "\grating_assembly_simplified.SLDASM"
'End If 'End If
'Dim swExtensions As IModelDocExtension 'Dim swExtensions As IModelDocExtension
'swExtensions = Assembly.Extension 'swExtensions = Assembly.Extension
@ -101,6 +101,8 @@ Public Class Individual_3D_Simplified
Dim Errors As Integer Dim Errors As Integer
Dim Warnings As Integer Dim Warnings As Integer
status = Assembly.EditRebuild3()
Dim components = Assembly.GetComponents(True) Dim components = Assembly.GetComponents(True)
For i = 0 To UBound(components) For i = 0 To UBound(components)
Dim partDoc = components(i).GetModelDoc2() Dim partDoc = components(i).GetModelDoc2()
@ -120,11 +122,11 @@ Public Class Individual_3D_Simplified
childrenSourcePaths.Add(Settings.HLCtFolder & "\HLCt\Parts\START.SLDPRT") childrenSourcePaths.Add(Settings.HLCtFolder & "\HLCt\Parts\START.SLDPRT")
If withFrame = True Then If withFrame = True Then
destPath = Settings.folderPaths("object_" & Data.objectNum & "_models3D_gratings_sw_support") & "\GRATING_ASSEMBLY_SIMPLIFIED_WITH_FRAME.SLDASM" destPath = Settings.folderPaths("models3D_gratings_sw_support") & "\GRATING_ASSEMBLY_SIMPLIFIED_WITH_FRAME.SLDASM"
childrenDestPaths.Add(Settings.folderPaths("object_" & Data.objectNum & "_models3D_gratings_sw_support") & "\MASTER_SIMPLIFIED_WITH_FRAME.SLDPRT") childrenDestPaths.Add(Settings.folderPaths("models3D_gratings_sw_support") & "\MASTER_SIMPLIFIED_WITH_FRAME.SLDPRT")
Else Else
destPath = Settings.folderPaths("object_" & Data.objectNum & "_models3D_gratings_sw_support") & "\GRATING_ASSEMBLY_SIMPLIFIED.SLDASM" destPath = Settings.folderPaths("models3D_gratings_sw_support") & "\GRATING_ASSEMBLY_SIMPLIFIED.SLDASM"
childrenDestPaths.Add(Settings.folderPaths("object_" & Data.objectNum & "_models3D_gratings_sw_support") & "\MASTER_SIMPLIFIED.SLDPRT") childrenDestPaths.Add(Settings.folderPaths("models3D_gratings_sw_support") & "\MASTER_SIMPLIFIED.SLDPRT")
End If End If
Dim instanceCounter As New Dictionary(Of String, Integer) Dim instanceCounter As New Dictionary(Of String, Integer)
@ -146,10 +148,10 @@ Public Class Individual_3D_Simplified
End Try End Try
If partNameArray(0) = "FRAME" Then If partNameArray(0) = "FRAME" Then
childrenDestPaths.Add(Settings.folderPaths("object_" & Data.objectNum & "_models3D_frames_sw") & "\" & newName & childrenDestPaths.Add(Settings.folderPaths("models3D_frames_sw") & "\" & newName &
instanceCounter(newName.Substring(0, newName.Length - 1)) & ".SLDPRT") instanceCounter(newName.Substring(0, newName.Length - 1)) & "_S" & ".SLDPRT")
Else Else
childrenDestPaths.Add(Settings.folderPaths("object_" & Data.objectNum & "_models3D_gratings_sw_support") & "\" & newName & childrenDestPaths.Add(Settings.folderPaths("models3D_gratings_sw_support") & "\" & newName &
instanceCounter(newName.Substring(0, newName.Length - 1)) & ".SLDPRT") instanceCounter(newName.Substring(0, newName.Length - 1)) & ".SLDPRT")
End If End If
Next Next

10
Wardrobe/SolidWorks/Individual_Drawing.vb
View File

@ -112,7 +112,7 @@ Public Class Individual_Drawing
Dim iPart As PartDoc Dim iPart As PartDoc
iPart = swApp.ActiveDoc iPart = swApp.ActiveDoc
Dim newName As String Dim newName As String
newName = Settings.folderPaths("object_" & Data.objectNum & "_models3D_gratings_sw_support") & "\simplified_grating.SLDPRT" newName = Settings.folderPaths("models3D_gratings_sw_support") & "\simplified_grating.SLDPRT"
Dim config As Configuration Dim config As Configuration
config = iPart.GetActiveConfiguration config = iPart.GetActiveConfiguration
@ -176,7 +176,7 @@ Public Class Individual_Drawing
status = layMgr.SetCurrentLayer("Svenska") status = layMgr.SetCurrentLayer("Svenska")
Dim myView As View Dim myView As View
myView = iDrawing.CreateDrawViewFromModelView3(Settings.folderPaths("object_" & Data.objectNum & "_models3D_gratings_sw_support") & "\simplified_grating.SLDPRT", myView = iDrawing.CreateDrawViewFromModelView3(Settings.folderPaths("models3D_gratings_sw_support") & "\simplified_grating.SLDPRT",
"*Front", swSheetWidth / 2, swSheetHeight / 2, 0) "*Front", swSheetWidth / 2, swSheetHeight / 2, 0)
myView.UseSheetScale() = True myView.UseSheetScale() = True
Dim viewScale1, viewScale2 As Double Dim viewScale1, viewScale2 As Double
@ -293,7 +293,7 @@ Public Class Individual_Drawing
Add_Dimensions(sortedMeasurments("Lmes"), CompName, myView, iDrawing, swExtensions, OutLine, scaleDecimal, X_Mid, Y_Mid, "Lmes") Add_Dimensions(sortedMeasurments("Lmes"), CompName, myView, iDrawing, swExtensions, OutLine, scaleDecimal, X_Mid, Y_Mid, "Lmes")
Add_Dimensions(sortedMeasurments("Wmes"), CompName, myView, iDrawing, swExtensions, OutLine, scaleDecimal, X_Mid, Y_Mid, "Wmes") Add_Dimensions(sortedMeasurments("Wmes"), CompName, myView, iDrawing, swExtensions, OutLine, scaleDecimal, X_Mid, Y_Mid, "Wmes")
Dim myView2 As View Dim myView2 As View
myView2 = iDrawing.CreateDrawViewFromModelView3(Settings.folderPaths("object_" & Data.objectNum & "_models3D_gratings_sw_support") & "\simplified_grating.SLDPRT", myView2 = iDrawing.CreateDrawViewFromModelView3(Settings.folderPaths("models3D_gratings_sw_support") & "\simplified_grating.SLDPRT",
"*Bottom", swSheetWidth / 2, OutLine(3) + sideCounter(0) * 0.01 + 0.03, 0) "*Bottom", swSheetWidth / 2, OutLine(3) + sideCounter(0) * 0.01 + 0.03, 0)
myView2.UseSheetScale() = True myView2.UseSheetScale() = True
@ -315,7 +315,7 @@ Public Class Individual_Drawing
Dim longstatus As Integer Dim longstatus As Integer
Dim newName As String Dim newName As String
newName = Settings.folderPaths("object_" & Data.objectNum & "_drawings_gratings_sw") & "\grating_drawing.SLDDRW" newName = Settings.folderPaths("drawings_gratings_sw") & "\grating_drawing.SLDDRW"
status = layMgr.AddLayer("Symbol", "", 0, 0, 2) status = layMgr.AddLayer("Symbol", "", 0, 0, 2)
status = layMgr.SetCurrentLayer("Symbol") status = layMgr.SetCurrentLayer("Symbol")
@ -339,7 +339,7 @@ Public Class Individual_Drawing
swSkMgr.AddToDB = False swSkMgr.AddToDB = False
longstatus = iDrawing.SaveAs3(newName, 0, 0) longstatus = iDrawing.SaveAs3(newName, 0, 0)
longstatus = iDrawing.SaveAs3(Settings.folderPaths("object_" & Data.objectNum & "_drawings_gratings_pdf") & "\grating_drawing.pdf", 0, 2) longstatus = iDrawing.SaveAs3(Settings.folderPaths("drawings_gratings_pdf") & "\grating_drawing.pdf", 0, 2)
End Sub End Sub
Private Shared Sub Add_Dimensions(points() As Integer, CompName As String, myView As View, iDrawing As DrawingDoc, swExtensions As SldWorks.ModelDocExtension _ Private Shared Sub Add_Dimensions(points() As Integer, CompName As String, myView As View, iDrawing As DrawingDoc, swExtensions As SldWorks.ModelDocExtension _

14
Wardrobe/SolidWorks/Instructions.vb
View File

@ -28,15 +28,15 @@ Public Class Instructions
Dim drawName As String Dim drawName As String
If AppForm.fillMode = True Then If AppForm.fillMode = True Then
If withFrame = True Then If withFrame = True Then
drawName = Settings.folderPaths("object_" & Data.objectNum & "_models3D_gratings_sw_support") & "\GRATINGS_ASSEMBLY_SIMPLIFIED_WITH_FRAME.SLDASM" drawName = Settings.folderPaths("models3D_gratings_sw_support") & "\GRATINGS_ASSEMBLY_SIMPLIFIED_WITH_FRAME.SLDASM"
Else Else
drawName = Settings.folderPaths("object_" & Data.objectNum & "_models3D_gratings_sw_support") & "\GRATINGS_ASSEMBLY_SIMPLIFIED.SLDASM" drawName = Settings.folderPaths("models3D_gratings_sw_support") & "\GRATINGS_ASSEMBLY_SIMPLIFIED.SLDASM"
End If End If
Else Else
If withFrame = True Then If withFrame = True Then
drawName = Settings.folderPaths("object_" & Data.objectNum & "_models3D_gratings_sw_support") & "\GRATING_ASSEMBLY_SIMPLIFIED_WITH_FRAME.SLDASM" drawName = Settings.folderPaths("models3D_gratings_sw_support") & "\GRATING_ASSEMBLY_SIMPLIFIED_WITH_FRAME.SLDASM"
Else Else
drawName = Settings.folderPaths("object_" & Data.objectNum & "_models3D_gratings_sw_support") & "\GRATING_ASSEMBLY_SIMPLIFIED.SLDASM" drawName = Settings.folderPaths("models3D_gratings_sw_support") & "\GRATING_ASSEMBLY_SIMPLIFIED.SLDASM"
End If End If
End If End If
@ -275,7 +275,7 @@ Public Class Instructions
swSheetWidth, swSheetHeight, "Same as sheet specified in Document Properties") swSheetWidth, swSheetHeight, "Same as sheet specified in Document Properties")
status = layMgr.SetCurrentLayer("Svenska") status = layMgr.SetCurrentLayer("Svenska")
drawName = Settings.folderPaths("object_" & Data.objectNum & "_models3D_gratings_sw_support") & "\GRATINGS_ASSEMBLY_SIMPLIFIED.SLDASM" drawName = Settings.folderPaths("models3D_gratings_sw_support") & "\GRATINGS_ASSEMBLY_SIMPLIFIED.SLDASM"
myView = iDrawing.CreateDrawViewFromModelView3(drawName, "*Front", swSheetWidth / 2, adjustedHeightPosInSheet, 0) myView = iDrawing.CreateDrawViewFromModelView3(drawName, "*Front", swSheetWidth / 2, adjustedHeightPosInSheet, 0)
myView.UseSheetScale() = True myView.UseSheetScale() = True
@ -413,10 +413,10 @@ Public Class Instructions
End If End If
Dim newName As String Dim newName As String
newName = Settings.folderPaths("object_" & Data.objectNum & "_guide") & "\assembly_instructions.SLDDRW" newName = Settings.folderPaths("guide") & "\assembly_instructions.SLDDRW"
status = iDrawing.SaveAs3(newName, 0, 0) status = iDrawing.SaveAs3(newName, 0, 0)
status = iDrawing.SaveAs3(newName, 0, 2) status = iDrawing.SaveAs3(Settings.folderPaths("guide") & "\assembly_instructions.PDF", 0, 2)
End Sub End Sub
Private Shared Sub Set_MeasurementProperties(measurement As IDisplayDimension) Private Shared Sub Set_MeasurementProperties(measurement As IDisplayDimension)

12
Wardrobe/SolidWorks/Multiple_3D.vb
View File

@ -106,6 +106,8 @@ Public Class Multiple_3D
Dim Errors As Integer Dim Errors As Integer
Dim Warnings As Integer Dim Warnings As Integer
status = Assembly.EditRebuild3()
Dim components = Assembly.GetComponents(True) Dim components = Assembly.GetComponents(True)
For i = 0 To UBound(components) For i = 0 To UBound(components)
Dim partDoc = components(i).GetModelDoc2() Dim partDoc = components(i).GetModelDoc2()
@ -118,7 +120,7 @@ Public Class Multiple_3D
'To STEP 'To STEP
If User_Input.add3DStep = True Then If User_Input.add3DStep = True Then
status = Assembly.SaveAs3(Settings.folderPaths("object_" & Data.objectNum & "_models3D_gratings_stp") & "\GRATINGS_ASSEMBLY.STEP", 0, 2) status = Assembly.SaveAs3(Settings.folderPaths("models3D_gratings_stp") & "\GRATINGS_ASSEMBLY.STEP", 0, 2)
End If End If
Dim sourcePath, destPath As String Dim sourcePath, destPath As String
@ -126,10 +128,10 @@ Public Class Multiple_3D
Dim childrenDestPaths As New List(Of String) Dim childrenDestPaths As New List(Of String)
sourcePath = Settings.filesFolder & "\Files\CADStart\" & designName & ".SLDASM" sourcePath = Settings.filesFolder & "\Files\CADStart\" & designName & ".SLDASM"
destPath = Settings.folderPaths("object_" & Data.objectNum & "_models3D_gratings_sw") & "\GRATINGS_ASSEMBLY.SLDASM" destPath = Settings.folderPaths("models3D_gratings_sw") & "\GRATINGS_ASSEMBLY.SLDASM"
childrenSourcePaths.Add(Settings.HLCtFolder & "\HLCt\Parts\START.SLDPRT") childrenSourcePaths.Add(Settings.HLCtFolder & "\HLCt\Parts\START.SLDPRT")
childrenDestPaths.Add(Settings.folderPaths("object_" & Data.objectNum & "_models3D_gratings_sw_support") & "\MASTER.SLDPRT") childrenDestPaths.Add(Settings.folderPaths("models3D_gratings_sw_support") & "\MASTER.SLDPRT")
Dim instanceCounter As New Dictionary(Of String, Integer) Dim instanceCounter As New Dictionary(Of String, Integer)
For i = 0 To partDT.Rows.Count - 1 For i = 0 To partDT.Rows.Count - 1
@ -150,10 +152,10 @@ Public Class Multiple_3D
End Try End Try
If partNameArray(0) = "FRAME" Then If partNameArray(0) = "FRAME" Then
childrenDestPaths.Add(Settings.folderPaths("object_" & Data.objectNum & "_models3D_frames_sw") & "\" & newName & childrenDestPaths.Add(Settings.folderPaths("models3D_frames_sw") & "\" & newName &
instanceCounter(newName.Substring(0, newName.Length - 1)) & ".SLDPRT") instanceCounter(newName.Substring(0, newName.Length - 1)) & ".SLDPRT")
Else Else
childrenDestPaths.Add(Settings.folderPaths("object_" & Data.objectNum & "_models3D_gratings_sw") & "\" & newName & childrenDestPaths.Add(Settings.folderPaths("models3D_gratings_sw") & "\" & newName &
instanceCounter(newName.Substring(0, newName.Length - 1)) & ".SLDPRT") instanceCounter(newName.Substring(0, newName.Length - 1)) & ".SLDPRT")
End If End If
Next Next

12
Wardrobe/SolidWorks/Multiple_3D_Simplified.vb
View File

@ -168,6 +168,8 @@ Public Class Multiple_3D_Simplified
Dim Errors As Integer Dim Errors As Integer
Dim Warnings As Integer Dim Warnings As Integer
status = assembly.EditRebuild3()
Dim components = assembly.GetComponents(True) Dim components = assembly.GetComponents(True)
For i = 0 To UBound(components) For i = 0 To UBound(components)
Dim partDoc = components(i).GetModelDoc2() Dim partDoc = components(i).GetModelDoc2()
@ -190,8 +192,8 @@ Public Class Multiple_3D_Simplified
frameStr = "_WITH_FRAME" frameStr = "_WITH_FRAME"
End If End If
destPath = Settings.folderPaths("object_" & Data.objectNum & "_models3D_gratings_sw_support") & "\GRATINGS_ASSEMBLY_SIMPLIFIED" & frameStr & ".SLDASM" destPath = Settings.folderPaths("models3D_gratings_sw_support") & "\GRATINGS_ASSEMBLY_SIMPLIFIED" & frameStr & ".SLDASM"
childrenDestPaths.Add(Settings.folderPaths("object_" & Data.objectNum & "_models3D_gratings_sw_support") & "\MASTER_SIMPLIFIED" & frameStr & ".SLDPRT") childrenDestPaths.Add(Settings.folderPaths("models3D_gratings_sw_support") & "\MASTER_SIMPLIFIED" & frameStr & ".SLDPRT")
Dim instanceCounter As New Dictionary(Of String, Integer) Dim instanceCounter As New Dictionary(Of String, Integer)
For i = 0 To partDT.Rows.Count - 1 For i = 0 To partDT.Rows.Count - 1
@ -212,10 +214,10 @@ Public Class Multiple_3D_Simplified
End Try End Try
If partNameArray(0) = "FRAME" Then If partNameArray(0) = "FRAME" Then
childrenDestPaths.Add(Settings.folderPaths("object_" & Data.objectNum & "_models3D_frames_sw") & "\" & newName & frameStr & childrenDestPaths.Add(Settings.folderPaths("models3D_frames_sw") & "\" & newName & frameStr &
instanceCounter(newName.Substring(0, newName.Length - 1)) & ".SLDPRT") instanceCounter(newName.Substring(0, newName.Length - 1)) & "_S" & ".SLDPRT")
Else Else
childrenDestPaths.Add(Settings.folderPaths("object_" & Data.objectNum & "_models3D_gratings_sw_support") & "\" & newName & frameStr & childrenDestPaths.Add(Settings.folderPaths("models3D_gratings_sw_support") & "\" & newName & frameStr &
instanceCounter(newName.Substring(0, newName.Length - 1)) & ".SLDPRT") instanceCounter(newName.Substring(0, newName.Length - 1)) & ".SLDPRT")
End If End If
Next Next

46
Wardrobe/SolidWorks/Multiple_Drawing.vb
View File

@ -28,7 +28,7 @@ Public Class Multiple_Drawing
Dim adjustedHeightPosInSheet As Double = swSheetHeight / 2 + 0.02 Dim adjustedHeightPosInSheet As Double = swSheetHeight / 2 + 0.02
Dim myView As View Dim myView As View
myView = iDrawing.CreateDrawViewFromModelView3(Settings.folderPaths("object_" & Data.objectNum & "_models3D_gratings_sw_support") & "\GRATINGS_ASSEMBLY_SIMPLIFIED.SLDASM", myView = iDrawing.CreateDrawViewFromModelView3(Settings.folderPaths("models3D_gratings_sw_support") & "\GRATINGS_ASSEMBLY_SIMPLIFIED.SLDASM",
"*Front", swSheetWidth / 2, adjustedHeightPosInSheet, 0) "*Front", swSheetWidth / 2, adjustedHeightPosInSheet, 0)
myView.UseSheetScale() = True myView.UseSheetScale() = True
myView.SetDisplayTangentEdges2(2) myView.SetDisplayTangentEdges2(2)
@ -52,10 +52,26 @@ Public Class Multiple_Drawing
mesOffsets(3) = OutLine(0) - 0.005 mesOffsets(3) = OutLine(0) - 0.005
' -- Recess measurements -- ' -- Recess measurements --
Dim instanceCounter As New Dictionary(Of String, Integer)
Dim recessDT = modelsDT.Select("parentName = '" & modelsDT.Rows(Calculate_Fill_Grid.numOfHorizontal * (Calculate_Fill_Grid.numOfVertical - 1))("partName") & "'") Dim recessDT = modelsDT.Select("parentName = '" & modelsDT.Rows(Calculate_Fill_Grid.numOfHorizontal * (Calculate_Fill_Grid.numOfVertical - 1))("partName") & "'")
For i = 0 To Data.recessData.Rows.Count - 1 For i = 0 To Data.recessData.Rows.Count - 1
Dim DR As DataRow = Data.recessData.Rows(i) Dim DR As DataRow = Data.recessData.Rows(i)
Dim recessName As String = recessDT(i)("partName")
Dim tempName As String = recessDT(i)("partName")
Dim recessNameArray As String() = tempName.Split("_")
Dim recessNameTemp As String = ""
For j = 0 To recessNameArray.Length - 4
recessNameTemp += recessNameArray(j) & "_"
Next
Try
instanceCounter(recessNameTemp.Substring(0, recessNameTemp.Length - 1)) += 1
Catch ex As Exception
instanceCounter.Add(recessNameTemp.Substring(0, recessNameTemp.Length - 1), 1)
End Try
Dim recessName As String = recessNameTemp & instanceCounter(recessNameTemp.Substring(0, recessNameTemp.Length - 1))
If DR("RECESS TYPE") = "ANGLE" Then If DR("RECESS TYPE") = "ANGLE" Then
If DR("CORNER") = 1 Then If DR("CORNER") = 1 Then
@ -230,12 +246,30 @@ Public Class Multiple_Drawing
Create_Measurement("Point1@SB", False, mesOffsets(2), CompName, myView, recessName, swExtensions, iDrawing) Create_Measurement("Point1@SB", False, mesOffsets(2), CompName, myView, recessName, swExtensions, iDrawing)
status = False status = False
counter = 0 counter = 0
While status = False While status = False
gratingName = modelsDT.Rows(Calculate_Fill_Grid.numOfHorizontal * Calculate_Fill_Grid.numOfVertical - 1 - counter)("partName") gratingName = modelsDT.Rows(Calculate_Fill_Grid.numOfHorizontal * Calculate_Fill_Grid.numOfVertical - 1 - counter)("partName")
' Forstsätt här: Måste hantera namnen på grating med rätt ändelse
'Dim tempName As String = recessDT(i)("partName")
'Dim recessNameArray As String() = tempName.Split("_")
'Dim recessNameTemp As String = ""
'For j = 0 To recessNameArray.Length - 4
' recessNameTemp += recessNameArray(j) & "_"
'Next
'Try
' instanceCounter(recessNameTemp.Substring(0, recessNameTemp.Length - 1)) += 1
'Catch ex As Exception
' instanceCounter.Add(recessNameTemp.Substring(0, recessNameTemp.Length - 1), 1)
'End Try
'Dim recessName As String = recessNameTemp & instanceCounter(recessNameTemp.Substring(0, recessNameTemp.Length - 1))
iDrawing.ClearSelection2(True) iDrawing.ClearSelection2(True)
plane2Name = "Point1@SW2@" & CompName & "@" & myView.GetName2 & "/" & gratingName & "-1@" & CompName.Split("-")(0) plane2Name = "Point1@SW2@" & CompName & "@" & myView.GetName2 & "/" & gratingName & "-1@" & CompName.Split("-")(0)
@ -431,10 +465,10 @@ Public Class Multiple_Drawing
Next Next
Dim newName As String Dim newName As String
newName = Settings.folderPaths("object_" & Data.objectNum & "_drawings_gratings_sw") & "\grating_drawing.SLDDRW" newName = Settings.folderPaths("drawings_gratings_sw") & "\grating_drawing.SLDDRW"
status = iDrawing.SaveAs3(newName, 0, 0) status = iDrawing.SaveAs3(newName, 0, 0)
status = iDrawing.SaveAs3(Settings.folderPaths("object_" & Data.objectNum & "_drawings_gratings_pdf") & "\grating_drawing.pdf", 0, 2) status = iDrawing.SaveAs3(Settings.folderPaths("drawings_gratings_pdf") & "\grating_drawing.pdf", 0, 2)
End Sub End Sub