diff --git a/LuaLibs/BeamLib.lua b/LuaLibs/BeamLib.lua
index 6e4572a..ed759c6 100644
--- a/LuaLibs/BeamLib.lua
+++ b/LuaLibs/BeamLib.lua
@@ -189,7 +189,7 @@ function BeamLib.PutStartOnLonger( nCrvId)
 end
 
 -------------------------------------------------------------------------------------------------------------
-function BeamLib.PutStartNearestToEdge( nCrvId, b3Raw, bDown)
+function BeamLib.PutStartNearestToEdge( nCrvId, b3Raw, dMaxDist, bDown)
    -- verifico che la curva sia chiusa
    if not EgtCurveIsClosed( nCrvId) then return false end
    -- recupero il versore normale al piano di lavoro o estrusione
@@ -217,18 +217,14 @@ function BeamLib.PutStartNearestToEdge( nCrvId, b3Raw, bDown)
          dD = min( abs( vtMin:getZ()) * dCoeffZ, dD)
          dD = min( abs( vtMax:getZ()) * dCoeffZ, dD)
          local dZ = abs( EgtIf( bDown, vtMin:getZ(), vtMax:getZ())) * dCoeffZ
-         if dD < dDopt + 10 and dZ < dZopt + GEO.EPS_SMALL then
+         if dD < dMaxDist and dZ < dZopt + GEO.EPS_SMALL then
             dUopt = dU
-            dDopt = min( dD, dDopt)
-            dZopt = dZ
-         elseif dD < dDopt - 10 or ( dD < dDopt + GEO.EPS_SMALL and dZ < dZopt + GEO.EPS_SMALL) then
             dDopt = dD
-            dUopt = dU
             dZopt = dZ
          end
       end
    end
-   if abs( dUopt - dUi) > GEO.EPS_ZERO then
+   if abs( dUopt - dUi) > GEO.EPS_ZERO and abs( dUopt - dUf) > GEO.EPS_ZERO then
       EgtChangeClosedCurveStart( nCrvId, dUopt)
    end
    return true
@@ -274,7 +270,7 @@ function BeamLib.GetNearestParalOpposite( vtRef, vtNorm)
    end
    -- se prevalente una componente orizzontale (con piccolissimo vantaggio)
    if abs( vtMyRef:getX()) > 0.95 * abs( vtMyRef:getZ()) or abs( vtMyRef:getY()) > 0.95 * abs( vtMyRef:getZ()) then
-      if abs( vtMyRef:getX()) > abs( vtMyRef:getY()) - GEO.EPS_SMALL then
+      if abs( vtMyRef:getX()) > 0.95 * abs( vtMyRef:getY()) then
          if vtMyRef:getX() > -GEO.EPS_SMALL then
             return MCH_MILL_FU.PARAL_LEFT
          else
@@ -308,8 +304,8 @@ function BeamLib.GetNearestOrthoOpposite( vtRef, vtNorm)
    end
    -- se prevalente una componente orizzontale (con piccolissimo vantaggio)
    if abs( vtMyRef:getX()) > 0.95 * abs( vtMyRef:getZ()) or abs( vtMyRef:getY()) > 0.95 * abs( vtMyRef:getZ()) then
-      -- se prevale la componente destra/sinistra (con piccolo vantaggio)
-      if abs( vtMyRef:getX()) > 0.9 * abs( vtMyRef:getY()) then
+      -- se prevale la componente destra/sinistra
+      if abs( vtMyRef:getX()) > 0.95 * abs( vtMyRef:getY()) then
          if vtMyRef:getX() > -GEO.EPS_SMALL then
             return MCH_MILL_FU.ORTHO_LEFT
          else
@@ -693,8 +689,10 @@ function BeamLib.GetNzLimDownUp( b3Raw, vtN, vtOrtho)
       return -0.484
    else
       if vtOrtho and vtOrtho:getZ() > 0.5 then
-         if vtN and ( abs( vtN:getY()) < 0.1 or abs( vtN:getY()) > 0.49) then
+         if vtN and ( abs( vtN:getY()) < 0.259 or abs( vtN:getY()) > 0.819) then
             return -0.708
+         elseif vtN and abs( vtN:getY()) > 0.766 then
+            return -0.383
          else
             return EgtIf( b3Raw:getDimZ() < BD.MIN_DIM_HBEAM, -0.609, -0.383)
          end
@@ -702,8 +700,14 @@ function BeamLib.GetNzLimDownUp( b3Raw, vtN, vtOrtho)
          if vtN and ( abs( vtN:getY()) > 0.866) then
             return -0.708
          else
-            if b3Raw:getDimZ() < 200 then
-               return -0.5
+            if b3Raw:getDimZ() < 120 then
+               return -0.708
+            elseif b3Raw:getDimZ() < 200 then
+               if vtN and ( abs( vtN:getY()) < 0.259 or abs( vtN:getY()) > 0.819) then
+                  return -0.5
+               else
+                  return -0.383
+               end
             elseif b3Raw:getDimZ() < BD.MIN_DIM_HBEAM then
                return -0.240
             else
diff --git a/LuaLibs/DiceCut.lua b/LuaLibs/DiceCut.lua
index 58946cc..6400c05 100644
--- a/LuaLibs/DiceCut.lua
+++ b/LuaLibs/DiceCut.lua
@@ -550,6 +550,12 @@ function DiceCut.GetDice( nParent, BBoxRawPart, ptCPlanes, vtNPlanes, bGetOrtoPl
    -- Se esiste la superficie limitante (nFacet == 2) verifica se il taglio più esterno è superfluo e quindi viene eliminato
    if not bGetOrtoPlanes then
       VerifyFirstOrthoCut( UltimateTable, originalOffsetP, BBoxRawPart, dNzLimDwnUp)
+      -- se rimangono due sole facce, devono coincidere con le originali e quindi sono superflue
+      if #UltimateTable == 2 and #UltimateTable[1] == 1 and #UltimateTable[2] == 1 then
+         EgtErase( UltimateTable[1][1])
+         EgtErase( UltimateTable[2][1])
+         UltimateTable = {}
+      end
    end
 
    return UltimateTable
diff --git a/LuaLibs/FacesBySaw.lua b/LuaLibs/FacesBySaw.lua
index 700af9c..3853154 100644
--- a/LuaLibs/FacesBySaw.lua
+++ b/LuaLibs/FacesBySaw.lua
@@ -245,44 +245,54 @@ function FacesBySaw.MakeTwo( Proc, nPhase, nRawId, nPartId, dOvmHead, sCutType,
       EgtOutLog( sErr)
       return false, sErr
    end
+   local ptM = ( ptT1 + ptT2) / 2
+   local vtTg = ptT2 - ptT1 ;
    -- calcolo direzione di lavoro
    local vtRef = {}
-   local vtTg = ptT2 - ptT1 ;
    vtRef[1] = vtN[1] ^ vtTg
    if vtRef[1] * vtN[2] < 0 then vtRef[1] = - vtRef[1] end
    vtRef[1]:normalize()
+   if abs( vtRef[1]:getZ()) < 0.577 and abs( abs( vtRef[1]:getX()) - abs( vtRef[1]:getY())) < 0.1 then
+      vtRef[1] = ptC[1] - ptM
+      vtRef[1]:normalize()
+   end
    vtRef[2] = vtN[2] ^ vtTg
    if vtRef[2] * vtN[1] < 0 then vtRef[2] = - vtRef[2] end
    vtRef[2]:normalize()
+   if abs( vtRef[2]:getZ()) < 0.577 and abs( abs( vtRef[2]:getX()) - abs( vtRef[2]:getY())) < 0.1 then
+      vtRef[2] = ptC[2] - ptM
+      vtRef[2]:normalize()
+   end
    -- determino quale faccia è più grande
-   local ptPs = ( ptT1 + ptT2) / 2
-   local dSqDim1 = ( ptC[1] - ptPs):sqlen()
-   local dSqDim2 = ( ptC[2] - ptPs):sqlen()
+   local dSqDim1 = ( ptC[1] - ptM):sqlen()
+   local dSqDim2 = ( ptC[2] - ptM):sqlen()
    local nBigInd = EgtIf( dSqDim1 > dSqDim2 - 1., 1, 2)
    local nSmaInd = 3 - nBigInd
    local nUpInd = EgtIf( vtN[1]:getZ() > vtN[2]:getZ() - GEO.EPS_SMALL, 1, 2)
    local nOtInd = 3 - nUpInd
    -- metto in relazione la scelta facce con il confronto del versore Z con la scelta in base alla grandezza faccia
-   -- se la faccia più grande è messa secondaria e il suo versore Z non è negativo
-   if nOtInd == nBigInd and vtN[nBigInd]:getZ() > -5 * GEO.EPS_SMALL and vtN[nSmaInd]:getZ() < 0.866 then
-      nOtInd = nSmaInd
+   -- se la faccia più grande è messa secondaria e il suo versore Z non è troppo negativo
+   if nOtInd == nBigInd and vtN[nBigInd]:getZ() > -0.5 and vtN[nSmaInd]:getZ() < 0.966 then
       nUpInd = nBigInd
+      nOtInd = nSmaInd
    end
    -- recupero la lavorazione
    local sCutting = ML.FindCutting( sCutType, nil, bDownHead)
    if not sCutting then
-      local sErr = 'Error on process ' .. tostring( Proc.Id) .. ' cutting not found in library'
+      local sErr = 'Error : cutting not found in library'
       EgtOutLog( sErr)
       return false, sErr
    end
    -- recupero i dati dell'utensile
    local dSawDiam = 400
    local dSawThick = 5
+   local dMaxDepth = 0
    if EgtMdbSetCurrMachining( sCutting) then
       local sTuuid = EgtMdbGetCurrMachiningParam( MCH_MP.TUUID)
       if EgtTdbSetCurrTool( EgtTdbGetToolFromUUID( sTuuid) or '') then
          dSawDiam = EgtTdbGetCurrToolParam( MCH_TP.DIAM) or dSawDiam
          dSawThick = EgtTdbGetCurrToolParam( MCH_TP.THICK) or dSawThick
+         dMaxDepth = EgtTdbGetCurrToolMaxDepth() or dMaxDepth
       end
    end
    -- calcolo extra taglio
@@ -295,21 +305,20 @@ function FacesBySaw.MakeTwo( Proc, nPhase, nRawId, nPartId, dOvmHead, sCutType,
    if bDownHead then
       dNzLimDwnUp = - 2
    end
+   -- recupero gruppo per geometria addizionale
+   local nAddGrpId = BL.GetAddGroup( nPartId)
+   if not nAddGrpId then
+      local sErr = 'Error : missing AddGroup'
+      EgtOutLog( sErr)
+      return false, sErr
+   end
    -- verifico se necessari tagli supplementari
-   local vCuts = DC.GetDice( EgtGetParent( Proc.Id), b3Solid, ptC[nUpInd], vtN[nUpInd], false, ptC[nOtInd], vtN[nOtInd])
+   local vCuts = DC.GetDice( nAddGrpId, b3Solid, ptC[nUpInd], vtN[nUpInd], false, ptC[nOtInd], vtN[nOtInd])
    --DC.PrintOrderCut( vCuts)
    if #vCuts > 0 then
-      -- recupero gruppo per geometria addizionale
-      local nAddGrpId = BL.GetAddGroup( nPartId)
-      if not nAddGrpId then
-         local sErr = 'Error : missing AddGroup'
-         EgtOutLog( sErr)
-         return false, sErr
-      end
-      -- sistemo posizione nel DB e nome
+      -- sistemo posizione nel DB, nome e info
       for i = 1, #vCuts do
          for j = 1, #vCuts[i] do
-            EgtRelocateGlob( vCuts[i][j], nAddGrpId)
             EgtSetName( vCuts[i][j], 'AddCut_' .. tostring( Proc.Id))
             EgtSetInfo( vCuts[i][j], 'TASKID', Proc.TaskId)
          end
@@ -403,8 +412,6 @@ function FacesBySaw.MakeTwo( Proc, nPhase, nRawId, nPartId, dOvmHead, sCutType,
          end
       end
    else
-      nUpInd = EgtIf( vtN[1]:getZ() > vtN[2]:getZ() - GEO.EPS_SMALL, 1, 2)
-      nOtInd = 3 - nUpInd
       -- se prima faccia lavorata è da sotto scambio le facce
       if vtN[nOtInd]:getZ() < -0.5 then
          nUpInd, nOtInd = nOtInd, nUpInd
diff --git a/LuaLibs/ProcessBlockHausFront.lua b/LuaLibs/ProcessBlockHausFront.lua
index 59da259..1a1cc32 100644
--- a/LuaLibs/ProcessBlockHausFront.lua
+++ b/LuaLibs/ProcessBlockHausFront.lua
@@ -129,7 +129,7 @@ function ProcessBlockHausFront.Make( Proc, nPhase, nRawId, nPartId, dOvmHead, dO
   -- recupero gruppo per geometria addizionale
    local nAddGrpId = BL.GetAddGroup( nPartId)
    if not nAddGrpId then
-      local sErr = 'Error on process ' .. tostring( Proc.Id) .. ' missing AddGroup'
+      local sErr = 'Error : missing AddGroup'
       EgtOutLog( sErr)
       return false, sErr
    end
@@ -170,15 +170,14 @@ function ProcessBlockHausFront.Make( Proc, nPhase, nRawId, nPartId, dOvmHead, dO
    -- se esistono faccia interna ed intermedia, verifico se richiedono taglio a cubetti
    local vCuts = {}
    if vFaceOrd[2] ~= 0 and vFaceOrd[3] ~= 0 then
-      vCuts = DC.GetDice( EgtGetParent( Proc.Id), b3Solid, ptC[vFaceOrd[3]], vtN[vFaceOrd[3]], false, ptC[vFaceOrd[2]], vtN[vFaceOrd[2]])
+      vCuts = DC.GetDice( nAddGrpId, b3Solid, ptC[vFaceOrd[3]], vtN[vFaceOrd[3]], false, ptC[vFaceOrd[2]], vtN[vFaceOrd[2]])
    elseif vFaceOrd[3] ~= 0 then
-      vCuts = DC.GetDice( EgtGetParent( Proc.Id), b3Solid, ptC[vFaceOrd[3]], vtN[vFaceOrd[3]], true)
+      vCuts = DC.GetDice( nAddGrpId, b3Solid, ptC[vFaceOrd[3]], vtN[vFaceOrd[3]], true)
    end
    if #vCuts > 0 then
       -- sistemo posizione nel DB e nome
       for i = 1, #vCuts do
          for j = 1, #vCuts[i] do
-            EgtRelocateGlob( vCuts[i][j], nAddGrpId)
             EgtSetName( vCuts[i][j], 'AddCut_' .. tostring( Proc.Id))
             EgtSetInfo( vCuts[i][j], 'TASKID', Proc.TaskId)
          end
diff --git a/LuaLibs/ProcessCut.lua b/LuaLibs/ProcessCut.lua
index a0e990f..55d9a2f 100644
--- a/LuaLibs/ProcessCut.lua
+++ b/LuaLibs/ProcessCut.lua
@@ -1,4 +1,4 @@
--- ProcessCut.lua by Egaltech s.r.l. 2022/02/06
+-- ProcessCut.lua by Egaltech s.r.l. 2022/02/11
 -- Gestione calcolo singoli tagli di lama per Travi
 -- 2021/05/18 I due tagli con testa da sotto di un cubetto sono fatti di seguito.
 -- 2021/06/06 Correzioni per tagli con testa da sotto.
@@ -43,7 +43,7 @@ function ProcessCut.Classify( Proc, b3Raw)
    local ptC, vtN = EgtSurfTmFacetCenter( Proc.Id, 0, GDB_ID.ROOT)
    if vtN:getZ() <= - 0.5 and abs( vtN:getY()) > 0.1 or ( vtN:getZ() <= - 0.174 and abs( vtN:getY()) > 0.866) then
       local _, DimH, DimV = BL.GetFaceHvRefDim( Proc.Id, 0)
-      if DimH > BD.MAX_DIM_DICE then
+      if DimH > BD.MAX_DIM_DICE and DimV > BD.MAX_DIM_DICE then
          return true, true
       end
    end
@@ -195,7 +195,7 @@ end
 local function UpdateEncumbrance( Proc, vtN, dOvmHead, nRawId, b3Solid, b3Raw)
    -- eventuale segnalazione ingombro di testa o coda (se non chiamata da altre feature)
    local dMinHIng = min( 0.5 * BD.VICE_MINH, 0.5 * b3Raw:getDimZ())
-   if ProcessCut.Identify( Proc) and Proc.Box:getDimZ() > dMinHIng and Proc.Box:getMin():getZ() < b3Raw:getMin():getZ() + dMinHIng then
+   if Proc.Box:getDimZ() > dMinHIng and Proc.Box:getMin():getZ() < b3Raw:getMin():getZ() + dMinHIng then
       if Proc.Head then
          local dOffs = b3Raw:getMax():getX() - dOvmHead - Proc.Box:getMin():getX()
          if vtN:getZ() > 0.5 then
@@ -228,13 +228,7 @@ local function MakeFromTop( sCutting, Proc, nPhase, nRawId, nPartId, dOvmHead, b
       b3Raw = EgtGetRawPartBBox( nRawId)
    end
    -- ingombro del pezzo
-   local Ls = EgtGetFirstNameInGroup( nPartId, 'Box')
-   local b3Solid = EgtGetBBoxGlob( Ls or GDB_ID.NULL, GDB_BB.STANDARD)
-   if not b3Solid then
-      local sErr = 'Error : part box not found'
-      EgtOutLog( sErr)
-      return false, sErr
-   end
+   local b3Solid = EgtGetBBoxGlob( EgtGetFirstNameInGroup( nPartId, 'Box') or GDB_ID.NULL, GDB_BB.STANDARD)
    -- dati geometrici del taglio
    local ptC, vtN = EgtSurfTmFacetCenter( Proc.Id, 0, GDB_ID.ROOT)
    -- limiti di taglio  (se molto di lato e inclinati sono permessi fino a -45deg)
@@ -297,7 +291,7 @@ local function MakeFromTop( sCutting, Proc, nPhase, nRawId, nPartId, dOvmHead, b
       end
    end
    -- se vero taglio, eventuale inserimento smussi
-   if Proc.Prc == 10 then
+   if ProcessCut.Identify( Proc) then
       local bOkc, sErrC = MakeChamfer( Proc, nPhase, nRawId, nPartId, dOvmHead)
       if not bOkc then return bOkc, sErrC end
    end
@@ -319,6 +313,13 @@ local function MakeFromTop( sCutting, Proc, nPhase, nRawId, nPartId, dOvmHead, b
    dCutH = min( dCutH, b3Raw:getDimY() / abs( frFac:getVersX():getY()))
    local bHorizCut = ( dCutV < dMaxVertDepth - BD.CUT_EXTRA and not bDownCut)
    local bVertCutOk = ( dCutH < dMaxDepth - BD.CUT_EXTRA)
+   -- recupero gruppo per geometria addizionale
+   local nAddGrpId = BL.GetAddGroup( nPartId)
+   if not nAddGrpId then
+      local sErr = 'Error : missing AddGroup'
+      EgtOutLog( sErr)
+      return false, sErr
+   end
    -- verifico se necessari tagli supplementari
    EgtOutLog( string.format( 'MaxDepth=%.1f MaxVertDepth=%.1f CutH=%.1f CutV=%.1f', dMaxDepth, dMaxVertDepth, dCutH, dCutV), 3)
    local vCuts = {}
@@ -332,13 +333,13 @@ local function MakeFromTop( sCutting, Proc, nPhase, nRawId, nPartId, dOvmHead, b
          bAutoCalcSurf = false
       end
       if bForced then 
-         vCuts = DC.GetDice( EgtGetParent( Proc.Id), b3Raw, ptC, vtN, bAutoCalcSurf, ptExtra, vtExtra, dMaxVertDepth - BD.CUT_EXTRA)
+         vCuts = DC.GetDice( nAddGrpId, b3Raw, ptC, vtN, bAutoCalcSurf, ptExtra, vtExtra, dMaxVertDepth - BD.CUT_EXTRA)
       else
-         vCuts = DC.GetDice( EgtGetParent( Proc.Id), b3Solid, ptC, vtN, bAutoCalcSurf, ptExtra, vtExtra, dMaxVertDepth - BD.CUT_EXTRA)
+         vCuts = DC.GetDice( nAddGrpId, b3Solid, ptC, vtN, bAutoCalcSurf, ptExtra, vtExtra, dMaxVertDepth - BD.CUT_EXTRA)
       end
       -- se taglio sborda in coda e non è stato inserito nessun taglio a cubetti, lo rilancio con le dimensioni customizzate
       if ( bFillTail or bCustDiceCut) and #vCuts == 0 then
-         vCuts = DC.GetDice( EgtGetParent( Proc.Id), b3Solid, ptC, vtN, bAutoCalcSurf, ptExtra, vtExtra, dMaxVertDepth - BD.CUT_EXTRA, Proc.Box:getDimY())
+         vCuts = DC.GetDice( nAddGrpId, b3Solid, ptC, vtN, bAutoCalcSurf, ptExtra, vtExtra, dMaxVertDepth - BD.CUT_EXTRA, Proc.Box:getDimY())
       end
    end
    -- se il ProcessCut viene lanciato dal ProcessSawCut e non ci sono tagli a cubetti, esco
@@ -347,18 +348,10 @@ local function MakeFromTop( sCutting, Proc, nPhase, nRawId, nPartId, dOvmHead, b
    end
    --DC.PrintOrderCut( vCuts)
    if #vCuts > 0 then
-      -- recupero gruppo per geometria addizionale
-      local nAddGrpId = BL.GetAddGroup( nPartId)
-      if not nAddGrpId then
-         local sErr = 'Error : missing AddGroup'
-         EgtOutLog( sErr)
-         return false, sErr
-      end
       -- sistemo posizione nel DB e nome
       local bOrthInv = false
       for i = 1, #vCuts do
          for j = 1, #vCuts[i] do
-            EgtRelocateGlob( vCuts[i][j], nAddGrpId)
             EgtSetName( vCuts[i][j], 'AddCut_' .. tostring( Proc.Id))
             EgtSetInfo( vCuts[i][j], 'TASKID', Proc.TaskId)
             if ( i % 2) == 1 then
@@ -427,9 +420,7 @@ local function MakeFromTop( sCutting, Proc, nPhase, nRawId, nPartId, dOvmHead, b
                      if not BD.C_SIMM and abs( vtN:getY()) > 0.05 then dVzLimDwnUp = -0.707 end
                   end
                   local bOk, sErr = Fbs.MakeOne( vCuts[i][j], 0, sCutting, dSawDiam, vtNewOrthoO, dVzLimDwnUp, BD.CUT_EXTRA, BD.CUT_SIC, 0, 0, 0, nil, b3Raw)
-                  if not bOk then
-                     return bOk, sErr
-                  end
+                  if not bOk then return bOk, sErr end
                end
                -- tutti gli altri casi vengono saltati
             -- caso generale
@@ -452,9 +443,7 @@ local function MakeFromTop( sCutting, Proc, nPhase, nRawId, nPartId, dOvmHead, b
                local dVzLimDwnUp = dNzLimDwnUp
                if not BD.C_SIMM and vtN:getZ() > 0.707 then dVzLimDwnUp = -0.708 end
                local bOk, sErr = Fbs.MakeOne( vCuts[i][j], 0, sCutting, dSawDiam, vtOrthoO, dVzLimDwnUp, dExtraCut, BD.CUT_SIC, 0, 0, 0, sNotes, b3Raw)
-               if not bOk then
-                  return bOk, sErr
-               end
+               if not bOk then return bOk, sErr end
             end
          end
       end
@@ -493,12 +482,8 @@ local function MakeFromTop( sCutting, Proc, nPhase, nRawId, nPartId, dOvmHead, b
       end
       -- taglio
       local bOk, sErr = Fbs.MakeOne( Proc.Id, 0, sCutting, dSawDiam, vtOrthoO, dVzLimDwnUp, dCutExtra, BD.CUT_SIC, 0, 0, 0, nil, b3Raw)
-      if not bOk then
-         return bOk, sErr
-      end
+      if not bOk then return bOk, sErr end
    end
-   -- Aggiornamento ingombro
-   UpdateEncumbrance( Proc, vtN, dOvmHead, nRawId, b3Solid, b3Raw)
    return true
 end
 
@@ -508,17 +493,11 @@ local function MakeFromDown( sCutting, Proc, nPhase, nRawId, nPartId, dOvmHead)
    -- ingombro del grezzo
    local b3Raw = EgtGetRawPartBBox( nRawId)
    -- ingombro del pezzo
-   local Ls = EgtGetFirstNameInGroup( nPartId, 'Box')
-   local b3Solid = EgtGetBBoxGlob( Ls or GDB_ID.NULL, GDB_BB.STANDARD)
-   if not b3Solid then
-      local sErr = 'Error : part box not found'
-      EgtOutLog( sErr)
-      return false, sErr
-   end
+   local b3Solid = EgtGetBBoxGlob( EgtGetFirstNameInGroup( nPartId, 'Box') or GDB_ID.NULL, GDB_BB.STANDARD)
    -- dati geometrici del taglio
    local ptC, vtN = EgtSurfTmFacetCenter( Proc.Id, 0, GDB_ID.ROOT)
    -- se vero taglio, eventuale inserimento smussi
-   if Proc.Prc == 10 then
+   if ProcessCut.Identify( Proc) then
       local bOkc, sErrC = MakeChamfer( Proc, nPhase, nRawId, nPartId, dOvmHead)
       if not bOkc then return bOkc, sErrC end
    end
@@ -539,6 +518,13 @@ local function MakeFromDown( sCutting, Proc, nPhase, nRawId, nPartId, dOvmHead)
    local frFac, dCutH, dCutV = BL.GetFaceHvRefDim( Proc.Id, 0)
    dCutH = min( dCutH, b3Raw:getDimY() / abs( frFac:getVersX():getY()))
    local bHorizCut = ( dCutV < dMaxVertDepth - BD.CUT_EXTRA) or Proc.AdvTail
+   -- recupero gruppo per geometria addizionale
+   local nAddGrpId = BL.GetAddGroup( nPartId)
+   if not nAddGrpId then
+      local sErr = 'Error : missing AddGroup'
+      EgtOutLog( sErr)
+      return false, sErr
+   end
    -- verifico se necessari tagli supplementari
    EgtOutLog( string.format( 'MaxDepth=%.1f MaxVertDepth=%.1f CutH=%.1f CutV=%.1f', dMaxDepth, dMaxVertDepth, dCutH, dCutV), 3)
    local vCuts = {}
@@ -551,22 +537,14 @@ local function MakeFromDown( sCutting, Proc, nPhase, nRawId, nPartId, dOvmHead)
          vtExtra = X_AX()
          bAutoCalcSurf = false
       end
-      vCuts = DC.GetDice( EgtGetParent( Proc.Id), b3Solid, ptC, vtN, bAutoCalcSurf, ptExtra, vtExtra, dMaxVertDepth - BD.CUT_EXTRA, nil ,true)
+      vCuts = DC.GetDice( nAddGrpId, b3Solid, ptC, vtN, bAutoCalcSurf, ptExtra, vtExtra, dMaxVertDepth - BD.CUT_EXTRA, nil ,true)
    end
    --DC.PrintOrderCut( vCuts)
    if #vCuts > 0 then
-      -- recupero gruppo per geometria addizionale
-      local nAddGrpId = BL.GetAddGroup( nPartId)
-      if not nAddGrpId then
-         local sErr = 'Error : missing AddGroup'
-         EgtOutLog( sErr)
-         return false, sErr
-      end
       -- sistemo posizione nel DB e nome
       local bOrthInv = false
       for i = 1, #vCuts do
          for j = 1, #vCuts[i] do
-            EgtRelocateGlob( vCuts[i][j], nAddGrpId)
             EgtSetName( vCuts[i][j], 'AddCut_' .. tostring( Proc.Id))
             EgtSetInfo( vCuts[i][j], 'TASKID', Proc.TaskId)
             if ( i % 2) == 1 then
@@ -645,9 +623,7 @@ local function MakeFromDown( sCutting, Proc, nPhase, nRawId, nPartId, dOvmHead)
             -- taglio parallelo (limite Vz Down Up messo a -2 per non farlo mai intervenire)
             if vCuts[i+1][j] then
                local bOk, sErr = Fbs.MakeOne( vCuts[i+1][j], 0, sCutting, dSawDiam, vtOrthoO_2, -2, dExtraCut_2, BD.CUT_SIC, 0, 0, 0, nil, b3Raw)
-               if not bOk then
-                  return bOk, sErr
-               end
+               if not bOk then return bOk, sErr end
             end
          end
       end
@@ -688,18 +664,14 @@ local function MakeFromDown( sCutting, Proc, nPhase, nRawId, nPartId, dOvmHead)
          dCutExtra = min( -BD.ADVANCE_TAIL_OFFS, dMaxVertDepth - dCutV)
       end
       local bOk, sErr = Fbs.MakeOne( Proc.Id, 0, sCutting, dSawDiam, vtOrthoO, -2, dCutExtra, BD.CUT_SIC, 0, 0, 0, nil, b3Raw)
-      if not bOk then
-         return bOk, sErr
-      end
+      if not bOk then return bOk, sErr end
    end
-   -- Aggiornamento ingombro
-   UpdateEncumbrance( Proc, vtN, dOvmHead, nRawId, b3Solid, b3Raw)
    return true
 end
 
 ---------------------------------------------------------------------
 -- Applicazione della lavorazione
-function ProcessCut.Make( Proc, nPhase, nRawId, nPartId, dOvmHead, bFromBottom, bCustDiceCut, bForced, b3Raw, sNotes, dOvmTail)
+function ProcessCut.Make( Proc, nPhase, nRawId, nPartId, dOvmHead, bFromBottom, bCustDiceCut, bForced, b3Raw, sNotes, dOvmTail, bUpdateIng)
    if not dOvmTail then
       dOvmTail = BD.OVM_MID
    end
@@ -707,6 +679,13 @@ function ProcessCut.Make( Proc, nPhase, nRawId, nPartId, dOvmHead, bFromBottom,
       -- ingombro del grezzo
       b3Raw = EgtGetRawPartBBox( nRawId)
    end
+   local b3Solid = EgtGetBBoxGlob( EgtGetFirstNameInGroup( nPartId, 'Box') or GDB_ID.NULL, GDB_BB.STANDARD)
+   if not b3Solid then
+      local sErr = 'Error : part box not found'
+      EgtOutLog( sErr)
+      return false, sErr
+   end
+   end
    -- dati geometrici del taglio
    local ptC, vtN = EgtSurfTmFacetCenter( Proc.Id, 0, GDB_ID.ROOT)
    -- se taglio di testa
@@ -744,11 +723,18 @@ function ProcessCut.Make( Proc, nPhase, nRawId, nPartId, dOvmHead, bFromBottom,
    end
    -- se taglio con testa da sopra
    if not bDownHead and not bDownTurn then
-      return MakeFromTop( sCutting, Proc, nPhase, nRawId, nPartId, dOvmHead, bFromBottom, bCustDiceCut, bForced, b3Raw, sNotes)
+      local bOk, sErr = MakeFromTop( sCutting, Proc, nPhase, nRawId, nPartId, dOvmHead, bFromBottom, bCustDiceCut, bForced, b3Raw, sNotes)
+      if not bOk then return false, sErr end
    -- altrimenti taglio con testa da sotto
    else
-      return MakeFromDown( sCutting, Proc, nPhase, nRawId, nPartId, dOvmHead, bFromBottom, bCustDiceCut)
+      local bOk, sErr = MakeFromDown( sCutting, Proc, nPhase, nRawId, nPartId, dOvmHead, bFromBottom, bCustDiceCut)
+      if not bOk then return false, sErr end
    end
+   -- Aggiornamento ingombro (se vero taglio o richiesto)
+   if ProcessCut.Identify( Proc) or bUpdateIng then
+      UpdateEncumbrance( Proc, vtN, dOvmHead, nRawId, b3Solid, b3Raw)
+   end
+   return true
 end
 
 ---------------------------------------------------------------------
diff --git a/LuaLibs/ProcessDoubleCut.lua b/LuaLibs/ProcessDoubleCut.lua
index a019e86..ee182d0 100644
--- a/LuaLibs/ProcessDoubleCut.lua
+++ b/LuaLibs/ProcessDoubleCut.lua
@@ -176,7 +176,7 @@ end
 -- Applicazione della lavorazione
 function ProcessDoubleCut.Make( Proc, nPhase, nRawId, nPartId, dOvmHead)
    -- se singola faccia, passo a quella lavorazione
-   if Proc.Fct == 1 then return Cut.Make( Proc, nPhase, nRawId, nPartId, dOvmHead) end
+   if Proc.Fct == 1 then return Cut.Make( Proc, nPhase, nRawId, nPartId, dOvmHead, nil, nil, bForced, b3Raw, sNotes, dOvmTail, true) end
    -- ingombro del grezzo
    local b3Raw = EgtGetRawPartBBox( nRawId)
    -- ingombro del pezzo
@@ -235,9 +235,9 @@ function ProcessDoubleCut.Make( Proc, nPhase, nRawId, nPartId, dOvmHead)
          EgtSetInfo( AddId, 'TASKID', Proc.TaskId)
          local b3Add = EgtGetBBoxGlob( AddId, GDB_BB.STANDARD)
          -- applico lavorazione
-         local CutProc = { Id = AddId, Grp = Proc.Grp, Prc = 10, Box = b3Add, Fct = 1, Flg = Proc.Flg,
+         local CutProc = { Id = AddId, Grp = Proc.Grp, Prc = Proc.Prc, Box = b3Add, Fct = 1, Flg = Proc.Flg,
                            Head = Proc.Head, Tail = Proc.Tail, CutId = Proc.CutId, TaskId = Proc.TaskId}
-         local bOk, sErr = Cut.Make( CutProc, nPhase, nRawId, nPartId, dOvmHead)
+         local bOk, sErr = Cut.Make( CutProc, nPhase, nRawId, nPartId, dOvmHead, nil, nil, bForced, b3Raw, sNotes, dOvmTail, true)
          if not bOk then return bOk, sErr end
       end
       -- creo piano di taglio coincidente con la seconda faccia e lo lavoro
@@ -247,67 +247,17 @@ function ProcessDoubleCut.Make( Proc, nPhase, nRawId, nPartId, dOvmHead)
          EgtSetInfo( AddId, 'TASKID', Proc.TaskId)
          local b3Add = EgtGetBBoxGlob( AddId, GDB_BB.STANDARD)
          -- applico lavorazione
-         local CutProc = { Id = AddId, Grp = Proc.Grp, Prc = 10, Box = b3Add, Fct = 1, Flg = Proc.Flg,
+         local CutProc = { Id = AddId, Grp = Proc.Grp, Prc = Proc.Prc, Box = b3Add, Fct = 1, Flg = Proc.Flg,
                            Head = Proc.Head, Tail = Proc.Tail, CutId = Proc.CutId, TaskId = Proc.TaskId}
-         local bOk, sErr = Cut.Make( CutProc, nPhase, nRawId, nPartId, dOvmHead)
+         local bOk, sErr = Cut.Make( CutProc, nPhase, nRawId, nPartId, dOvmHead, nil, nil, bForced, b3Raw, sNotes, dOvmTail, true)
          if not bOk then return bOk, sErr end
       end
    -- altrimenti concavo
    else
-      -- abilitazione lavorazione da sotto (testa da sotto e direzione normale sotto -30deg)
-      local bTopHead = ( BD.DOWN_HEAD and vtNm:getZ() > -0.5)
-      local bDownHead = ( BD.DOWN_HEAD and vtNm:getZ() < -0.5)
-      -- recupero la lavorazione
+      -- eseguo
       local sCutType = EgtIf( bHead, 'HeadSide', 'TailSide')
-      local sCutting
-      sCutting, bDownHead = ML.FindCutting( sCutType, bTopHead, bDownHead)
-      if not sCutting then
-         local sErr = 'Error : cutting not found in library'
-         EgtOutLog( sErr)
-         return false, sErr
-      end
-      -- recupero i dati dell'utensile
-      local dSawDiam = 400
-      local dMaxDepth = 0
-      if EgtMdbSetCurrMachining( sCutting) then
-         local sTuuid = EgtMdbGetCurrMachiningParam( MCH_MP.TUUID)
-         if EgtTdbSetCurrTool( EgtTdbGetToolFromUUID( sTuuid) or '') then
-            dSawDiam = EgtTdbGetCurrToolParam( MCH_TP.DIAM) or dSawDiam
-            dMaxDepth = EgtTdbGetCurrToolMaxDepth() or dMaxDepth
-         end
-      end
-      -- verifico se necessari tagli supplementari
-      local vCuts = DC.GetDice( nAddGrpId, b3Solid, ptC[nBigInd], vtN[nBigInd], false, ptC[nSmaInd], vtN[nSmaInd])
-      --DC.PrintOrderCut( vCuts)
-      if #vCuts > 0 then
-         -- aggiorno nome e info
-         for i = 1, #vCuts do
-            for j = 1, #vCuts[i] do
-               EgtSetName( vCuts[i][j], 'AddCut_' .. tostring( Proc.Id))
-               EgtSetInfo( vCuts[i][j], 'TASKID', Proc.TaskId)
-            end
-         end
-         -- eseguo
-         for i = 1, #vCuts do
-            -- determino il modo di tagliare
-            local vtOrthOpp = vtN[nBigInd]
-            local vtNorm = vtN[nSmaInd]
-            if ( i % 2) ~= 1 then vtOrthOpp, vtNorm = vtNorm, vtOrthOpp end
-            -- lavoro la faccia
-            for j = 1, #vCuts[i] do
-               local bOk, sErr = Fbs.MakeOne( vCuts[i][j], 0, sCutting, dSawDiam, vtOrthOpp, EgtIf( bDownHead, -2, nil), 0, BD.CUT_SIC, 0, 0, 0, nil, b3Raw)
-               if not bOk then
-                  return bOk, sErr
-               end
-            end
-         end
-      -- altrimenti, tagli diretti delle facce
-      else
-         local bOk, sErr = Fbs.MakeTwo( Proc, nPhase, nRawId, nPartId, dOvmHead, sCutType .. EgtIf( bDownHead, '_H2', ''), false, bDownHead)
-         if not bOk then
-            return bOk, sErr
-         end
-      end
+      local bOk, sErr = Fbs.MakeTwo( Proc, nPhase, nRawId, nPartId, dOvmHead, sCutType, false, bDownHead)
+      if not bOk then return bOk, sErr end
       -- segnalazione ingombro di testa o coda
       if Proc.Head then
          -- intersezioni con linee a metà altezza appena dentro dal davanti e dal dietro
diff --git a/LuaLibs/ProcessDovetail.lua b/LuaLibs/ProcessDovetail.lua
index 1e06bcf..0089713 100644
--- a/LuaLibs/ProcessDovetail.lua
+++ b/LuaLibs/ProcessDovetail.lua
@@ -227,7 +227,7 @@ local function AddFaceToSurf( Proc, nPartId, b3Solid)
    -- recupero gruppo per geometria addizionale
    local nAddGrpId = BL.GetAddGroup( nPartId)
    if not nAddGrpId then
-      local sErr = 'Error on process ' .. tostring( Proc.Id) .. ' missing AddGroup'
+      local sErr = 'Error : missing AddGroup'
       EgtOutLog( sErr)
       return false, sErr
    end
@@ -657,7 +657,7 @@ local function MakeByBlade( Proc, nPhase, nRawId, nPartId, dOvmHead, b3Raw, b3So
    -- recupero gruppo per geometria addizionale
    local nAddGrpId = BL.GetAddGroup( nPartId)
    if not nAddGrpId then
-      local sErr = 'Error on process ' .. tostring( Proc.Id) .. ' missing AddGroup'
+      local sErr = 'Error : missing AddGroup'
       EgtOutLog( sErr)
       return false, sErr
    end
@@ -1390,7 +1390,7 @@ local function MakeAuxCut( Proc, nPhase, nRawId, nPartId, dOvmHead, b3Raw, b3Sol
    -- recupero il centro e la normale della faccia ausiliaria
    local ptC, vtN = EgtSurfTmFacetCenter( AuxId, 0, GDB_ID.ROOT)
    if not vtN then
-      local sErr = 'Error on process ' .. tostring( Proc.Id) .. ' wrong Normal of AuxSurface'
+      local sErr = 'Error : wrong Normal of AuxSurface'
       EgtOutLog( sErr)
       return false, sErr
    end
@@ -1399,7 +1399,7 @@ local function MakeAuxCut( Proc, nPhase, nRawId, nPartId, dOvmHead, b3Raw, b3Sol
    -- recupero la lavorazione per la geometria ausiliaria
    local sCutting = ML.FindCutting( 'HeadSide')
    if not sCutting then
-      local sErr = 'Error on process ' .. tostring( Proc.Id) .. ' cutting not found in library'
+      local sErr = 'Error : cutting not found in library'
       EgtOutLog( sErr)
       return false, sErr
    end
@@ -1416,7 +1416,7 @@ local function MakeAuxCut( Proc, nPhase, nRawId, nPartId, dOvmHead, b3Raw, b3Sol
    -- recupero gruppo per geometria addizionale
    local nAddGrpId = BL.GetAddGroup( nPartId)
    if not nAddGrpId then
-      local sErr = 'Error on process ' .. tostring( Proc.Id) .. ' missing AddGroup'
+      local sErr = 'Error : missing AddGroup'
       EgtOutLog( sErr)
       return false, sErr
    end
diff --git a/LuaLibs/ProcessDtMortise.lua b/LuaLibs/ProcessDtMortise.lua
index aa1d8ab..dbe711d 100644
--- a/LuaLibs/ProcessDtMortise.lua
+++ b/LuaLibs/ProcessDtMortise.lua
@@ -333,7 +333,7 @@ function ProcessDtMortise.Make( Proc, nPhase, nRawId, nPartId, dCurrOvmH)
       -- recupero gruppo per geometria addizionale
       local nAddGrpId = BL.GetAddGroup( nPartId)
       if not nAddGrpId then
-         local sErr = 'Error on process ' .. tostring( Proc.Id) .. ' missing AddGroup'
+         local sErr = 'Error : missing AddGroup'
          EgtOutLog( sErr)
          return false, sErr
       end
@@ -378,7 +378,7 @@ function ProcessDtMortise.Make( Proc, nPhase, nRawId, nPartId, dCurrOvmH)
                nId1 = EgtArc2PV( nAddGrpId, ptStart, ptEnd, vtTg,  GDB_RT.GLOB)
             end
             if not nId1 then
-               local sErr = 'Wrong geometry : Error on DtMortise ' .. tostring( Proc.Id)
+               local sErr = 'Wrong geometry : Error on DtMortise '
                EgtOutLog( sErr)
                return false, sErr
             end
diff --git a/LuaLibs/ProcessFrenchRidgeLap.lua b/LuaLibs/ProcessFrenchRidgeLap.lua
index cb8e164..160ca5a 100644
--- a/LuaLibs/ProcessFrenchRidgeLap.lua
+++ b/LuaLibs/ProcessFrenchRidgeLap.lua
@@ -121,25 +121,24 @@ function ProcessFrenchRidgeLap.Make( Proc, nPhase, nRawId, nPartId, dOvmHead, dO
    local dFinalExtraTrim = 0.1
    local dMiddleExtraTrim = 0.3
    local dNullExtraTrim = 0
+   -- recupero gruppo per geometria addizionale
+   local nAddGrpId = BL.GetAddGroup( nPartId)
+   if not nAddGrpId then
+      local sErr = 'Error : missing AddGroup'
+      EgtOutLog( sErr)
+      return false, sErr
+   end
    -- se esistono faccia interna ed intermedia, verifico se richiedono taglio a cubetti
    local vCuts = {}
    if vFaceOrd[2] ~= 0 and vFaceOrd[3] ~= 0 then
-      vCuts = DC.GetDice( EgtGetParent( Proc.Id), b3Solid, ptC[vFaceOrd[3]], vtN[vFaceOrd[3]], false, ptC[vFaceOrd[2]], vtN[vFaceOrd[2]])
+      vCuts = DC.GetDice( nAddGrpId, b3Solid, ptC[vFaceOrd[3]], vtN[vFaceOrd[3]], false, ptC[vFaceOrd[2]], vtN[vFaceOrd[2]])
    elseif vFaceOrd[3] ~= 0 then
-      vCuts = DC.GetDice( EgtGetParent( Proc.Id), b3Solid, ptC[vFaceOrd[3]], vtN[vFaceOrd[3]], true)
+      vCuts = DC.GetDice( nAddGrpId, b3Solid, ptC[vFaceOrd[3]], vtN[vFaceOrd[3]], true)
    end
    if #vCuts > 0 then
-      -- recupero gruppo per geometria addizionale
-      local nAddGrpId = BL.GetAddGroup( nPartId)
-      if not nAddGrpId then
-         local sErr = 'Error on process ' .. tostring( Proc.Id) .. ' missing AddGroup'
-         EgtOutLog( sErr)
-         return false, sErr
-      end
       -- sistemo posizione nel DB e nome
       for i = 1, #vCuts do
          for j = 1, #vCuts[i] do
-            EgtRelocateGlob( vCuts[i][j], nAddGrpId)
             EgtSetName( vCuts[i][j], 'AddCut_' .. tostring( Proc.Id))
             EgtSetInfo( vCuts[i][j], 'TASKID', Proc.TaskId)
          end
diff --git a/LuaLibs/ProcessLapJoint.lua b/LuaLibs/ProcessLapJoint.lua
index 85bb97b..5f6346b 100644
--- a/LuaLibs/ProcessLapJoint.lua
+++ b/LuaLibs/ProcessLapJoint.lua
@@ -1,4 +1,4 @@
--- ProcessLapJoint.lua by Egaltech s.r.l. 2022/05/24
+-- ProcessLapJoint.lua by Egaltech s.r.l. 2022/06/13
 -- Gestione calcolo mezzo-legno per Travi
 -- 2019/10/08 Agg. gestione OpenPocket.
 -- 2021/01/24 Con sega a catena ora sempre impostato asse A.
@@ -43,6 +43,7 @@
 -- 2022/05/04 Corretta classificazione due facce sotto. Modificati criteri assegnazione due facce alla coda.
 -- 2022/05/24 Miglioramenti vari per BH, compreso controlli per lavorazione da sotto.
 -- 2022/05/31 Rese globali le funzioni GetChainSawBlockedAxis e GetChainSawInitAngs per essere richiamate dalla ProcessSplit per taglio sega a catena in sezioni alte e larghe.
+-- 2022/06/13 Modifiche per feature lunga con due facce non equivalenti a taglio long. doppio o singolo con faccia terminale.
 
 -- Tabella per definizione modulo
 local ProcessLapJoint = {}
@@ -5521,15 +5522,20 @@ function ProcessLapJoint.Make( Proc, nPhase, nRawId, nPartId, dOvmHead)
       elseif Proc.Fct == 2 then
          -- verifico se da lavorare con testa da sotto
          local bDownHead = TestTwoFacesDownHead( Proc)
-         -- determino se due facce lunghe oppure una lunga e l'altra terminale
+         -- dati delle facce
          local b3Fac1 = EgtSurfTmGetFacetBBoxGlob( Proc.Id, 0, GDB_BB.STANDARD)
          local b3Fac2 = EgtSurfTmGetFacetBBoxGlob( Proc.Id, 1, GDB_BB.STANDARD)
-         if abs( b3Fac1:getDimX() - b3Fac2:getDimX()) < 50 and abs( b3Fac1:getCenter():getX() - b3Fac2:getCenter():getX()) < 50 then
+         local vtN1 = EgtSurfTmFacetNormVersor( Proc.Id, 0, GDB_ID.ROOT)
+         local vtN2 = EgtSurfTmFacetNormVersor( Proc.Id, 1, GDB_ID.ROOT)
+         -- determino se due facce lunghe oppure una lunga e l'altra terminale
+         if abs( b3Fac1:getDimX() - b3Fac2:getDimX()) < 50 and abs( b3Fac1:getCenter():getX() - b3Fac2:getCenter():getX()) < 50 and
+            abs( vtN1:getX()) < GEO.EPS_SMALL and abs( vtN2:getX()) < GEO.EPS_SMALL then
             -- leggo i parametri Q per utilizzare la fresa di fianco e/o lama
             local nUseSideTool = EgtGetInfo( Proc.Id, Q_SIDE_ROUGH_TOOL, 'i') or 0
             local bUseBlade = EgtGetInfo( Proc.Id, Q_ANTISPLINT_TYPE, 'i') == 1
             return Long2Cut.Make( Proc, nPhase, nRawId, nPartId, bUseBlade, nUseSideTool)
-         elseif b3Fac1:getDimX() < 1 then
+         -- prima faccia terminale
+         elseif b3Fac1:getDimX() < 1 and abs( vtN2:getX()) < GEO.EPS_SMALL then
             -- la faccia 0 deve essere quella lunga
             EgtSurfTmSwapFacets( Proc.Id, 0, 1)
             if bUseBlade then
@@ -5541,7 +5547,8 @@ function ProcessLapJoint.Make( Proc, nPhase, nRawId, nPartId, dOvmHead)
             else
                return LongCut.Make( Proc, nPhase, nRawId, nPartId)
             end
-         elseif b3Fac2:getDimX() < 1 then
+         -- seconda faccia terminale
+         elseif b3Fac2:getDimX() < 1 and abs( vtN1:getX()) < GEO.EPS_SMALL then
             if bUseBlade then
                if nForceUseBladeOnNotContinueFace and nForceUseBladeOnNotContinueFace > 0 then
                   return LongCut.Make( Proc, nPhase, nRawId, nPartId, bUseBlade, nForceUseBladeOnNotContinueFace)
@@ -5551,8 +5558,9 @@ function ProcessLapJoint.Make( Proc, nPhase, nRawId, nPartId, dOvmHead)
             else
                return LongCut.Make( Proc, nPhase, nRawId, nPartId)
             end
+         -- altrimenti
          else
-            if bUseBlade then
+            if bUseBlade and ( abs( vtN1:getX()) > 0.5 or abs( vtN2:getX()) > 0.5) then
                return Fbs.MakeTwo( Proc, nPhase, nRawId, nPartId, dOvmHead, 'HeadSide' .. EgtIf( bDownHead, '_H2', ''), true, bDownHead)
             else
                return MakeLongMoreFaces( Proc, nPhase, nRawId, nPartId, dOvmHead)
diff --git a/LuaLibs/ProcessMortise.lua b/LuaLibs/ProcessMortise.lua
index 2eecb76..e9e30b2 100644
--- a/LuaLibs/ProcessMortise.lua
+++ b/LuaLibs/ProcessMortise.lua
@@ -198,7 +198,7 @@ function ProcessMortise.Make( Proc, nPhase, nRawId, nPartId, dCurrOvmH)
          -- recupero gruppo per geometria addizionale
          local nAddGrpId = BL.GetAddGroup( nPartId)
          if not nAddGrpId then
-            local sErr = 'Error on process ' .. tostring( Proc.Id) .. ' missing AddGroup'
+            local sErr = 'Error : missing AddGroup'
             EgtOutLog( sErr)
             return false, sErr
          end
diff --git a/LuaLibs/ProcessRidgeLap.lua b/LuaLibs/ProcessRidgeLap.lua
index e453b80..0e5a666 100644
--- a/LuaLibs/ProcessRidgeLap.lua
+++ b/LuaLibs/ProcessRidgeLap.lua
@@ -137,23 +137,22 @@ function ProcessRidgeLap.Make( Proc, nPhase, nRawId, nPartId, dOvmHead)
          if not bOk then return bOk, sErr end
       end
    end
+   -- recupero gruppo per geometria addizionale
+   local nAddGrpId = BL.GetAddGroup( nPartId)
+   if not nAddGrpId then
+      local sErr = 'Error : missing AddGroup'
+      EgtOutLog( sErr)
+      return false, sErr
+   end
    -- se esistono faccia interna ed intermedia, verifico se richiedono taglio a cubetti
    local vCuts = {}
    if vFaceOrd[2] ~= 0 and vFaceOrd[3] ~= 0 then
-      vCuts = DC.GetDice( EgtGetParent( Proc.Id), b3Solid, ptC[vFaceOrd[3]], vtN[vFaceOrd[3]], false, ptC[vFaceOrd[2]], vtN[vFaceOrd[2]])
+      vCuts = DC.GetDice( nAddGrpId, b3Solid, ptC[vFaceOrd[3]], vtN[vFaceOrd[3]], false, ptC[vFaceOrd[2]], vtN[vFaceOrd[2]])
    end
    if #vCuts > 0 then
-      -- recupero gruppo per geometria addizionale
-      local nAddGrpId = BL.GetAddGroup( nPartId)
-      if not nAddGrpId then
-         local sErr = 'Error on process ' .. tostring( Proc.Id) .. ' missing AddGroup'
-         EgtOutLog( sErr)
-         return false, sErr
-      end
       -- sistemo posizione nel DB e nome
       for i = 1, #vCuts do
          for j = 1, #vCuts[i] do
-            EgtRelocateGlob( vCuts[i][j], nAddGrpId)
             EgtSetName( vCuts[i][j], 'AddCut_' .. tostring( Proc.Id))
             EgtSetInfo( vCuts[i][j], 'TASKID', Proc.TaskId)
          end
diff --git a/LuaLibs/ProcessSimpleScarf.lua b/LuaLibs/ProcessSimpleScarf.lua
index 26a1437..e25baf4 100644
--- a/LuaLibs/ProcessSimpleScarf.lua
+++ b/LuaLibs/ProcessSimpleScarf.lua
@@ -222,25 +222,24 @@ function ProcessSimpleScarf.Make( Proc, nPhase, nRawId, nPartId, dOvmHead, dOvmT
          if not bOk then return bOk, sNameOrErr end
       end
    end
+   -- recupero gruppo per geometria addizionale
+   local nAddGrpId = BL.GetAddGroup( nPartId)
+   if not nAddGrpId then
+      local sErr = 'Error : missing AddGroup'
+      EgtOutLog( sErr)
+      return false, sErr
+   end
    -- se esistono faccia interna ed intermedia, verifico se richiedono taglio a cubetti
    local vCuts = {}
    if vFaceOrd[2] ~= 0 and vFaceOrd[3] ~= 0 then
-      vCuts = DC.GetDice( EgtGetParent( Proc.Id), b3Solid, ptC[vFaceOrd[3]], vtN[vFaceOrd[3]], false, ptC[vFaceOrd[2]], vtN[vFaceOrd[2]])
+      vCuts = DC.GetDice( nAddGrpId, b3Solid, ptC[vFaceOrd[3]], vtN[vFaceOrd[3]], false, ptC[vFaceOrd[2]], vtN[vFaceOrd[2]])
    elseif vFaceOrd[3] ~= 0 then
-      vCuts = DC.GetDice( EgtGetParent( Proc.Id), b3Solid, ptC[vFaceOrd[3]], vtN[vFaceOrd[3]], true)
+      vCuts = DC.GetDice( nAddGrpId, b3Solid, ptC[vFaceOrd[3]], vtN[vFaceOrd[3]], true)
    end
    if #vCuts > 0 then
-      -- recupero gruppo per geometria addizionale
-      local nAddGrpId = BL.GetAddGroup( nPartId)
-      if not nAddGrpId then
-         local sErr = 'Error : missing AddGroup'
-         EgtOutLog( sErr)
-         return false, sErr
-      end
       -- sistemo posizione nel DB e nome
       for i = 1, #vCuts do
          for j = 1, #vCuts[i] do
-            EgtRelocateGlob( vCuts[i][j], nAddGrpId)
             EgtSetName( vCuts[i][j], 'AddCut_' .. tostring( Proc.Id))
             EgtSetInfo( vCuts[i][j], 'TASKID', Proc.TaskId)
          end
diff --git a/LuaLibs/ProcessStepJoint.lua b/LuaLibs/ProcessStepJoint.lua
index 1c4f6e8..dfe5a45 100644
--- a/LuaLibs/ProcessStepJoint.lua
+++ b/LuaLibs/ProcessStepJoint.lua
@@ -188,15 +188,15 @@ local function MakeTwoFaces( Proc, nPhase, nRawId, nPartId, dOvmHead)
          dMaxDepth = EgtTdbGetCurrToolMaxDepth() or dMaxDepth
       end
    end
+   -- recupero gruppo per geometria addizionale
+   local nAddGrpId = BL.GetAddGroup( nPartId)
+   if not nAddGrpId then
+      local sErr = 'Error : missing AddGroup'
+      EgtOutLog( sErr)
+      return false, sErr
+   end
    -- se convesso, lo tratto come due tagli singoli
    if bConvex then
-      -- recupero gruppo per geometria addizionale
-      local nAddGrpId = BL.GetAddGroup( nPartId)
-      if not nAddGrpId then
-         local sErr = 'Error : missing AddGroup'
-         EgtOutLog( sErr)
-         return false, sErr
-      end
       -- lavoro per prima la faccia più diretta in alto
       local vOrd = { 1, 2}
       if vtN[2]:getZ() > vtN[1]:getZ() then
@@ -244,20 +244,12 @@ local function MakeTwoFaces( Proc, nPhase, nRawId, nPartId, dOvmHead)
          dCutExtra = - dSawThick / tan( 180 + dAng) + dExtraUp
       end
       -- verifico se necessari tagli supplementari
-      local vCuts = DC.GetDice( EgtGetParent( Proc.Id), b3Solid, ptC[nBigInd], vtN[nBigInd], false, ptC[nSmaInd], vtN[nSmaInd])
+      local vCuts = DC.GetDice( nAddGrpId, b3Solid, ptC[nBigInd], vtN[nBigInd], false, ptC[nSmaInd], vtN[nSmaInd])
       --DC.PrintOrderCut( vCuts)
       if #vCuts > 0 then
-         -- recupero gruppo per geometria addizionale
-         local nAddGrpId = BL.GetAddGroup( nPartId)
-         if not nAddGrpId then
-            local sErr = 'Error : missing AddGroup'
-            EgtOutLog( sErr)
-            return false, sErr
-         end
          -- sistemo posizione nel DB e nome
          for i = 1, #vCuts do
             for j = 1, #vCuts[i] do
-               EgtRelocateGlob( vCuts[i][j], nAddGrpId)
                EgtSetName( vCuts[i][j], 'AddCut_' .. tostring( Proc.Id))
                EgtSetInfo( vCuts[i][j], 'TASKID', Proc.TaskId)
             end
@@ -380,7 +372,6 @@ local function MakeThreeFaces( Proc, nPhase, nRawId, nPartId, dOvmHead)
          dMaxDepth = EgtTdbGetCurrToolMaxDepth() or dMaxDepth
       end
    end
-   -- Taglio la faccia 2
    -- recupero gruppo per geometria addizionale
    local nAddGrpId = BL.GetAddGroup( nPartId)
    if not nAddGrpId then
@@ -388,6 +379,7 @@ local function MakeThreeFaces( Proc, nPhase, nRawId, nPartId, dOvmHead)
       EgtOutLog( sErr)
       return false, sErr
    end
+   -- Taglio la faccia 2
    -- creo piano di taglio coincidente con la faccia 2 e lo lavoro
    local AddId = EgtSurfTmPlaneInBBox( nAddGrpId, ptC[3], vtN[3], b3Solid, GDB_RT.GLOB)
    if AddId then
@@ -406,13 +398,12 @@ local function MakeThreeFaces( Proc, nPhase, nRawId, nPartId, dOvmHead)
       dCutExtra = - dSawThick / tan( 180 + dAng) + dExtraUp
    end
    -- verifico se necessari tagli supplementari
-   local vCuts = DC.GetDice( EgtGetParent( Proc.Id), b3Solid, ptC[nBigInd], vtN[nBigInd], false, ptC[nSmaInd], vtN[nSmaInd])
+   local vCuts = DC.GetDice( nAddGrpId, b3Solid, ptC[nBigInd], vtN[nBigInd], false, ptC[nSmaInd], vtN[nSmaInd])
    --DC.PrintOrderCut( vCuts)
    if #vCuts > 0 then
       -- sistemo posizione nel DB e nome
       for i = 1, #vCuts do
          for j = 1, #vCuts[i] do
-            EgtRelocateGlob( vCuts[i][j], nAddGrpId)
             EgtSetName( vCuts[i][j], 'AddCut_' .. tostring( Proc.Id))
             EgtSetInfo( vCuts[i][j], 'TASKID', Proc.TaskId)
          end
diff --git a/LuaLibs/ProcessStepJointNotch.lua b/LuaLibs/ProcessStepJointNotch.lua
index 5fabb26..9225a5a 100644
--- a/LuaLibs/ProcessStepJointNotch.lua
+++ b/LuaLibs/ProcessStepJointNotch.lua
@@ -81,21 +81,20 @@ local function MachineByBlade( Proc, nPhase, nRawId, nPartId, dOvmHead, b3Solid,
    if dAng < -90.5 and dAng > -179.5 then
       dCutExtra = - dSawThick / tan( 180 + dAng) + dExtraUp
    end
+   -- recupero gruppo per geometria addizionale
+   local nAddGrpId = BL.GetAddGroup( nPartId)
+   if not nAddGrpId then
+      local sErr = 'Error : missing AddGroup'
+      EgtOutLog( sErr)
+      return false, sErr
+   end
    -- verifico se necessari tagli supplementari
-   local vCuts = DC.GetDice( EgtGetParent( Proc.Id), b3Solid, ptC[nBigInd], vtN[nBigInd], false, ptC[nSmaInd], vtN[nSmaInd])
+   local vCuts = DC.GetDice( nAddGrpId, b3Solid, ptC[nBigInd], vtN[nBigInd], false, ptC[nSmaInd], vtN[nSmaInd])
    --DC.PrintOrderCut( vCuts)
    if #vCuts > 0 then
-      -- recupero gruppo per geometria addizionale
-      local nAddGrpId = BL.GetAddGroup( nPartId)
-      if not nAddGrpId then
-         local sErr = 'Error : missing AddGroup'
-         EgtOutLog( sErr)
-         return false, sErr
-      end
       -- sistemo posizione nel DB e nome
       for i = 1, #vCuts do
          for j = 1, #vCuts[i] do
-            EgtRelocateGlob( vCuts[i][j], nAddGrpId)
             EgtSetName( vCuts[i][j], 'AddCut_' .. tostring( Proc.Id))
             EgtSetInfo( vCuts[i][j], 'TASKID', Proc.TaskId)
          end
diff --git a/LuaLibs/ProcessTenon.lua b/LuaLibs/ProcessTenon.lua
index 5fc7803..b5226ba 100644
--- a/LuaLibs/ProcessTenon.lua
+++ b/LuaLibs/ProcessTenon.lua
@@ -197,9 +197,13 @@ function ProcessTenon.Make( Proc, nPhase, nRawId, nPartId, dOvmHead)
          bCW = ( dSpeed >= 0)
       end
    end
-   -- porto inizio curva il più possibile sul bordo
+   -- massimo numero di passate e coefficiente di sovrapposizione ta passate
+   local MAX_PASS = 6
+   local OVERLAP_COEFF = 0.7
+   -- porto inizio curva il più possibile sul bordo in alto o in basso
+   local dMaxDist = OVERLAP_COEFF * dMillDiam * MAX_PASS
    local bMyShortPart = ( bShortPart and abs( vtN:getX()) < 0.999)
-   BL.PutStartNearestToEdge( AuxId, b3Solid, bH2 ~= bMyShortPart)
+   BL.PutStartNearestToEdge( AuxId, b3Solid, dMaxDist, bH2 ~= bMyShortPart)
    -- se elevazione superiore a massimo affondamento della fresa, riduco opportunamente
    local sWarn
    local dDepth = 0
@@ -210,9 +214,8 @@ function ProcessTenon.Make( Proc, nPhase, nRawId, nPartId, dOvmHead)
       EgtOutLog( sWarn .. ' (process ' .. tostring( Proc.Id) .. ')')
    end
    -- determino il numero di passate concentriche (max 6)
-   local MAX_PASS = 6
-   local nPass = min( ceil( dPockL / ( 0.7 * dMillDiam)), MAX_PASS)
-   local dStep = min( dPockL, 0.7 * dMillDiam * MAX_PASS) / nPass
+   local nPass = min( ceil( dPockL / ( OVERLAP_COEFF * dMillDiam)), MAX_PASS)
+   local dStep = min( dPockL, OVERLAP_COEFF * dMillDiam * MAX_PASS) / nPass
    for i = nPass, 1, -1 do
       -- inserisco la passata finale della lavorazione
       local sNameF = 'TenF_' .. ( EgtGetName( Proc.Id) or tostring( Proc.Id))
diff --git a/LuaLibs/ProcessTyroleanDovetail.lua b/LuaLibs/ProcessTyroleanDovetail.lua
index a0e407c..6bd9cc1 100644
--- a/LuaLibs/ProcessTyroleanDovetail.lua
+++ b/LuaLibs/ProcessTyroleanDovetail.lua
@@ -209,7 +209,7 @@ local function MakeMachByBlade( Proc, nPhase, nRawId, nPartId, dOvmHead, b3Raw,
   -- recupero gruppo per geometria addizionale
    local nAddGrpId = BL.GetAddGroup( nPartId)
    if not nAddGrpId then
-      local sErr = 'Error on process ' .. tostring( Proc.Id) .. ' missing AddGroup'
+      local sErr = 'Error : missing AddGroup'
       EgtOutLog( sErr)
       return false, sErr
    end
@@ -257,15 +257,14 @@ local function MakeMachByBlade( Proc, nPhase, nRawId, nPartId, dOvmHead, b3Raw,
    -- se esistono faccia interna ed intermedia, verifico se richiedono taglio a cubetti
    local vCuts = {}
    if vFaceOrd[2] ~= 0 and vFaceOrd[3] ~= 0 then
-      vCuts = DC.GetDice( EgtGetParent( Proc.Id), b3Solid, ptC[vFaceOrd[3]], vtN[vFaceOrd[3]], false, ptC[vFaceOrd[2]], vtN[vFaceOrd[2]])
+      vCuts = DC.GetDice( nAddGrpId, b3Solid, ptC[vFaceOrd[3]], vtN[vFaceOrd[3]], false, ptC[vFaceOrd[2]], vtN[vFaceOrd[2]])
    elseif vFaceOrd[3] ~= 0 then
-      vCuts = DC.GetDice( EgtGetParent( Proc.Id), b3Solid, ptC[vFaceOrd[3]], vtN[vFaceOrd[3]], true)
+      vCuts = DC.GetDice( nAddGrpId, b3Solid, ptC[vFaceOrd[3]], vtN[vFaceOrd[3]], true)
    end
    if #vCuts > 0 then
       -- sistemo posizione nel DB e nome
       for i = 1, #vCuts do
          for j = 1, #vCuts[i] do
-            EgtRelocateGlob( vCuts[i][j], nAddGrpId)
             EgtSetName( vCuts[i][j], 'AddCut_' .. tostring( Proc.Id))
             EgtSetInfo( vCuts[i][j], 'TASKID', Proc.TaskId)
          end
@@ -478,7 +477,7 @@ local function MakeMachByMill( Proc, nPhase, nRawId, nPartId, dOvmHead, b3Raw, b
   -- recupero gruppo per geometria addizionale
    local nAddGrpId = BL.GetAddGroup( nPartId)
    if not nAddGrpId then
-      local sErr = 'Error on process ' .. tostring( Proc.Id) .. ' missing AddGroup'
+      local sErr = 'Error : missing AddGroup'
       EgtOutLog( sErr)
       return false, sErr
    end