diff --git a/DirectCuts/Polishing.xaml.vb b/DirectCuts/Polishing.xaml.vb index 041a78c..f00347f 100644 --- a/DirectCuts/Polishing.xaml.vb +++ b/DirectCuts/Polishing.xaml.vb @@ -213,6 +213,10 @@ Public Class Polishing Dim nKerfId As Integer = EgtGetFirstNameInGroup( m_CurrProjPage.m_nRawId, NAME_KERF) m_bPoliOk = AddPolishings( sKitName, nKerfId) EgtSetCurrPhase( 1) + ' Eventuale eliminazione Home finale + If Not m_MainWindow.m_CurrentMachine.bDirectCutsFinalHome Then + RemoveFinalHome() + End If ' Dichiaro polishing attivo DirectCut.m_bPolishingOn = True Return m_bPoliOk