DataBeam 2.5h2 :

- in LapJoint e Mortise modificata posizione braccio per FAST quando vicino alla coda della trave
- in RidgeLap corretto ingombro lavorazione in testa e coda quando rivolta verso il basso.

LuaLibs/ProcessLapJoint.lua

@@ -1,4 +1,4 @@
--- ProcessLapJoint.lua by Egaltech s.r.l. 2023/07/19
+-- ProcessLapJoint.lua by Egaltech s.r.l. 2023/08/10
 -- Gestione calcolo mezzo-legno per Travi
 -- 2019/10/08 Agg. gestione OpenPocket.
 -- 2021/01/24 Con sega a catena ora sempre impostato asse A.
@@ -72,6 +72,7 @@
 -- 2023/08/01 Aggiunta gestione rinvio angolare solo per tasche 5 lati, da sotto e perfettamente verticali.
 -- 2023/08/02 Piccola correzione al calcolo della distanza di sicurezza in base al gambo dell'utensile.
 -- 2023/08/02 Corretto incremento della profondità pari al raggio utensile per tunnel con sega a catena.
+-- 2023/08/10 Modificata scelta SCC per tasche in Y+/- in coda o quasi (anche per relativi antischeggia con lama).
 
 -- Tabella per definizione modulo
 local ProcessLapJoint = {}
@@ -3173,7 +3174,10 @@ local function MakePocket( Proc, nPartId, b3Solid, ptPs, tvtN, nFaceRef, sMchFin
       if AreSameVectorApprox( tvtN[2], Z_AX()) then
          nSCC = MCH_SCC.ADIR_YM
       elseif abs( tvtN[2]:getX()) < 0.1 then
-         nSCC = EgtIf( BL.IsPartFinalPhase( EgtGetCurrPhase()), MCH_SCC.ADIR_XM, MCH_SCC.ADIR_XP)
+         local bNearTail = ( Proc.Box:getMax():getX() < b3Solid:getCenter():getX() + 50 and
+                             Proc.Box:getMax():getX() - b3Solid:getMin():getX() < 1000)
+         local bVeryShortPart = ( BD.LEN_VERY_SHORT_PART and b3Solid:getDimX() < BD.LEN_VERY_SHORT_PART)
+         nSCC = EgtIf( BL.IsPartFinalPhase( EgtGetCurrPhase()) or ( bNearTail and not bVeryShortPart), MCH_SCC.ADIR_XM, MCH_SCC.ADIR_XP)
       elseif tvtN[2]:getY() > 0.1 then
          nSCC = MCH_SCC.ADIR_YP
       end
@@ -3949,7 +3953,7 @@ local function MakeByPockets( Proc, nPhase, nRawId, nPartId, nChamfer, dDepthCha
 end
 
 ---------------------------------------------------------------------
-local function ManageAntiSplintBySaw( Proc, b3Raw, bIsU, vtN, nFacInd, sWarn, bMillDown, bReduceDepth)
+local function ManageAntiSplintBySaw( Proc, b3Raw, b3Solid, bIsU, vtN, nFacInd, sWarn, bMillDown, bReduceDepth)
 
    local bMadeASbyBld = false
    local nNumFac = EgtIf( bIsU, 2, 1)
@@ -3989,9 +3993,18 @@ local function ManageAntiSplintBySaw( Proc, b3Raw, bIsU, vtN, nFacInd, sWarn, bM
                if abs( vtN:getZ()) > 0.63 or abs( vtN:getY()) > 0.63 then
                   -- se superficie principale parallela al piano XZ
                   if nPrefSide == 0 then
-                     -- se facce praticamente verticali || mandrino a destra
+                     -- se facce praticamente verticali ||
                      if abs( vtNFc:getZ()) < 0.1 then
-                        nPrefSide = 2
+                        -- se FAST, mandrino a destra o sinistra come svuotatura
+                        if not BD.C_SIMM and not BD.TURN then
+                           local bNearTail = ( Proc.Box:getMax():getX() < b3Solid:getCenter():getX() + 50 and
+                                             Proc.Box:getMax():getX() - b3Solid:getMin():getX() < 1000)
+                           local bVeryShortPart = ( BD.LEN_VERY_SHORT_PART and b3Solid:getDimX() < BD.LEN_VERY_SHORT_PART)
+                           nPrefSide = EgtIf( BL.IsPartFinalPhase( EgtGetCurrPhase()) or ( bNearTail and not bVeryShortPart), 1, 2)
+                        -- altrimenti sempre a destra
+                        else
+                           nPrefSide = 2
+                        end
                      -- se facce inclinate \\ allora mandrino a destra (per essere verso l'alto)
                      elseif vtNFc:getX() * vtNFc:getZ() > 0 then
                         nPrefSide = 2
@@ -5152,7 +5165,7 @@ local function MakeMoreFaces( Proc, nPhase, nRawId, nPartId, dOvmHead, bSinglePa
                      if nChamfer < 2 and nQAntisplintResult == 1 and (( bIsU or bIsL) and ( bPassThrou or bPassEdge)) and ( vtNOri:getZ() > -0.087 or BD.DOWN_HEAD or BD.TURN) then
                         local bOk
                         local bSawDown = ( bMillDown and not bMillUp)
-                        bMadeASbyBld, bOk, sWarn = ManageAntiSplintBySaw( Proc, b3Raw, bIsU, vtNOri, nFacIndOri, sWarn, bSawDown, true)
+                        bMadeASbyBld, bOk, sWarn = ManageAntiSplintBySaw( Proc, b3Raw, b3Solid, bIsU, vtNOri, nFacIndOri, sWarn, bSawDown, true)
                         if not bOk then return false, sWarn end
                      end
                      -- in base al flag interno e al numero di facce e se ha forma ad U
@@ -5391,7 +5404,7 @@ local function MakeMoreFaces( Proc, nPhase, nRawId, nPartId, dOvmHead, bSinglePa
             if nChamfer < 2 and nQAntisplintResult == 1 and (( bIsU or bIsL) and ( bPassThrou or bPassEdge)) and ( vtNOri:getZ() > -0.087 or BD.DOWN_HEAD or BD.TURN) then
                local bOk
                local bSawDown = ( bMillDown and not bMillUp)
-               bMadeASbyBld, bOk, sWarn = ManageAntiSplintBySaw( Proc, b3Raw, bIsU, vtNOri, nFacIndOri, sWarn, bSawDown)
+               bMadeASbyBld, bOk, sWarn = ManageAntiSplintBySaw( Proc, b3Raw, b3Solid, bIsU, vtNOri, nFacIndOri, sWarn, bSawDown)
                if not bOk then return false, sWarn end
             end
             if nChamfer < 2 and nQAntisplintResult == 2 then