diff --git a/DrawImport/ImportPageUC.xaml b/DrawImport/ImportPageUC.xaml
index f5394fc..18760af 100644
--- a/DrawImport/ImportPageUC.xaml
+++ b/DrawImport/ImportPageUC.xaml
@@ -57,7 +57,7 @@
-
diff --git a/Machine/Alarms2PageUC.xaml b/Machine/Alarms2PageUC.xaml
index 3d9e238..bacd6ba 100644
--- a/Machine/Alarms2PageUC.xaml
+++ b/Machine/Alarms2PageUC.xaml
@@ -16,7 +16,7 @@
-
+
@@ -27,7 +27,9 @@
-
+
+
+
@@ -36,23 +38,182 @@
+
+
+
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/Machine/Alarms2PageUC.xaml.vb b/Machine/Alarms2PageUC.xaml.vb
index 88b938c..15db7a6 100644
--- a/Machine/Alarms2PageUC.xaml.vb
+++ b/Machine/Alarms2PageUC.xaml.vb
@@ -1,30 +1,278 @@
Imports EgtUILib
+Imports EgtWPFLib5
Public Class Alarms2PageUC
+ ' Riferimento alla MainWindow
Private m_MainWindow As MainWindow = DirectCast(Application.Current.MainWindow, MainWindow)
+ Private m_CurrentMachine As CurrentMachine
+
+ ' Properties
+ Private m_bFirst As Boolean = True
Private Sub Alarms2Page_Initialized(sender As Object, e As EventArgs) Handles Me.Initialized
- FinalSawCutGpBx.Header = EgtMsg(91254) ' Taglio Finale
- EnableFinalSawCutTxBl.Text = EgtMsg(91255) ' Abilita
- FinalDepthTxBl.Text = EgtMsg(91256) ' Ultimo Spessore
+ ' Variabile che accorcia il riferimento alla macchina corrente
+ m_CurrentMachine = m_MainWindow.m_CurrentMachine
+
+ SawGpBx.Header = EgtMsg(90925) ' Parametri lama
+ HolesGpBx.Header = EgtMsg(90917) ' Parametri fori
+ MillingsParamGpBx.Header = EgtMsg(90929) ' Parametri fresature
+ WjsParamGpBx.Header = EgtMsg(91058) ' Parametri waterjet
+ WjsParamGpBx.Header = EgtMsg(91058) ' Parametri waterjet
+ RectificationWJParamGpBx.Header = EgtMsg(91047) ' Rettifica
+
+ HolesOffsetTxBl.Text = EgtMsg(90909) ' Offset fori
+ HolesOverlapTxBl.Text = EgtMsg(90910) ' Sovrapp. fori
+ HolesToleranceTxBl.Text = EgtMsg(90911) ' Tolleranza fori
+ OneHoleInCornerTxBl.Text = EgtMsg(90926) ' Un solo foro in angolo
+ CutExtraLenTxBl.Text = EgtMsg(90906) ' Sicurezza tagli
+ AngleCutExtraLenTxBl.Text = EgtMsg(90907) ' Sicur. angoli
+ ExtArcMinRadTxBl.Text = EgtMsg(90918) ' Rmin archi est.
+ IntArcMaxSideAngTxBl.Text = EgtMsg(90924) ' Amax archi int.
+ PreCutExitTxBl.Text = EgtMsg(91065) ' PreTaglio uscite
+ CornerCutsTxBl.Text = EgtMsg(90944) ' Sempre sugli angoli
+ InternalCutsTxBl.Text = EgtMsg(90930) ' Sempre sugli interni
+ ShortTxBl.Text = EgtMsg(90949) ' Accorciamento
+ '-- INIZIO -- nuovi parametro Rettifica tagli sottosquadra WJ
+ EnableRectificationTxBl.Text = EgtMsg(91048) ' Abilita (sottosquadra)
+ '-- INIZIO -- nuovi parametri per preforo lavello
+ WjIntCutsTxBl.Text = EgtMsg(90930) ' Sempre sugli interni
+ HolesDiameterWJTxBl.Text = EgtMsg(91044) ' Diametro
+ HolesOffsetWJTxBl.Text = EgtMsg(91045) ' Offset
+ MinRadiusWJTxBl.Text = EgtMsg(91046) ' Raggio Minimo
+ OneHoleInCornerWJTxBl.Text = EgtMsg(90926) ' Un solo foro in angolo
+
End Sub
Private Sub Allarm2Page_Loaded() Handles Me.Loaded
- EnableFinalSawCutChBx.IsChecked = m_MainWindow.m_CurrentMachine.bEnableFinalSawCut
- FinalDepthTxBx.Text = m_MainWindow.m_CurrentMachine.dFinalDepth
+ If m_bFirst Then
+ ' in assenza dell'uscita H1 nascondo i parametri lama
+ If EgtGetHeadId("H1") = GDB_ID.NULL Then
+ SawGpBx.Visibility = Visibility.Hidden
+ End If
+
+ ' Verifico la configurazione della macchina per creare i combobox
+ Select Case m_CurrentMachine.MountedToolConfig
+ Case CurrentMachine.MountedToolConfigs.SAW
+ ' Disattivo il gruppo dei parametri fori
+ HolesGpBx.Visibility = Windows.Visibility.Hidden
+ Case CurrentMachine.MountedToolConfigs.SAWANDAUXTOOL
+ 'Non faccio alcunchè
+ Case CurrentMachine.MountedToolConfigs.MANUALTOOLCHANGER, CurrentMachine.MountedToolConfigs.TOOLCHANGER, CurrentMachine.MountedToolConfigs.TOOLCHANGERWITHSAW
+ 'Da implementare
+ End Select
+
+ ' Se non previste forature, disabilito relativo box
+ If Not m_CurrentMachine.bDrilling Then
+ HolesGpBx.Visibility = Visibility.Hidden
+ End If
+
+ ' Se non previste fresature, disabilito relativo box e uso fresa con incisione
+ If Not m_CurrentMachine.bMilling Then
+ MillingsParamGpBx.Visibility = Visibility.Hidden
+ End If
+
+ ' Se non previsti tagli waterjet, disabilito relativo box
+ If Not m_CurrentMachine.bWaterJetting Then
+ WjsParamGpBx.Visibility = Visibility.Hidden
+ RectificationWJParamGpBx.Visibility = Visibility.Hidden
+ End If
+
+ m_bFirst = False
+ End If
+
+ Dim dVal As Double
+ dVal = GetPrivateProfileDouble(S_MACH_NEST, K_MACH_HOLES_OFFSET, 0, m_MainWindow.GetMachIniFile())
+ EgtMdbSetGeneralParam(MCH_GP.EXTRARONDRIREG, dVal)
+ HolesOffsetTxBx.Text = LenToString(dVal, 2)
+ ' Leggo sovrapposizione fori
+ dVal = GetPrivateProfileDouble(S_MACH_NEST, K_MACH_HOLES_OVERLAP, 0, m_MainWindow.GetMachIniFile())
+ HolesOverlapTxBx.Text = LenToString(dVal, 2)
+ ' Leggo tolleranza diametro fori
+ dVal = GetPrivateProfileDouble(S_MACH_NEST, K_MACH_HOLES_DIAMTOLER, 0, m_MainWindow.GetMachIniFile())
+ EgtMdbSetGeneralParam(MCH_GP.HOLEDIAMTOLER, dVal)
+ HolesToleranceTxBx.Text = LenToString(dVal, 2)
+ ' Leggo un solo foro in corner
+ OneHoleInCornerChBx.IsChecked = (GetPrivateProfileInt(S_MACH_NEST, K_MACH_ONEHOLE_INTCORNER, 0, m_MainWindow.GetMachIniFile()) <> 0)
+ ' Leggo sicurezza su tagli
+ dVal = GetPrivateProfileDouble(S_MACH_NEST, K_MACH_SAFE_LEN_CUT, 0, m_MainWindow.GetMachIniFile())
+ EgtMdbSetGeneralParam(MCH_GP.EXTRALONCUTREG, dVal)
+ CutExtraLenTxBx.Text = LenToString(dVal, 2)
+ ' Leggo sicurezza su tagli in angoli interni
+ dVal = GetPrivateProfileDouble(S_MACH_NEST, K_MACH_SAFE_LEN_INTCORNER, 0, m_MainWindow.GetMachIniFile())
+ AngleCutExtraLenTxBx.Text = LenToString(dVal, 2)
+ ' Leggo raggio minimo arco esterno
+ dVal = GetPrivateProfileDouble(S_MACH_NEST, K_MACH_EXTARCMINRAD, 200, m_MainWindow.GetMachIniFile())
+ EgtMdbSetGeneralParam(MCH_GP.EXTSAWARCMINRAD, dVal)
+ ExtArcMinRadTxBx.Text = LenToString(dVal, 2)
+ ' Leggo angolo di fianco massimo arco interno
+ dVal = GetPrivateProfileDouble(S_MACH_NEST, K_MACH_INTARCMAXSIDEANG, 45, m_MainWindow.GetMachIniFile())
+ EgtMdbSetGeneralParam(MCH_GP.INTSAWARCMAXSIDEANG, dVal)
+ IntArcMaxSideAngTxBx.Text = DoubleToString(dVal, 2)
+ ' Leggo se PreCutExit attivo (per taglio ceramico)
+ Dim nPreCutExit As Integer = GetPrivateProfileInt(S_MACH_NEST, K_MACH_PRECUTEXIT, -1, m_MainWindow.GetMachIniFile())
+ If nPreCutExit = -1 Then
+ PreCutExitTxBl.Visibility = Visibility.Hidden
+ PreCutExitChBx.Visibility = Visibility.Hidden
+ Else
+ PreCutExitChBx.IsChecked = (nPreCutExit <> 0)
+ End If
+ ' Salvo DB lavorazioni con aggiornamenti parametri generali
+ EgtMdbSave()
+ ' Leggo lavorazione angoli con fresa
+ CornerCutsChBx.IsChecked = (GetPrivateProfileInt(S_MACH_NEST, K_MACH_MILLING_ON_CORNERS, 1, m_MainWindow.GetMachIniFile()) <> 0)
+ ' Leggo lavorazione interni con fresa
+ InternalCutsChBx.IsChecked = (GetPrivateProfileInt(S_MACH_NEST, K_MACH_MILLING_ON_SINKS, 0, m_MainWindow.GetMachIniFile()) <> 0)
+ ' Leggo accorciamento angoli con fresa
+ dVal = GetPrivateProfileDouble(S_MACH_NEST, K_MACH_MILLING_SHORTENING, 0, m_MainWindow.GetMachIniFile())
+ ShortTxBx.Text = LenToString(dVal, 2)
+ ' leggo se attiva la rettifica degli angoli per WaterJet
+ EnableRectificationChBx.IsChecked = (GetPrivateProfileInt(S_MACH_NEST, K_MACH_RECTIFICATION_ON_SUBSQUARE, 0, m_MainWindow.GetMachIniFile()) <> 0)
+ WjIntCutsChBx.IsChecked = (GetPrivateProfileInt(S_MACH_NEST, K_MACH_MILLING_ON_SINKS, 0, m_MainWindow.GetMachIniFile()) <> 0)
+ ' Lavorazione preforo lavello con WaterJet
+ dVal = GetPrivateProfileDouble(S_MACH_NEST, K_HOLES_DIAMITERWJ, 0, m_MainWindow.GetMachIniFile())
+ HolesDiameterWJTxBx.Text = LenToString(dVal, 2)
+ dVal = GetPrivateProfileDouble(S_MACH_NEST, K_HOLES_OFFSETWJ, 0, m_MainWindow.GetMachIniFile())
+ HolesOffsetWJTxBx.Text = LenToString(dVal, 2)
+ dVal = GetPrivateProfileDouble(S_MACH_NEST, K_MIN_RADIUSWJ, 0, m_MainWindow.GetMachIniFile())
+ MinRadiusWJTxBx.Text = LenToString(dVal, 2)
+ OneHoleInCornerWJChBx.IsChecked = (GetPrivateProfileInt(S_MACH_NEST, K_MACH_DRILLINGWJ_ON_CORNERS, 1, m_MainWindow.GetMachIniFile()) <> 0)
End Sub
- Private Sub EnableFinalSawCutChBx_IsChecked() Handles EnableFinalSawCutChBx.Click
- m_MainWindow.m_CurrentMachine.bEnableFinalSawCut = EnableFinalSawCutChBx.IsChecked
- WritePrivateProfileString(S_MACH, K_ENABLEFINALSAWCUT, If(m_MainWindow.m_CurrentMachine.bEnableFinalSawCut, "1", "0"), m_MainWindow.GetMachIniFile())
- End Sub
-
- Private Sub FinalDepthTxBx_EgtClosed() Handles FinalDepthTxBx.EgtClosed
+ Private Sub CutExtraLenTxBx_EgtClosed(sender As Object, e As EventArgs) Handles CutExtraLenTxBx.EgtClosed
Dim dVal As Double = 0
- StringToLen(FinalDepthTxBx.Text, dVal)
- m_MainWindow.m_CurrentMachine.dFinalDepth = dVal
- WritePrivateProfileString(S_MACH, K_FINALDEPTH, DoubleToString(m_MainWindow.m_CurrentMachine.dFinalDepth, 3), m_MainWindow.GetMachIniFile())
+ StringToLen(CutExtraLenTxBx.Text, dVal)
+ WritePrivateProfileString(S_MACH_NEST, K_MACH_SAFE_LEN_CUT, DoubleToString(dVal, 2), m_MainWindow.GetMachIniFile())
+ EgtMdbSetGeneralParam(MCH_GP.EXTRALONCUTREG, dVal)
+ EgtMdbSave()
End Sub
+ Private Sub AngleCutExtraLenTxBx_EgtClosed(sender As Object, e As EventArgs) Handles AngleCutExtraLenTxBx.EgtClosed
+ Dim dVal As Double = 0
+ StringToLen(AngleCutExtraLenTxBx.Text, dVal)
+ WritePrivateProfileString(S_MACH_NEST, K_MACH_SAFE_LEN_INTCORNER, DoubleToString(dVal, 2), m_MainWindow.GetMachIniFile())
+ End Sub
+
+ Private Sub ExtArcMinRadTxBx_EgtClosed(sender As Object, e As EventArgs) Handles ExtArcMinRadTxBx.EgtClosed
+ Dim dVal As Double = 0
+ StringToLen(ExtArcMinRadTxBx.Text, dVal)
+ WritePrivateProfileString(S_MACH_NEST, K_MACH_EXTARCMINRAD, DoubleToString(dVal, 2), m_MainWindow.GetMachIniFile())
+ EgtMdbSetGeneralParam(MCH_GP.EXTSAWARCMINRAD, dVal)
+ EgtMdbSave()
+ End Sub
+
+ Private Sub IntArcMaxSideAngTxBx_EgtClosed(sender As Object, e As EventArgs) Handles IntArcMaxSideAngTxBx.EgtClosed
+ Dim dVal As Double = 0
+ StringToDouble(IntArcMaxSideAngTxBx.Text, dVal)
+ WritePrivateProfileString(S_MACH_NEST, K_MACH_INTARCMAXSIDEANG, DoubleToString(dVal, 2), m_MainWindow.GetMachIniFile())
+ EgtMdbSetGeneralParam(MCH_GP.INTSAWARCMAXSIDEANG, dVal)
+ EgtMdbSave()
+ End Sub
+
+ Private Sub PreCutExitChBx_Click(sender As Object, e As RoutedEventArgs) Handles PreCutExitChBx.Click
+ If PreCutExitChBx.IsChecked Then
+ WritePrivateProfileString(S_MACH_NEST, K_MACH_PRECUTEXIT, "1", m_MainWindow.GetMachIniFile())
+ Else
+ WritePrivateProfileString(S_MACH_NEST, K_MACH_PRECUTEXIT, "0", m_MainWindow.GetMachIniFile())
+ End If
+ End Sub
+
+ Private Sub HolesOffsetTxBx_EgtClosed(sender As Object, e As EventArgs) Handles HolesOffsetTxBx.EgtClosed
+ Dim dVal As Double = 0
+ StringToLen(HolesOffsetTxBx.Text, dVal)
+ WritePrivateProfileString(S_MACH_NEST, K_MACH_HOLES_OFFSET, DoubleToString(dVal, 2), m_MainWindow.GetMachIniFile())
+ EgtMdbSetGeneralParam(MCH_GP.EXTRARONDRIREG, dVal)
+ EgtMdbSave()
+ End Sub
+
+ Private Sub HolesOverlapTxBx_EgtClosed(sender As Object, e As EventArgs) Handles HolesOverlapTxBx.EgtClosed
+ Dim dVal As Double = 0
+ StringToLen(HolesOverlapTxBx.Text, dVal)
+ WritePrivateProfileString(S_MACH_NEST, K_MACH_HOLES_OVERLAP, DoubleToString(dVal, 2), m_MainWindow.GetMachIniFile())
+ End Sub
+
+ Private Sub HolesToleranceTxBx_EgtClosed(sender As Object, e As EventArgs) Handles HolesToleranceTxBx.EgtClosed
+ Dim dVal As Double = 0
+ StringToLen(HolesToleranceTxBx.Text, dVal)
+ WritePrivateProfileString(S_MACH_NEST, K_MACH_HOLES_DIAMTOLER, DoubleToString(dVal, 2), m_MainWindow.GetMachIniFile())
+ EgtMdbSetGeneralParam(MCH_GP.HOLEDIAMTOLER, dVal)
+ EgtMdbSave()
+ End Sub
+
+ Private Sub OneHoleInCornerChBx_Click(sender As Object, e As RoutedEventArgs) Handles OneHoleInCornerChBx.Click
+ If OneHoleInCornerChBx.IsChecked() Then
+ WritePrivateProfileString(S_MACH_NEST, K_MACH_ONEHOLE_INTCORNER, "1", m_MainWindow.GetMachIniFile())
+ Else
+ WritePrivateProfileString(S_MACH_NEST, K_MACH_ONEHOLE_INTCORNER, "0", m_MainWindow.GetMachIniFile())
+ End If
+ End Sub
+
+ Private Sub CornerCutsChBx_Click(sender As Object, e As RoutedEventArgs) Handles CornerCutsChBx.Click
+ If CornerCutsChBx.IsChecked() Then
+ WritePrivateProfileString(S_MACH_NEST, K_MACH_MILLING_ON_CORNERS, "1", m_MainWindow.GetMachIniFile())
+ Else
+ WritePrivateProfileString(S_MACH_NEST, K_MACH_MILLING_ON_CORNERS, "0", m_MainWindow.GetMachIniFile())
+ End If
+ End Sub
+
+ Private Sub ShortTxBx_EgtClosed(sender As Object, e As EventArgs) Handles ShortTxBx.EgtClosed
+ Dim dVal As Double = 0
+ StringToLen(ShortTxBx.Text, dVal)
+ WritePrivateProfileString(S_MACH_NEST, K_MACH_MILLING_SHORTENING, DoubleToString(dVal, 2), m_MainWindow.GetMachIniFile())
+ End Sub
+
+ Private Sub InternalCutsChBx_Click(sender As Object, e As RoutedEventArgs) Handles InternalCutsChBx.Click
+ If InternalCutsChBx.IsChecked() Then
+ WritePrivateProfileString(S_MACH_NEST, K_MACH_MILLING_ON_SINKS, "1", m_MainWindow.GetMachIniFile())
+ Else
+ WritePrivateProfileString(S_MACH_NEST, K_MACH_MILLING_ON_SINKS, "0", m_MainWindow.GetMachIniFile())
+ End If
+ End Sub
+
+ ' -- INIZIO -- nuovi parametri per Rettifica angoli in sottosquadra WaterJet
+ Private Sub EnableRectificationChBx_Click(sender As Object, e As EventArgs) Handles EnableRectificationChBx.Click
+ If EnableRectificationChBx.IsChecked() Then
+ WritePrivateProfileString(S_MACH_NEST, K_MACH_RECTIFICATION_ON_SUBSQUARE, "1", m_MainWindow.GetMachIniFile)
+ Else
+ WritePrivateProfileString(S_MACH_NEST, K_MACH_RECTIFICATION_ON_SUBSQUARE, "0", m_MainWindow.GetMachIniFile)
+ End If
+ End Sub
+ ' -- FINE -- nuovi parametri per Rettifica angoli in sottosquadra WaterJet
+
+ Private Sub WjIntCutsChBx_Click(sender As Object, e As RoutedEventArgs) Handles WjIntCutsChBx.Click
+ If WjIntCutsChBx.IsChecked() Then
+ WritePrivateProfileString(S_MACH_NEST, K_MACH_MILLING_ON_SINKS, "1", m_MainWindow.GetMachIniFile())
+ Else
+ WritePrivateProfileString(S_MACH_NEST, K_MACH_MILLING_ON_SINKS, "0", m_MainWindow.GetMachIniFile())
+ End If
+ End Sub
+
+ ' -- INIZIO -- nuovi parametri per prefori WaterJet
+ Private Sub HolesDiameterWJTxBx_Click(sender As Object, e As EventArgs) Handles HolesDiameterWJTxBx.EgtClosed
+ Dim dVal As Double = 0
+ StringToLen(HolesDiameterWJTxBx.Text, dVal)
+ WritePrivateProfileString(S_MACH_NEST, K_HOLES_DIAMITERWJ, DoubleToString(dVal, 2), m_MainWindow.GetMachIniFile())
+ End Sub
+
+ Private Sub HolesOffsetWJTxBx_Click(sender As Object, e As EventArgs) Handles HolesOffsetWJTxBx.EgtClosed
+ Dim dVal As Double = 0
+ StringToLen(HolesOffsetWJTxBx.Text, dVal)
+ WritePrivateProfileString(S_MACH_NEST, K_HOLES_OFFSETWJ, DoubleToString(dVal, 2), m_MainWindow.GetMachIniFile())
+ End Sub
+
+ Private Sub MinRadiusWJTxBx_Click(sender As Object, e As EventArgs) Handles MinRadiusWJTxBx.EgtClosed
+ Dim dVal As Double = 0
+ StringToLen(MinRadiusWJTxBx.Text, dVal)
+ WritePrivateProfileString(S_MACH_NEST, K_MIN_RADIUSWJ, DoubleToString(dVal, 2), m_MainWindow.GetMachIniFile())
+ End Sub
+
+ Private Sub OneHoleInCornerWJChBx_Click(sender As Object, e As EventArgs) Handles OneHoleInCornerWJChBx.Click
+ If OneHoleInCornerWJChBx.IsChecked() Then
+ WritePrivateProfileString(S_MACH_NEST, K_MACH_DRILLINGWJ_ON_CORNERS, "1", m_MainWindow.GetMachIniFile())
+ Else
+ WritePrivateProfileString(S_MACH_NEST, K_MACH_DRILLINGWJ_ON_CORNERS, "0", m_MainWindow.GetMachIniFile())
+ End If
+ End Sub
+ ' -- FINE -- nuovi parametri per prefori WaterJet
+
End Class
diff --git a/Machine/AlarmsPageUC.xaml b/Machine/AlarmsPageUC.xaml
index 3132e9b..11240e5 100644
--- a/Machine/AlarmsPageUC.xaml
+++ b/Machine/AlarmsPageUC.xaml
@@ -20,7 +20,6 @@
-
@@ -30,254 +29,7 @@
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
@@ -492,7 +244,7 @@
-->
-
@@ -524,7 +276,7 @@
-
-->
-
+
@@ -651,36 +403,29 @@
-
-
+
+
+
+
+
+
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
-
+
@@ -736,7 +482,8 @@
-
+
@@ -773,8 +520,9 @@
-
+
@@ -798,8 +546,8 @@
-
+
@@ -831,8 +579,36 @@
+
+
+
+
+
+
+
+
+
+
-
+
+
+
+
+
+
+
+
+
+
+
+
@@ -846,9 +622,11 @@
HorizontalAlignment="Right" Margin="0,0,10,0"/>
-
+
-
+
@@ -862,10 +640,11 @@
HorizontalAlignment="Right" Margin="0,0,10,0"/>
-
+
-
+
@@ -881,7 +660,20 @@
-
+
+
+
+
+
+
+
+
+
+
diff --git a/Machine/AlarmsPageUC.xaml.vb b/Machine/AlarmsPageUC.xaml.vb
index f3ae7c9..f1558a7 100644
--- a/Machine/AlarmsPageUC.xaml.vb
+++ b/Machine/AlarmsPageUC.xaml.vb
@@ -62,45 +62,19 @@ Public Class AlarmsPageUC
CurrCupWheelTxBl.Text = EgtMsg(91070) ' Scasso corrente
CurrMillTxBl.Text = EgtMsg(90904) ' Fresa corrente
CurrWJetTxBl.Text = EgtMsg(90900) ' Waterjet corrente
- HolesOffsetTxBl.Text = EgtMsg(90909) ' Offset fori
- HolesOverlapTxBl.Text = EgtMsg(90910) ' Sovrapp. fori
- HolesToleranceTxBl.Text = EgtMsg(90911) ' Tolleranza fori
- OneHoleInCornerTxBl.Text = EgtMsg(90926) ' Un solo foro in angolo
- CutExtraLenTxBl.Text = EgtMsg(90906) ' Sicurezza tagli
- AngleCutExtraLenTxBl.Text = EgtMsg(90907) ' Sicur. angoli
CompleteCutsTxBl.Text = EgtMsg(90908) ' Rispetta i tagli completi
SafeZTxBl.Text = EgtMsg(90905) ' Z Sicura
MaterialsGpBx.Header = EgtMsg(90913) ' Materiali
NewMatBtn.Content = EgtMsg(90914) ' Aggiungi
RemoveMatBtn.Content = EgtMsg(90915) ' Rimuovi
SetUpGpBx.Header = EgtMsg(90916) ' Utensili correnti
- HolesGpBx.Header = EgtMsg(90917) ' Parametri fori
- ExtArcMinRadTxBl.Text = EgtMsg(90918) ' Rmin archi est.
- IntArcMaxSideAngTxBl.Text = EgtMsg(90924) ' Amax archi int.
- PreCutExitTxBl.Text = EgtMsg(91065) ' PreTaglio uscite
MachineParamGpBx.Header = EgtMsg(90919) ' Parametri macchina
- SawGpBx.Header = EgtMsg(90925) ' Parametri lama
DirectCutsParamGpBx.Header = EgtMsg(90927) ' Tagli diretti
FinalHomeTxBl.Text = EgtMsg(90928) ' Home finale
- MillingsParamGpBx.Header = EgtMsg(90929) ' Parametri fresature
- CornerCutsTxBl.Text = EgtMsg(90944) ' Sempre sugli angoli
- InternalCutsTxBl.Text = EgtMsg(90930) ' Sempre sugli interni
- ShortTxBl.Text = EgtMsg(90949) ' Accorciamento
- TopMillGpBx.Header = EgtMsg( 91061) ' Parametri incisioni
+ TopMillGpBx.Header = EgtMsg(91061) ' Parametri incisioni
TmEnableTxBl.Text = EgtMsg( 91062) ' Con fresa
TmDepthTxBl.Text = EgtMsg( 91063) ' Profondità
TmWidthTxBl.Text = EgtMsg( 91064) ' Larghezza
- WJsParamGpBx.Header = EgtMsg( 91058) ' Parametri waterjet
- WjIntCutsTxBl.Text = EgtMsg(90930) ' Sempre sugli interni
- '-- INIZIO -- nuovi parametri per preforo lavello
- HolesDiameterWJTxBl.Text = EgtMsg(91044) ' Diametro
- HolesOffsetWJTxBl.Text = EgtMsg(91045) ' Offset
- MinRadiusWJTxBl.Text = EgtMsg(91046) ' Raggio Minimo
- OneHoleInCornerWJTxBl.Text = EgtMsg(90926) ' Un solo foro in angolo
- '-- INIZIO -- nuovi parametro Rettifica tagli sottosquadra WJ
- RectificationWJParamGpBx.Header = EgtMsg(91047) ' Rettifica
- EnableRectificationTxBl.Text = EgtMsg(91048) ' Abilita (sottosquadra)
- '-- FINE -- nuovi parametro Rettifica tagli sottosquadra WJ
NestingParamGpBx.Header = EgtMsg(90931) ' Nesting
AlignTxBl.Text = EgtMsg(90932) ' Allineato
GhigliottinaTxBl.Text = EgtMsg(91066) ' Ghigliottina
@@ -113,8 +87,6 @@ Public Class AlarmsPageUC
BackImageBtn.Content = EgtMsg(90938) ' Sfondo
ThresholdTxBl.Text = EgtMsg(90939) ' Soglia
ToleranceTxBl.Text = EgtMsg(90940) ' Tolleranza
- WashingTxBl.Text = EgtMsg(90941) ' Lavaggio
- SideAngCutProbeTxBl.Text = EgtMsg(90950) ' Tastatura tagli inclinati
CutFredGpBx.Header = EgtMsg(90946) ' Tagli Feed inizio/fine
CfrLenTxBl.Text = EgtMsg(90947) ' Lunghezza
CfrPercTxBl.Text = EgtMsg(90948) ' Riduzione %
@@ -130,16 +102,20 @@ Public Class AlarmsPageUC
FrameGpBx.Header = EgtMsg(91068) ' Cornici
FramePauseTxBl.Text = EgtMsg(91067) ' Inserisci pausa
UseLaserOriginTxBl.Text = EgtMsg(91129) ' Usa laser per origine
+ SideAngCutProbeGpBx.Header = EgtMsg(90950) ' Tastatura
+ SideAngCutProbeTxBl.Text = EgtMsg(90950) ' Tastatura tagli inclinati
+ WashingGpBx.Header = EgtMsg(90941) ' Lavaggio
+ WashingTxBl.Text = EgtMsg(90941) ' Lavaggio
+ FinalSawCutGpBx.Header = EgtMsg(91254) ' Taglio Finale
+ EnableFinalSawCutTxBl.Text = EgtMsg(91255) ' Abilita
+ FinalDepthTxBl.Text = EgtMsg(91256) ' Ultimo Spessore
AutoRawImageParamGpBx.Visibility = Windows.Visibility.Hidden
End Sub
Private Sub AlarmsPage_Loaded(sender As Object, e As RoutedEventArgs) Handles Me.Loaded
-
If m_bFirst Then
-
' in assenza dell'uscita H1 nascondo i parametri lama
If EgtGetHeadId("H1") = GDB_ID.NULL Then
- SawGpBx.Visibility = Visibility.Hidden
TopMillGpBx.Visibility = Visibility.Hidden
CurrSawTxBl.Visibility = Visibility.Hidden
CurrSawCmBx.Visibility = Visibility.Hidden
@@ -157,31 +133,18 @@ Public Class AlarmsPageUC
CurrToolsGrid.RowDefinitions.Add(EndRow)
SetUpGpBx.SetValue(Grid.RowSpanProperty, 1)
' Disattivo il gruppo dei parametri fori
- HolesGpBx.Visibility = Windows.Visibility.Hidden
Case CurrentMachine.MountedToolConfigs.SAWANDAUXTOOL
'Non faccio alcunchè
Case CurrentMachine.MountedToolConfigs.MANUALTOOLCHANGER, CurrentMachine.MountedToolConfigs.TOOLCHANGER, CurrentMachine.MountedToolConfigs.TOOLCHANGERWITHSAW
'Da implementare
End Select
- ' Se non previste forature, disabilito relativo box
- If Not m_CurrentMachine.bDrilling Then
- HolesGpBx.Visibility = Visibility.Hidden
- End If
-
' Se non previste fresature, disabilito relativo box e uso fresa con incisione
If Not m_CurrentMachine.bMilling Then
- MillingsParamGpBx.Visibility = Visibility.Hidden
TmEnableChBx.IsEnabled = False
TmEnableChBx.IsChecked = False
End If
- ' Se non previsti tagli waterjet, disabilito relativo box
- If Not m_CurrentMachine.bWaterJetting Then
- WjsParamGpBx.Visibility = Visibility.Hidden
- RectificationWJParamGpBx.Visibility = Visibility.Hidden
- End If
-
' Abilitazione box per contorni grezzo da foto
If m_MainWindow.m_Camera.GetCalcContour() Then
AutoRawImageParamGpBx.Visibility = Windows.Visibility.Visible
@@ -353,71 +316,12 @@ Public Class AlarmsPageUC
' Leggo offset fori
Dim dVal As Double
- dVal = GetPrivateProfileDouble(S_MACH_NEST, K_MACH_HOLES_OFFSET, 0, m_MainWindow.GetMachIniFile())
- EgtMdbSetGeneralParam(MCH_GP.EXTRARONDRIREG, dVal)
- HolesOffsetTxBx.Text = LenToString(dVal, 2)
- ' Leggo sovrapposizione fori
- dVal = GetPrivateProfileDouble(S_MACH_NEST, K_MACH_HOLES_OVERLAP, 0, m_MainWindow.GetMachIniFile())
- HolesOverlapTxBx.Text = LenToString(dVal, 2)
- ' Leggo tolleranza diametro fori
- dVal = GetPrivateProfileDouble(S_MACH_NEST, K_MACH_HOLES_DIAMTOLER, 0, m_MainWindow.GetMachIniFile())
- EgtMdbSetGeneralParam(MCH_GP.HOLEDIAMTOLER, dVal)
- HolesToleranceTxBx.Text = LenToString(dVal, 2)
- ' Leggo un solo foro in corner
- OneHoleInCornerChBx.IsChecked =
- (GetPrivateProfileInt(S_MACH_NEST, K_MACH_ONEHOLE_INTCORNER, 0, m_MainWindow.GetMachIniFile()) <> 0)
- ' Leggo sicurezza su tagli
- dVal = GetPrivateProfileDouble(S_MACH_NEST, K_MACH_SAFE_LEN_CUT, 0, m_MainWindow.GetMachIniFile())
- EgtMdbSetGeneralParam(MCH_GP.EXTRALONCUTREG, dVal)
- CutExtraLenTxBx.Text = LenToString(dVal, 2)
- ' Leggo sicurezza su tagli in angoli interni
- dVal = GetPrivateProfileDouble(S_MACH_NEST, K_MACH_SAFE_LEN_INTCORNER, 0, m_MainWindow.GetMachIniFile())
- AngleCutExtraLenTxBx.Text = LenToString(dVal, 2)
' Leggo distanza di sicurezza
dVal = 0
EgtMdbGetGeneralParam(MCH_GP.SAFEZ, dVal)
SafeZTxBx.Text = LenToString(dVal, 2)
- ' Leggo raggio minimo arco esterno
- dVal = GetPrivateProfileDouble(S_MACH_NEST, K_MACH_EXTARCMINRAD, 200, m_MainWindow.GetMachIniFile())
- EgtMdbSetGeneralParam(MCH_GP.EXTSAWARCMINRAD, dVal)
- ExtArcMinRadTxBx.Text = LenToString(dVal, 2)
- ' Leggo se PreCutExit attivo (per taglio ceramico)
- Dim nPreCutExit As Integer = GetPrivateProfileInt(S_MACH_NEST, K_MACH_PRECUTEXIT, -1, m_MainWindow.GetMachIniFile())
- If nPreCutExit = -1 Then
- PreCutExitTxBl.Visibility = Visibility.Hidden
- PreCutExitChBx.Visibility = Visibility.Hidden
- Else
- PreCutExitChBx.IsChecked = ( nPreCutExit <> 0)
- End If
- ' Leggo angolo di fianco massimo arco interno
- dVal = GetPrivateProfileDouble(S_MACH_NEST, K_MACH_INTARCMAXSIDEANG, 45, m_MainWindow.GetMachIniFile())
- EgtMdbSetGeneralParam(MCH_GP.INTSAWARCMAXSIDEANG, dVal)
- IntArcMaxSideAngTxBx.Text = DoubleToString(dVal, 2)
' Salvo DB lavorazioni con aggiornamenti parametri generali
EgtMdbSave()
- ' Leggo lavorazione angoli con fresa
- CornerCutsChBx.IsChecked =
- (GetPrivateProfileInt(S_MACH_NEST, K_MACH_MILLING_ON_CORNERS, 1, m_MainWindow.GetMachIniFile()) <> 0)
- ' Leggo lavorazione interni con fresa
- InternalCutsChBx.IsChecked =
- (GetPrivateProfileInt(S_MACH_NEST, K_MACH_MILLING_ON_SINKS, 0, m_MainWindow.GetMachIniFile()) <> 0)
- WjIntCutsChBx.IsChecked =
- (GetPrivateProfileInt(S_MACH_NEST, K_MACH_MILLING_ON_SINKS, 0, m_MainWindow.GetMachIniFile()) <> 0)
- ' Lavorazione preforo lavello con WaterJet
- dVal = GetPrivateProfileDouble(S_MACH_NEST, K_HOLES_DIAMITERWJ, 0, m_MainWindow.GetMachIniFile())
- HolesDiameterWJTxBx.Text = LenToString(dVal, 2)
- dVal = GetPrivateProfileDouble(S_MACH_NEST, K_HOLES_OFFSETWJ, 0, m_MainWindow.GetMachIniFile())
- HolesOffsetWJTxBx.Text = LenToString(dVal, 2)
- dVal = GetPrivateProfileDouble(S_MACH_NEST, K_MIN_RADIUSWJ, 0, m_MainWindow.GetMachIniFile())
- MinRadiusWJTxBx.Text = LenToString(dVal, 2)
- OneHoleInCornerWJChBx.IsChecked =
- (GetPrivateProfileInt(S_MACH_NEST, K_MACH_DRILLINGWJ_ON_CORNERS, 1, m_MainWindow.GetMachIniFile()) <> 0)
- ' leggo se attiva la rettifica degli angoli per WaterJet
- EnableRectificationChBx.IsChecked =
- (GetPrivateProfileInt(S_MACH_NEST, K_MACH_RECTIFICATION_ON_SUBSQUARE, 0, m_MainWindow.GetMachIniFile()) <> 0)
- ' Leggo accorciamento angoli con fresa
- dVal = GetPrivateProfileDouble(S_MACH_NEST, K_MACH_MILLING_SHORTENING, 0, m_MainWindow.GetMachIniFile())
- ShortTxBx.Text = LenToString(dVal, 2)
' Leggo flag abilitazione incisioni con fresa
TmEnableChBx.IsChecked =
(GetPrivateProfileInt(S_MACH_NEST, K_MACH_ENGRAVING_WITHMILL, 1, m_MainWindow.GetMachIniFile()) <> 0)
@@ -483,6 +387,8 @@ Public Class AlarmsPageUC
UseLaserOriginChBx.IsChecked = (nUseLaserOrigin <> 0)
End If
+ EnableFinalSawCutChBx.IsChecked = m_MainWindow.m_CurrentMachine.bEnableFinalSawCut
+ FinalDepthTxBx.Text = m_MainWindow.m_CurrentMachine.dFinalDepth
End Sub
' aggiorna le text delle lavorazioni (la selezione avviene nella pagina del grezzo o dalla pagina del progetto corrente)
@@ -925,50 +831,6 @@ Public Class AlarmsPageUC
m_MainWindow.m_MachinePageUC.MachinePageGrid.Children.Add(m_SetUpPage)
End Sub
- Private Sub HolesOffsetTxBx_EgtClosed(sender As Object, e As EventArgs) Handles HolesOffsetTxBx.EgtClosed
- Dim dVal As Double = 0
- StringToLen(HolesOffsetTxBx.Text, dVal)
- WritePrivateProfileString(S_MACH_NEST, K_MACH_HOLES_OFFSET, DoubleToString(dVal, 2), m_MainWindow.GetMachIniFile())
- EgtMdbSetGeneralParam(MCH_GP.EXTRARONDRIREG, dVal)
- EgtMdbSave()
- End Sub
-
- Private Sub HolesOverlapTxBx_EgtClosed(sender As Object, e As EventArgs) Handles HolesOverlapTxBx.EgtClosed
- Dim dVal As Double = 0
- StringToLen(HolesOverlapTxBx.Text, dVal)
- WritePrivateProfileString(S_MACH_NEST, K_MACH_HOLES_OVERLAP, DoubleToString(dVal, 2), m_MainWindow.GetMachIniFile())
- End Sub
-
- Private Sub HolesToleranceTxBx_EgtClosed(sender As Object, e As EventArgs) Handles HolesToleranceTxBx.EgtClosed
- Dim dVal As Double = 0
- StringToLen(HolesToleranceTxBx.Text, dVal)
- WritePrivateProfileString(S_MACH_NEST, K_MACH_HOLES_DIAMTOLER, DoubleToString(dVal, 2), m_MainWindow.GetMachIniFile())
- EgtMdbSetGeneralParam(MCH_GP.HOLEDIAMTOLER, dVal)
- EgtMdbSave()
- End Sub
-
- Private Sub OneHoleInCornerChBx_Click(sender As Object, e As RoutedEventArgs) Handles OneHoleInCornerChBx.Click
- If OneHoleInCornerChBx.IsChecked() Then
- WritePrivateProfileString(S_MACH_NEST, K_MACH_ONEHOLE_INTCORNER, "1", m_MainWindow.GetMachIniFile())
- Else
- WritePrivateProfileString(S_MACH_NEST, K_MACH_ONEHOLE_INTCORNER, "0", m_MainWindow.GetMachIniFile())
- End If
- End Sub
-
- Private Sub CutExtraLenTxBx_EgtClosed(sender As Object, e As EventArgs) Handles CutExtraLenTxBx.EgtClosed
- Dim dVal As Double = 0
- StringToLen(CutExtraLenTxBx.Text, dVal)
- WritePrivateProfileString(S_MACH_NEST, K_MACH_SAFE_LEN_CUT, DoubleToString(dVal, 2), m_MainWindow.GetMachIniFile())
- EgtMdbSetGeneralParam(MCH_GP.EXTRALONCUTREG, dVal)
- EgtMdbSave()
- End Sub
-
- Private Sub AngleCutExtraLenTxBx_EgtClosed(sender As Object, e As EventArgs) Handles AngleCutExtraLenTxBx.EgtClosed
- Dim dVal As Double = 0
- StringToLen(AngleCutExtraLenTxBx.Text, dVal)
- WritePrivateProfileString(S_MACH_NEST, K_MACH_SAFE_LEN_INTCORNER, DoubleToString(dVal, 2), m_MainWindow.GetMachIniFile())
- End Sub
-
Private Sub SafeZTxBx_EgtClosed(sender As Object, e As EventArgs) Handles SafeZTxBx.EgtClosed
Dim dSafeZ As Double = 0
StringToLen(SafeZTxBx.Text, dSafeZ)
@@ -976,30 +838,6 @@ Public Class AlarmsPageUC
EgtMdbSave()
End Sub
- Private Sub ExtArcMinRadTxBx_EgtClosed(sender As Object, e As EventArgs) Handles ExtArcMinRadTxBx.EgtClosed
- Dim dVal As Double = 0
- StringToLen(ExtArcMinRadTxBx.Text, dVal)
- WritePrivateProfileString(S_MACH_NEST, K_MACH_EXTARCMINRAD, DoubleToString(dVal, 2), m_MainWindow.GetMachIniFile())
- EgtMdbSetGeneralParam(MCH_GP.EXTSAWARCMINRAD, dVal)
- EgtMdbSave()
- End Sub
-
- Private Sub IntArcMaxSideAngTxBx_EgtClosed(sender As Object, e As EventArgs) Handles IntArcMaxSideAngTxBx.EgtClosed
- Dim dVal As Double = 0
- StringToDouble(IntArcMaxSideAngTxBx.Text, dVal)
- WritePrivateProfileString(S_MACH_NEST, K_MACH_INTARCMAXSIDEANG, DoubleToString(dVal, 2), m_MainWindow.GetMachIniFile())
- EgtMdbSetGeneralParam(MCH_GP.INTSAWARCMAXSIDEANG, dVal)
- EgtMdbSave()
- End Sub
-
- Private Sub PreCutExitChBx_Click(sender As Object, e As RoutedEventArgs) Handles PreCutExitChBx.Click
- If PreCutExitChBx.IsChecked Then
- WritePrivateProfileString(S_MACH_NEST, K_MACH_PRECUTEXIT, "1", m_MainWindow.GetMachIniFile())
- Else
- WritePrivateProfileString(S_MACH_NEST, K_MACH_PRECUTEXIT, "0", m_MainWindow.GetMachIniFile())
- End If
- End Sub
-
Private Sub CompleteCutsChBx_Click(sender As Object, e As RoutedEventArgs) Handles CompleteCutsChBx.Click
Dim NestPage As NestPageUC = m_MainWindow.m_CadCutPageUC.m_NestPage
If CompleteCutsChBx.IsChecked() Then
@@ -1025,74 +863,6 @@ Public Class AlarmsPageUC
AdjustGhigliottinaTextOnAutomaticOrCompleteCuts()
End Sub
- Private Sub CornerCutsChBx_Click(sender As Object, e As RoutedEventArgs) Handles CornerCutsChBx.Click
- If CornerCutsChBx.IsChecked() Then
- WritePrivateProfileString(S_MACH_NEST, K_MACH_MILLING_ON_CORNERS, "1", m_MainWindow.GetMachIniFile())
- Else
- WritePrivateProfileString(S_MACH_NEST, K_MACH_MILLING_ON_CORNERS, "0", m_MainWindow.GetMachIniFile())
- End If
- End Sub
-
- Private Sub ShortTxBx_EgtClosed(sender As Object, e As EventArgs) Handles ShortTxBx.EgtClosed
- Dim dVal As Double = 0
- StringToLen(ShortTxBx.Text, dVal)
- WritePrivateProfileString(S_MACH_NEST, K_MACH_MILLING_SHORTENING, DoubleToString(dVal, 2), m_MainWindow.GetMachIniFile())
- End Sub
-
- Private Sub InternalCutsChBx_Click(sender As Object, e As RoutedEventArgs) Handles InternalCutsChBx.Click
- If InternalCutsChBx.IsChecked() Then
- WritePrivateProfileString(S_MACH_NEST, K_MACH_MILLING_ON_SINKS, "1", m_MainWindow.GetMachIniFile())
- Else
- WritePrivateProfileString(S_MACH_NEST, K_MACH_MILLING_ON_SINKS, "0", m_MainWindow.GetMachIniFile())
- End If
- End Sub
-
- Private Sub WjIntCutsChBx_Click(sender As Object, e As RoutedEventArgs) Handles WjIntCutsChBx.Click
- If WjIntCutsChBx.IsChecked() Then
- WritePrivateProfileString(S_MACH_NEST, K_MACH_MILLING_ON_SINKS, "1", m_MainWindow.GetMachIniFile())
- Else
- WritePrivateProfileString(S_MACH_NEST, K_MACH_MILLING_ON_SINKS, "0", m_MainWindow.GetMachIniFile())
- End If
- End Sub
-
- ' -- INIZIO -- nuovi parametri per prefori WaterJet
- Private Sub HolesDiameterWJTxBx_Click(sender As Object, e As EventArgs) Handles HolesDiameterWJTxBx.EgtClosed
- Dim dVal As Double = 0
- StringToLen(HolesDiameterWJTxBx.Text, dVal)
- WritePrivateProfileString(S_MACH_NEST, K_HOLES_DIAMITERWJ, DoubleToString(dVal, 2), m_MainWindow.GetMachIniFile())
- End Sub
-
- Private Sub HolesOffsetWJTxBx_Click(sender As Object, e As EventArgs) Handles HolesOffsetWJTxBx.EgtClosed
- Dim dVal As Double = 0
- StringToLen(HolesOffsetWJTxBx.Text, dVal)
- WritePrivateProfileString(S_MACH_NEST, K_HOLES_OFFSETWJ, DoubleToString(dVal, 2), m_MainWindow.GetMachIniFile())
- End Sub
-
- Private Sub MinRadiusWJTxBx_Click(sender As Object, e As EventArgs) Handles MinRadiusWJTxBx.EgtClosed
- Dim dVal As Double = 0
- StringToLen(MinRadiusWJTxBx.Text, dVal)
- WritePrivateProfileString(S_MACH_NEST, K_MIN_RADIUSWJ, DoubleToString(dVal, 2), m_MainWindow.GetMachIniFile())
- End Sub
-
- Private Sub OneHoleInCornerWJChBx_Click(sender As Object, e As EventArgs) Handles OneHoleInCornerWJChBx.Click
- If OneHoleInCornerWJChBx.IsChecked() Then
- WritePrivateProfileString(S_MACH_NEST, K_MACH_DRILLINGWJ_ON_CORNERS, "1", m_MainWindow.GetMachIniFile())
- Else
- WritePrivateProfileString(S_MACH_NEST, K_MACH_DRILLINGWJ_ON_CORNERS, "0", m_MainWindow.GetMachIniFile())
- End If
- End Sub
- ' -- FINE -- nuovi parametri per prefori WaterJet
-
- ' -- INIZIO -- nuovi parametri per Rettifica angoli in sottosquadra WaterJet
- Private Sub EnableRectificationChBx_Click(sender As Object, e As EventArgs) Handles EnableRectificationChBx.Click
- If EnableRectificationChBx.IsChecked() Then
- WritePrivateProfileString(S_MACH_NEST, K_MACH_RECTIFICATION_ON_SUBSQUARE, "1", m_MainWindow.GetMachIniFile)
- Else
- WritePrivateProfileString(S_MACH_NEST, K_MACH_RECTIFICATION_ON_SUBSQUARE, "0", m_MainWindow.GetMachIniFile)
- End If
- End Sub
- ' -- FINE -- nuovi parametri per Rettifica angoli in sottosquadra WaterJet
-
Private Sub TmEnableChBx_Click(sender As Object, e As RoutedEventArgs) Handles TmEnableChBx.Click
If TmEnableChBx.IsChecked() Then
WritePrivateProfileString(S_MACH_NEST, K_MACH_ENGRAVING_WITHMILL, "1", m_MainWindow.GetMachIniFile())
@@ -1557,4 +1327,16 @@ Public Class AlarmsPageUC
Return String.Empty
End Function
+ Private Sub EnableFinalSawCutChBx_IsChecked() Handles EnableFinalSawCutChBx.Click
+ m_MainWindow.m_CurrentMachine.bEnableFinalSawCut = EnableFinalSawCutChBx.IsChecked
+ WritePrivateProfileString(S_MACH, K_ENABLEFINALSAWCUT, If(m_MainWindow.m_CurrentMachine.bEnableFinalSawCut, "1", "0"), m_MainWindow.GetMachIniFile())
+ End Sub
+
+ Private Sub FinalDepthTxBx_EgtClosed() Handles FinalDepthTxBx.EgtClosed
+ Dim dVal As Double = 0
+ StringToLen(FinalDepthTxBx.Text, dVal)
+ m_MainWindow.m_CurrentMachine.dFinalDepth = dVal
+ WritePrivateProfileString(S_MACH, K_FINALDEPTH, DoubleToString(m_MainWindow.m_CurrentMachine.dFinalDepth, 3), m_MainWindow.GetMachIniFile())
+ End Sub
+
End Class
diff --git a/OmagCUTDarkDictionary.xaml b/OmagCUTDarkDictionary.xaml
index 51f49bf..e817db5 100644
--- a/OmagCUTDarkDictionary.xaml
+++ b/OmagCUTDarkDictionary.xaml
@@ -484,7 +484,7 @@
@@ -639,10 +639,10 @@
@@ -748,8 +748,80 @@
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/OmagCUTDictionary.xaml b/OmagCUTDictionary.xaml
index fecb21c..5275ac2 100644
--- a/OmagCUTDictionary.xaml
+++ b/OmagCUTDictionary.xaml
@@ -1040,6 +1040,7 @@