OmagCUT 1.6s9 :

- aggiunto step per taglio di lama inclinato
- aggiunto controllo diametro lama entro limite prima di movimentazione pezzi con ventosa
- aggiunto controllo diametro lama entro limite prima di tastatura spessore grezzo.

CurrentMachine.vb

@@ -33,6 +33,12 @@ Public Class CurrentMachine
    ' Distanza di sicurezza
    Private m_dSafeZ As Double = 0
 
+   ' Massimo diametro lama per utilizzo ventose movimento pezzi
+   Private m_dMaxSawDiamForVac As Double = 650
+
+   ' Massimo diametro lama per tastatura grezzo
+   Private m_dMaxSawDiamForProbe As Double = 650
+
    ' Flag che indicano stato tipologia utensili (attivo/non attivo)
    Private m_bSaw As Boolean = False
    Private m_bDrill As Boolean = False
@@ -165,6 +171,18 @@ Public Class CurrentMachine
       End Get
    End Property
 
+   Friend ReadOnly Property dMaxSawDiamForVac As Double
+      Get
+         Return m_dMaxSawDiamForVac
+      End Get
+   End Property
+
+   Friend ReadOnly Property dMaxSawDiamForProbe As Double
+      Get
+         Return m_dMaxSawDiamForProbe
+      End Get
+   End Property
+
    Friend Property dSafeZ As Double
       Get
          If EgtMdbGetGeneralParam(MCH_GP.SAFEZ, m_dSafeZ) Then
@@ -527,6 +545,9 @@ Public Class CurrentMachine
       m_bDrill = (GetPrivateProfileInt(S_TOOLS, K_DRILLBIT, 0, sMachIniFile) > 0)
       ' fresa
       m_bMill = (GetPrivateProfileInt(S_TOOLS, K_MILL, 0, sMachIniFile) > 0)
+      ' Leggo limiti diametro lama per altre operazioni
+      m_dMaxSawDiamForVac = GetPrivateProfileDouble(S_TOOLS, K_MAXSAWDIAMFORVAC, 650, sMachIniFile)
+      m_dMaxSawDiamForProbe = GetPrivateProfileDouble(S_TOOLS, K_MAXSAWDIAMFORPROBE, 650, sMachIniFile)
       ' Leggo flag presenza tipologie lavorazioni
       ' lama
       m_bSawing = (GetPrivateProfileInt(S_MACHININGS, K_SAWING, 0, sMachIniFile) > 0)
@@ -610,6 +631,24 @@ Public Class CurrentMachine
 
    End Sub
 
+   Friend Function IsVacuumMovePossible() As Boolean
+      ' Recupero diametro lama corrente
+      EgtTdbSetCurrTool(sCurrSaw)
+      Dim dToolDiam As Double = 0
+      EgtTdbGetCurrToolParam(MCH_TP.DIAM, dToolDiam)
+      ' Confronto con massimo ammesso
+      Return (dToolDiam <= dMaxSawDiamForVac)
+   End Function
+
+   Friend Function IsRawProbingPossible() As Boolean
+      ' Recupero diametro lama corrente
+      EgtTdbSetCurrTool(sCurrSaw)
+      Dim dToolDiam As Double = 0
+      EgtTdbGetCurrToolParam(MCH_TP.DIAM, dToolDiam)
+      ' Confronto con massimo ammesso
+      Return (dToolDiam <= dMaxSawDiamForProbe)
+   End Function
+
    Friend Function GetPrivateProfileMaterial(
                          ByVal lpAppName As String,
                          ByVal lpKeyName As String,