From cd322cf1dee3b4603cb339c42636a8b90f94de53 Mon Sep 17 00:00:00 2001 From: Nicola Pievani Date: Wed, 17 Feb 2021 17:14:03 +0000 Subject: [PATCH] OmagCUT 2.3b1: -> salvataggio nel file Config.ini dei parametri Step e AngStep della pagina NestPage. --- CadCuts/NestPageUC.xaml.vb | 16 ++++++++++++++++ 1 file changed, 16 insertions(+) diff --git a/CadCuts/NestPageUC.xaml.vb b/CadCuts/NestPageUC.xaml.vb index a5e1e9e..5560dda 100644 --- a/CadCuts/NestPageUC.xaml.vb +++ b/CadCuts/NestPageUC.xaml.vb @@ -1324,22 +1324,38 @@ Public Class NestPageUC Private Sub StepMoveTxBx_EgtClosed(sender As Object, e As EventArgs) Handles StepMoveTxBx.EgtClosed Dim dVal As Double If StringToLen(StepMoveTxBx.Text, dVal) Then + If dVal <= 0 Then + dVal = 0 + StepMoveTxBx.Text = LenToString(dVal, 2) + ElseIf dVal > 1000 Then + dVal = 1000 + StepMoveTxBx.Text = LenToString(dVal, 2) + End If If Not m_bRegister Then m_dStep = Math.Max(dVal, 2 * EPS_SMALL) Else m_dRegStep = Math.Max(dVal, 2 * EPS_SMALL) End If + WritePrivateProfileString(S_NEST, K_STEP, StepMoveTxBx.Text, m_MainWindow.GetIniFile()) End If End Sub Private Sub RotationAngleTxBx_EgtClosed(sender As Object, e As EventArgs) Handles RotationAngleTxBx.EgtClosed Dim dVal As Double If StringToDouble(RotationAngleTxBx.Text, dVal) Then + If dVal <= 0 Then + dVal = 0 + RotationAngleTxBx.Text = DoubleToString(dVal, 2) + ElseIf dVal > 180 Then + dVal = 180 + RotationAngleTxBx.Text = DoubleToString(dVal, 2) + End If If Not m_bRegister Then m_dAngStep = Math.Max(dVal, 50 * EPS_ANG_SMALL) Else m_dRegAngStep = Math.Max(dVal, 50 * EPS_ANG_SMALL) End If + WritePrivateProfileString(S_NEST, K_ANGSTEP, RotationAngleTxBx.Text, m_MainWindow.GetIniFile()) End If End Sub