OmagCUT 1.9g4 :

- aggiunta possibilità di riduzione feed agli estremi dei tagli vicini ai bordi lastra
- in DB lavorazioni si imposta tipo uso curve per tagli sempre KEEP.

CurrentMachine.vb

@@ -105,6 +105,11 @@ Public Class CurrentMachine
    ' Flag home finale per tagli diretti
    Private m_bDirectCutsFinalHome As Boolean = True
 
+   ' Variazione iniziale/finale della feed dei tagli
+   Private m_bFsevEnable As Boolean = False
+   Private m_dFsevLength As Double = 0
+   Private m_dFsevPerc As Double = 0
+
    ' Numero portautensili presenti
    Private m_ToolChangerNbr As Integer = 0
 
@@ -581,6 +586,34 @@ Public Class CurrentMachine
       End Set
    End Property
 
+   Friend ReadOnly Property bFsevEnable As Boolean
+      Get
+         Return m_bFsevEnable
+      End Get
+   End Property
+
+   Friend Property dFsevLength As Double
+      Get
+         Return m_dFsevLength
+      End Get
+      Set(value As Double)
+         If WritePrivateProfileString(S_NEST, K_MACH_CUTFSEVLEN, DoubleToString(value, 3), sMachIniFile) Then
+            m_dFsevLength = value
+         End If
+      End Set
+   End Property
+
+   Friend Property dFsevPerc As Double
+      Get
+         Return m_dFsevPerc
+      End Get
+      Set(value As Double)
+         If WritePrivateProfileString(S_NEST, K_MACH_CUTFSEVPERC, DoubleToString(value, 3), sMachIniFile) Then
+            m_dFsevPerc = value
+         End If
+      End Set
+   End Property
+
    Friend ReadOnly Property ToolChangerNbr As Integer
       Get
          Return m_ToolChangerNbr
@@ -899,6 +932,11 @@ Public Class CurrentMachine
       ' Leggo flag per posizione home alla fine dei tagli diretti
       m_bDirectCutsFinalHome = (GetPrivateProfileInt(S_MACH_DIRECTCUTS, K_FINALHOME, 1, sMachIniFile) <> 0)
 
+      ' Leggo dati per feed ridotta all'inizio/fine dei tagli
+      m_bFsevEnable = (GetPrivateProfileInt(S_NEST, K_MACH_CUTFSEVENABLE, 1, sMachIniFile) <> 0)
+      m_dFsevLength = GetPrivateProfileDouble(S_NEST, K_MACH_CUTFSEVLEN, 0, sMachIniFile)
+      m_dFsevPerc = GetPrivateProfileDouble(S_NEST, K_MACH_CUTFSEVPERC, 0, sMachIniFile)
+
       ' Creo materiale di default e lo aggiungo alla lista
       ' m_Materials.Add(New Material(0, "Generico"))
       ' Leggo la lista dei materiali