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