DataBeam :

- in LongCut migliorato calcolo e verifica affondamento per lavorazione con lama con codolo in mezzo
- in LongDoubleCut correzioni per TURN.

LuaLibs/ProcessLongCut.lua

@@ -1,4 +1,4 @@
--- ProcessLongCut.lua by Egaltech s.r.l. 2023/05/03
+-- ProcessLongCut.lua by Egaltech s.r.l. 2023/05/19
 -- Gestione calcolo taglio longitudinale per Travi
 -- 2021/02/03 Corretto FaceUse con fresa orizzontale su taglio orizzontale.
 -- 2021/05/18 Possibile taglio con lama anche di fianco su macchina con testa da sotto.
@@ -27,6 +27,7 @@
 -- 2023/03/22 Correzione a SCC lama a seguito di modifiche alle direzioni dei tagli.
 -- 2023/04/17 Gestione unificata SCC tramite funzione apposita GetSCC
 -- 2023/05/03 Corretto SCC in caso di asse utensile allineato con Z.
+-- 2023/05/19 Migliorato calcolo e verifica affondamento per lavorazione con lama con codolo in mezzo.
 
 -- Tabella per definizione modulo
 local ProcessLongCut = {}
@@ -725,11 +726,12 @@ function ProcessLongCut.Make( Proc, nPhase, nRawId, nPartId, bCustUseBlade, nCus
       local dToolDiam = 0
       local dThick = 0
       local dMaxDepth = 0
+      local dMaxVertDepth = 0
       local sCuttingDn
       local dToolDiamDn = 0
       local dThickDn = 0
       local dMaxDepthDn = 0
-      -- recupero la lavorazione
+      -- recupero eventuale lavorazione con lama su testa da sotto 
       if bCanUseUnderBlade then
          sCuttingDn = ML.FindCutting( 'HeadSide_H2', false, true)
          if not sCuttingDn then
@@ -747,6 +749,7 @@ function ProcessLongCut.Make( Proc, nPhase, nRawId, nPartId, bCustUseBlade, nCus
             end
          end
       end
+      -- recupero eventuale lavorazione con lama
       if bCanUseBlade then
          local sCutType = EgtIf( BD.USE_LONGCUT, 'LongCut', 'HeadSide')
          sCutting = ML.FindCutting( sCutType)
@@ -762,6 +765,7 @@ function ProcessLongCut.Make( Proc, nPhase, nRawId, nPartId, bCustUseBlade, nCus
                dToolDiam = EgtTdbGetCurrToolParam( MCH_TP.DIAM) or dToolDiam
                dThick = EgtTdbGetCurrToolParam( MCH_TP.THICK) or dThick
                dMaxDepth = EgtTdbGetCurrToolMaxDepth() or dMaxDepth
+               dMaxVertDepth = dMaxDepth - ( BD.DECR_VERT_CUT or 0)
             end
          end
       end
@@ -916,25 +920,23 @@ function ProcessLongCut.Make( Proc, nPhase, nRawId, nPartId, bCustUseBlade, nCus
       end
       -- si percorrono i lati alto e basso della faccia
       -- calcolo quanto è l'affondamento del taglio
-      local dOffsetTopBlade = ( dWidth + dDimStrip) / 2
-      local dOffsetDownBlade = ( dWidth + dDimStrip) / 2
-      if bFinishWithChainSaw then
-         dOffsetTopBlade = dWidth / 2
-         dOffsetDownBlade = dWidth / 2
-      end
+      local dMainMaxDepth = EgtIf( abs( vtN:getY()) < 1e-6, dMaxDepth, dMaxVertDepth)
+      local dOtherMaxDept = EgtIf( bCanUseUnderBlade, dMaxDepthDn, dMainMaxDepth)
+      local dCoeff = min( ( dWidth - dDimStrip) / ( dMainMaxDepth + dOtherMaxDept), 1)
+      local dOffsetTopBlade = dWidth - dCoeff * dMainMaxDepth
+      local dOffsetDownBlade = dWidth - dCoeff * dOtherMaxDept
       local nStepDownBlade = 1
-      local dStepDownBlade = dWidth - dOffsetDownBlade
+      local dStepDownBlade = dOtherMaxDept
       -- se lama da sotto verifico se la componente Y della profondità di taglio supera la capacità della lama
-      if ( nSide == -1 or abs(nSide) == 2) and bCanUseUnderBlade and (( dWidth - dDimStrip) / 2) > dMaxDepthDn then
+      if ( nSide == -1 or abs(nSide) == 2) and bCanUseUnderBlade and ( dOffsetTopBlade - dDimStrip) > dOtherMaxDept then
          if bFinishWithChainSaw then
-            dOffsetTopBlade = max( dWidth - dMaxDepth + ( BD.DECR_VERT_CUT or 0), dOffsetTopBlade)
-            dOffsetDownBlade = max( dWidth - dMaxDepthDn, dOffsetDownBlade)
             local dHCutDownBlade = dWidth - dOffsetDownBlade
-            local dMaxStepDownBlade = 64
+            local dMaxStepDownBlade = 80
             nStepDownBlade = ceil( dHCutDownBlade / dMaxStepDownBlade)
             dStepDownBlade = dHCutDownBlade / nStepDownBlade
          else
-            local sErr = 'Error : side depth is bigger than underneath blade cut depth'
+            local dDelta = dWidth - dDimStrip - ( dMainMaxDepth + dOtherMaxDept)
+            local sErr = 'Error : side depth is bigger than total cut depth (Diff=' .. EgtNumToString( dDelta)..')'
             EgtOutLog( sErr)
             return false, sErr
          end