EgtCAM5 1.8e3 :

- sistemate lavorazioni per nuovi parametri di categoria avanzata
- nascosti parametri fresatura per tab (non ancora implementata la funzionalità)
- migliorato report errori in lavorazioni
- migliorato controllo attrezzaggio.

MachOptionsWindow/MachOptionsViewModel.vb

@@ -19,6 +19,20 @@ Namespace EgtCAM5
          End Set
       End Property
 
+      Private m_dSafeAggrBottZ As String
+      Public Property SafeAggrBottZ As String
+         Get
+            Return m_dSafeAggrBottZ
+         End Get
+         Set(value As String)
+            Dim dSafeAggrBottZ As Double = 0
+            StringToLen(value, dSafeAggrBottZ)
+            EgtMdbSetGeneralParam(MCH_GP.SAFEAGGRBOTTZ, dSafeAggrBottZ)
+            EgtMdbSave()
+            m_dSafeAggrBottZ = value
+         End Set
+      End Property
+
       Private m_SplitArcsList As New List(Of MCH_SA)({MCH_SA.NEVER, MCH_SA.GEN_PLANE, MCH_SA.NO_XY_PLANE, MCH_SA.ALWAYS})
       Public ReadOnly Property SplitArcsList As List(Of MCH_SA)
          Get
@@ -65,11 +79,19 @@ Namespace EgtCAM5
             Return EgtMsg(MSG_MACHININGOPTIONPAGE + 1)
          End Get
       End Property
+
+      Public ReadOnly Property SafeAggrBottZMsg As String
+         Get
+            Return EgtMsg(MSG_MACHININGOPTIONPAGE + 8)
+         End Get
+      End Property
+
       Public ReadOnly Property SplitArcsMsg As String
          Get
             Return EgtMsg(MSG_MACHININGOPTIONPAGE + 2)
          End Get
       End Property
+
       Public ReadOnly Property DefaultSetUpMsg As String
          Get
             Return EgtMsg(MSG_MACHININGOPTIONPAGE + 7)
@@ -86,6 +108,10 @@ Namespace EgtCAM5
          Dim dVal As Double = 0
          EgtMdbGetGeneralParam(MCH_GP.SAFEZ, dVal)
          m_dSafeZ = LenToString(dVal, 2)
+         ' Leggo distanza di sicurezza per rinvii da sotto
+         dVal = 0
+         EgtMdbGetGeneralParam(MCH_GP.SAFEAGGRBOTTZ, dVal)
+         m_dSafeAggrBottZ = LenToString(dVal, 2)
          ' Leggo tipo di spezzatura archi
          Dim nVal As Integer = 0
          EgtMdbGetGeneralParam(MCH_GP.SPLITARCS, nVal)