- LongCut e LongDoubleCut: migliorata spezzatura taglio passante con due spezzoni

- BeamExec: aggiunta scrittura parametro BARLEN nelle info del mach group

LuaLibs/ProcessLongDoubleCut.lua

@@ -18,6 +18,7 @@
 -- 2023/03/06 Correzione per i casi con lavorazione limitata.
 -- 2023/03/23 Correzione per caso con doppia lama da sotto.
 -- 2023/06/07 Sistemazione SCC per macchina TURN
+-- 2023/10/24 Migliorata spezzatura taglio passante con due spezzoni
 
 -- Tabella per definizione modulo
 local ProcessLong2Cut = {}
@@ -311,12 +312,17 @@ end
 ---------------------------------------------------------------------
 -- Applicazione della lavorazione
 function ProcessLong2Cut.Make( Proc, nPhase, nRawId, nPartId, bForcedBladeMaster, nUseSideToolMaster)
-
+   -- recupero l'ingombro del grezzo di appartenenza
+   local b3Raw = EgtGetRawPartBBox( nRawId)
    local b3Solid = EgtGetBBoxGlob( EgtGetFirstNameInGroup( nPartId, 'Box') or GDB_ID.NULL, GDB_BB.STANDARD)
    -- carico i dati delle face già inserite nelle opportune tabelle
    local nFaceLimit, tFaceLong, ptC, vtN = IdentifyFaces( Proc)
    local dLen = Proc.Box:getDimX()
 
+   -- recupero lunghezza grezzo totale da info sulla macchinata
+   local dBarLen = EgtGetInfo( EgtGetCurrMachGroup(), 'BARLEN', 'd')
+   local dOvmHead = b3Raw:getMax():getX() - b3Solid:getMax():getX()
+
    -- verifico posizione (+1=sopra, -1=sotto, 0=sui lati)
    local nSide = 0
    if vtN[1]:getZ() > 0.0175 and vtN[2]:getZ() > 0.0175 then
@@ -1048,8 +1054,14 @@ function ProcessLong2Cut.Make( Proc, nPhase, nRawId, nPartId, bForcedBladeMaster
                dEndAccDist = min( dEndAccDist, dLen/2)
                dStartAccDist = dLen - dEndAccDist
             else
-               dStartAccDist = dLen/2
-               dEndAccDist = dStartAccDist
+               -- se c'è del grezzo aggiuntivo e, considerando il grezzo mi resta abbastanza materiale per pinzare, allora faccio spezzatura asimmetrica
+               if BD.MIN_CLAMPING_LEN and ( dBarLen - dLen) > dOvmHead + 100 * GEO.EPS_SMALL and ( dBarLen - dStartAccDist > BD.MIN_CLAMPING_LEN) then
+                  dStartAccDist = dBarLen/2
+                  dEndAccDist = dLen - dStartAccDist
+               else
+                  dStartAccDist = dLen/2
+                  dEndAccDist = dStartAccDist
+               end
             end
          else
             nC = 1