DataBeam :

- aggiunta funzione BeamLib.GetDistanceToNextPart per facilitare controllo di non rovinare parti in coda su lavorazioni longitudinali
- utilizzata in LongCut, LongDoubleCut e in LapJoint dove serve.

LuaLibs/ProcessLongCut.lua

@@ -1,4 +1,4 @@
--- ProcessLongCut.lua by Egaltech s.r.l. 2022/11/30
+-- ProcessLongCut.lua by Egaltech s.r.l. 2023/01/18
 -- 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.
@@ -15,7 +15,7 @@
 -- 2022/11/04 Aggiunto passaggio parametro bDownHead (Testa da Sotto) nelle chiamate a MakeSideFace.
 -- 2022/11/28 Correzioni varie per attacco, pulizia spigoli, utilizzo H3
 -- 2022/11/30 Modifiche su SCC per TURN.
--- 2022/01/18 Aggiunta, se richiesta, una lavorazione ulteriore con sega a catena nei casi in cui la doppia lama non sia sufficiente.
+-- 2023/01/18 Aggiunta, se richiesta, una lavorazione ulteriore con sega a catena nei casi in cui la doppia lama non sia sufficiente.
 
 -- Tabella per definizione modulo
 local ProcessLongCut = {}
@@ -463,10 +463,10 @@ function ProcessLongCut.Make( Proc, nPhase, nRawId, nPartId, bCustUseBlade, nCus
    local bTopStart = ( Proc.Box:getMax():getZ() > b3Solid:getMax():getZ() - 20)
    -- Determino se parte da sotto
    local bBottomStart = ( Proc.Box:getMin():getZ() < b3Solid:getMin():getZ() + 20)
-   -- determino se lavorazione da davanti o da dietro
+   -- Determino se lavorazione da davanti o da dietro
    local bFront = ( vtN:getY() < 0)
-   -- ottengo la distanza tra la fine del pezzo e il pezzo successivo
-   local dDistToNextPiece = EgtGetInfo( nRawId, 'BDST', 'd') or BD.OVM_MID
+   -- Ottengo la distanza tra la fine del pezzo e il pezzo successivo o grezzo utilizzabile e non ancora separato
+   local dDistToNextPiece = BL.GetDistanceToNextPart( nRawId, nPhase)
    local bForcedLim
    local sWarn
    ---------------------------------------------------------------------------------------------------------------------------------------- 
@@ -554,13 +554,7 @@ function ProcessLongCut.Make( Proc, nPhase, nRawId, nPartId, bCustUseBlade, nCus
       EgtOutLog( sErr)
       return false, sErr
    end
-   
-   -- verifico se la parte rimanente della barra è riutilizzabile
-   local nNextRawId = EgtGetNextRawPart( nRawId)
-   local bIsNextRawPartUnloadable = nNextRawId and 
-                                    EgtGetPartInRawPartCount( nNextRawId) <= 0 and 
-                                    EgtGetRawPartBBox( nNextRawId):getDimX() >= BD.MinRaw
-                                    
+
    -- Se non limitato o forzato uso lama e da sopra e richiesto con doppio taglio di lama e superiore al limite minimo
    if ( ( not bLimXmin and not bLimXmax) or bForceUseBladeOnNotThruFace) and ( bCanUseUnderBlade or bCanUseBlade) and nUseBlade > 0 and b3Solid:getDimX() > dLimMinPiece - 1 then
       local sCutting
@@ -607,8 +601,8 @@ function ProcessLongCut.Make( Proc, nPhase, nRawId, nPartId, bCustUseBlade, nCus
             end
          end
       end
-      -- se la fine (a sinistra) non è limitata e ho un pezzo successivo meno distante di metà raggio, oppure se grezzo finale della barra di lunghezza sufficiente, setto la fine come limitata
-      if ((( bCanUseBlade or bCanUseUnderBlade) and ( dDistToNextPiece < dToolDiam/2 or dDistToNextPiece < dToolDiamDn/2)) or bIsNextRawPartUnloadable) and not bLimXmin then
+      -- se la fine (a sinistra) non è limitata e ho un pezzo successivo o grezzo riutilizzabile meno distante di metà raggio, setto la fine come limitata
+      if (( bCanUseBlade or bCanUseUnderBlade) and ( dDistToNextPiece < dToolDiam/2 or dDistToNextPiece < dToolDiamDn/2)) and not bLimXmin then
          if bForceUseBladeOnNotThruFace then
             bForcedLim = true
             bLimXmin = true
@@ -1004,8 +998,8 @@ function ProcessLongCut.Make( Proc, nPhase, nRawId, nPartId, bCustUseBlade, nCus
             dMaxDepth = EgtTdbGetCurrToolMaxDepth() or dMaxDepth
          end
       end
-      -- se la fine (a sinistra) non è limitata e ho un pezzo successivo meno distante di metà raggio, oppure se grezzo finale della barra di lunghezza sufficiente, setto la fine come limitata
-      if ( dDistToNextPiece < dToolDiam/2 or bIsNextRawPartUnloadable) and not bLimXmin then
+      -- se la fine (a sinistra) non è limitata e ho un pezzo successivo o grezzo riutilizzabile meno distante di metà raggio, setto la fine come limitata
+      if dDistToNextPiece < dToolDiam/2 and not bLimXmin then
          bForcedLim = true
          bLimXmin = true
       end