diff --git a/CadCuts/SplitAuto.vb b/CadCuts/SplitAuto.vb index 1da1cdb..c8f4aca 100644 --- a/CadCuts/SplitAuto.vb +++ b/CadCuts/SplitAuto.vb @@ -1,6 +1,4 @@ -Imports System.Net -Imports System.Windows.Forms.Integration -Imports EgtUILib +Imports EgtUILib Public Module SplitAuto @@ -430,10 +428,14 @@ Public Module SplitAuto Else colCut = COL_MCH_CUT() End If - ' Se macchina con cambio utensile anche per lama + ' Se macchina con cambio utensile di lama If m_MainWindow.m_CurrentMachine.MountedToolConfig = CurrentMachine.MountedToolConfigs.TOOLCHANGERWITHSAW Then + Dim sSawing As String = String.Empty, sSaw As String = String.Empty + m_MainWindow.m_CadCutPageUC.m_SplitPage.GetCurrSawingandSaw(nOperId, sSawing, sSaw) + ' Setto l'utensile corrente + EgtTdbSetCurrTool(sSaw) ' recupero il colore della lavorazione direttamente dall'utensile - ChangeToolWD.GetColorPV() + colCut = ChangeToolWD.GetColorPV() End If For Each nId In vCutId