diff --git a/CadCuts/SplitPageUC.xaml.vb b/CadCuts/SplitPageUC.xaml.vb
index f90dd99..e9f64cc 100644
--- a/CadCuts/SplitPageUC.xaml.vb
+++ b/CadCuts/SplitPageUC.xaml.vb
@@ -548,10 +548,15 @@ Public Class SplitPageUC
             Next
             Dim nNewMchId As Integer = -1
             AddSawMachining(nMchId, nNewMchId)
+            ' Elimino la numerazione e la freccia
+            EgtErase(m_MachiningList(Index).m_nArrId)
+            EgtErase(m_MachiningList(Index).m_nNbrId)
             Dim Mach As New SplitMach
             If SplitAuto.CreateMach(Mach, nNewMchId) Then
                ' ricalcolo la lavorazione
                m_MachiningList(Index) = Mach
+               ' assegno numerazione
+               NumberDirectionMachining(Index)
                m_ItemList(Index).TCPos = m_ChangeToolPage.TCPos
                ' Recupero il colore della lavorazione
                Dim EgtCol As Color3d = m_ChangeToolPage.EgtColor