diff --git a/Wardrobe/GUI.vb b/Wardrobe/GUI.vb index db3eced..c3bdd69 100644 --- a/Wardrobe/GUI.vb +++ b/Wardrobe/GUI.vb @@ -2,8 +2,8 @@ Imports Excel = Microsoft.Office.Interop.Excel Public Class GUI - 'Public Shared filepath As String = "C:\Users\Anton\Documents\Exjobb" - Public Shared filepath As String = "C:\Users\xperd\Documents" + Public Shared filepath As String = "C:\Users\Anton\Documents\Exjobb" + 'Public Shared filepath As String = "C:\Users\xperd\Documents" Dim excelApp As Excel.Application = New Excel.Application Dim excelWB As Excel.Workbook @@ -205,8 +205,8 @@ Public Class GUI ' ---------------------------------- Export to SW ---------------------------------- ' --- When export to SW button is pressed --- Private Sub ExportSWButton_Click(sender As Object, e As EventArgs) Handles ExportSWButton.Click - 'SW_HLCt_Gratings.BuildGrating() - SW_Drawing_Gratings.CreateDrawing() + SW_HLCt_Gratings.BuildGrating() + 'SW_Drawing_Gratings.CreateDrawing() End Sub diff --git a/Wardrobe/GUI_Functions.vb b/Wardrobe/GUI_Functions.vb index f560731..a01a6a9 100644 --- a/Wardrobe/GUI_Functions.vb +++ b/Wardrobe/GUI_Functions.vb @@ -167,12 +167,13 @@ GUI_Drawing_Panel.pCon1(1) + sideSquareValues(2) / (GUI_Drawing_Panel.scaleDiff), "Button_" & i) ElseIf i = 3 Then Create_SideButton(sideSquareValues(0) / (GUI_Drawing_Panel.scaleDiff), 30, - GUI_Drawing_Panel.pCon1(0) + sideSquareValues(2) / (GUI_Drawing_Panel.scaleDiff), + GUI_Drawing_Panel.pCon3(0) - sideSquareValues(2) / (GUI_Drawing_Panel.scaleDiff) - sideSquareValues(0) / (GUI_Drawing_Panel.scaleDiff), GUI_Drawing_Panel.pCon3(1) - 30 / 2, "Button_" & i) Else Create_SideButton(30, sideSquareValues(1) / (GUI_Drawing_Panel.scaleDiff), GUI_Drawing_Panel.pCon1(0) - 30 / 2, - GUI_Drawing_Panel.pCon1(1) + sideSquareValues(2) / (GUI_Drawing_Panel.scaleDiff), "Button_" & i) + GUI_Drawing_Panel.pCon4(1) - sideSquareValues(2) / (GUI_Drawing_Panel.scaleDiff) - sideSquareValues(1) / (GUI_Drawing_Panel.scaleDiff), + "Button_" & i) End If Next @@ -183,12 +184,18 @@ 'flytta knapparna/ändra storlek For i = 2 To GUI.DrawingPanel.Controls.Count - 1 Dim buttonSide As Integer = CInt(GUI.DrawingPanel.Controls(i).Name.Split("_")(1)) - If buttonSide = 1 OrElse buttonSide = 3 Then + If buttonSide = 1 Then GUI.DrawingPanel.Controls(i).Width = sideSquareValues(0) / (GUI_Drawing_Panel.scaleDiff) GUI.DrawingPanel.Controls(i).Left = GUI_Drawing_Panel.pCon1(0) + sideSquareValues(2) / (GUI_Drawing_Panel.scaleDiff) - Else + ElseIf buttonSide = 2 Then GUI.DrawingPanel.Controls(i).Height = sideSquareValues(1) / (GUI_Drawing_Panel.scaleDiff) GUI.DrawingPanel.Controls(i).Top = GUI_Drawing_Panel.pCon1(1) + sideSquareValues(2) / (GUI_Drawing_Panel.scaleDiff) + ElseIf buttonSide = 3 Then + GUI.DrawingPanel.Controls(i).Width = sideSquareValues(0) / (GUI_Drawing_Panel.scaleDiff) + GUI.DrawingPanel.Controls(i).Left = GUI_Drawing_Panel.pCon3(0) - sideSquareValues(2) / (GUI_Drawing_Panel.scaleDiff) - GUI.DrawingPanel.Controls(i).Width + Else + GUI.DrawingPanel.Controls(i).Height = sideSquareValues(1) / (GUI_Drawing_Panel.scaleDiff) + GUI.DrawingPanel.Controls(i).Top = GUI_Drawing_Panel.pCon4(1) - sideSquareValues(2) / (GUI_Drawing_Panel.scaleDiff) - GUI.DrawingPanel.Controls(i).Height End If Next @@ -251,7 +258,6 @@ sidePoints.Add(GUI_Drawing_Panel.pointsOrder(j)) End If Next - index = GUI_Drawing_Panel.pointsOrder.IndexOf(sidePoints(0)) If sidePoints.Count > 2 Then For i = sidePoints.Count / 2 To 2 Step -1 @@ -270,7 +276,6 @@ sidePoints.Add(GUI_Drawing_Panel.pointsOrder(j)) End If Next - index = GUI_Drawing_Panel.pointsOrder.IndexOf(sidePoints(0)) If sidePoints.Count > 2 Then For i = sidePoints.Count / 2 To 2 Step -1 @@ -289,14 +294,13 @@ sidePoints.Add(GUI_Drawing_Panel.pointsOrder(j)) End If Next - - index = GUI_Drawing_Panel.pointsOrder.IndexOf(sidePoints(sidePoints.Count - 2)) + index = GUI_Drawing_Panel.pointsOrder.IndexOf(sidePoints(0)) If sidePoints.Count > 2 Then - For i = 2 To sidePoints.Count / 2 - If GUI_Drawing_Panel.points(sidePoints(i * 2 - 3))(0) < - GUI_Drawing_Panel.pCon1(0) + sideSquareValues(2) / (GUI_Drawing_Panel.scaleDiff) Then + For i = sidePoints.Count / 2 To 2 Step -1 + If GUI_Drawing_Panel.points(sidePoints(i * 2 - 2))(0) > + GUI_Drawing_Panel.pCon3(0) - sideSquareValues(2) / (GUI_Drawing_Panel.scaleDiff) Then - index = GUI_Drawing_Panel.pointsOrder.IndexOf(sidePoints(i * 2 - 4)) + index = GUI_Drawing_Panel.pointsOrder.IndexOf(sidePoints(i * 2 - 2)) Exit For End If Next @@ -310,13 +314,13 @@ Next sidePoints.Add(GUI_Drawing_Panel.pointsOrder(0)) - index = GUI_Drawing_Panel.pointsOrder.IndexOf(sidePoints(sidePoints.Count - 2)) + index = GUI_Drawing_Panel.pointsOrder.IndexOf(sidePoints(0)) If sidePoints.Count > 2 Then - For i = 2 To sidePoints.Count / 2 - If GUI_Drawing_Panel.points(sidePoints(i * 2 - 3))(1) < - GUI_Drawing_Panel.pCon2(1) + sideSquareValues(2) / (GUI_Drawing_Panel.scaleDiff) Then + For i = sidePoints.Count / 2 To 2 Step -1 + If GUI_Drawing_Panel.points(sidePoints(i * 2 - 2))(1) > + GUI_Drawing_Panel.pCon4(1) - sideSquareValues(2) / (GUI_Drawing_Panel.scaleDiff) Then - index = GUI_Drawing_Panel.pointsOrder.IndexOf(sidePoints(i * 2 - 4)) + index = GUI_Drawing_Panel.pointsOrder.IndexOf(sidePoints(i * 2 - 2)) Exit For End If Next @@ -324,66 +328,44 @@ End If + For i = 2 To pointsMeasurements.Count - 1 Dim mesName As String = pointsMeasurements.Keys(i) - If mesName.Split("_")(0) = "SS1" AndAlso index + 2 = pointsMeasurements(mesName)(1) Then - If GUI_Drawing_Panel.measureLabels(mesName)(3) = 1 Then - GUI_Drawing_Panel.measureLabels(mesName)(0) = GUI_Drawing_Panel.points(GUI_Drawing_Panel.pointsOrder(index + 1))(2) * 1000 - + If mesName.Split("_")(0) = "SS1" Then + If index + 2 = pointsMeasurements(mesName)(1) Then + If GUI_Drawing_Panel.measureLabels(mesName)(3) = 1 Then + GUI_Drawing_Panel.measureLabels(mesName)(0) = GUI_Drawing_Panel.points(GUI_Drawing_Panel.pointsOrder(index + 1))(2) * 1000 - GUI_Drawing_Panel.pCon1(2) * 1000 - (sideSquareValues(2) + sideSquareValues(0)) - GUI_Drawing_Panel.sideSquareMesLine(mesName)(0) = GUI_Drawing_Panel.pCon1(0) + (sideSquareValues(2) + sideSquareValues(0)) / (GUI_Drawing_Panel.scaleDiff) + GUI_Drawing_Panel.sideSquareMesLine(mesName)(0) = GUI_Drawing_Panel.pCon1(0) + (sideSquareValues(2) + sideSquareValues(0)) / (GUI_Drawing_Panel.scaleDiff) - GUI_Drawing_Panel.measureLabels(mesName)(1) = (GUI_Drawing_Panel.sideSquareMesLine(mesName)(0) + GUI_Drawing_Panel.sideSquareMesLine(mesName)(2)) / 2 - 8 + GUI_Drawing_Panel.measureLabels(mesName)(1) = (GUI_Drawing_Panel.sideSquareMesLine(mesName)(0) + GUI_Drawing_Panel.sideSquareMesLine(mesName)(2)) / 2 - 8 - ElseIf GUI_Drawing_Panel.measureLabels(mesName)(3) = 2 Then - GUI_Drawing_Panel.measureLabels(mesName)(0) = GUI_Drawing_Panel.pCon2(3) * 1000 - GUI_Drawing_Panel.points(GUI_Drawing_Panel.pointsOrder(index + 1))(3) * 1000 - + ElseIf GUI_Drawing_Panel.measureLabels(mesName)(3) = 2 Then + GUI_Drawing_Panel.measureLabels(mesName)(0) = GUI_Drawing_Panel.pCon2(3) * 1000 - GUI_Drawing_Panel.points(GUI_Drawing_Panel.pointsOrder(index + 1))(3) * 1000 - (sideSquareValues(2) + sideSquareValues(1)) - GUI_Drawing_Panel.sideSquareMesLine(mesName)(1) = GUI_Drawing_Panel.pCon2(1) + (sideSquareValues(2) + sideSquareValues(1)) / (GUI_Drawing_Panel.scaleDiff) + GUI_Drawing_Panel.sideSquareMesLine(mesName)(1) = GUI_Drawing_Panel.pCon2(1) + (sideSquareValues(2) + sideSquareValues(1)) / (GUI_Drawing_Panel.scaleDiff) - GUI_Drawing_Panel.measureLabels(mesName)(2) = (GUI_Drawing_Panel.sideSquareMesLine(mesName)(1) + GUI_Drawing_Panel.sideSquareMesLine(mesName)(3)) / 2 - 6 - ElseIf GUI_Drawing_Panel.measureLabels(mesName)(3) = 3 Then - GUI_Drawing_Panel.measureLabels(mesName)(0) = GUI_Drawing_Panel.points(GUI_Drawing_Panel.pointsOrder(index))(2) * 1000 - - GUI_Drawing_Panel.pCon1(2) * 1000 - (sideSquareValues(2) + sideSquareValues(0)) + GUI_Drawing_Panel.measureLabels(mesName)(2) = (GUI_Drawing_Panel.sideSquareMesLine(mesName)(1) + GUI_Drawing_Panel.sideSquareMesLine(mesName)(3)) / 2 - 6 - GUI_Drawing_Panel.sideSquareMesLine(mesName)(0) = GUI_Drawing_Panel.pCon1(0) + (sideSquareValues(2) + sideSquareValues(0)) / (GUI_Drawing_Panel.scaleDiff) + ElseIf GUI_Drawing_Panel.measureLabels(mesName)(3) = 3 Then + GUI_Drawing_Panel.measureLabels(mesName)(0) = GUI_Drawing_Panel.pCon3(2) * 1000 - GUI_Drawing_Panel.points(GUI_Drawing_Panel.pointsOrder(index + 1))(2) * 1000 _ + - (sideSquareValues(2) + sideSquareValues(0)) - GUI_Drawing_Panel.measureLabels(mesName)(1) = (GUI_Drawing_Panel.sideSquareMesLine(mesName)(0) + GUI_Drawing_Panel.sideSquareMesLine(mesName)(2)) / 2 - 8 + GUI_Drawing_Panel.sideSquareMesLine(mesName)(0) = GUI_Drawing_Panel.pCon3(0) - (sideSquareValues(2) + sideSquareValues(0)) / (GUI_Drawing_Panel.scaleDiff) - Else - 'Fixa + GUI_Drawing_Panel.measureLabels(mesName)(1) = (GUI_Drawing_Panel.sideSquareMesLine(mesName)(0) + GUI_Drawing_Panel.sideSquareMesLine(mesName)(2)) / 2 - 8 - GUI_Drawing_Panel.measureLabels(mesName)(0) = GUI_Drawing_Panel.pCon2(3) * 1000 - GUI_Drawing_Panel.points(GUI_Drawing_Panel.pointsOrder(index + 1))(3) * 1000 - - (sideSquareValues(2) + sideSquareValues(1)) - - GUI_Drawing_Panel.sideSquareMesLine(mesName)(1) = GUI_Drawing_Panel.pCon2(1) + (sideSquareValues(2) + sideSquareValues(1)) / (GUI_Drawing_Panel.scaleDiff) - - GUI_Drawing_Panel.measureLabels(mesName)(2) = (GUI_Drawing_Panel.sideSquareMesLine(mesName)(1) + GUI_Drawing_Panel.sideSquareMesLine(mesName)(3)) / 2 - 6 - - - End If - - ElseIf mesName.Split("_")(0) = "SS1" AndAlso index + 1 = pointsMeasurements(mesName)(0) Then - If GUI_Drawing_Panel.measureLabels(mesName)(3) = 3 Then - GUI_Drawing_Panel.measureLabels(mesName)(0) = GUI_Drawing_Panel.points(GUI_Drawing_Panel.pointsOrder(index))(2) * 1000 - - GUI_Drawing_Panel.pCon1(2) * 1000 - (sideSquareValues(2) + sideSquareValues(0)) - - GUI_Drawing_Panel.sideSquareMesLine(mesName)(0) = GUI_Drawing_Panel.pCon1(0) + (sideSquareValues(2) + sideSquareValues(0)) / (GUI_Drawing_Panel.scaleDiff) - - GUI_Drawing_Panel.measureLabels(mesName)(1) = (GUI_Drawing_Panel.sideSquareMesLine(mesName)(0) + GUI_Drawing_Panel.sideSquareMesLine(mesName)(2)) / 2 - 8 - - Else - 'Fixa - - GUI_Drawing_Panel.measureLabels(mesName)(0) = GUI_Drawing_Panel.pCon2(3) * 1000 - GUI_Drawing_Panel.points(GUI_Drawing_Panel.pointsOrder(index + 1))(3) * 1000 - - (sideSquareValues(2) + sideSquareValues(1)) - - GUI_Drawing_Panel.sideSquareMesLine(mesName)(1) = GUI_Drawing_Panel.pCon2(1) + (sideSquareValues(2) + sideSquareValues(1)) / (GUI_Drawing_Panel.scaleDiff) - - GUI_Drawing_Panel.measureLabels(mesName)(2) = (GUI_Drawing_Panel.sideSquareMesLine(mesName)(1) + GUI_Drawing_Panel.sideSquareMesLine(mesName)(3)) / 2 - 6 + Else + GUI_Drawing_Panel.measureLabels(mesName)(0) = GUI_Drawing_Panel.points(GUI_Drawing_Panel.pointsOrder(index + 1))(3) * 1000 - + GUI_Drawing_Panel.pCon4(3) * 1000 - (sideSquareValues(2) + sideSquareValues(1)) + GUI_Drawing_Panel.sideSquareMesLine(mesName)(1) = GUI_Drawing_Panel.pCon4(1) - (sideSquareValues(2) + sideSquareValues(1)) / (GUI_Drawing_Panel.scaleDiff) + GUI_Drawing_Panel.measureLabels(mesName)(2) = (GUI_Drawing_Panel.sideSquareMesLine(mesName)(1) + GUI_Drawing_Panel.sideSquareMesLine(mesName)(3)) / 2 - 6 + End If End If End If Next @@ -507,75 +489,98 @@ ElseIf sidePressed = 3 Then GUI_Drawing_Panel.points.Add("pSS" & pointCounter * 4 - 3, - {GUI_Drawing_Panel.pCon1(0) + (sideSquareValues(2) + sideSquareValues(0)) / (GUI_Drawing_Panel.scaleDiff), + {GUI_Drawing_Panel.pCon3(0) - sideSquareValues(2) / (GUI_Drawing_Panel.scaleDiff), GUI_Drawing_Panel.pCon3(1), - GUI_Drawing_Panel.pCon1(2) + (sideSquareValues(2) + sideSquareValues(0)) / 1000, + GUI_Drawing_Panel.pCon3(2) - sideSquareValues(2) / 1000, GUI_Drawing_Panel.pCon3(3)}) GUI_Drawing_Panel.points.Add("pSS" & pointCounter * 4 - 2, - {GUI_Drawing_Panel.pCon1(0) + (sideSquareValues(2) + sideSquareValues(0)) / (GUI_Drawing_Panel.scaleDiff), + {GUI_Drawing_Panel.pCon3(0) - sideSquareValues(2) / (GUI_Drawing_Panel.scaleDiff), GUI_Drawing_Panel.pCon3(1) - sideSquareValues(1) / (GUI_Drawing_Panel.scaleDiff), - GUI_Drawing_Panel.pCon1(2) + (sideSquareValues(2) + sideSquareValues(0)) / 1000, + GUI_Drawing_Panel.pCon3(2) - sideSquareValues(2) / 1000, GUI_Drawing_Panel.pCon3(3) + sideSquareValues(1) / 1000}) GUI_Drawing_Panel.points.Add("pSS" & pointCounter * 4 - 1, - {GUI_Drawing_Panel.pCon1(0) + sideSquareValues(2) / (GUI_Drawing_Panel.scaleDiff), + {GUI_Drawing_Panel.pCon3(0) - (sideSquareValues(2) + sideSquareValues(0)) / (GUI_Drawing_Panel.scaleDiff), GUI_Drawing_Panel.pCon3(1) - sideSquareValues(1) / (GUI_Drawing_Panel.scaleDiff), - GUI_Drawing_Panel.pCon1(2) + sideSquareValues(2) / 1000, + GUI_Drawing_Panel.pCon3(2) - (sideSquareValues(2) + sideSquareValues(0)) / 1000, GUI_Drawing_Panel.pCon3(3) + sideSquareValues(1) / 1000}) GUI_Drawing_Panel.points.Add("pSS" & pointCounter * 4, - {GUI_Drawing_Panel.pCon1(0) + sideSquareValues(2) / (GUI_Drawing_Panel.scaleDiff), - GUI_Drawing_Panel.pCon3(1), - GUI_Drawing_Panel.pCon1(2) + sideSquareValues(2) / 1000, - GUI_Drawing_Panel.pCon3(3)}) + {GUI_Drawing_Panel.pCon3(0) - (sideSquareValues(2) + sideSquareValues(0)) / (GUI_Drawing_Panel.scaleDiff), + GUI_Drawing_Panel.pCon3(1), + GUI_Drawing_Panel.pCon3(2) - (sideSquareValues(2) + sideSquareValues(0)) / 1000, + GUI_Drawing_Panel.pCon3(3)}) - pointsMeasurements.Add("SS1_" & mesNum, {index + 5, GUI_Drawing_Panel.pointsOrder.IndexOf(sidePoints(sidePoints.Count - 1)) + 5, 3}) + pointsMeasurements.Add("SS1_" & mesNum, {GUI_Drawing_Panel.pointsOrder.IndexOf(sidePoints(0)) + 1, index + 2, 3}) pointsMeasurements.Add("SS_" & mesNum + 1, {index + 2, index + 5, 3}) pointsMeasurements.Add("SS_" & mesNum + 2, {index + 2, index + 3, 4}) 'Support Line for sidesquare measurement - GUI_Drawing_Panel.sideSquareMesLine.Add("SS1_" & mesNum, {GUI_Drawing_Panel.points(GUI_Drawing_Panel.pointsOrder(index + 1))(0), + GUI_Drawing_Panel.sideSquareMesLine.Add("SS1_" & mesNum, {GUI_Drawing_Panel.points(GUI_Drawing_Panel.pointsOrder(index))(0), GUI_Drawing_Panel.pCon3(1) + 15, - GUI_Drawing_Panel.pCon1(0) + sideSquareValues(2) / (GUI_Drawing_Panel.scaleDiff), + GUI_Drawing_Panel.pCon3(0) - sideSquareValues(2) / (GUI_Drawing_Panel.scaleDiff), GUI_Drawing_Panel.pCon3(1) + 15}) 'Label - GUI_Drawing_Panel.measureLabels.Add("SS1_" & mesNum, {CInt(GUI.Controls("Off_TextBox").Text) - (GUI_Drawing_Panel.points(GUI_Drawing_Panel.pointsOrder(index + 1))(2) * 1000 + GUI_Gratings_Data.gratingMaxL / 2), - (GUI_Drawing_Panel.points(GUI_Drawing_Panel.pointsOrder(index + 1))(0) + GUI_Drawing_Panel.pCon1(0) + sideSquareValues(2) / (GUI_Drawing_Panel.scaleDiff)) / 2 - 8, + GUI_Drawing_Panel.measureLabels.Add("SS1_" & mesNum, {CInt(GUI.Controls("Off_TextBox").Text) - (GUI_Gratings_Data.gratingMaxL / 2 - GUI_Drawing_Panel.points(GUI_Drawing_Panel.pointsOrder(index))(2) * 1000), + (GUI_Drawing_Panel.points(GUI_Drawing_Panel.pointsOrder(index))(0) + GUI_Drawing_Panel.pCon3(0) - sideSquareValues(2) / (GUI_Drawing_Panel.scaleDiff)) / 2 - 8, GUI_Drawing_Panel.pCon3(1) + 15 + 3, 3}) '15 är linjen, 12 är textens höjd, 3 är lite extra GUI_Drawing_Panel.measureLabels.Add("SS_" & mesNum + 1, {CInt(GUI.Controls("X_TextBox").Text), - GUI_Drawing_Panel.pCon1(0) + sideSquareValues(2) / (GUI_Drawing_Panel.scaleDiff) + CInt(GUI.Controls("X_TextBox").Text) / (2 * GUI_Drawing_Panel.scaleDiff) - 8, + GUI_Drawing_Panel.pCon3(0) - sideSquareValues(2) / (GUI_Drawing_Panel.scaleDiff) - CInt(GUI.Controls("X_TextBox").Text) / (2 * GUI_Drawing_Panel.scaleDiff) - 8, GUI_Drawing_Panel.pCon3(1) - sideSquareValues(1) / (GUI_Drawing_Panel.scaleDiff) - 12 - 3, 3}) GUI_Drawing_Panel.measureLabels.Add("SS_" & mesNum + 2, {CInt(GUI.Controls("Y_TextBox").Text), - GUI_Drawing_Panel.pCon1(0) + sideSquareValues(2) / (GUI_Drawing_Panel.scaleDiff) - 18 - 3, + GUI_Drawing_Panel.pCon3(0) - sideSquareValues(2) / (GUI_Drawing_Panel.scaleDiff) + 3, GUI_Drawing_Panel.pCon3(1) - CInt(GUI.Controls("Y_TextBox").Text) / (2 * GUI_Drawing_Panel.scaleDiff) - 4, 3}) Else GUI_Drawing_Panel.points.Add("pSS" & pointCounter * 4 - 3, - {GUI_Drawing_Panel.pCon1(0), - GUI_Drawing_Panel.pCon2(1) + (sideSquareValues(2) + sideSquareValues(1)) / (GUI_Drawing_Panel.scaleDiff), - GUI_Drawing_Panel.pCon1(2), - GUI_Drawing_Panel.pCon2(3) - (sideSquareValues(2) + sideSquareValues(1)) / 1000}) + {GUI_Drawing_Panel.pCon4(0), + GUI_Drawing_Panel.pCon4(1) - sideSquareValues(2) / (GUI_Drawing_Panel.scaleDiff), + GUI_Drawing_Panel.pCon4(2), + GUI_Drawing_Panel.pCon4(3) + sideSquareValues(2) / 1000}) GUI_Drawing_Panel.points.Add("pSS" & pointCounter * 4 - 2, - {GUI_Drawing_Panel.pCon1(0) + sideSquareValues(0) / (GUI_Drawing_Panel.scaleDiff), - GUI_Drawing_Panel.pCon2(1) + (sideSquareValues(2) + sideSquareValues(1)) / (GUI_Drawing_Panel.scaleDiff), - GUI_Drawing_Panel.pCon1(2) + sideSquareValues(0) / 1000, - GUI_Drawing_Panel.pCon2(3) - (sideSquareValues(2) + sideSquareValues(1)) / 1000}) + {GUI_Drawing_Panel.pCon4(0) + sideSquareValues(0) / (GUI_Drawing_Panel.scaleDiff), + GUI_Drawing_Panel.pCon4(1) - sideSquareValues(2) / (GUI_Drawing_Panel.scaleDiff), + GUI_Drawing_Panel.pCon4(2) + sideSquareValues(0) / 1000, + GUI_Drawing_Panel.pCon4(3) + sideSquareValues(2) / 1000}) GUI_Drawing_Panel.points.Add("pSS" & pointCounter * 4 - 1, - {GUI_Drawing_Panel.pCon1(0) + sideSquareValues(0) / (GUI_Drawing_Panel.scaleDiff), - GUI_Drawing_Panel.pCon2(1) + sideSquareValues(2) / (GUI_Drawing_Panel.scaleDiff), - GUI_Drawing_Panel.pCon1(2) + sideSquareValues(0) / 1000, - GUI_Drawing_Panel.pCon2(3) - sideSquareValues(2) / 1000}) + {GUI_Drawing_Panel.pCon4(0) + sideSquareValues(0) / (GUI_Drawing_Panel.scaleDiff), + GUI_Drawing_Panel.pCon4(1) - (sideSquareValues(2) + sideSquareValues(1)) / (GUI_Drawing_Panel.scaleDiff), + GUI_Drawing_Panel.pCon4(2) + sideSquareValues(0) / 1000, + GUI_Drawing_Panel.pCon4(3) + (sideSquareValues(2) + sideSquareValues(1)) / 1000}) GUI_Drawing_Panel.points.Add("pSS" & pointCounter * 4, - {GUI_Drawing_Panel.pCon1(0), - GUI_Drawing_Panel.pCon2(1) + sideSquareValues(2) / (GUI_Drawing_Panel.scaleDiff), - GUI_Drawing_Panel.pCon1(2), - GUI_Drawing_Panel.pCon2(3) - sideSquareValues(2) / 1000}) + {GUI_Drawing_Panel.pCon4(0), + GUI_Drawing_Panel.pCon4(1) - (sideSquareValues(2) + sideSquareValues(1)) / (GUI_Drawing_Panel.scaleDiff), + GUI_Drawing_Panel.pCon4(2), + GUI_Drawing_Panel.pCon4(3) + (sideSquareValues(2) + sideSquareValues(1)) / 1000}) pointsMeasurements.Add("SS1_" & mesNum, {GUI_Drawing_Panel.pointsOrder.IndexOf(sidePoints(0)) + 1, index + 2, 4}) pointsMeasurements.Add("SS_" & mesNum + 1, {index + 2, index + 5, 4}) pointsMeasurements.Add("SS_" & mesNum + 2, {index + 2, index + 3, 3}) + + 'Support Line for sidesquare measurement + GUI_Drawing_Panel.sideSquareMesLine.Add("SS1_" & mesNum, {GUI_Drawing_Panel.pCon4(0) - 15, + GUI_Drawing_Panel.points(GUI_Drawing_Panel.pointsOrder(index))(1), + GUI_Drawing_Panel.pCon4(0) - 15, + GUI_Drawing_Panel.pCon4(1) - sideSquareValues(2) / (GUI_Drawing_Panel.scaleDiff)}) + + 'Label + GUI_Drawing_Panel.measureLabels.Add("SS1_" & mesNum, {CInt(GUI.Controls("Off_TextBox").Text) - (GUI_Gratings_Data.gratingMaxW / 2 + GUI_Drawing_Panel.points(GUI_Drawing_Panel.pointsOrder(index))(3) * 1000), + GUI_Drawing_Panel.pCon4(0) - 15 - 18 - 3, + (GUI_Drawing_Panel.points(GUI_Drawing_Panel.pointsOrder(index))(1) + GUI_Drawing_Panel.pCon4(1) - sideSquareValues(2) / (GUI_Drawing_Panel.scaleDiff)) / 2 - 4, + 4}) + + GUI_Drawing_Panel.measureLabels.Add("SS_" & mesNum + 1, {CInt(GUI.Controls("Y_TextBox").Text), + GUI_Drawing_Panel.pCon4(0) + sideSquareValues(0) / (GUI_Drawing_Panel.scaleDiff) + 3, + GUI_Drawing_Panel.pCon4(1) - (sideSquareValues(2) + sideSquareValues(1) / 2) / GUI_Drawing_Panel.scaleDiff - 4, + 4}) + + GUI_Drawing_Panel.measureLabels.Add("SS_" & mesNum + 2, {CInt(GUI.Controls("X_TextBox").Text), + GUI_Drawing_Panel.pCon4(0) + sideSquareValues(0) / (2 * GUI_Drawing_Panel.scaleDiff) - 8, + GUI_Drawing_Panel.pCon4(1) - sideSquareValues(2) / (GUI_Drawing_Panel.scaleDiff) + 3, + 4}) + End If pointsFunc.Add("pSS" & pointCounter * 4 - 3, False)