Merge branch 'Features/Set_Machining' of https://gitlab.steamware.net/egalware-cadcam/interfacce/OmagCUT into Features/Set_Machining

2025-03-05 11:38:11 +01:00
parent 10655893e4 ec1af67d5b
commit 8c0d5a651d
1 changed files with 5 additions and 0 deletions
@@ -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