Egalware/OmagCUT
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

OmagCUT 2.3b1:

Browse Source 
-> salvataggio nel file Config.ini dei parametri Step e AngStep della pagina NestPage.
This commit is contained in:
Nicola Pievani
2021-02-17 17:14:03 +00:00
parent a27f438fed
commit cd322cf1de
1 changed files with 16 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files
CadCuts/NestPageUC.xaml.vb
+16
View File
@@ -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