EgtCAM5 2.1j8 :

- nel caso di utensile WJ non si controlla il valore massimo del massimo materiale.
This commit is contained in:
Dario Sassi
2019-10-29 12:03:45 +00:00
parent 59cf102328
commit f14178a3cd
2 changed files with 20 additions and 18 deletions
+18 -16
View File
@@ -1773,21 +1773,15 @@ Public Class ToolTreeViewItem
Private Function ValidateMaxMat() As Boolean
m_MaxMatError = String.Empty
If Not IsNothing(m_MaxMat) Then
If Not IsNothing( m_MaxMat) Then
Dim dMaxMat As Double = 0
StringToLen(m_MaxMat, dMaxMat)
' Non ammesso valore negativo
If dMaxMat < EPS_SMALL Then
m_MaxMatError = EgtMsg(MSG_TOOLSERRORS + 6)
End If
If (Type And MCH_TF.SAWBLADE) = 0 Then
If Not IsNothing(m_Len) Then
Dim dLen As Double = 0
StringToLen(m_Len, dLen)
If dMaxMat > dLen + EPS_SMALL Then
m_MaxMatError = EgtMsg(MSG_TOOLSERRORS + 7)
End If
End If
Else
' Per lame
If ( Type And MCH_TF.SAWBLADE) <> 0 Then
If Not IsNothing(m_Diam) Then
Dim dDiam As Double = 0
StringToLen(m_Diam, dDiam)
@@ -1795,14 +1789,22 @@ Public Class ToolTreeViewItem
m_MaxMatError = EgtMsg(MSG_TOOLSERRORS + 17)
End If
End If
' Per getto d'acqua
ElseIf ( Type And MCH_TF.WATERJET) <> 0 Then
' Non devo fare controlli
' Per tutti gli altri
Else
If Not IsNothing(m_Len) Then
Dim dLen As Double = 0
StringToLen(m_Len, dLen)
If dMaxMat > dLen + EPS_SMALL Then
m_MaxMatError = EgtMsg(MSG_TOOLSERRORS + 7)
End If
End If
End If
End If
NotifyPropertyChanged("MaxMatErrorMsg")
If String.IsNullOrEmpty(m_MaxMatError) Then
Return True
Else
Return False
End If
NotifyPropertyChanged( "MaxMatErrorMsg")
Return String.IsNullOrEmpty( m_MaxMatError)
End Function
Private Function ValidateThick() As Boolean