EgtCAM5 2.1j8 :
- nel caso di utensile WJ non si controlla il valore massimo del massimo materiale.
This commit is contained in:
@@ -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
|
||||
|
||||
Reference in New Issue
Block a user