EgtCAM5 :

- Aggiunta voce SplitArcs nelle MachOptions.
- Aggiunto modulo con parametri utili della finestra Options.
- Piccola miglioria progetto selezione avanzata(scalo le linee sul piano di vista corrente).

MachOptionsWindow/MachOptionsViewModel.vb

@@ -21,11 +21,49 @@ Namespace EgtCAM5
          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
+            Return m_SplitArcsList
+         End Get
+      End Property
+
+      Private m_SelectedSplitArcs As MCH_SA
+      Public Property SelectedSplitArcs As MCH_SA
+         Get
+            Return m_SelectedSplitArcs
+         End Get
+         Set(value As MCH_SA)
+            EgtMdbSetGeneralParam(MCH_GP.SPLITARCS, value)
+            EgtMdbSave()
+            m_SelectedSplitArcs = value
+         End Set
+      End Property
+
+#Region "Messages"
+
+      Public ReadOnly Property SafeZMsg As String
+         Get
+            Return EgtMsg(MSG_MACHININGOPTIONPAGE + 1)
+         End Get
+      End Property
+      Public ReadOnly Property SplitArcsMsg As String
+         Get
+            Return EgtMsg(MSG_MACHININGOPTIONPAGE + 2)
+         End Get
+      End Property
+
+#End Region
+
       Sub New()
          ' Leggo distanza di sicurezza
          Dim dVal As Double = 0
          EgtMdbGetGeneralParam(MCH_GP.SAFEZ, dVal)
          m_dSafeZ = LenToString(dVal, 2)
+         ' Leggo tipo di spezzatura archi
+         Dim nVal As Integer = 0
+         EgtMdbGetGeneralParam(MCH_GP.SPLITARCS, nVal)
+         m_SelectedSplitArcs = DirectCast(nVal, MCH_SA)
       End Sub
 
 #Region "COMMANDS"
@@ -63,4 +101,26 @@ Namespace EgtCAM5
 
    End Class
 
-End Namespace
+End Namespace
+
+Public Class SplitArcTypeConverter
+   Implements IValueConverter
+
+   Public Function Convert(value As Object, targetType As Type, parameter As Object, culture As System.Globalization.CultureInfo) As Object Implements IValueConverter.Convert
+      Select Case CInt(value)
+         Case MCH_SA.NEVER
+            Return EgtMsg(MSG_MACHININGOPTIONPAGE + 3)
+         Case MCH_SA.GEN_PLANE
+            Return EgtMsg(MSG_MACHININGOPTIONPAGE + 4)
+         Case MCH_SA.NO_XY_PLANE
+            Return EgtMsg(MSG_MACHININGOPTIONPAGE + 5)
+         Case Else
+            Return EgtMsg(MSG_MACHININGOPTIONPAGE + 6)
+      End Select
+   End Function
+
+   Public Function ConvertBack(value As Object, targetType As Type, parameter As Object, culture As System.Globalization.CultureInfo) As Object Implements IValueConverter.ConvertBack
+      Throw New NotImplementedException
+   End Function
+
+End Class