diff --git a/DirectCuts/FlatteningCut.xaml.vb b/DirectCuts/FlatteningCut.xaml.vb index 743da3c..187d27d 100644 --- a/DirectCuts/FlatteningCut.xaml.vb +++ b/DirectCuts/FlatteningCut.xaml.vb @@ -615,9 +615,11 @@ Public Class FlatteningCut ' ricavo l'ingombro di lavorazione in funzione dell'utensile selezionato Private Function GetFootPrintTool() As Double + ' vedere nella pagina Allarm il capito "Incisioni" + Dim bForceUseMill As Boolean = (GetPrivateProfileInt(S_MACH_NEST, K_MACH_ENGRAVING_WITHMILL, 1, m_MainWindow.GetMachIniFile()) <> 0) Dim dFootPrint As Double = 0 ' verifico quale lavorazione รจ attiva - If Not String.IsNullOrEmpty(m_MainWindow.m_CurrentMachine.sCurrSawing) Then + If Not String.IsNullOrEmpty(m_MainWindow.m_CurrentMachine.sCurrSawing) AndAlso Not bForceUseMill Then EgtTdbGetCurrToolParam(MCH_TP.THICK, dFootPrint) ElseIf Not String.IsNullOrEmpty(m_MainWindow.m_CurrentMachine.sCurrMilling) Then Dim sCurrMill = m_MainWindow.m_CurrentMachine.sCurrMill @@ -653,6 +655,9 @@ Public Class FlatteningCut Dim nCutId = EgtCreateLinePDL(nLayerId, ptStart, m_dAngO, m_dLen) ' Imposto affondamento e angolo di fianco sul taglio EgtSetInfo(nCutId, INFO_DEPTH, m_dDepth) + If (GetPrivateProfileInt(S_MACH_NEST, K_MACH_ENGRAVING_WITHMILL, 1, m_MainWindow.GetMachIniFile()) <> 0) Then + EgtSetInfo(nCutId, INFO_WIDTH, GetFootPrintTool) + End If EgtSetInfo(nCutId, INFO_SIDE_ANGLE, 0) ' Imposto prima direzione EgtSetInfo(nCutId, INFO_DIR, 1)