Merge branch 'develop' into CheckGenerateFix

release

BatchProcess.lua

@@ -59,9 +59,23 @@ end
 local sLog = 'BatchProcess : ' .. BEAM.FILE .. ', ' .. BEAM.MACHINE .. ', ' .. sFlag
 EgtOutLog( sLog)
 
--- Cancello file di log specifico
 local sLogFile = EgtChangePathExtension( BEAM.FILE, '.txt')
-EgtEraseFile( sLogFile) 
+-- in caso sia richiesta generazione senza check, verifico prima che il file log specifico non contenga errori: se sì, forzo il check
+if BEAM.FLAG == 0 then
+   local hLogFile = io.open( sLogFile, 'r')
+   if hLogFile then
+      for line in hLogFile:lines() do
+         if EgtStartsWith( line, 'ERR') and tonumber( EgtSplitString( line, '=')[2] or 0) > 0 then
+            BEAM.FLAG = 4
+            break
+         end
+      end
+      hLogFile:close()
+   end
+end
+
+-- Cancello file di log specifico
+EgtEraseFile( sLogFile)
 
 -- Funzioni per scrittura su file di log specifico
 local function WriteErrToLogFile( nErr, sMsg, nRot, nCutId, nTaskId)

BatchProcessNew.lua

@@ -45,9 +45,23 @@ end
 local sLog = 'BatchProcess : ' .. BEAM.FILE .. ', ' .. BEAM.MACHINE .. ', ' .. sFlag
 EgtOutLog( sLog)
 
--- Cancello file di log specifico
 local sLogFile = EgtChangePathExtension( BEAM.FILE, '.txt')
-EgtEraseFile( sLogFile) 
+-- in caso sia richiesta generazione senza check, verifico prima che il file log specifico non contenga errori: se sì, forzo il check
+if BEAM.FLAG == 0 then
+   local hLogFile = io.open( sLogFile, 'r')
+   if hLogFile then
+      for line in hLogFile:lines() do
+         if EgtStartsWith( line, 'ERR') and tonumber( EgtSplitString( line, '=')[2] or 0) > 0 then
+            BEAM.FLAG = 4
+            break
+         end
+      end
+      hLogFile:close()
+   end
+end
+
+-- Cancello file di log specifico
+EgtEraseFile( sLogFile)
 
 -- Funzioni per scrittura su file di log specifico
 local function WriteErrToLogFile( nErr, sMsg, nRot, nCutId, nTaskId)

LuaLibs/BeamExec.lua

@@ -63,6 +63,7 @@
 -- 2024/03/13 In CollectFeatures si scrive lunghezza foro su Proc e si controla se serve Predrill
 --            In OrderFeature, preforo sempre prima del foro
 -- 2024/04/11 In CollectFeatures aggiunta lettura info PRID, scritta in Proc.FeatureId
+-- 2024/09/04 Gestione dipendenza foro-tasca in caso di fase con pezzo ribaltato
 
 -- Tabella per definizione modulo
 local BeamExec = {}
@@ -1277,6 +1278,20 @@ local function ClassifyFeatures( vProc, b3Raw, Stats)
       vProc[nSplitting].Down = true
       bSomeDown = true
    end
+   
+   -- si cerca di riclassificare le feature che dipendono da altre (in caso siano su rotazioni diverse)
+   for i = 1, #vProc do
+      local Proc = vProc[i]
+      -- FORATURA
+      if Drill.Identify( Proc) and Proc.Dependency then
+         if Proc.Dependency.ExecBefore then
+            if Proc.Dependency.ExecBefore.Down then
+               local bMachiningSideChanged = Drill.Classify( Proc, b3Raw, 'DOWN')
+            end
+         end
+      end
+   end
+   
    return bAllOk, bSomeDown, bSomeSide, bSplitRot
 end
 
@@ -2012,6 +2027,8 @@ function GetFeatureInfoAndDependency( vProc, b3Raw)
          -- verifico se feature tipo LapJoint è attraversata da almeno un foro
          if ( Proc.Topology == 'Pocket' or Proc.Topology == 'Tunnel' or Proc.Topology == 'Groove' or Mortise.Identify( Proc)) and Drill.Identify( ProcB) and Overlaps( Proc.Box, ProcB.Box) then
             Proc.PassedByHole = true
+            ProcB.Dependency = {}
+            ProcB.Dependency.ExecBefore = Proc
          end
          -- verifico se feature tipo LapJoint è attraversata da almeno una mortasa a coda di rondine
          if ( Proc.Topology == 'Pocket' or Proc.Topology == 'Tunnel' or Proc.Topology == 'Groove') and DtMortise.SideIdentify( ProcB) and Overlaps( Proc.Box, ProcB.Box) then

LuaLibs/FacesBySaw.lua

@@ -29,6 +29,7 @@
 -- 2024/02/22 Migliorato calcolo area non pinzabile in testa HCING e coda TCING
 -- 2024/03/27 In MakeTwo rimossa gestione calcolo differente su ultima passata in caso di macchina FAST
 -- 2024/06/18 In MakeOne in caso di inversione del percorso, si scambia anche accorciamento start con end
+-- 2024/09/12 In MakeOne per settare il FaceUse si usa il versore nelle UserNotes
 
 -- Tabella per definizione modulo
 local FacesBySaw = {}
@@ -232,8 +233,8 @@ function FacesBySaw.MakeOne( nSurfId, nFacet, sCutting, dSawDiam, Par5, dVzLimDw
    if not dVzLimDwnUp then dVzLimDwnUp = BL.GetNzLimDownUp( b3Raw, vtN, vtOrthO) end
    local bDownHead = ( dVzLimDwnUp and dVzLimDwnUp < - 1.5)
    local bDownUp = ( vtN:getZ() < dVzLimDwnUp)
-   -- linea o bilinea di lavorazione (qui uso nOrthoOpposite per ripetere esattamente il calcolo del Mach)
-   local ptP1, ptPm, ptP2, vtV1, vtV2, dLen, dWidth = EgtSurfTmFacetOppositeSide( nSurfId, nFacet, BL.GetVersRef( nOrthoOpposite), GDB_ID.ROOT)
+   -- linea o bilinea di lavorazione
+   local ptP1, ptPm, ptP2, vtV1, vtV2, dLen, dWidth = EgtSurfTmFacetOppositeSide( nSurfId, nFacet, vtOrthO, GDB_ID.ROOT)
    if not dLen or dLen < 1.1 or not dWidth or dWidth < 1.1 then
       local sWarn = 'Face ' .. string.format( '%d,%d', nSurfId, nFacet) .. ' skipped : too small'
       EgtOutLog( sWarn, 1)
@@ -247,12 +248,12 @@ function FacesBySaw.MakeOne( nSurfId, nFacet, sCutting, dSawDiam, Par5, dVzLimDw
    local bIsSawCCW = ( EgtMdbGetCurrMachiningParam( MCH_MP.SPEED) < 0)
    local bInvert = bForceInvert
    -- l'inversione può essere comandata da rotazione lama (direzione concorde, legata anche a DownUp) oppure da direzione Z del percorso (si preferisce lavorare dal basso verso l'alto per limitare le corse)
-   -- se c'è disaccordo tra rotazione e direzione si cambia il lato di lavoro, se possibile. Se ciò non è possbile comanda la direzione.
+   -- se c'è disaccordo tra rotazione e direzione si cambia il lato di lavoro, se possibile. Se ciò non è possbile comanda la direzione. Se percorso orizzontale comanda la rotazione.
    if bInvert == nil then
       if not BD.TURN or abs( ptP2:getY() - ptP1:getY()) < 250 then
          local bIsMachiningDownwards = ( ptP2:getZ() < ptP1:getZ() - 100 * GEO.EPS_SMALL)
          local bIsMachiningUpwards = ( ptP2:getZ() > ptP1:getZ() + 100 * GEO.EPS_SMALL)
-         if ( bIsSawCCW ~= bDownUp) and bIsMachiningDownwards then
+         if ( bIsSawCCW ~= bDownUp) and ( bIsMachiningDownwards or not ( bIsMachiningDownwards or bIsMachiningUpwards)) then
             bInvert = true
          elseif ( ( bIsSawCCW ~= bDownUp) ~= bIsMachiningDownwards) then
             if Par5Alternative then
@@ -260,7 +261,7 @@ function FacesBySaw.MakeOne( nSurfId, nFacet, sCutting, dSawDiam, Par5, dVzLimDw
                nOrthoOpposite = nOrthoOppositeAlternative
                vtOrthO = vtOrthOAlternative
                -- avendo riassegnato la direzione di lavoro, i dati della linea vanno ricalcolati
-               ptP1, ptPm, ptP2, vtV1, vtV2, dLen, dWidth = EgtSurfTmFacetOppositeSide( nSurfId, nFacet, BL.GetVersRef( nOrthoOpposite), GDB_ID.ROOT)
+               ptP1, ptPm, ptP2, vtV1, vtV2, dLen, dWidth = EgtSurfTmFacetOppositeSide( nSurfId, nFacet, vtOrthO, GDB_ID.ROOT)
                if not dLen or dLen < 1.1 or not dWidth or dWidth < 1.1 then
                   local sWarn = 'Face ' .. string.format( '%d,%d', nSurfId, nFacet) .. ' skipped : too small'
                   EgtOutLog( sWarn, 1)
@@ -283,7 +284,10 @@ function FacesBySaw.MakeOne( nSurfId, nFacet, sCutting, dSawDiam, Par5, dVzLimDw
    if bInvert then
       ptP1, ptP2 = ptP2, ptP1
       vtV1, vtV2 = vtV2, vtV1
-      dAccStart, dAccEnd = dAccEnd, dAccStart
+      -- se l'inversione è forzata dall'esterno, anche gli accorciamenti che arrivano dall'esterno si prendono per buoni
+      if bForceInvert == nil then
+         dAccStart, dAccEnd = dAccEnd, dAccStart
+      end
    end
    local vtTg = ptP2 - ptP1 ;   vtTg:normalize()
    local dAllStart = 0
@@ -512,6 +516,8 @@ function FacesBySaw.MakeOne( nSurfId, nFacet, sCutting, dSawDiam, Par5, dVzLimDw
    EgtSetMachiningGeometry( {{ nSurfId, nFacet}})
    -- imposto uso faccia
    EgtSetMachiningParam( MCH_MP.FACEUSE, nFaceUse)
+   local sNoteVtFaceUse = 'VtFaceUse=' .. EgtNumToString( vtOrthO:getX(),3) .. ',' .. EgtNumToString( vtOrthO:getY(),3) .. ',' .. EgtNumToString( vtOrthO:getZ(),3) .. ';'
+   EgtSetMachiningParam( MCH_MP.USERNOTES, sNoteVtFaceUse)
    -- imposto posizione braccio porta testa
    EgtSetMachiningParam( MCH_MP.SCC, nSCC)
    -- imposto inversione e lato correzione

LuaLibs/ProcessDrill.lua

@@ -22,6 +22,8 @@
 -- 2023/11/06 Migliorata gestione dei fori con AngularTransmission.
 -- 2024/03/13 Aggiunta gestione Predrill
 -- 2024/03/18 Per Predrill corretta direzione estrusione per fori con direzione verso il basso
+-- 2024/09/04 Gestione dipendenza foro-tasca in caso di fase con pezzo ribaltato
+-- 2024/09/10 In GetData corretta gestione modifica diametro foro
 
 -- Tabella per definizione modulo
 local ProcessDrill = {}
@@ -101,9 +103,10 @@ function ProcessDrill.GetData( Proc, b3Raw)
    local AuxId = EgtGetInfo( Proc.Id, 'AUXID', 'i')
    -- verifico se foro da adattare
    if EgtExistsInfo( Proc.Id, 'DiamUser') then
-      if AuxId then AuxId = AuxId + Proc.Id end
-      if AuxId and EgtGetType( AuxId) == GDB_TY.CRV_ARC and BD.USER_HOLE_DIAM and BD.USER_HOLE_DIAM > 1 then
-         EgtModifyArcRadius( AuxId, BD.USER_HOLE_DIAM / 2)
+      local nNewAuxId
+      if AuxId then nNewAuxId = AuxId + Proc.Id end
+      if AuxId and EgtGetType( nNewAuxId) == GDB_TY.CRV_ARC and BD.USER_HOLE_DIAM and BD.USER_HOLE_DIAM > 1 then
+         EgtModifyArcRadius( nNewAuxId, BD.USER_HOLE_DIAM / 2)
       end
    end
    -- recupero diametro e lunghezza
@@ -213,7 +216,7 @@ end
 
 ---------------------------------------------------------------------
 -- Classificazione della feature
-function ProcessDrill.Classify( Proc, b3Raw)
+function ProcessDrill.Classify( Proc, b3Raw, sDownOrSideOrStd)
    -- recupero e verifico l'entità foro
    local AuxId = EgtGetInfo( Proc.Id, 'AUXID', 'i') or 0
    if AuxId then AuxId = AuxId + Proc.Id end
@@ -243,6 +246,18 @@ function ProcessDrill.Classify( Proc, b3Raw)
    local bOpen = ( Proc.Fce ~= 0)
    local bFaceDown = ( ptCen:getZ() < b3Raw:getMin():getZ() + 2  and  (( not Proc.Head  and  not Proc.Tail) or (( BD.ROT90 or BD.DOWN_HEAD or BD.TURN) and abs( Proc.Flg) == 2)))
    local bAngTransm = ( BD.ANG_TRASM and ML.FindDrilling( dDiam, nil, nil, nil, nil, true) and AreSameOrOppositeVectorApprox( vtExtr, Z_AX()))
+
+   -- se ci sono delle dipendenze da altre feature da rispettare
+   if sDownOrSideOrStd then
+      if sDownOrSideOrStd == 'DOWN' then
+         if vtExtr:getZ() < - BD.DRILL_VZ_MIN then
+            Proc.Down = true
+            return true
+         end
+      end
+      return false
+   end
+
    -- verifico se il foro è sotto e quindi va spostato o sopra o sul fianco
    if (( vtExtr:getZ() < BD.DRILL_VZ_MIN or bFaceDown) and ( not bOpen or Proc.Flg ~= 1)) then
       if not bOpen then

LuaLibs/ProcessHeadCut.lua

@@ -22,6 +22,7 @@ local Fbs = require( 'FacesBySaw')
 local Cut = require( 'ProcessCut')
 local Pocket = require( 'FaceByPocket')
 local Topology = require( 'FeatureTopology')
+local Split = require( 'ProcessSplit')
 
 EgtOutLog( ' ProcessHeadCut started', 1)
 
@@ -29,6 +30,10 @@ EgtOutLog( ' ProcessHeadCut started', 1)
 local BD = require( 'BeamData')
 local ML = require( 'MachiningLib')
 
+if BD.PRECUT_HEAD == nil then
+   BD.PRECUT_HEAD = true
+end
+
 ---------------------------------------------------------------------
 -- Riconoscimento della feature
 function ProcessHeadCut.Identify( Proc)
@@ -156,10 +161,9 @@ end
 
 ---------------------------------------------------------------------
 -- tagli verticali aggiuntivi
-local function AddVerticalPreCuts( Proc, sCutting, dCutXOffset, b3Raw )
-   local _, dimH = BL.GetFaceHvRefDim( Proc.Id, 0, b3Raw)
-   local nVerticalCuts = ceil( dimH / ( BD.MAX_LEN_DICE)) - 1
-   local dVerticalSliceHeight = dimH / ( nVerticalCuts + 1)
+local function AddVerticalPreCuts( Proc, sCutting, dCutXOffset, b3Raw)
+   local nVerticalCuts = ceil( Proc.Face[1].WidthTrimmed / ( BD.MAX_LEN_DICE)) - 1
+   local dVerticalSliceHeight = Proc.Face[1].WidthTrimmed / ( nVerticalCuts + 1)
    -- recupero il diametro dell'utensile
    local dSawDiam = 400
    if EgtMdbSetCurrMachining( sCutting) then
@@ -177,9 +181,176 @@ local function AddVerticalPreCuts( Proc, sCutting, dCutXOffset, b3Raw )
       bOk, sErr = Fbs.MakeOne( Proc.Id, 0, sCutting, dSawDiam, nFaceUse, nil, -0.1 -dCutXOffset, BD.CUT_SIC, dVerticalCutOffset, 0, 0, '', b3Raw, nil, nil, nil, bForceTangentLeadInOut)
       if not bOk then return bOk, sErr end
    end
+   
    return bOk, sErr
 end
 
+---------------------------------------------------------------------
+-- tagli standard
+local function MakeStandardCuts( Proc, b3Raw, nCuts, dOffsetBetweenCuts, HeadCutType, Cutting1Data, Cutting2Data, dStartOffset, dOvmHead)
+   local PrecutType = { bBigSectionCut = HeadCutType.bBigSectionCut, bHorizCut = HeadCutType.bHorizCut, bDoubleHorizCut = HeadCutType.bDoubleHorizCut, bDoubleCut = HeadCutType.bDoubleCut, sType = 'Precut', bNeedVerticalAddedCuts = false, bNeedHorizontalAddedCuts = false}
+   if not HeadCutType.bDoubleHorizCut then
+      -- flag di lavorazione faccia
+      local nOrthoOpposite = EgtIf( HeadCutType.bHorizCut, MCH_MILL_FU.ORTHO_DOWN, MCH_MILL_FU.ORTHO_FRONT)
+      -- calcolo extra taglio ed accorciamento
+      local dCutExtra = 0
+      local dAccStart = 0
+      local dAccEnd = 0
+
+      if b3Raw:getDimZ() < BD.MIN_DIM_HBEAM + 10 * GEO.EPS_SMALL or b3Raw:getDimY() < 2 * BD.MAX_DIM_HTCUT_HBEAM + 10 * GEO.EPS_SMALL then
+         dCutExtra = EgtIf( HeadCutType.bDoubleCut, - 0.5 * b3Raw:getDimY() + BD.CUT_EXTRA_MIN,  BD.CUT_EXTRA)
+      else
+         dCutExtra = - ( b3Raw:getDimY() - Cutting1Data.dMaxDepth)
+         local dSawRad = Cutting1Data.dSawDiam / 2
+         -- distanza in Y tra il centro della lama e l'intersezione tra la lama stessa e la massima Z della trave, + extra
+         -- se taglio doppio l'intersezione sarà in mezzeria, se taglio singolo sarà all'estremo opposto della trave
+         local dKL = dSawRad - Cutting1Data.dMaxDepth + EgtIf( HeadCutType.bDoubleCut, b3Raw:getDimY() / 2 + BD.CUT_EXTRA_MIN, b3Raw:getDimY() + BD.CUT_EXTRA)
+         -- lunghezza minima del percorso di lavorazione, in caso accorciamento porti a lunghezza negativa
+         local dMinSawingLength = 5
+         if BD.C_SIMM then
+            dAccEnd = sqrt( max( dSawRad * dSawRad - dKL * dKL, 0))
+            -- non posso comunque accorciare più della dimensione della geometria, quindi in caso allungo entrata
+            if dAccEnd > b3Raw:getDimZ() - 100 * GEO.EPS_SMALL then
+               dAccStart = b3Raw:getDimZ() - dAccEnd - dMinSawingLength
+            end
+         else
+            dAccStart = sqrt( max( dSawRad * dSawRad - dKL * dKL, 0))
+            -- non posso comunque accorciare più della dimensione della geometria, quindi in caso allungo uscita
+            if dAccStart > b3Raw:getDimZ() - 100 * GEO.EPS_SMALL then
+               dAccEnd = b3Raw:getDimZ() - dAccStart - dMinSawingLength
+            end
+         end
+      end
+
+      -- per travi alte faccio dei tagli orizzontali aggiuntivi
+      if HeadCutType.bNeedHorizontalAddedCuts then
+         -- taglio a zero (con lama) per evitare problemi con grezzo più lungo del previsto. Se BigSection il pretaglio è già stato fatto.
+         if not ( HeadCutType.bBigSectionCut) and BD.PRECUT_HEAD then
+            dStartOffset = dOvmHead
+            local bOkPrecut, sErrPrecut = MakeStandardCuts( Proc, b3Raw, 1, 0, PrecutType, Cutting1Data, Cutting2Data, dStartOffset)
+            if not bOkPrecut then
+               return false, sErrPrecut
+            end
+         end
+         local nHorizontalCuts = ceil( Proc.Face[1].HeightTrimmed / BD.MAX_DIM_DICE) - 1
+         local dHorizontalSliceHeight = Proc.Face[1].HeightTrimmed / ( nHorizontalCuts + 1)
+         for i = nCuts, 1, -1 do
+            local dCutXOffset = ( i - 1) * dOffsetBetweenCuts
+            -- tagli orizzontali
+            for j = nHorizontalCuts, 1, -1 do
+               local nFaceUse = MCH_MILL_FU.PARAL_DOWN
+               local dHorizontalCutOffset = dHorizontalSliceHeight * -j
+               local bForceTangentLeadInOut = BD.PRESS_ROLLER
+               local bOk, sErr = Fbs.MakeOne( Proc.Id, 0, Cutting1Data.sCutting, Cutting1Data.dSawDiam, nFaceUse, nil, -0.1 -dCutXOffset, BD.CUT_SIC, dHorizontalCutOffset, 0, 0, '', b3Raw, nil, nil, nil, bForceTangentLeadInOut)
+               if not bOk then return bOk, sErr end
+            end
+            -- se necessario taglio verticale doppio, eseguo l'opposto
+            if HeadCutType.bDoubleCut then
+               -- gli accorciamenti vanno invertiti per il taglio opposto
+               local dAccStartDoubleCut, dAccEndDoubleCut = dAccEnd, dAccStart
+               local bOk, sErr = Fbs.MakeOne( Proc.Id, 0, Cutting1Data.sCutting, Cutting1Data.dSawDiam, MCH_MILL_FU.ORTHO_BACK, nil, dCutExtra, BD.CUT_SIC, dCutXOffset, dAccStartDoubleCut, dAccEndDoubleCut, '', b3Raw, true)
+               if not bOk then return false, sErr end
+            end
+            -- taglio verticale
+            local bOk, sErr = Fbs.MakeOne( Proc.Id, 0, Cutting1Data.sCutting, Cutting1Data.dSawDiam, nOrthoOpposite, nil, dCutExtra, BD.CUT_SIC, dCutXOffset, dAccStart, dAccEnd, '', b3Raw, true)
+            if not bOk then return bOk, sErr end
+         end
+         return true, sWarn
+      end
+
+      -- taglio a zero (con lama) per evitare problemi con grezzo più lungo del previsto. Se BigSection il pretaglio è già stato fatto.
+      if not ( HeadCutType.bBigSectionCut) and BD.PRECUT_HEAD and HeadCutType.bNeedVerticalAddedCuts then
+         dStartOffset = dOvmHead
+         local bOkPrecut, sErrPrecut = MakeStandardCuts( Proc, b3Raw, 1, 0, PrecutType, Cutting1Data, Cutting2Data, dStartOffset)
+         if not bOkPrecut then
+            return false, sErrPrecut
+         end
+      end
+      -- se necessari tagli in doppio, eseguo gli opposti
+      if HeadCutType.bDoubleCut then
+         -- gli accorciamenti vanno invertiti per il taglio opposto
+         local dAccStartDoubleCut, dAccEndDoubleCut = dAccEnd, dAccStart
+         for i = nCuts, 1, -1 do
+            local dCutOffset = ( i - 1) * dOffsetBetweenCuts
+            if i == 1 and HeadCutType.sType =='Precut' then
+               dCutOffset = dStartOffset
+            end
+            local bOk, sErr = Fbs.MakeOne( Proc.Id, 0, Cutting1Data.sCutting, Cutting1Data.dSawDiam, MCH_MILL_FU.ORTHO_BACK, nil, dCutExtra, BD.CUT_SIC, dCutOffset, dAccStartDoubleCut, dAccEndDoubleCut, '', b3Raw, true)
+            if not bOk then return false, sErr end
+         end
+      end
+      -- eseguo i tagli necessari
+      for i = nCuts, 1, -1 do
+         local dCutOffset = ( i - 1) * dOffsetBetweenCuts
+         -- se trave larga effettuo tagli verticali aggiuntivi
+         if HeadCutType.bNeedVerticalAddedCuts then
+            local bOk, sErr = AddVerticalPreCuts( Proc, Cutting1Data.sCutting, dCutOffset, b3Raw)
+            if not bOk then return bOk, sErr end
+         end
+         if i == 1 and HeadCutType.sType =='Precut' then
+            dCutOffset = dStartOffset
+         end
+         local bOk, sErr = Fbs.MakeOne( Proc.Id, 0, Cutting1Data.sCutting, Cutting1Data.dSawDiam, nOrthoOpposite, nil, dCutExtra, BD.CUT_SIC, dCutOffset, dAccStart, dAccEnd, '', b3Raw, true)
+         if not bOk then return false, sErr end
+      end
+   -- altrimenti necessari tagli da sopra e sotto con testa opportuna
+   else
+      -- verifico esistenza della lavorazione con lama da sotto
+      if not Cutting2Data.sCutting then
+         local sErr = 'Error : cutting H2 not found in library'
+         EgtOutLog( sErr)
+         return false, sErr
+      end
+      -- verifico che le due lame riescano a lavorare la sezione
+      local dDimZ = b3Raw:getDimZ()
+      local dExtra = Cutting1Data.dMaxVertDepth + Cutting2Data.dMaxDepth - dDimZ
+      if ( dExtra - 2 * BD.CUT_EXTRA_MIN + 10 * GEO.EPS_SMALL < 0) and not HeadCutType.bBigSectionCut then
+         local sErr = 'Error : section too big for head cut'
+         EgtOutLog( sErr)
+         return false, sErr
+      end
+      -- calcolo extra taglio ed accorciamento
+      local dCutExtra = -Cutting2Data.dMaxDepth + dExtra / 2 + BD.CUT_EXTRA_MIN
+      local dCutExtra2 = -Cutting1Data.dMaxVertDepth + dExtra / 2 + BD.CUT_EXTRA_MIN
+      local dAccStart = 0
+      local dVzLimDwnUp
+      if BD.TURN then dVzLimDwnUp = -2 end
+      -- taglio a zero (con lama) per evitare problemi con grezzo più lungo del previsto. Se BigSection il pretaglio è già stato fatto.
+      if not ( HeadCutType.bBigSectionCut) and BD.PRECUT_HEAD and HeadCutType.bNeedVerticalAddedCuts then
+         dStartOffset = dOvmHead
+         local bOkPrecut, sErrPrecut = MakeStandardCuts( Proc, b3Raw, 1, 0, PrecutType, Cutting1Data, Cutting2Data, dStartOffset)
+         if not bOkPrecut then
+            return false, sErrPrecut
+         end
+      end
+      -- eseguo i tagli da sotto necessari
+      for i = nCuts, 1, -1 do
+         local dCutOffset = ( i - 1) * dOffsetBetweenCuts
+         if i == 1 and HeadCutType.sType =='Precut' then
+            dCutOffset = dStartOffset
+         end
+         local bOk, sErr = Fbs.MakeOne( Proc.Id, 0, Cutting2Data.sCutting, Cutting2Data.dSawDiam, MCH_MILL_FU.ORTHO_TOP, dVzLimDwnUp, dCutExtra2, BD.CUT_SIC, dCutOffset, dAccStart, 0, '', b3Raw, nil, true)
+         if not bOk then return false, sErr end
+      end
+      -- eseguo i tagli da sopra necessari
+      for i = nCuts, 1, -1 do
+         local dCutOffset = ( i - 1) * dOffsetBetweenCuts
+         if i == 1 and HeadCutType.sType =='Precut' then
+            dCutOffset = dStartOffset
+         end
+         -- se trave larga effettuo tagli verticali aggiuntivi
+         if HeadCutType.bNeedVerticalAddedCuts then
+            local bOk, sErr = AddVerticalPreCuts( Proc, Cutting1Data.sCutting, dCutOffset, b3Raw)
+            if not bOk then return bOk, sErr end
+         end
+         local bOk, sErr = Fbs.MakeOne( Proc.Id, 0, Cutting1Data.sCutting, Cutting1Data.dSawDiam, MCH_MILL_FU.ORTHO_DOWN, dVzLimDwnUp, dCutExtra, BD.CUT_SIC, dCutOffset, dAccStart, 0, '', b3Raw)
+         if not bOk then return false, sErr end
+      end
+   end
+
+   return true
+end
+
 ---------------------------------------------------------------------
 -- Applicazione della lavorazione
 function ProcessHeadCut.Make( Proc, nPhase, nRawId, nPartId, dOvmHead, bNeedHCut)
@@ -224,7 +395,7 @@ function ProcessHeadCut.Make( Proc, nPhase, nRawId, nPartId, dOvmHead, bNeedHCut
       if EgtTdbSetCurrTool( EgtTdbGetToolFromUUID( sTuuid2) or '') then
          dSawDiam2 = EgtTdbGetCurrToolParam( MCH_TP.DIAM) or dSawDiam2
          dMaxDepth2 = EgtTdbGetCurrToolMaxDepth() or dMaxDepth2
-         dSawThick2 = EgtTdbGetCurrToolParam(MCH_TP.THICK) or dSawThick2
+         dSawThick2 = EgtTdbGetCurrToolParam( MCH_TP.THICK) or dSawThick2
       end
    end
    -- caratteristiche taglio
@@ -234,6 +405,15 @@ function ProcessHeadCut.Make( Proc, nPhase, nRawId, nPartId, dOvmHead, bNeedHCut
    local bHorizCut = ( ( b3Raw:getDimY() > b3Raw:getDimZ() + 10 * GEO.EPS_SMALL or BD.TURN) and b3Raw:getDimZ() < dMaxVertDepth - BD.CUT_EXTRA)
    local bDoubleHorizCut = ( ( BD.DOWN_HEAD or BD.TURN) and not bHorizCut and b3Raw:getDimY() > 2 * dDimYRef - BD.CUT_EXTRA_MIN + 10 * GEO.EPS_SMALL)
    local bDoubleCut = ( not bHorizCut and not bDoubleHorizCut and b3Raw:getDimY() > dDimYRef - BD.CUT_EXTRA + 10 * GEO.EPS_SMALL)
+   -- verifico necessità di tagli aggiuntivi orizzontali o verticali
+   local dMinOvmHeadForAddeddCuts = 10.123
+   local bNeedVerticalAddedCuts = ( Proc.Face[1].WidthTrimmed > BD.MAX_LEN_DICE) and ( dOvmHead > dMinOvmHeadForAddeddCuts - 10 * GEO.EPS_SMALL)
+   local bNeedHorizontalAddedCuts = ( Proc.Face[1].HeightTrimmed > ( BD.MIN_HEIGHT_ADDED_CUTS or BD.MAX_LEN_DICE)) and not bBigSectionCut and ( dOvmHead > dMinOvmHeadForAddeddCuts - 10 * GEO.EPS_SMALL)
+   -- dati lavorazioni sopra e sotto
+   local Cutting1Data = { sCutting = sCutting, dSawDiam = dSawDiam, dMaxDepth = dMaxDepth, dSawThick = dSawThick, dMaxVertDepth = dMaxVertDepth}
+   local Cutting2Data = { sCutting = sCutting2, dSawDiam = dSawDiam2, dMaxDepth = dMaxDepth2, dSawThick = dSawThick2}
+   -- dati sul taglio di testa da effettuare
+   local HeadCutType = { bBigSectionCut = bBigSectionCut, bHorizCut = bHorizCut, bDoubleHorizCut = bDoubleHorizCut, bDoubleCut = bDoubleCut, bNeedVerticalAddedCuts = bNeedVerticalAddedCuts, bNeedHorizontalAddedCuts = bNeedHorizontalAddedCuts}
    -- dati geometrici del taglio
    local ptC, vtN = EgtSurfTmFacetCenter( Proc.Id, 0, GDB_ID.ROOT)
    -- se non obbligatorio e coincide con inizio grezzo, non va fatto
@@ -243,8 +423,6 @@ function ProcessHeadCut.Make( Proc, nPhase, nRawId, nPartId, dOvmHead, bNeedHCut
    -- determino se lo spessore del materiale da rimuovere è eccessivo e quindi vanno fatti più tagli con offset
    local nCuts = max( ceil( dOvmHead / (( BD.MAX_LEN_SCRAP_START or BD.MAX_LEN_SCRAP) + 0.5)), 1)
    local dOffsL = dOvmHead / nCuts
-   local _, dimH, dimV = BL.GetFaceHvRefDim( Proc.Id, 0, b3Raw)
-   local dMinOvmHeadForAddeddCuts = 10.123
    -- se taglio per sezioni alte e larghe
    if bBigSectionCut then
       if dOvmHead > 0 then
@@ -260,11 +438,34 @@ function ProcessHeadCut.Make( Proc, nPhase, nRawId, nPartId, dOvmHead, bNeedHCut
             else
                dMaxElev = Proc.Box:getMax():getX() - b3Raw:getMin():getX()
             end
+            -- taglio a zero (con sega a catena o mix catena + lama) per evitare problemi con grezzo più lungo del previsto
+            if BD.PRECUT_HEAD then
+               -- recupero dati utensile della sega a catena più lunga a disposizione
+               local sSawing = ML.FindSawing( 'SawingForSplitting', nil, nil, 'Longest')
+               if not sSawing then
+                  sSawing = ML.FindSawing( 'Sawing', nil, nil, 'Longest')
+               end
+               local dChainSawMaxMat = 0
+               local dChainSawLen = 0
+               if EgtMdbSetCurrMachining( sSawing or '') then
+                  local sTuuid = EgtMdbGetCurrMachiningParam( MCH_MP.TUUID)
+                  if EgtTdbSetCurrTool( EgtTdbGetToolFromUUID( sTuuid) or '') then
+                     dChainSawMaxMat = EgtTdbGetCurrToolParam( MCH_TP.MAXMAT) or dChainSawMaxMat
+                     dChainSawLen = EgtTdbGetCurrToolParam( MCH_TP.LEN) or dChainSawLen
+                  end
+               end
+               local SawingData = { sSawing = sSawing, dChainSawMaxMat = dChainSawMaxMat, dChainSawLen = dChainSawLen, bInvert = true}
+               local dOffset = dOvmHead
+               local bOkPrecut, sErrPrecut = Split.MakeBigSectionSplitting( Proc, b3Raw, dOffset, SawingData, Cutting2Data)
+               if not bOkPrecut then
+                  return false, sErrPrecut
+               end
+            end
             -- controllo se è necessario un taglio con dicing o si deve proseguire ai casi standard
             if dMaxElev > dSawThickCheck then
                local bOk, sErr
                -- se trave larga effettuo tagli verticali aggiuntivi
-               if ( dimH > BD.MAX_LEN_DICE) and ( dOvmHead > dMinOvmHeadForAddeddCuts - 10 * GEO.EPS_SMALL) then
+               if bNeedVerticalAddedCuts then
                   -- ad ogni offset di taglio dovrò fare prima i tagli verticali e poi i cubetti 
                   for i = nCuts, 1, -1 do
                      local nAddGrpId = BL.GetAddGroup( Proc.PartId)
@@ -289,11 +490,11 @@ function ProcessHeadCut.Make( Proc, nPhase, nRawId, nPartId, dOvmHead, bNeedHCut
                      bOk, sErr = AddVerticalPreCuts( AddProc, sCutting, 0, b3Raw)
                      if not bOk then return bOk, sErr end
                      -- tagli a cubetti con eventuale superficie limitante
-                     bOk, sErr = Cut.Make( AddProc, nPhase, nRawId, nPartId, dOvmHead, nil, false, true, nil, nil, dCurrOvmT, nil, nLimitingSurf)
+                     bOk, sErr = Cut.Make( AddProc, nPhase, nRawId, nPartId, dOvmHead, nil, false, true, nil, nil, nil, nil, nLimitingSurf)
                   end
                -- tagli aggiuntivi non necessari
                else
-                  bOk, sErr = Cut.Make( Proc, nPhase, nRawId, nPartId, dOvmHead, nil, false, true, nil, nil, dCurrOvmT)
+                  bOk, sErr = Cut.Make( Proc, nPhase, nRawId, nPartId, dOvmHead, nil, false, true)
                end
                return bOk, sErr
             end
@@ -316,131 +517,11 @@ function ProcessHeadCut.Make( Proc, nPhase, nRawId, nPartId, dOvmHead, bNeedHCut
          end
       end
    end
-   -- se tagli standard
-   if not bDoubleHorizCut then
-      -- flag di lavorazione faccia
-      local nOrthoOpposite = EgtIf( bHorizCut, MCH_MILL_FU.ORTHO_DOWN, MCH_MILL_FU.ORTHO_FRONT)
-      -- calcolo extra taglio ed accorciamento
-      local dCutExtra = 0
-      local dAccStart = 0
-      local dAccEnd = 0
-      if b3Raw:getDimZ() < BD.MIN_DIM_HBEAM + 10 * GEO.EPS_SMALL or b3Raw:getDimY() < 2 * BD.MAX_DIM_HTCUT_HBEAM + 10 * GEO.EPS_SMALL then
-         dCutExtra = EgtIf( bDoubleCut, - 0.5 * b3Raw:getDimY() + BD.CUT_EXTRA_MIN,  BD.CUT_EXTRA)
-      else
-         dCutExtra = - ( b3Raw:getDimY() - dMaxDepth)
-         local dSawRad = dSawDiam / 2
-         -- distanza in Y tra il centro della lama e l'intersezione tra la lama stessa e la massima Z della trave, + extra
-         -- se taglio doppio l'intersezione sarà in mezzeria, se taglio singolo sarà all'estremo opposto della trave
-         local dKL = dSawRad - dMaxDepth + EgtIf( bDoubleCut, b3Raw:getDimY() / 2 + BD.CUT_EXTRA_MIN, b3Raw:getDimY() + BD.CUT_EXTRA)
-         -- lunghezza minima del percorso di lavorazione, in caso accorciamento porti a lunghezza negativa
-         local dMinSawingLength = 5
-         if BD.C_SIMM then
-            dAccEnd = sqrt( max( dSawRad * dSawRad - dKL * dKL, 0))
-            -- non posso comunque accorciare più della dimensione della geometria, quindi in caso allungo entrata
-            if dAccEnd > b3Raw:getDimZ() - 100 * GEO.EPS_SMALL then
-               dAccStart = b3Raw:getDimZ() - dAccEnd - dMinSawingLength
-            end
-         else
-            dAccStart = sqrt( max( dSawRad * dSawRad - dKL * dKL, 0))
-            -- non posso comunque accorciare più della dimensione della geometria, quindi in caso allungo uscita
-            if dAccStart > b3Raw:getDimZ() - 100 * GEO.EPS_SMALL then
-               dAccEnd = b3Raw:getDimZ() - dAccStart - dMinSawingLength
-            end
-         end
-      end
+   
+   local bOk, sErr = MakeStandardCuts( Proc, b3Raw, nCuts, dOffsL, HeadCutType, Cutting1Data, Cutting2Data, nil, dOvmHead)
 
-      -- per travi alte faccio dei tagli orizzontali aggiuntivi
-      local bAreHorizontalCutsNeeded = ( dimV > BD.MAX_LEN_DICE) and not bBigSectionCut and ( dOvmHead > dMinOvmHeadForAddeddCuts - 10 * GEO.EPS_SMALL)
-      if bAreHorizontalCutsNeeded then
-         local nHorizontalCuts = ceil( dimV / BD.MAX_DIM_DICE) - 1
-         local dHorizontalSliceHeight = dimV / ( nHorizontalCuts + 1)
-         for i = nCuts, 1, -1 do
-            local dCutXOffset = ( i - 1) * dOffsL
-            -- tagli orizzontali
-            for j = nHorizontalCuts, 1, -1 do
-               local nFaceUse = MCH_MILL_FU.PARAL_DOWN
-               local dHorizontalCutOffset = dHorizontalSliceHeight * -j
-               local bForceTangentLeadInOut = BD.PRESS_ROLLER
-               local bOk, sErr = Fbs.MakeOne( Proc.Id, 0, sCutting, dSawDiam, nFaceUse, nil, -0.1 -dCutXOffset, BD.CUT_SIC, dHorizontalCutOffset, 0, 0, '', b3Raw, nil, nil, nil, bForceTangentLeadInOut)
-               if not bOk then return bOk, sErr end
-            end
-            -- se necessario taglio verticale doppio, eseguo l'opposto
-            if bDoubleCut then
-               -- gli accorciamenti vanno invertiti per il taglio opposto
-               local dAccStartDoubleCut, dAccEndDoubleCut = dAccEnd, dAccStart
-               local bOk, sErr = Fbs.MakeOne( Proc.Id, 0, sCutting, dSawDiam, MCH_MILL_FU.ORTHO_BACK, nil, dCutExtra, BD.CUT_SIC, dCutXOffset, dAccStartDoubleCut, dAccEndDoubleCut, '', b3Raw, true)
-               if not bOk then return false, sErr end
-            end
-            -- taglio verticale
-            local bOk, sErr = Fbs.MakeOne( Proc.Id, 0, sCutting, dSawDiam, nOrthoOpposite, nil, dCutExtra, BD.CUT_SIC, dCutXOffset, dAccStart, dAccEnd, '', b3Raw)
-            if not bOk then return bOk, sErr end
-         end
-         return true, sWarn
-      end
-
-      -- se necessari tagli in doppio, eseguo gli opposti
-      if bDoubleCut then
-         -- gli accorciamenti vanno invertiti per il taglio opposto
-         local dAccStartDoubleCut, dAccEndDoubleCut = dAccEnd, dAccStart
-         for i = nCuts, 1, -1 do
-            local dCutOffset = ( i - 1) * dOffsL
-            local bOk, sErr = Fbs.MakeOne( Proc.Id, 0, sCutting, dSawDiam, MCH_MILL_FU.ORTHO_BACK, nil, dCutExtra, BD.CUT_SIC, dCutOffset, dAccStartDoubleCut, dAccEndDoubleCut, '', b3Raw, true)
-            if not bOk then return false, sErr end
-         end
-      end
-      -- eseguo i tagli necessari
-      for i = nCuts, 1, -1 do
-         local dCutOffset = ( i - 1) * dOffsL
-         -- se trave larga effettuo tagli verticali aggiuntivi
-         if ( dimH > BD.MAX_LEN_DICE) and ( dOvmHead > dMinOvmHeadForAddeddCuts - 10 * GEO.EPS_SMALL) then
-            local bOk, sErr = AddVerticalPreCuts( Proc, sCutting, dCutOffset, b3Raw)
-            if not bOk then return bOk, sErr end
-         end
-         local bOk, sErr = Fbs.MakeOne( Proc.Id, 0, sCutting, dSawDiam, nOrthoOpposite, nil, dCutExtra, BD.CUT_SIC, dCutOffset, dAccStart, dAccEnd, '', b3Raw)
-         if not bOk then return false, sErr end
-      end
-   -- altrimenti necessari tagli da sopra e sotto con testa opportuna
-   else
-      -- verifico esistenza della lavorazione con lama da sotto
-      if not sCutting2 then
-         local sErr = 'Error : cutting H2 not found in library'
-         EgtOutLog( sErr)
-         return false, sErr
-      end
-      -- verifico che le due lame riescano a lavorare la sezione
-      local dDimZ = b3Raw:getDimZ()
-      local dExtra = dMaxVertDepth + dMaxDepth2 - dDimZ
-      if ( dExtra - 2 * BD.CUT_EXTRA_MIN + 10 * GEO.EPS_SMALL < 0) and not bBigSectionCut then
-         local sErr = 'Error : section too big for head cut'
-         EgtOutLog( sErr)
-         return false, sErr
-      end
-      -- calcolo extra taglio ed accorciamento
-      local dCutExtra = -dMaxDepth2 + dExtra / 2 + BD.CUT_EXTRA_MIN
-      local dCutExtra2 = -dMaxVertDepth + dExtra / 2 + BD.CUT_EXTRA_MIN
-      local dAccStart = 0
-      local dVzLimDwnUp
-      if BD.TURN then dVzLimDwnUp = -2 end
-      -- eseguo i tagli da sotto necessari
-      for i = nCuts, 1, -1 do
-         local dCutOffset = ( i - 1) * dOffsL
-         local bOk, sErr = Fbs.MakeOne( Proc.Id, 0, sCutting2, dSawDiam2, MCH_MILL_FU.ORTHO_TOP, dVzLimDwnUp, dCutExtra2, BD.CUT_SIC, dCutOffset, dAccStart, 0, '', b3Raw, nil, true)
-         if not bOk then return false, sErr end
-      end
-      -- eseguo i tagli da sopra necessari
-      for i = nCuts, 1, -1 do
-         local dCutOffset = ( i - 1) * dOffsL
-         -- se trave larga effettuo tagli verticali aggiuntivi
-         if ( dimH > BD.MAX_LEN_DICE) and ( dOvmHead > dMinOvmHeadForAddeddCuts - 10 * GEO.EPS_SMALL) then
-            local bOk, sErr = AddVerticalPreCuts( Proc, sCutting, dCutOffset, b3Raw)
-            if not bOk then return bOk, sErr end
-         end
-         local bOk, sErr = Fbs.MakeOne( Proc.Id, 0, sCutting, dSawDiam, MCH_MILL_FU.ORTHO_DOWN, dVzLimDwnUp, dCutExtra, BD.CUT_SIC, dCutOffset, dAccStart, 0, '', b3Raw)
-         if not bOk then return false, sErr end
-      end
-   end
-   return true
-end   
+   return bOk, sErr
+end
 
 ---------------------------------------------------------------------
 return ProcessHeadCut

LuaLibs/ProcessLapJoint.lua

@@ -108,6 +108,7 @@
 -- 2024/06/18 In MakeByMillAsSaw si cerca di orientare il motore verso il lato più vicino (rispetto a dove è la feature)
 -- 2024/06/28 In VerifySideMillAsSaw modificato criterio ricerca utensile in base a normale della faccia
 -- 2024/07/04 In IsTailFeature controllo per spostare lapjoint dopo taglio di separazione per lavorazioni tipo BH
+-- 2024/09/03 In MakeLongMoreFaces si aggiunge faccia di fondo anche per topologia Groove passante a 3 facce
 
 -- Tabella per definizione modulo
 local ProcessLapJoint = {}
@@ -6847,7 +6848,7 @@ local function MakeLongMoreFaces( Proc, nPhase, nRawId, nPartId, dOvmHead)
    end
    -- verifico se applicare gestione speciale per tunnel
    local nSurfBottomId
-   if Proc.Topology == 'Tunnel' then
+   if Proc.Topology == 'Tunnel' or ( Proc.Topology == 'Groove' and Proc.IsThrough and Proc.Fct == 3) then
       bAddEndCapLeftSide = true
       bAddEndCapRightSide = true
       -- recupero centro e normale delle facce

LuaLibs/ProcessMark.lua

@@ -3,6 +3,7 @@
 -- 2020/05/28 Tipo di lavorazione passato da Mark a Text.
 -- 2021/05/03 Aggiunta gestione testa da sotto.
 -- 2022/12/05 Aggiunta gestione tipo di lavorazione Text_AT.
+-- 2024/09/04 In Make gestione di più geometrie ausiliarie ( ora si lavora anche il testo, oltre che alle linee di marcatura)
 
 -- Tabella per definizione modulo
 local ProcessMark = {}
@@ -50,9 +51,6 @@ end
 ---------------------------------------------------------------------
 -- Applicazione della lavorazione
 function ProcessMark.Make( Proc, nPhase, nRawId, nPartId)
-   -- recupero eventuale geometria ausiliaria
-   local AuxId = EgtGetInfo( Proc.Id, 'AUXID', 'i')
-   if AuxId then AuxId = AuxId + Proc.Id end
    -- recupero i dati della marcatura
    local vtExtr
    if EgtGetType( Proc.Id) ~= GDB_TY.EXT_TEXT then
@@ -108,13 +106,15 @@ function ProcessMark.Make( Proc, nPhase, nRawId, nPartId)
       EgtSetOperationMode( nMchFId, false)
       return false, sErr
    end
-   -- eventuale lavorazione su seconda geometria
-   if AuxId then
+   -- si verifica se ci sono altre geometrie da lavorare
+   local AdditionalGeometries = EgtSplitString( EgtGetInfo( Proc.Id, 'AUXID', 's')) or {}
+   for i = 1, #AdditionalGeometries do
+      local AuxId = Proc.Id + AdditionalGeometries[i]
       -- inserisco la lavorazione di fresatura
-      local sName2 = 'Decor2_' .. ( EgtGetName( Proc.Id) or tostring( Proc.Id))
-      local nMchF2Id = EgtAddMachining( sName, sMilling)
-      if not nMchF2Id then
-         local sErr = 'Error adding machining ' .. sName2 .. '-' .. sMilling
+      local nOtherMachiningId = EgtAddMachining( sName, sMilling)
+      if not nOtherMachiningId then
+         sName = 'Decor' .. '_' .. tostring( i) .. '_' .. ( EgtGetName( Proc.Id) or tostring( Proc.Id))
+         local sErr = 'Error adding machining ' .. sName .. '-' .. sMilling
          EgtOutLog( sErr)
          return false, sErr
       end
@@ -125,14 +125,14 @@ function ProcessMark.Make( Proc, nPhase, nRawId, nPartId)
       -- eseguo
       if not ML.ApplyMachining( true, false) then
          local _, sErr = EgtGetLastMachMgrError()
-         EgtSetOperationMode( nMchF2Id, false)
+         EgtSetOperationMode( nOtherMachiningId, false)
          return false, sErr
       end
       -- se geometria a X maggiore, la sposto prima
       local ptS1 = EgtSP( Proc.Id, GDB_ID.ROOT)
       local ptS2 = EgtSP( AuxId, GDB_ID.ROOT)
       if ptS2:getX() > ptS1:getX() then
-         EgtRelocateGlob( nMchF2Id, nMchFId, GDB_IN.BEFORE)
+         EgtRelocateGlob( nOtherMachiningId, nMchFId, GDB_IN.BEFORE)
       end
    end
    return true

LuaLibs/ProcessScarfJoint.lua

@@ -4,6 +4,7 @@
 -- 2022/06/10 Aggiunto il parametro dOvmTail per gestire sovramateriali in coda diversi da OVM_MID (sezioni alte e larghe)
 -- 2022/07/12 Aggiunta gestione PF1250 e TURN.
 -- 2023/02/14 Gestite le rotazioni di 90 deg nell'aggiornamento del grezzo.
+-- 2024/09/03 In ApplyDiceCut, se possibile, i tagli paralleli sono fatti con un unico passaggio di fianco.
 
 -- Tabella per definizione modulo
 local ProcessScarfJoint = {}
@@ -134,7 +135,9 @@ end
 local function ApplyDiceCut( vFaceOrd, nGoodFace1, nGoodFace4, nAddGrpId, b3Solid, ptC, vtN, Proc, vtRef, bHead, sCutting, dSawDiam, b3Raw, dNewDiceDim)
 
    local bOk = true
+   local bOk2 = true
    local sErr = ''
+   local sErr2 = ''
 
    local vCuts = {}
    if nGoodFace1 and nGoodFace4 and nGoodFace1 > 0 and nGoodFace4 > 0 then
@@ -185,9 +188,49 @@ local function ApplyDiceCut( vFaceOrd, nGoodFace1, nGoodFace4, nAddGrpId, b3Soli
          -- extra taglio
          local dExtraCut = EgtIf( i % 2 == 1, 0, BD.CUT_EXTRA)
          -- lavoro la faccia
-         for j = 1, #vCuts[i] do
-            bOk, sErr = Fbs.MakeOne( vCuts[i][j], 0, sCutting, dSawDiam, vtOrthoO, dVzLimDwnUp, dExtraCut, BD.CUT_SIC, 0, 0, 0, nil, b3Raw)
-            if not bOk then return bOk, sErr end
+         local dMaxDepth = 0
+         if EgtMdbSetCurrMachining( sCutting) then
+            local sTuuid = EgtMdbGetCurrMachiningParam( MCH_MP.TUUID)
+            if EgtTdbSetCurrTool( EgtTdbGetToolFromUUID( sTuuid) or '') then
+               dMaxDepth = EgtTdbGetCurrToolMaxDepth() or dMaxDepth
+            end
+         end
+
+         local dDiceFaceMaxH = 0
+         local dDiceFaceMinH = GEO.INFINITO
+         if ( i % 2) == 0  then
+            for cont = 1, #vCuts[i] do
+               local _, dDiceFaceH, dDiceFaceV = BL.GetFaceHvRefDim( vCuts[i][cont], 0)
+               dDiceFaceMaxH = max( dDiceFaceMaxH, dDiceFaceH)
+               -- calcolo lato orizzontale minore ipotizzando sia un trapezio
+               local dDiceFaceH2 = ( 2 * EgtSurfArea( vCuts[i][cont]) ) / dDiceFaceV - dDiceFaceH
+               dDiceFaceMinH = min( dDiceFaceMinH, dDiceFaceH2)
+            end
+         end
+         -- se si può fare, faccio unico taglio parallelo
+         if ( i % 2) == 0 and ( dMaxDepth > dDiceFaceMaxH - 0.5 * dDiceFaceMinH + BD.CUT_EXTRA_MIN) then
+            local bDoubleCut = false
+            local dCutExtra = BD.CUT_EXTRA
+            if dMaxDepth < dDiceFaceMaxH + BD.CUT_EXTRA then
+               bDoubleCut = true
+               dCutExtra = - 0.5 * dDiceFaceMinH + BD.CUT_EXTRA_MIN
+            end
+            local nSurfToCut = EgtSurfTmBySewing( nAddGrpId, vCuts[i], false)
+            local nFaceUseCut1, nFaceUseCut2 = MCH_MILL_FU.ORTHO_BACK, MCH_MILL_FU.ORTHO_FRONT
+            if Proc.Tail then
+               nFaceUseCut1, nFaceUseCut2 = nFaceUseCut2, nFaceUseCut1
+            end
+            if bDoubleCut then
+               bOk, sErr = Fbs.MakeOne( nSurfToCut, 0, sCutting, dSawDiam, nFaceUseCut1, nil, dCutExtra, BD.CUT_SIC, 0, 0, 0, '', b3Raw, true)
+               if not bOk then return false, sErr end
+            end
+            bOk2, sErr2 = Fbs.MakeOne( nSurfToCut, 0, sCutting, dSawDiam, nFaceUseCut2, nil, dCutExtra, BD.CUT_SIC, 0, 0, 0, '', b3Raw)
+            if not bOk2 then return false, sErr2 end
+         else
+            for j = 1, #vCuts[i] do
+               bOk, sErr = Fbs.MakeOne( vCuts[i][j], 0, sCutting, dSawDiam, vtOrthoO, dVzLimDwnUp, dExtraCut, BD.CUT_SIC, 0, 0, 0, nil, b3Raw)
+               if not bOk then return bOk, sErr end
+            end
          end
       end
       -- lavoro la faccia interna in ogni caso
@@ -201,7 +244,7 @@ local function ApplyDiceCut( vFaceOrd, nGoodFace1, nGoodFace4, nAddGrpId, b3Soli
       if vFaceOrd[3] ~= 0 then
          -- inserisco la lavorazione
          local vtOrthoO = Vector3d( vtRef)
-         local bOk, sErr = Fbs.MakeOne( Proc.Id, vFaceOrd[3] - 1, sCutting, dSawDiam, vtOrthoO, dVzLimDwnUp, 0, BD.CUT_SIC, 0, 0, 0, nil, b3Raw)
+         bOk, sErr = Fbs.MakeOne( Proc.Id, vFaceOrd[3] - 1, sCutting, dSawDiam, vtOrthoO, dVzLimDwnUp, 0, BD.CUT_SIC, 0, 0, 0, nil, b3Raw)
          if not bOk then return bOk, sErr end
       end
    end

LuaLibs/ProcessSplit.lua

@@ -38,6 +38,10 @@ EgtOutLog( ' ProcessSplit started', 1)
 local BD = require( 'BeamData')
 local ML = require( 'MachiningLib')
 
+if BD.PRECUT_TAIL == nil then
+   BD.PRECUT_TAIL = true
+end
+
 ---------------------------------------------------------------------
 -- Riconoscimento della feature
 function ProcessSplit.Identify( Proc)
@@ -63,7 +67,7 @@ end
 
 ---------------------------------------------------------------------
 -- lavorazione smussi
-local function MakeChamfer( nOriId, Proc, nPhase, nRawId, nPartId, dOvmHead)
+local function MakeChamfer( nOriId, Proc, nPhase, nRawId, nPartId, dOvmTail)
    -- verifico che lo smusso sia richiesto
    local dDepth = EgtGetInfo( nOriId, 'Q06', 'd') or 0
    if dDepth < 0.1 then return true end
@@ -165,7 +169,7 @@ end
 
 ---------------------------------------------------------------------
 -- lavorazione con sega a catena per sezioni alte e larghe
-local function MakeSplitByChainSaw( nSurfId, sSawing, nFaceUse, dDepth, sNotes, dOffs, bExtendStartEnd)
+local function MakeCutByChainSaw( nSurfId, sSawing, nFaceUse, dDepth, sNotes, dRadialOffset, bExtendStartEnd, bInvert)
    -- Recupero i dati dell'utensile
    local dMaxMat = 0
    local dSawCornerRad = 0
@@ -205,7 +209,7 @@ local function MakeSplitByChainSaw( nSurfId, sSawing, nFaceUse, dDepth, sNotes,
    local vtOrtho = BL.GetVersRef( nFaceUse)
    EgtSetMachiningParam( MCH_MP.INITANGS, BL.GetChainSawInitAngs( vtN, vtOrtho, 1))
    -- imposto offset radiale per mantenere il materiale in coda per la finitura
-   EgtSetMachiningParam( MCH_MP.OFFSR, dOffs)
+   EgtSetMachiningParam( MCH_MP.OFFSR, dRadialOffset)
    -- imposto eventuale allungamento percorso iniziale
    local dStartAddLen = 0
    local dEndAddLen = 0
@@ -217,7 +221,13 @@ local function MakeSplitByChainSaw( nSurfId, sSawing, nFaceUse, dDepth, sNotes,
    EgtSetMachiningParam( MCH_MP.ENDADDLEN, dEndAddLen)
    -- faccio in modo che l'attacco della lama sia dal lato opposto rispetto al corpo macchina
    EgtSetMachiningParam( MCH_MP.TOOLINVERT, true)
-   EgtSetMachiningParam( MCH_MP.WORKSIDE, MCH_MILL_WS.LEFT)
+   if bInvert and bInvert == true then
+      EgtSetMachiningParam( MCH_MP.WORKSIDE, MCH_MILL_WS.RIGHT)
+      EgtSetMachiningParam( MCH_MP.INVERT, true)
+   else
+      EgtSetMachiningParam( MCH_MP.WORKSIDE, MCH_MILL_WS.LEFT)
+      EgtSetMachiningParam( MCH_MP.INVERT, false)
+   end
    if dMaxMat >= dDepth then
       EgtSetMachiningParam( MCH_MP.DEPTH, dDepth)
    -- se massimo affondamento utensile inferiore fessura, setto affondamento ed emetto warning
@@ -253,12 +263,82 @@ local function MakeSplitByChainSaw( nSurfId, sSawing, nFaceUse, dDepth, sNotes,
    return true, sName, nMchFId
 end
 
+---------------------------------------------------------------------
+-- split per sezioni grandi con sega a catena o mix catena + lama
+function ProcessSplit.MakeBigSectionSplitting( Proc, b3Raw, dOffset, SawingData, Cutting2Data)
+   local sNotes = ''
+   if SawingData.bSplit ~= nil then
+      sNotes = 'Precut;'
+   end
+   local bigSectionSplitType
+   -- se pezzo non troppo alto, taglio singolo da sopra
+   if b3Raw:getDimZ() + BD.CUT_EXTRA_MIN < SawingData.dChainSawMaxMat + 10 * GEO.EPS_SMALL then
+      bigSectionSplitType = "single horizontal"
+   -- se pezzo non troppo largo, taglio singolo da davanti
+   elseif b3Raw:getDimY() + BD.CUT_EXTRA_MIN < min( SawingData.dChainSawMaxMat, SawingData.dChainSawLen - BD.C_SIMM_ENC) + 10 * GEO.EPS_SMALL then
+      bigSectionSplitType = "single vertical"
+   -- se pezzo non troppo largo, tagli dai due fianchi (dietro e davanti)
+   elseif 0.5 * b3Raw:getDimY() + BD.CUT_EXTRA_MIN < min( SawingData.dChainSawMaxMat, SawingData.dChainSawLen - BD.C_SIMM_ENC) + 10 * GEO.EPS_SMALL then
+      bigSectionSplitType = "double vertical"
+   -- altrimenti taglio con sega a catena da sopra e con lama da sotto
+   elseif BD.DOWN_HEAD and ( b3Raw:getDimZ() + BD.CUT_EXTRA_MIN < Cutting2Data.dMaxDepth + SawingData.dChainSawMaxMat + 10 * GEO.EPS_SMALL) then
+      bigSectionSplitType = "double horizontal"
+   end
+
+   -- in base alle scelte precedenti, applico le lavorazioni
+   if bigSectionSplitType == "single horizontal" then
+      local dCutDepth = b3Raw:getDimZ() + BD.CUT_EXTRA_MIN
+      local sNotesSplit = EgtIf( SawingData.bSplit, 'Split;', sNotes)
+      -- verifico se sega a catena lunga e devo quindi estendere ingresso e uscita perchè è probabile che non riesca a ruotare sopra al pezzo
+      local bExtendStartEnd
+      local dMinLengthLongChainSaw = 630
+      if SawingData.dChainSawLen > dMinLengthLongChainSaw - 10 * GEO.EPS_SMALL then
+         bExtendStartEnd = true
+      end
+      local bOk, sErr = MakeCutByChainSaw( Proc.Id, SawingData.sSawing, MCH_MILL_FU.PARAL_TOP, dCutDepth, sNotesSplit, dOffset, bExtendStartEnd, SawingData.bInvert)
+      if not bOk then return bOk, sErr end
+   elseif bigSectionSplitType == "single vertical" then
+      local dCutDepth = b3Raw:getDimY() + BD.CUT_EXTRA_MIN
+      local sNotesSplit = EgtIf( SawingData.bSplit, 'Split;', sNotes)
+      local bOk, sErr = MakeCutByChainSaw( Proc.Id, SawingData.sSawing, MCH_MILL_FU.PARAL_FRONT, dCutDepth, sNotesSplit, dOffset, nil, SawingData.bInvert)
+      if not bOk then return bOk, sErr end
+   elseif bigSectionSplitType == "double vertical" then
+      local dCutDepth = 0.5 * b3Raw:getDimY() + BD.CUT_EXTRA_MIN
+      local sNotesSplit = EgtIf( SawingData.bSplit, 'Presplit;', sNotes)
+      local bOk, sErr = MakeCutByChainSaw( Proc.Id, SawingData.sSawing, MCH_MILL_FU.PARAL_BACK, dCutDepth, sNotesSplit, dOffset, nil, SawingData.bInvert)
+      if not bOk then return bOk, sErr end
+      sNotesSplit = EgtIf( SawingData.bSplit, 'Split;', sNotes)
+      bOk, sErr = MakeCutByChainSaw( Proc.Id, SawingData.sSawing, MCH_MILL_FU.PARAL_FRONT, dCutDepth, sNotesSplit, dOffset, nil, SawingData.bInvert)
+      if not bOk then return bOk, sErr end
+   elseif bigSectionSplitType == "double horizontal" then
+      -- sega a catena da sopra
+      local dChainSawCutDepth = b3Raw:getDimZ() + BD.CUT_EXTRA_MIN - Cutting2Data.dMaxDepth
+      local sNotesSplit = EgtIf( SawingData.bSplit, 'Presplit;', sNotes)
+      local bOk, sErr = MakeCutByChainSaw( Proc.Id, SawingData.sSawing, MCH_MILL_FU.PARAL_TOP, dChainSawCutDepth, sNotesSplit, dOffset, nil, SawingData.bInvert)
+      if not bOk then return bOk, sErr end
+      -- lama da sotto
+      local dCutExtra = -dChainSawCutDepth + BD.CUT_EXTRA_MIN
+      local dVzLimDwnUp
+      if BD.TURN then dVzLimDwnUp = -2 end
+      local sNotes = EgtIf( SawingData.bSplit, 'Split;', sNotes)
+      local bMaximizeVerticalDepth = true
+      bOk, sErr = Fbs.MakeOne( Proc.Id, 0, Cutting2Data.sCutting, Cutting2Data.dSawDiam, MCH_MILL_FU.ORTHO_TOP, dVzLimDwnUp, dCutExtra, BD.CUT_SIC, dOffset, 0, 0, sNotes, b3Raw, nil, bMaximizeVerticalDepth)
+      if not bOk then return false, sErr end
+   -- se è comunque troppo grande per essere separato, esco
+   else
+      local sErr = 'Error : section too big for splitting'
+      EgtOutLog( sErr)
+      return false, sErr, -1
+   end
+
+   return true
+end
+
 ---------------------------------------------------------------------
 -- tagli verticali aggiuntivi
 local function AddVerticalPreCuts( Proc, sCutting, dCutXOffset, b3Raw, sNotes)
-   local _, dimH = BL.GetFaceHvRefDim( Proc.Id, 0, b3Raw)
-   local nVerticalCuts = ceil( dimH / ( BD.MAX_LEN_DICE)) - 1
-   local dVerticalSliceHeight = dimH / ( nVerticalCuts + 1)
+   local nVerticalCuts = ceil( Proc.Face[1].WidthTrimmed / ( BD.MAX_LEN_DICE)) - 1
+   local dVerticalSliceHeight = Proc.Face[1].WidthTrimmed / ( nVerticalCuts + 1)
    -- recupero il diametro dell'utensile
    local dSawDiam = 400
    if EgtMdbSetCurrMachining( sCutting) then
@@ -276,9 +356,208 @@ local function AddVerticalPreCuts( Proc, sCutting, dCutXOffset, b3Raw, sNotes)
       bOk, sErr = Fbs.MakeOne( Proc.Id, 0, sCutting, dSawDiam, nFaceUse, nil, -0.1 -dCutXOffset, BD.CUT_SIC, dVerticalCutOffset, 0, 0, sNotes, b3Raw, nil, nil, nil, bForceTangentLeadInOut)
       if not bOk then return bOk, sErr end
    end
+
    return bOk, sErr
 end
 
+---------------------------------------------------------------------
+-- tagli standard
+local function MakeStandardCuts( Proc, b3Raw, nCuts, dOffsetBetweenCuts, TailCutType, Cutting1Data, Cutting2Data, dStartOffset, dLenEndRaw)
+   if not TailCutType.sType then
+      TailCutType.sType = ''
+   end
+   local PrecutType = { bBigSectionCut = TailCutType.bBigSectionCut, bHorizCut = TailCutType.bHorizCut, bDoubleHorizCut = TailCutType.bDoubleHorizCut, bDoubleCut = TailCutType.bDoubleCut, bSplit = TailCutType.bSplit, sType = 'Precut', bNeedVerticalAddedCuts = false, bNeedHorizontalAddedCuts = false}
+   if not TailCutType.bDoubleHorizCut then
+      -- flag di lavorazione faccia
+      local nOrthoOpposite = EgtIf( TailCutType.bHorizCut, MCH_MILL_FU.ORTHO_DOWN, MCH_MILL_FU.ORTHO_BACK)
+      -- calcolo extra taglio ed accorciamento
+      local dCutExtra = 0
+      local dAccStart = 0
+      local dAccEnd = 0
+      if TailCutType.bBigSectionCut and BD.C_SIMM then
+         -- qui arrivano sezioni molto grandi su macchine tipo PF con materiale da asportare inferiore allo spessore lama
+         local dSawRad = Cutting1Data.dSawDiam / 2
+         dCutExtra = - ( b3Raw:getDimY() - dSawRad)
+         dAccEnd = dSawRad
+      elseif b3Raw:getDimZ() < BD.MIN_DIM_HBEAM + 10 * GEO.EPS_SMALL or b3Raw:getDimY() < 2 * BD.MAX_DIM_HTCUT_HBEAM + 10 * GEO.EPS_SMALL then
+         dCutExtra = EgtIf( TailCutType.bDoubleCut, - 0.5 * b3Raw:getDimY() + BD.CUT_EXTRA_MIN, BD.CUT_EXTRA)
+      else
+         dCutExtra = - ( b3Raw:getDimY() - Cutting1Data.dMaxDepth)
+         local dSawRad = Cutting1Data.dSawDiam / 2
+         -- distanza in Y tra il centro della lama e l'intersezione tra la lama stessa e la massima Z della trave, + extra
+         -- se taglio doppio l'intersezione sarà in mezzeria, se taglio singolo sarà all'estremo opposto della trave
+         local dKL = dSawRad - Cutting1Data.dMaxDepth + EgtIf( TailCutType.bDoubleCut, b3Raw:getDimY() / 2 + BD.CUT_EXTRA_MIN, b3Raw:getDimY() + BD.CUT_EXTRA)
+         -- lunghezza minima del percorso di lavorazione, in caso accorciamento porti a lunghezza negativa
+         local dMinSawingLength = 5
+         if BD.C_SIMM then
+            dAccEnd = sqrt( max( dSawRad * dSawRad - dKL * dKL, 0))
+            -- non posso comunque accorciare più della dimensione della geometria, quindi in caso allungo entrata
+            if dAccEnd > b3Raw:getDimZ() - 100 * GEO.EPS_SMALL then
+               dAccStart = b3Raw:getDimZ() - dAccEnd - dMinSawingLength
+            end
+         else
+            dAccStart = sqrt( max( dSawRad * dSawRad - dKL * dKL, 0))
+            -- non posso comunque accorciare più della dimensione della geometria, quindi in caso allungo uscita
+            if dAccStart > b3Raw:getDimZ() - 100 * GEO.EPS_SMALL then
+               dAccEnd = b3Raw:getDimZ() - dAccStart - dMinSawingLength
+            end
+         end
+      end
+
+      -- per travi alte faccio faccio dei tagli orizzontali aggiuntivi
+      if TailCutType.bNeedHorizontalAddedCuts then
+         -- taglio a zero (con lama) per evitare problemi con grezzo più lungo del previsto. Se BigSection il pretaglio è già stato fatto.
+         if not TailCutType.bBigSectionCut and BD.PRECUT_TAIL then
+            dStartOffset = dLenEndRaw
+            local bOkPrecut, sErrPrecut = MakeStandardCuts( Proc, b3Raw, 1, 0, PrecutType, Cutting1Data, Cutting2Data, dStartOffset)
+            if not bOkPrecut then
+               return false, sErrPrecut
+            end
+         end
+         local nHorizontalCuts = ceil ( Proc.Face[1].HeightTrimmed / BD.MAX_DIM_DICE) - 1
+         local dHorizontalSliceHeight = Proc.Face[1].HeightTrimmed / ( nHorizontalCuts + 1)
+         for i = nCuts, 1, -1 do
+            local dCutXOffset = ( i - 1) * dOffsetBetweenCuts
+            -- tagli orizzontali
+            for j = nHorizontalCuts, 1, -1 do
+               local nFaceUse = MCH_MILL_FU.PARAL_DOWN
+               local dHorizontalCutOffset = dHorizontalSliceHeight * -j
+               local bForceTangentLeadInOut = BD.PRESS_ROLLER
+               local bOk, sErr = Fbs.MakeOne( Proc.Id, 0 , Cutting1Data.sCutting, Cutting1Data.dSawDiam, nFaceUse, nil, -0.1 - dCutXOffset, BD.CUT_SIC, dHorizontalCutOffset, 0, 0, 'Precut;', b3Raw, nil, nil, nil, bForceTangentLeadInOut)
+               if not bOk then return false, sErr end
+            end
+            -- se necessario taglio verticale doppio, eseguo l'opposto
+            if TailCutType.bDoubleCut then
+               -- gli accorciamenti vanno invertiti per il taglio opposto
+               local dAccStartDoubleCut, dAccEndDoubleCut = dAccEnd, dAccStart
+               local bOk, sErr = Fbs.MakeOne( Proc.Id, 0, Cutting1Data.sCutting, Cutting1Data.dSawDiam, MCH_MILL_FU.ORTHO_FRONT, nil, dCutExtra, BD.CUT_SIC, dCutXOffset, dAccStartDoubleCut, dAccEndDoubleCut, 'Precut;', b3Raw, true)
+               if not bOk then return false, sErr end
+            end
+            -- taglio verticale
+            local sInfo = 'Precut'
+            if i == 1 and TailCutType.sType ~= 'Precut' then
+               sInfo = 'Cut'
+            end
+            local bOk, sErr = Fbs.MakeOne( Proc.Id, 0, Cutting1Data.sCutting, Cutting1Data.dSawDiam, nOrthoOpposite, nil, dCutExtra, BD.CUT_SIC, dCutXOffset, dAccStart, dAccEnd, sInfo, b3Raw, true)
+            if not bOk then return false, sErr end
+         end
+         return true, sWarn
+      end
+
+      -- taglio a zero (con lama) per evitare problemi con grezzo più lungo del previsto. Se BigSection il pretaglio è già stato fatto.
+      if not TailCutType.bBigSectionCut and BD.PRECUT_TAIL and TailCutType.bNeedVerticalAddedCuts then
+         dStartOffset = dLenEndRaw
+         local bOkPrecut, sErrPrecut = MakeStandardCuts( Proc, b3Raw, 1, 0, PrecutType, Cutting1Data, Cutting2Data, dStartOffset)
+         if not bOkPrecut then
+            return false, sErrPrecut
+         end
+      end
+      -- se necessari tagli in doppio, eseguo gli opposti
+      if TailCutType.bDoubleCut then
+         -- gli accorciamenti vanno invertiti per il taglio opposto
+         local dAccStartDoubleCut, dAccEndDoubleCut = dAccEnd, dAccStart
+         for i = nCuts, 1, -1 do
+            local dCutOffset = ( i - 1) * dOffsetBetweenCuts
+            if i == 1 and TailCutType.sType =='Precut' then
+               dCutOffset = dStartOffset
+            end
+            local sNotes = EgtIf( TailCutType.bSplit, 'Presplit;', 'Precut;')
+            local bOk, sErr = Fbs.MakeOne( Proc.Id, 0, Cutting1Data.sCutting, Cutting1Data.dSawDiam, MCH_MILL_FU.ORTHO_FRONT, nil, dCutExtra, BD.CUT_SIC, dCutOffset, dAccStartDoubleCut, dAccEndDoubleCut, sNotes, b3Raw, true)
+            if not bOk then return false, sErr end
+         end
+      end
+      -- eseguo i tagli necessari
+      for i = nCuts, 1, -1 do
+         local dCutOffset = ( i - 1) * dOffsetBetweenCuts
+         -- se trave larga effettuo tagli verticali aggiuntivi
+         if TailCutType.bNeedVerticalAddedCuts then
+            local sSpecNotes = EgtIf( TailCutType.bSplit, 'Presplit;', 'Precut;')
+            local bOk, sErr = AddVerticalPreCuts( Proc, Cutting1Data.sCutting, dCutOffset, b3Raw, sSpecNotes)
+            if not bOk then return bOk, sErr end
+         end
+         if i == 1 and TailCutType.sType =='Precut' then
+            dCutOffset = dStartOffset
+         end
+         local sNotes
+         if TailCutType.bSplit then
+            sNotes = EgtIf( i == 1, 'Split;', 'Presplit;')
+         else
+            sNotes = EgtIf( i == 1 and TailCutType.sType ~= 'Precut', 'Cut;', 'Precut;')
+         end
+         -- se primo taglio da sopra e PF o ONE richiedo risalita preliminare a Zmax
+         if i == nCuts and TailCutType.bHorizCut and BD.C_SIMM and not BD.DOWN_HEAD then
+            sNotes = EgtSetValInNotes( sNotes, 'StartZmax', 2)
+         end
+         local bOk, sErr = Fbs.MakeOne( Proc.Id, 0, Cutting1Data.sCutting, Cutting1Data.dSawDiam, nOrthoOpposite, nil, dCutExtra, BD.CUT_SIC, dCutOffset, dAccStart, dAccEnd, sNotes, b3Raw, true)
+         if not bOk then return false, sErr end
+      end
+   -- altrimenti necessari tagli da sopra e sotto con testa opportuna
+   else
+      -- verifico esistenza della lavorazione con lama da sotto
+      if not Cutting2Data.sCutting then
+         local sErr = 'Error : cutting H2 not found in library'
+         EgtOutLog( sErr)
+         return false, sErr
+      end
+      -- verifico che le due lame riescano a lavorare la sezione
+      local dDimZ = b3Raw:getDimZ()
+      local dExtra = Cutting1Data.dMaxVertDepth + Cutting2Data.dMaxDepth - dDimZ
+      if ( dExtra - 2 * BD.CUT_EXTRA_MIN + 10 * GEO.EPS_SMALL < 0) and not TailCutType.bBigSectionCut then
+         local sErr = 'Error : section too big for tail cut'
+         EgtOutLog( sErr)
+         return false, sErr
+      end
+      -- calcolo extra taglio ed accorciamento
+      local dCutExtra = -Cutting2Data.dMaxDepth + dExtra / 2 + BD.CUT_EXTRA_MIN
+      local dCutExtra2 = -Cutting1Data.dMaxVertDepth + dExtra / 2 + BD.CUT_EXTRA_MIN
+      local dAccStart = 0
+      -- limiti da sotto
+      local dVzLimDwnUp
+      if BD.TURN then dVzLimDwnUp = -2 end
+      -- taglio a zero (con lama) per evitare problemi con grezzo più lungo del previsto. Se BigSection il pretaglio è già stato fatto.
+      if not TailCutType.bBigSectionCut and BD.PRECUT_TAIL and TailCutType.bNeedVerticalAddedCuts then
+         dStartOffset = dLenEndRaw
+         local bOkPrecut, sErrPrecut = MakeStandardCuts( Proc, b3Raw, 1, 0, PrecutType, Cutting1Data, Cutting2Data, dStartOffset)
+         if not bOkPrecut then
+            return false, sErrPrecut
+         end
+      end
+      -- eseguo i tagli da sotto necessari
+      for i = nCuts, 1, -1 do
+         local dCutOffset = ( i - 1) * dOffsetBetweenCuts
+         if i == 1 and TailCutType.sType =='Precut' then
+            dCutOffset = dStartOffset
+         end
+         local sNotes = EgtIf( TailCutType.bSplit, 'Presplit;', 'Precut;')
+         local bOk, sErr = Fbs.MakeOne( Proc.Id, 0, Cutting2Data.sCutting, Cutting2Data.dSawDiam, MCH_MILL_FU.ORTHO_TOP, dVzLimDwnUp, dCutExtra2, BD.CUT_SIC, dCutOffset, dAccStart, 0, sNotes, b3Raw, nil, true)
+         if not bOk then return false, sErr end
+      end
+      -- eseguo i tagli da sopra necessari
+      for i = nCuts, 1, -1 do
+         local dCutOffset = ( i - 1) * dOffsetBetweenCuts
+         if i == 1 and TailCutType.sType =='Precut' then
+            dCutOffset = dStartOffset
+         end
+         -- se trave larga effettuo tagli verticali aggiuntivi
+         if TailCutType.bNeedVerticalAddedCuts then
+            local sSpecNotes = EgtIf( TailCutType.bSplit, 'Presplit;', 'Precut;')
+            local bOk, sErr = AddVerticalPreCuts( Proc, Cutting1Data.sCutting, dCutOffset, b3Raw, sSpecNotes)
+            if not bOk then return bOk, sErr end
+         end
+         local sNotes
+         if TailCutType.bSplit then
+            sNotes = EgtIf( i == 1, 'Split;', 'Presplit;')
+         else
+            sNotes = EgtIf( i == 1 and TailCutType.sType ~= 'Precut', 'Cut;', 'Precut;')
+         end
+         local bOk, sErr = Fbs.MakeOne( Proc.Id, 0, Cutting1Data.sCutting, Cutting1Data.dSawDiam, MCH_MILL_FU.ORTHO_DOWN, dVzLimDwnUp, dCutExtra, BD.CUT_SIC, dCutOffset, dAccStart, 0, sNotes, b3Raw)
+         if not bOk then return false, sErr end
+      end
+   end
+
+   return true
+end
+
 ---------------------------------------------------------------------
 -- Applicazione della lavorazione
 function ProcessSplit.Make( Proc, nPhase, nRawId, nPartId, nOrd, sDownOrSideOrStd, bPreMove, vtMove, dOvmTail)
@@ -290,7 +569,7 @@ function ProcessSplit.Make( Proc, nPhase, nRawId, nPartId, nOrd, sDownOrSideOrSt
    -- inserimento smussi
    local nOriId = EgtGetInfo( Proc.Id, 'ORI', 'i')
    if nOriId then
-      local bOkc, sErrC = MakeChamfer( nOriId, Proc, nPhase, nRawId, nPartId, dOvmHead)
+      local bOkc, sErrC = MakeChamfer( nOriId, Proc, nPhase, nRawId, nPartId, dOvmTail)
       if not bOkc then return bOkc, sErrC end
    end
    -- recupero la lavorazione
@@ -327,6 +606,20 @@ function ProcessSplit.Make( Proc, nPhase, nRawId, nPartId, nOrd, sDownOrSideOrSt
          dSawThick2 = EgtTdbGetCurrToolParam(MCH_TP.THICK) or dSawThick2
       end
    end
+   -- recupero dati utensile della sega a catena più lunga a disposizione
+   local sSawing = ML.FindSawing( 'SawingForSplitting', nil, nil, 'Longest')
+   if not sSawing then
+      sSawing = ML.FindSawing( 'Sawing', nil, nil, 'Longest')
+   end
+   local dChainSawMaxMat = 0
+   local dChainSawLen = 0
+   if EgtMdbSetCurrMachining( sSawing or '') then
+      local sTuuid = EgtMdbGetCurrMachiningParam( MCH_MP.TUUID)
+      if EgtTdbSetCurrTool( EgtTdbGetToolFromUUID( sTuuid) or '') then
+         dChainSawMaxMat = EgtTdbGetCurrToolParam( MCH_TP.MAXMAT) or dChainSawMaxMat
+         dChainSawLen = EgtTdbGetCurrToolParam( MCH_TP.LEN) or dChainSawLen
+      end
+   end
    -- caratteristiche taglio
    local dDimYRef = EgtIf( b3Raw:getDimZ() < BD.MIN_DIM_HBEAM + 10 * GEO.EPS_SMALL, dSawMaxDepth, abs( BD.MAX_DIM_HTCUT_HBEAM))
    local bBigSectionCut = ( b3Raw:getDimY() > 2 * dDimYRef - BD.CUT_EXTRA_MIN + 10 * GEO.EPS_SMALL) and
@@ -336,8 +629,6 @@ function ProcessSplit.Make( Proc, nPhase, nRawId, nPartId, nOrd, sDownOrSideOrSt
    local bDoubleCut = ( not bHorizCut and not bDoubleHorizCut and b3Raw:getDimY() > dDimYRef - BD.CUT_EXTRA  + 10 * GEO.EPS_SMALL)
    -- dati geometrici del taglio
    local ptC, vtN = EgtSurfTmFacetCenter( Proc.Id, 0, GDB_ID.ROOT)
-   -- flag di lavorazione faccia
-   local nOrthoOpposite = EgtIf( bHorizCut, MCH_MILL_FU.ORTHO_DOWN, MCH_MILL_FU.ORTHO_BACK)
    -- separazione solo se esiste grezzo successivo con pezzi o scaricabile
    local nNextRawId = EgtGetNextRawPart( nRawId)
    local bSplit = ( nNextRawId  and  ( EgtGetPartInRawPartCount( nNextRawId) > 0  or  EgtGetRawPartBBox( nNextRawId):getDimX() >= BD.MinRaw))
@@ -345,8 +636,6 @@ function ProcessSplit.Make( Proc, nPhase, nRawId, nPartId, nOrd, sDownOrSideOrSt
    local dLenEndRaw = dOvmTail
    local nCuts = 1
    local dOffsL = 0
-   local _, dimH, dimV = BL.GetFaceHvRefDim( Proc.Id, 0, b3Raw)
-   local dMinTailScrapForAdditionalCuts = 10.123
    if not bSplit then
       -- cerco grezzo successivo che sia nella fase
       if nNextRawId  and  EgtVerifyRawPartPhase( nNextRawId, nPhase) then
@@ -356,94 +645,38 @@ function ProcessSplit.Make( Proc, nPhase, nRawId, nPartId, nOrd, sDownOrSideOrSt
          dOffsL = dLenEndRaw / nCuts
          -- aggiorno ingombro del grezzo corrente con quello del successivo
          b3Raw:Add( b3NextRaw)
+      else
+         dLenEndRaw = min( dOvmTail, abs( ptC:getX() - b3Raw:getMin():getX()))
       end
    end
+   -- determino la necessità di tagli aggiuntivi
+   local dMinTailScrapForAdditionalCuts = 10.123
+   local bNeedVerticalAddedCuts = not bSplit and ( Proc.Face[1].WidthTrimmed > BD.MAX_LEN_DICE) and ( dLenEndRaw > dMinTailScrapForAdditionalCuts - 10 * GEO.EPS_SMALL)
+   local bNeedHorizontalAddedCuts = not bSplit and ( Proc.Face[1].HeightTrimmed > ( BD.MIN_HEIGHT_ADDED_CUTS or BD.MAX_LEN_DICE)) and not bBigSectionCut and ( dLenEndRaw > dMinTailScrapForAdditionalCuts - 10 * GEO.EPS_SMALL)
+   -- dati lavorazioni sopra e sotto
+   local Cutting1Data = { sCutting = sCutting, dSawDiam = dSawDiam, dMaxDepth = dSawMaxDepth, dSawThick = dSawThick, dMaxVertDepth = dMaxVertDepth}
+   local Cutting2Data = { sCutting = sCutting2, dSawDiam = dSawDiam2, dMaxDepth = dSawMaxDepth2, dSawThick = dSawThick2}
+   local SawingData = { sSawing = sSawing, dChainSawMaxMat = dChainSawMaxMat, dChainSawLen = dChainSawLen, bSplit = bSplit or false}
+   -- dati sul taglio di coda da effettuare
+   local TailCutType = { bBigSectionCut = bBigSectionCut, bHorizCut = bHorizCut, bDoubleHorizCut = bDoubleHorizCut, bDoubleCut = bDoubleCut, bSplit = bSplit, bNeedVerticalAddedCuts = bNeedVerticalAddedCuts, bNeedHorizontalAddedCuts = bNeedHorizontalAddedCuts}
    -- se taglio per pezzi alti e larghi
    local nNewPhase = 0
    if bBigSectionCut then
       local bFinishingNeeded = false
       if bSplit then
-         -- recupero dati utensile della sega a catena più lunga a disposizione
-         local sSawing = ML.FindSawing( 'SawingForSplitting', nil, nil, 'Longest')
-         if not sSawing then
-            sSawing = ML.FindSawing( 'Sawing', nil, nil, 'Longest')
-         end
-         local dChainSawMaxMat = 0
-         local dChainSawLen = 0
-         if EgtMdbSetCurrMachining( sSawing or '') then
-            local sTuuid = EgtMdbGetCurrMachiningParam( MCH_MP.TUUID)
-            if EgtTdbSetCurrTool( EgtTdbGetToolFromUUID( sTuuid) or '') then
-               dChainSawMaxMat = EgtTdbGetCurrToolParam( MCH_TP.MAXMAT) or dChainSawMaxMat
-               dChainSawLen = EgtTdbGetCurrToolParam( MCH_TP.LEN) or dChainSawLen
-            end
-         end
-
-         local bigSectionSplitType
-         -- se pezzo non troppo alto, taglio singolo da sopra
-         if b3Raw:getDimZ() + BD.CUT_EXTRA_MIN < dChainSawMaxMat + 10 * GEO.EPS_SMALL then
-            bigSectionSplitType = "single horizontal"
-         -- se pezzo non troppo largo, taglio singolo da davanti
-         elseif b3Raw:getDimY() + BD.CUT_EXTRA_MIN < min( dChainSawMaxMat, dChainSawLen - BD.C_SIMM_ENC) + 10 * GEO.EPS_SMALL then
-            bigSectionSplitType = "single vertical"
-         -- se pezzo non troppo largo, tagli dai due fianchi (dietro e davanti)
-         elseif 0.5 * b3Raw:getDimY() + BD.CUT_EXTRA_MIN < min( dChainSawMaxMat, dChainSawLen - BD.C_SIMM_ENC) + 10 * GEO.EPS_SMALL then
-            bigSectionSplitType = "double vertical"
-         -- altrimenti taglio con sega a catena da sopra e con lama da sotto
-         elseif BD.DOWN_HEAD and ( b3Raw:getDimZ() + BD.CUT_EXTRA_MIN < dSawMaxDepth2 + dChainSawMaxMat + 10 * GEO.EPS_SMALL) then
-            bigSectionSplitType = "double horizontal"
-         end
-
-         -- assegno offset in  lunghezza
-         local dOffs = 0
+         -- assegno offset in lunghezza
+         local dTailOffset = 0
          if dOvmTail > BD.OVM_CHAIN_HBEAM then
-            dOffs = dOvmTail - BD.OVM_CHAIN_HBEAM
+            dTailOffset = dOvmTail - BD.OVM_CHAIN_HBEAM
             bFinishingNeeded = true
          end
-         
-         -- in base alle scelte precedenti, applico le lavorazioni
-         if bigSectionSplitType == "single horizontal" then
-            local dCutDepth = b3Raw:getDimZ() + BD.CUT_EXTRA_MIN
-            local sNotesSplit = 'Split;'
-            -- verifico se sega a catena lunga e devo quindi estendere ingresso e uscita perchè è probabile che non riesca a ruotare sopra al pezzo
-            local bExtendStartEnd
-            local dMinLengthLongChainSaw = 630
-            if dChainSawLen > dMinLengthLongChainSaw - 10 * GEO.EPS_SMALL then
-               bExtendStartEnd = true
-            end
-            local bOk, sErr = MakeSplitByChainSaw( Proc.Id, sSawing, MCH_MILL_FU.PARAL_TOP, dCutDepth, sNotesSplit, dOffs, bExtendStartEnd)
-            if not bOk then return bOk, sErr, nNewPhase end
-         elseif bigSectionSplitType == "single vertical" then
-            local dCutDepth = b3Raw:getDimY() + BD.CUT_EXTRA_MIN
-            local sNotesSplit = 'Split;'
-            local bOk, sErr = MakeSplitByChainSaw( Proc.Id, sSawing, MCH_MILL_FU.PARAL_FRONT, dCutDepth, sNotesSplit, dOffs)
-            if not bOk then return bOk, sErr, nNewPhase end
-         elseif bigSectionSplitType == "double vertical" then
-            local dCutDepth = 0.5 * b3Raw:getDimY() + BD.CUT_EXTRA_MIN
-            local sNotesSplit = 'Presplit;'
-            local bOk, sErr = MakeSplitByChainSaw( Proc.Id, sSawing, MCH_MILL_FU.PARAL_BACK, dCutDepth, sNotesSplit, dOffs)
-            if not bOk then return bOk, sErr, nNewPhase end
-            sNotesSplit = 'Split;'
-            bOk, sErr = MakeSplitByChainSaw( Proc.Id, sSawing, MCH_MILL_FU.PARAL_FRONT, dCutDepth, sNotesSplit, dOffs)
-            if not bOk then return bOk, sErr, nNewPhase end
-         elseif bigSectionSplitType == "double horizontal" then
-            -- sega a catena da sopra
-            local dChainSawCutDepth = b3Raw:getDimZ() + BD.CUT_EXTRA_MIN - dSawMaxDepth2
-            local sNotesSplit = 'Presplit;'
-            local bOk, sErr = MakeSplitByChainSaw( Proc.Id, sSawing, MCH_MILL_FU.PARAL_TOP, dChainSawCutDepth, sNotesSplit, dOffs)
-            if not bOk then return bOk, sErr, nNewPhase end
-            -- lama da sotto
-            local dCutExtra = -dChainSawCutDepth + BD.CUT_EXTRA_MIN
-            local dVzLimDwnUp
-            if BD.TURN then dVzLimDwnUp = -2 end
-            local sNotes = 'Split;'
-            local bMaximizeVerticalDepth = true
-            bOk, sErr = Fbs.MakeOne( Proc.Id, 0, sCutting2, dSawDiam2, MCH_MILL_FU.ORTHO_TOP, dVzLimDwnUp, dCutExtra, BD.CUT_SIC, dOffs, 0, 0, sNotes, b3Raw, nil, bMaximizeVerticalDepth)
-            if not bOk then return false, sErr end
-         -- se è comunque troppo grande per essere separato, esco
-         else
-            local sErr = 'Error : section too big for splitting'
-            EgtOutLog( sErr)
-            return false, sErr, -1
+         -- split per grande sezione
+         local bOk, sErr, nNewPhase2 = ProcessSplit.MakeBigSectionSplitting( Proc, b3Raw, dTailOffset, SawingData, Cutting2Data)
+         if nNewPhase2 then
+            nNewPhase = nNewPhase2
+         end
+         if not bOk then
+            return bOk, sErr, nNewPhase
          end
          -- se necessaria finitura, creo nuova fase
          if bFinishingNeeded then
@@ -491,12 +724,20 @@ function ProcessSplit.Make( Proc, nPhase, nRawId, nPartId, nOrd, sDownOrSideOrSt
          else
             dMaxElev = Proc.Box:getMax():getX() - b3Raw:getMin():getX()
          end
+         -- taglio a zero (con sega a catena o mix catena + lama) per evitare problemi con grezzo più lungo del previsto
+         if BD.PRECUT_TAIL and not bSplit then
+            local dTailOffset = dLenEndRaw
+            local bOkPrecut, sErrPrecut = ProcessSplit.MakeBigSectionSplitting( Proc, b3Raw, dTailOffset, SawingData, Cutting2Data)
+            if not bOkPrecut then
+               return false, sErrPrecut
+            end
+         end
          -- se finitura con lama
          if nQ05 < 2 or ( not bSplit and dMaxElev > dSawThickCheck) then
             -- controllo se è necessario un taglio con dicing o si deve proseguire ai casi standard
             if bSplit or dMaxElev > dSawThickCheck then
                local bOk, sErr
-               if not bSplit and ( dimH > BD.MAX_LEN_DICE) and ( dLenEndRaw > dMinTailScrapForAdditionalCuts - 10 * GEO.EPS_SMALL) then
+               if bNeedVerticalAddedCuts then
                   -- ad ogni offset di taglio dovrò fare prima i tagli verticali e poi i cubetti 
                   for i = nCuts, 1, -1 do
                      local nAddGrpId = BL.GetAddGroup( Proc.PartId)
@@ -561,157 +802,11 @@ function ProcessSplit.Make( Proc, nPhase, nRawId, nPartId, nOrd, sDownOrSideOrSt
          return true, nil, nNewPhase
       end
    end
-   -- se tagli standard
-   if not bDoubleHorizCut then
-      -- calcolo extra taglio ed accorciamento
-      local dCutExtra = 0
-      local dAccStart = 0
-      local dAccEnd = 0
-      if bBigSectionCut and BD.C_SIMM then
-         -- qui arrivano sezioni molto grandi su macchine tipo PF con materiale da asportare inferiore allo spessore lama
-         local dSawRad = dSawDiam / 2
-         dCutExtra = - ( b3Raw:getDimY() - dSawRad)
-         dAccEnd = dSawRad
-      elseif b3Raw:getDimZ() < BD.MIN_DIM_HBEAM + 10 * GEO.EPS_SMALL or b3Raw:getDimY() < 2 * BD.MAX_DIM_HTCUT_HBEAM + 10 * GEO.EPS_SMALL then
-         dCutExtra = EgtIf( bDoubleCut, - 0.5 * b3Raw:getDimY() + BD.CUT_EXTRA_MIN, BD.CUT_EXTRA)
-      else
-         dCutExtra = - ( b3Raw:getDimY() - dSawMaxDepth)
-         local dSawRad = dSawDiam / 2
-         -- distanza in Y tra il centro della lama e l'intersezione tra la lama stessa e la massima Z della trave, + extra
-         -- se taglio doppio l'intersezione sarà in mezzeria, se taglio singolo sarà all'estremo opposto della trave
-         local dKL = dSawRad - dSawMaxDepth + EgtIf( bDoubleCut, b3Raw:getDimY() / 2 + BD.CUT_EXTRA_MIN, b3Raw:getDimY() + BD.CUT_EXTRA)
-         -- lunghezza minima del percorso di lavorazione, in caso accorciamento porti a lunghezza negativa
-         local dMinSawingLength = 5
-         if BD.C_SIMM then
-            dAccEnd = sqrt( max( dSawRad * dSawRad - dKL * dKL, 0))
-            -- non posso comunque accorciare più della dimensione della geometria, quindi in caso allungo entrata
-            if dAccEnd > b3Raw:getDimZ() - 100 * GEO.EPS_SMALL then
-               dAccStart = b3Raw:getDimZ() - dAccEnd - dMinSawingLength
-            end
-         else
-            dAccStart = sqrt( max( dSawRad * dSawRad - dKL * dKL, 0))
-            -- non posso comunque accorciare più della dimensione della geometria, quindi in caso allungo uscita
-            if dAccStart > b3Raw:getDimZ() - 100 * GEO.EPS_SMALL then
-               dAccEnd = b3Raw:getDimZ() - dAccStart - dMinSawingLength
-            end
-         end
-      end
 
-      -- per travi alte faccio faccio dei tagli orizzontali aggiuntivi
-      local bAreHorizontalCutsNeeded = not bSplit and ( dimV > BD.MAX_LEN_DICE) and not bBigSectionCut and ( dLenEndRaw > dMinTailScrapForAdditionalCuts - 10 * GEO.EPS_SMALL)
-      if bAreHorizontalCutsNeeded then
-         local nHorizontalCuts = ceil ( dimV / BD.MAX_DIM_DICE) - 1
-         local dHorizontalSliceHeight = dimV / ( nHorizontalCuts + 1)
-         for i = nCuts, 1, -1 do
-            local dCutXOffset = ( i - 1) * dOffsL
-            -- tagli orizzontali
-            for j = nHorizontalCuts, 1, -1 do
-               local nFaceUse = MCH_MILL_FU.PARAL_DOWN
-               local dHorizontalCutOffset = dHorizontalSliceHeight * -j
-               local bForceTangentLeadInOut = BD.PRESS_ROLLER
-               local bOk, sErr = Fbs.MakeOne( Proc.Id, 0 , sCutting, dSawDiam, nFaceUse, nil, -0.1 - dCutXOffset, BD.CUT_SIC, dHorizontalCutOffset, 0, 0, 'Precut;', b3Raw, nil, nil, nil, bForceTangentLeadInOut)
-               if not bOk then return false, sErr end
-            end
-            -- se necessario taglio verticale doppio, eseguo l'opposto
-            if bDoubleCut then
-               -- gli accorciamenti vanno invertiti per il taglio opposto
-               local dAccStartDoubleCut, dAccEndDoubleCut = dAccEnd, dAccStart
-               local bOk, sErr = Fbs.MakeOne( Proc.Id, 0, sCutting, dSawDiam, MCH_MILL_FU.ORTHO_FRONT, nil, dCutExtra, BD.CUT_SIC, dCutXOffset, dAccStartDoubleCut, dAccEndDoubleCut, 'Precut;', b3Raw, true)
-               if not bOk then return false, sErr end
-            end
-            -- taglio verticale
-            local sInfo = 'PreCut;'
-            if i == 1 then sInfo = 'Cut;' end
-            local bOk, sErr = Fbs.MakeOne( Proc.Id, 0, sCutting, dSawDiam, nOrthoOpposite, nil, dCutExtra, BD.CUT_SIC, dCutXOffset, dAccStart, dAccEnd, sInfo, b3Raw)
-            if not bOk then return false, sErr end
-         end
-         return true, sWarn, nNewPhase
-      end
+   local bOk, sErr = MakeStandardCuts( Proc, b3Raw, nCuts, dOffsL, TailCutType, Cutting1Data, Cutting2Data, nil, dLenEndRaw)
 
-      -- se necessari tagli in doppio, eseguo gli opposti
-      if bDoubleCut then
-         -- gli accorciamenti vanno invertiti per il taglio opposto
-         local dAccStartDoubleCut, dAccEndDoubleCut = dAccEnd, dAccStart
-         for i = nCuts, 1, -1 do
-            local dCutOffset = ( i - 1) * dOffsL
-            local sNotes = EgtIf( bSplit, 'Presplit;', 'Precut;')
-            local bOk, sErr = Fbs.MakeOne( Proc.Id, 0, sCutting, dSawDiam, MCH_MILL_FU.ORTHO_FRONT, nil, dCutExtra, BD.CUT_SIC, dCutOffset, dAccStartDoubleCut, dAccEndDoubleCut, sNotes, b3Raw, true)
-            if not bOk then return false, sErr end
-         end
-      end
-      -- eseguo i tagli necessari
-      for i = nCuts, 1, -1 do
-         local dCutOffset = ( i - 1) * dOffsL
-         -- se trave larga effettuo tagli verticali aggiuntivi
-         if not bSplit and ( dimH > BD.MAX_LEN_DICE) and ( dLenEndRaw > dMinTailScrapForAdditionalCuts - 10 * GEO.EPS_SMALL) then
-            local sSpecNotes = EgtIf( bSplit, 'Presplit;', 'Precut;')
-            local bOk, sErr = AddVerticalPreCuts( Proc, sCutting, dCutOffset, b3Raw, sSpecNotes)
-            if not bOk then return bOk, sErr end
-         end
-         local sNotes
-         if bSplit then
-            sNotes = EgtIf( i == 1, 'Split;', 'Presplit;')
-         else
-            sNotes = EgtIf( i == 1, 'Cut;', 'Precut;')
-         end
-         -- se primo taglio da sopra e PF o ONE richiedo risalita preliminare a Zmax
-         if i == nCuts and bHorizCut and BD.C_SIMM and not BD.DOWN_HEAD then
-            sNotes = EgtSetValInNotes( sNotes, 'StartZmax', 2)
-         end
-         local bOk, sErr = Fbs.MakeOne( Proc.Id, 0, sCutting, dSawDiam, nOrthoOpposite, nil, dCutExtra, BD.CUT_SIC, dCutOffset, dAccStart, dAccEnd, sNotes, b3Raw)
-         if not bOk then return false, sErr end
-      end
-   -- altrimenti necessari tagli da sopra e sotto con testa opportuna
-   else
-      -- verifico esistenza della lavorazione con lama da sotto
-      if not sCutting2 then
-         local sErr = 'Error : cutting H2 not found in library'
-         EgtOutLog( sErr)
-         return false, sErr
-      end
-      -- verifico che le due lame riescano a lavorare la sezione
-      local dDimZ = b3Raw:getDimZ()
-      local dExtra = dMaxVertDepth + dSawMaxDepth2 - dDimZ
-      if ( dExtra - 2 * BD.CUT_EXTRA_MIN + 10 * GEO.EPS_SMALL < 0) and not bBigSectionCut then
-         local sErr = 'Error : section too big for tail cut'
-         EgtOutLog( sErr)
-         return false, sErr
-      end
-      -- calcolo extra taglio ed accorciamento
-      local dCutExtra = -dSawMaxDepth2 + dExtra / 2 + BD.CUT_EXTRA_MIN
-      local dCutExtra2 = -dMaxVertDepth + dExtra / 2 + BD.CUT_EXTRA_MIN
-      local dAccStart = 0
-      -- limiti da sotto
-      local dVzLimDwnUp
-      if BD.TURN then dVzLimDwnUp = -2 end
-      -- eseguo i tagli da sotto necessari
-      for i = nCuts, 1, -1 do
-         local dCutOffset = ( i - 1) * dOffsL
-         local sNotes = EgtIf( bSplit, 'Presplit;', 'Precut;')
-         local bOk, sErr = Fbs.MakeOne( Proc.Id, 0, sCutting2, dSawDiam2, MCH_MILL_FU.ORTHO_TOP, dVzLimDwnUp, dCutExtra2, BD.CUT_SIC, dCutOffset, dAccStart, 0, sNotes, b3Raw, nil, true)
-         if not bOk then return false, sErr end
-      end
-      -- eseguo i tagli da sopra necessari
-      for i = nCuts, 1, -1 do
-         local dCutOffset = ( i - 1) * dOffsL
-         -- se trave larga effettuo tagli verticali aggiuntivi
-         if not bSplit and ( dimH > BD.MAX_LEN_DICE) and ( dLenEndRaw > dMinTailScrapForAdditionalCuts - 10 * GEO.EPS_SMALL) then
-            local sSpecNotes = EgtIf( bSplit, 'Presplit;', 'Precut;')
-            local bOk, sErr = AddVerticalPreCuts( Proc, sCutting, dCutOffset, b3Raw, sSpecNotes)
-            if not bOk then return bOk, sErr end
-         end
-         local sNotes
-         if bSplit then
-            sNotes = EgtIf( i == 1, 'Split;', 'Presplit;')
-         else
-            sNotes = EgtIf( i == 1, 'Cut;', 'Precut;')
-         end
-         local bOk, sErr = Fbs.MakeOne( Proc.Id, 0, sCutting, dSawDiam, MCH_MILL_FU.ORTHO_DOWN, dVzLimDwnUp, dCutExtra, BD.CUT_SIC, dCutOffset, dAccStart, 0, sNotes, b3Raw)
-         if not bOk then return false, sErr end
-      end
-   end
-   return true, nil, nNewPhase
-end   
+   return bOk, sErr, nNewPhase
+end
 
 ---------------------------------------------------------------------
 return ProcessSplit

NestProcess.lua

@@ -15,7 +15,7 @@ EgtEnableDebug( false)
 --NEST.MACHINE = 'Essetre-90480019_MW'
 --NEST.FLAG = 3
 
-local sLog = ' +++ BeamNestProcess : ' .. NEST.FILE .. ', ' .. NEST.MACHINE .. ', ' .. LEN["1"]
+local sLog = ' +++ BeamNestProcess : ' .. NEST.FILE .. ', ' .. NEST.MACHINE .. ', ' .. LEN[1]
 EgtOutLog( sLog)
 
 -- flag per abilitare statistiche in log

UpdateLog.txt

@@ -1,5 +1,15 @@
            ==== Beam Update Log ====
 
+Versione 2.6i1 (09/09/2024)
+- Added : refactoring e modifiche a HeadCut e Split per introduzione pretagli a zero sul grezzo, per evitare problemi con pezzi non lunghi quanto ci si aspetta
+- Added : in Mark, gestita la lavorazione del testo
+- Modif : gestione dipendenza foro-tasca in caso di fase con pezzo ribaltato
+- Modif : in Headcut e Split aggiunta gestione parametro MIN_HEIGHT_ADDED_CUTS da BeamData per scegliere l'altezza minima per cui devono essere aggiunti i tagli orizzontali supplementari
+- Modif : se Lapjoint attraversata da L055, la lapjoint viene fatta prima
+- Modif : in ScarfJoint, in dicing, tagli paralleli fatti con unico passaggio di fianco per evitare che il cubetto rimanga appoggiato al motore
+- Fixed : corretto caso di groove lunga passante a 3 facce che non veniva lavorata
+- Fixed : in FacesBySaw -> MakeOne corretta gestione lato di lavoro quando il percorso è orizzontale
+
 Versione 2.6h2 (26/08/2024)
 - Added : in BatchProcess e New si verifica l'abilitazione alla generazione con EgtVerifyKeyOption
 - Modif : in FacesBySaw introdotti attacchi tangenziali solo da un lato, limitati a facce con Z negative

Version.lua

@@ -2,5 +2,5 @@
 -- Gestione della versione di Beam
 
 NAME = 'Beam'
-VERSION = '2.6h2'
-MIN_EXE = '2.6h1'
+VERSION = '2.6i1'
+MIN_EXE = '2.6e5'