BugFix/HeadSplitCutOnBigSection:

- corretto anche per Split il flag Q05 non inizializzato
- ora la gestione dei tagli per BigSection è quella standard (HorizCut, double, etc.)

.gitlab-ci.yml

@@ -2,9 +2,8 @@ variables:
  VERS_MAIN: '1.0'
  APP_NAME: 'Beam'
  NEW_REL: ''
- NET_SHARE_R: '\\10.74.82.201\Artifacts\EGT_SRV\EgtTech'
+ NET_SHARE_R: '\\10.74.82.201\EgwTech'
- NET_USER: '10.74.82.50\Server'
+ NET_SHARE_Z: '\\10.74.82.201\Artifacts'
- NET_SHARE_Z: '\\10.74.82.200\Artifacts'
  NET_USERQ: 'steamw\egalware'
 
 #Note compilazione LUA:

LuaLibs/BeamExec.lua

@@ -1,4 +1,4 @@
--- BeamExec.lua by Egaltech s.r.l. 2022/08/18
+-- BeamExec.lua by Egaltech s.r.l. 2022/09/24
 -- Libreria esecuzione lavorazioni per Travi
 -- 2019/07/11 Aggiunta gestione stato rotazione di feature per TS3.
 -- 2019/09/04 Corretto controllo feature di testa e coda con sovramateriale di testa elevato.
@@ -35,6 +35,7 @@
 -- 2022/08/01 Tolleranza su sezione portata a 0.1 mm (100 * GEO.EPS_SMALL).
 -- 2022/08/08 Modifica per macchine senza BD.MAX_WIDTH2 e BD.MAX_HEIGHT2.
 -- 2022/08/18 Aggiunta gestione macchine con testa da sotto con lama da sotto disabilitata.
+-- 2022/09/21 Nella funzione di ordinamento il foro del birdsmouth viene sempre fatto prima della lavorazione stessa
 
 -- Tabella per definizione modulo
 local BeamExec = {}
@@ -258,6 +259,9 @@ local function CollectFeatures( PartId, b3Raw, dCurrOvmH, dCurrOvmT)
             local nDo = EgtGetInfo( ProcId, 'DO', 'i') or 1
             local nCutId = EgtGetInfo( EgtGetParent( EgtGetParent( ProcId)), 'CUTID', 'i') or 0
             local nTaskId = EgtGetInfo( ProcId, 'TASKID', 'i') or 0
+            -- leggo se ci sono feature collegate
+            local nAddAdjId = EgtGetInfo( ProcId, 'ADJID', 'i')
+            local nAddMainId = EgtGetInfo( ProcId, 'MAINID', 'i')
             if nGrp and nPrc and nDo == 1 then
                local Proc = {}
                Proc.Id = ProcId
@@ -270,6 +274,12 @@ local function CollectFeatures( PartId, b3Raw, dCurrOvmH, dCurrOvmT)
                Proc.Fce = 0
                Proc.CutId = nCutId
                Proc.TaskId = nTaskId
+               -- se ci sono feature collegate ne scrivo il riferimento nella Proc
+               if nAddAdjId then
+                  Proc.AdjId = Proc.Id + nAddAdjId
+               elseif nAddMainId then
+                  Proc.MainId = Proc.Id + nAddMainId
+               end
                Proc.Box = EgtGetBBoxGlob( ProcId, GDB_BB.STANDARD)
                if Proc.Box and not Proc.Box:isEmpty() then 
                   Proc.Head = IsHeadFeature( Proc, b3Raw, dCurrOvmH)
@@ -670,6 +680,14 @@ local function OrderFeatures( vProc, b3Raw)
       if B1.Head ~= B2.Head then
          return B1.Head
       end
+      -- se primo è foro di un birdsmouth e secondo è il suo birdsmouth, il foro va sempre prima
+      if Drill.Identify(B1) and LapJoint.Identify(B2) and B1.MainId == B2.Id then
+         return true
+      end
+      -- se primo è birdsmouth e secondo è il suo foro, il birdsmouth va sempre dopo
+      if LapJoint.Identify(B1) and Drill.Identify(B2) and B1.AdjId == B2.Id then
+         return false
+      end
       -- se entrambi tenoni e si intersecano, metto prima tenone vero e poi base tenone
       if ( Tenon.Identify( B1) or DtTenon.Identify( B1)) and ( Tenon.Identify( B2) or DtTenon.Identify( B2)) and
          B1.Box:getMin():getX() < B2.Box:getMax():getX() + 100 * GEO.EPS_SMALL and B2.Box:getMin():getX() < B1.Box:getMax():getX() + 100 * GEO.EPS_SMALL then
@@ -1238,7 +1256,7 @@ local function AddFeatureMachining( Proc, nPhase, nRawId, nPartId, dCurrOvmH, bN
       EgtOutLog( sErr)
       bOk = false
    end
-   return bOk, sErr, nNewPhase
+   return bOk, sErr, ( nNewPhase or -1)
 end
 
 -------------------------------------------------------------------------------------------------------------

LuaLibs/BeamLib.lua

@@ -308,7 +308,7 @@ function BeamLib.GetNearestOrthoOpposite( vtRef, vtNorm)
       vtMyRef:normalize()
    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()) > 0.91 * abs( vtMyRef:getZ()) or abs( vtMyRef:getY()) > 0.91 * abs( vtMyRef:getZ()) then
       -- se prevale la componente destra/sinistra
       if abs( vtMyRef:getX()) > 0.95 * abs( vtMyRef:getY()) then
          if vtMyRef:getX() > -GEO.EPS_SMALL then
@@ -703,8 +703,10 @@ end
 
 -------------------------------------------------------------------------------------------------------------
 function BeamLib.GetNzLimDownUp( b3Raw, vtN, vtOrtho)
-   if BD.C_SIMM or BD.TURN then
+   if BD.C_SIMM then
       return -0.484
+   elseif BD.TURN then
+      return -2
    else
       if vtOrtho and vtOrtho:getZ() > 0.35 then
          -- N_HorAng < 15° or N_HorAng > 55°

LuaLibs/DiceCut.lua

@@ -496,6 +496,12 @@ function DiceCut.GetDice( nParent, BBoxRawPart, ptCPlanes, vtNPlanes, bGetOrtoPl
          if bDownHead and vtO:getZ() > 0.05 then
             vtO = -vtO
          end
+         -- per macchina TURN
+         if BD.TURN then
+            if vtO:getY() > 0.707 then
+               vtO = -vtO
+            end
+         end
          -- calcolo le dimensioni dell'offset e dove posizionare la prima faccia:
          --   CopyPlane: 0 => crea la prima faccia direttamente sul punto passato
          --   CopyPlane: 1 => crea la prima faccia e tutte le altre con l'offset passato

LuaLibs/FacesBySaw.lua

@@ -1,4 +1,4 @@
--- FacesBySaw.lua by Egaltech s.r.l. 2022/06/29
+-- FacesBySaw.lua by Egaltech s.r.l. 2022/09/24
 -- Gestione taglio con lama di feature con una o due facce
 -- 2021/01/06 Cambiato limite per attacco Tg con lama e CalcLeadInOutGeom rinominata in CalcLeadInOutPerpGeom.
 -- 2021/02/03 In taglio lama si accettano anche due lati con deviazione minore di 20deg.
@@ -12,6 +12,7 @@
 -- 2021/11/26 DS Spostate qui MakeOneFaceBySaw (ora MakeOne), CalcLeadInOutPerpGeom e CalcLeadInOutTangGeom.
 -- 2022/04/12 DS Aggiunta gestione speciale cubetti con fresa da sotto.
 -- 2022/06/29 DS In MakeTwo modificato controllo facce dirette verso il basso.
+-- 2022/09/08 In MakeOne aggiunto argomento bForceInvert per poter forzare l'inversione del percorso.
 
 -- Tabella per definizione modulo
 local FacesBySaw = {}
@@ -28,7 +29,7 @@ local BD = require( 'BeamData')
 local ML = require( 'MachiningLib')
 
 ---------------------------------------------------------------------
-function FacesBySaw.MakeOne( nSurfId, nFacet, sCutting, dSawDiam, Par5, dVzLimDwnUp, dCutExtra, dCutSic, dCutOffset, dAccStart, dAccEnd, sNotes, b3Raw)
+function FacesBySaw.MakeOne( nSurfId, nFacet, sCutting, dSawDiam, Par5, dVzLimDwnUp, dCutExtra, dCutSic, dCutOffset, dAccStart, dAccEnd, sNotes, b3Raw, bForceInvert)
    -- dati della faccia
    local ptC, vtN = EgtSurfTmFacetCenter( nSurfId, nFacet, GDB_ID.ROOT)
    -- risolvo parametro ambiguo
@@ -51,7 +52,10 @@ function FacesBySaw.MakeOne( nSurfId, nFacet, sCutting, dSawDiam, Par5, dVzLimDw
       return true, ''
    end
    vtV1 = - vtV1
-   local bInvert = ( ptP2:getZ() < ptP1:getZ() - 100 * GEO.EPS_SMALL)
+   local bInvert = bForceInvert
+   if bInvert == nil then
+      bInvert = ( ptP2:getZ() < ptP1:getZ() - 100 * GEO.EPS_SMALL)
+   end
    if bInvert then
       ptP1, ptP2 = ptP2, ptP1
       vtV1, vtV2 = vtV2, vtV1
@@ -122,7 +126,7 @@ function FacesBySaw.MakeOne( nSurfId, nFacet, sCutting, dSawDiam, Par5, dVzLimDw
    local ptP1act = ptP1 + vtN * dCutOffset
    local ptP2act = ptP2 + vtN * dCutOffset
    -- attacco perpendicolare
-   local dLiTang, dLiPerp, dLoTang, dLoPerp = FacesBySaw.CalcLeadInOutPerpGeom( ptP1act, ptP2act, vtV1, vtV2, vtN, dSawDiam/2, vtRef, dCutExtra, b3Box)
+   local dLiTang, dLiPerp, dLoTang, dLoPerp, vtLio = FacesBySaw.CalcLeadInOutPerpGeom( ptP1act, ptP2act, vtV1, vtV2, vtN, dSawDiam/2, vtRef, dCutExtra, b3Box)
    local dLenLi = sqrt( dLiTang * dLiTang + dLiPerp * dLiPerp)
    local dLenLo = sqrt( dLoTang * dLoTang + dLoPerp * dLoPerp)
    -- attacco tangente
@@ -156,11 +160,26 @@ function FacesBySaw.MakeOne( nSurfId, nFacet, sCutting, dSawDiam, Par5, dVzLimDw
          nSCC = EgtIf( ( vtAux:getY() > -GEO.EPS_SMALL), MCH_SCC.ADIR_YP, MCH_SCC.ADIR_YM)
       end
    else
-      local vtTest = EgtIf( bTurnTang, EgtIf( bInvert, vtTg, -vtTg), vtOut)
+      if bTurnTang then
-      if abs( vtTest:getY()) > abs( vtTest:getZ()) then
+         local vtTest = EgtIf( bInvert, vtTg, -vtTg)
-         nSCC = EgtIf( vtTest:getY() > 0, MCH_SCC.ADIR_YP, MCH_SCC.ADIR_YM)
+         if abs( vtTest:getY()) > abs( vtTest:getZ()) then
+            nSCC = EgtIf( vtTest:getY() > 0, MCH_SCC.ADIR_YP, MCH_SCC.ADIR_YM)
+         else
+            nSCC = EgtIf( vtTest:getZ() > 0, MCH_SCC.ADIR_ZP, MCH_SCC.ADIR_ZM)
+         end
       else
-         nSCC = EgtIf( vtTest:getZ() > 0, MCH_SCC.ADIR_ZP, MCH_SCC.ADIR_ZM)
+         local vtTest = vtOut   -- vtLio
+         if abs( vtN:getY()) < 0.174 and abs( vtN:getZ()) < 0.174 then
+            if abs( vtTest:getY()) > abs( vtTest:getZ()) then
+               nSCC = EgtIf( vtTest:getY() > 0, MCH_SCC.ADIR_YP, MCH_SCC.ADIR_YM)
+            else
+               nSCC = EgtIf( vtTest:getZ() > 0, MCH_SCC.ADIR_ZP, MCH_SCC.ADIR_ZM)
+            end
+         elseif abs( vtN:getZ()) < 0.174 then
+            nSCC = EgtIf( vtTest:getZ() > -0.017, MCH_SCC.ADIR_ZP, MCH_SCC.ADIR_ZM)
+         else
+            nSCC = EgtIf( vtTest:getY() > 0, MCH_SCC.ADIR_YP, MCH_SCC.ADIR_YM)
+         end
       end
    end
    -- inserisco la lavorazione di taglio
@@ -460,29 +479,24 @@ function FacesBySaw.CalcLeadInOutPerpGeom( ptP1, ptP2, vtV1, vtV2, vtN, dRad, vt
    local vtX = vtTg ^ vtN
    local frFace = Frame3d( ptP1, vtX, vtTg, vtN)
    EgtOutLog( 'Vref=' .. tostring( vtRef) .. ' V1=' .. tostring( vtV1) .. ' V2=' .. tostring( vtV2), 3)
-   -- Versori di attacco e uscita
+   -- Versore di attacco e uscita
    local dCos1 = vtV1 * vtRef
    local dCos2 = vtV2 * vtRef
-   local vtLi, vtLo
+   local vtLio
    if abs( dCos1 - dCos2) < 0.001 then
       if abs( vtV1:getZ()) < abs( vtV2:getZ()) then
-         vtLi = vtV1
+         vtLio = vtV1
-         vtLo = vtV1
       else
-         vtLi = vtV2
+         vtLio = vtV2
-         vtLo = vtV2
       end
    elseif dCos1 > dCos2 then
-      vtLi = vtV1
+      vtLio = vtV1
-      vtLo = vtV1
    else
-      vtLi = vtV2
+      vtLio = vtV2
-      vtLo = vtV2
    end
-   local bRight = ( vtX * vtLi > 0)
+   local bRight = ( vtX * vtLio > 0)
-   -- Versori di attacco e uscita nel riferimento intrinseco al taglio
+   -- Versore di attacco e uscita nel riferimento intrinseco al taglio
-   local vtLiL = Vector3d( vtLi) ;   vtLiL:toLoc( frFace)
+   local vtLioL = Vector3d( vtLio) ;   vtLioL:toLoc( frFace)
-   local vtLoL = Vector3d( vtLo) ;   vtLoL:toLoc( frFace)
    -- Spostamento punti per effetto dell'extra o della deficienza di taglio
    ptP1 = ptP1 + vtX * ( EgtIf( bRight, - dCutExtra, dCutExtra))
    ptP2 = ptP2 + vtX * ( EgtIf( bRight, - dCutExtra, dCutExtra))
@@ -492,30 +506,30 @@ function FacesBySaw.CalcLeadInOutPerpGeom( ptP1, ptP2, vtV1, vtV2, vtN, dRad, vt
    -- Attacco
    local dLiTang = 10000
    local dLiPerp = 10000
-   local bLiOk, _, vLiPar = EgtLineBoxInters( ptP1, vtLi, b3MyBox)
+   local bLiOk, _, vLiPar = EgtLineBoxInters( ptP1, vtLio, b3MyBox)
    if bLiOk and #vLiPar > 0 then
       -- con la prima faccia di uscita
       local dLen = vLiPar[#vLiPar]
-      local ptInt = ptP1 + vtLi * dLen
+      local ptInt = ptP1 + vtLio * dLen
-      local vtFN = BL.GetBoxFaceNorm( b3MyBox, ptInt, vtLi)
+      local vtFN = BL.GetBoxFaceNorm( b3MyBox, ptInt, vtLio)
       EgtOutLog( 'LiFaceNorm=' .. tostring( vtFN), 3)
-      local dAddLen = dRad * ( sqrt( 1 - ( vtN * vtFN) * ( vtN * vtFN)) - abs( vtX * vtFN)) / ( vtLi * vtFN)
+      local dAddLen = dRad * ( sqrt( 1 - ( vtN * vtFN) * ( vtN * vtFN)) - abs( vtX * vtFN)) / ( vtLio * vtFN)
       local dLiLen = dLen + dAddLen
       EgtOutLog( 'LeadIn Dist=' .. EgtNumToString( dLiLen), 3)
-      dLiTang = - dLiLen * vtLiL:getY()
+      dLiTang = - dLiLen * vtLioL:getY()
-      dLiPerp = EgtIf( bRight, dLiLen, - dLiLen) * vtLiL:getX()
+      dLiPerp = EgtIf( bRight, dLiLen, - dLiLen) * vtLioL:getX()
       -- verifico se miglioro calcolando con faccia successiva
       local b3Mod = BBox3d( b3MyBox) ;  b3Mod:Add( ptInt + 1000 * vtFN)
-      local bLiOk2, _, vLiPar2 = EgtLineBoxInters( ptP1, vtLi, b3Mod)
+      local bLiOk2, _, vLiPar2 = EgtLineBoxInters( ptP1, vtLio, b3Mod)
       if bLiOk2 and #vLiPar2 > 0 then
          local dLen2 = vLiPar2[#vLiPar2]
-         local vtFN2 = BL.GetBoxFaceNorm( b3Mod, ptP1 + vtLi * dLen2, vtLi)
+         local vtFN2 = BL.GetBoxFaceNorm( b3Mod, ptP1 + vtLio * dLen2, vtLio)
          EgtOutLog( 'LiFaceNorm2=' .. tostring( vtFN2), 3)
-         local dAddLen2 = dRad * ( sqrt( 1 - ( vtN * vtFN2) * ( vtN * vtFN2)) - abs( vtX * vtFN2)) / ( vtLi * vtFN2)
+         local dAddLen2 = dRad * ( sqrt( 1 - ( vtN * vtFN2) * ( vtN * vtFN2)) - abs( vtX * vtFN2)) / ( vtLio * vtFN2)
          local dLiLen2 = dLen2 + dAddLen2
          EgtOutLog( 'LeadIn Dist2=' .. EgtNumToString( dLiLen2), 3)
-         local dLiTang2 = - dLiLen2 * vtLiL:getY()
+         local dLiTang2 = - dLiLen2 * vtLioL:getY()
-         local dLiPerp2 = EgtIf( bRight, dLiLen2, - dLiLen2) * vtLiL:getX()
+         local dLiPerp2 = EgtIf( bRight, dLiLen2, - dLiLen2) * vtLioL:getX()
          if dLiLen2 < dLiLen then
             dLiTang = dLiTang2
             dLiPerp = dLiPerp2
@@ -525,37 +539,37 @@ function FacesBySaw.CalcLeadInOutPerpGeom( ptP1, ptP2, vtV1, vtV2, vtN, dRad, vt
    -- Lunghezza di uscita
    local dLoTang = 10000
    local dLoPerp = 10000
-   local bLoOk, _, vLoPar = EgtLineBoxInters( ptP2, vtLo, b3MyBox)
+   local bLoOk, _, vLoPar = EgtLineBoxInters( ptP2, vtLio, b3MyBox)
    if bLoOk and #vLoPar > 0 then
       -- con la prima faccia di uscita
       local dLen = vLoPar[#vLoPar]
-      local ptInt = ptP2 + vtLo * dLen
+      local ptInt = ptP2 + vtLio * dLen
-      local vtFN = BL.GetBoxFaceNorm( b3MyBox, ptInt, vtLo)
+      local vtFN = BL.GetBoxFaceNorm( b3MyBox, ptInt, vtLio)
       EgtOutLog( 'LoFaceNorm=' .. tostring( vtFN), 3)
-      local dAddLen = dRad * ( sqrt( 1 - ( vtN * vtFN) * ( vtN * vtFN)) - abs( vtX * vtFN)) / ( vtLo * vtFN)
+      local dAddLen = dRad * ( sqrt( 1 - ( vtN * vtFN) * ( vtN * vtFN)) - abs( vtX * vtFN)) / ( vtLio * vtFN)
       local dLoLen = dLen + dAddLen
       EgtOutLog( 'LeadOut Dist=' .. EgtNumToString( dLoLen), 3)
-      dLoTang = dLoLen * vtLoL:getY()
+      dLoTang = dLoLen * vtLioL:getY()
-      dLoPerp = EgtIf( bRight, dLoLen, - dLoLen) * vtLoL:getX()
+      dLoPerp = EgtIf( bRight, dLoLen, - dLoLen) * vtLioL:getX()
       -- verifico se miglioro calcolando con faccia successiva
       local b3Mod = BBox3d( b3MyBox) ;  b3Mod:Add( ptInt + 1000 * vtFN)
-      local bLoOk2, _, vLoPar2 = EgtLineBoxInters( ptP2, vtLo, b3Mod)
+      local bLoOk2, _, vLoPar2 = EgtLineBoxInters( ptP2, vtLio, b3Mod)
       if bLoOk2 and #vLoPar2 > 0 then
          local dLen2 = vLoPar2[#vLoPar2]
-         local vtFN2 = BL.GetBoxFaceNorm( b3Mod, ptP2 + vtLo * dLen2, vtLo)
+         local vtFN2 = BL.GetBoxFaceNorm( b3Mod, ptP2 + vtLio * dLen2, vtLio)
          EgtOutLog( 'LoFaceNorm2=' .. tostring( vtFN2), 3)
-         local dAddLen2 = dRad * ( sqrt( 1 - ( vtN * vtFN2) * ( vtN * vtFN2)) - abs( vtX * vtFN2)) / ( vtLo * vtFN2)
+         local dAddLen2 = dRad * ( sqrt( 1 - ( vtN * vtFN2) * ( vtN * vtFN2)) - abs( vtX * vtFN2)) / ( vtLio * vtFN2)
          local dLoLen2 = dLen2 + dAddLen2
          EgtOutLog( 'LeadOut Dist2=' .. EgtNumToString( dLoLen2), 3)
-         local dLoTang2 = dLoLen2 * vtLoL:getY()
+         local dLoTang2 = dLoLen2 * vtLioL:getY()
-         local dLoPerp2 = EgtIf( bRight, dLoLen2, - dLoLen2) * vtLoL:getX()
+         local dLoPerp2 = EgtIf( bRight, dLoLen2, - dLoLen2) * vtLioL:getX()
          if dLoLen2 < dLoLen then
             dLoTang = dLoTang2
             dLoPerp = dLoPerp2
          end
       end
    end
-   return dLiTang, dLiPerp, dLoTang, dLoPerp
+   return dLiTang, dLiPerp, dLoTang, dLoPerp, vtLio
 end
 
 ---------------------------------------------------------------------

LuaLibs/ProcessCut.lua

@@ -16,6 +16,7 @@
 -- 2022/08/24 Disabilitato il dicing per i tagli meno spessi della lama.
 -- 2022/08/25 In caso di AdvTail con taglio lungo Y la profondità di lavorazione è opportunamente diminuita.
 -- 2022/08/30 Modificata la condizione che determina l'utilizzo della testa da sotto. Ora controlla se la trave è più grande del doppio della massima larghezza del cubetto.
+-- 2022/09/23 Corretta la condizione per cui è richiesto l'aggiornamento del grezzo.
 
 -- Tabella per definizione modulo
 local ProcessCut = {}
@@ -249,17 +250,21 @@ local function MakeFromTop( sCutting, Proc, nPhase, nRawId, nPartId, dOvmHead, b
                       Proc.Box:getDimY() > b3Solid:getDimY() - 10 * GEO.EPS_SMALL and
                       ( Proc.Box:getDimX() > 0.75 * b3Solid:getDimX() or Proc.Box:getDimX() > 600.000))
    -- verifico se da considerare taglio lungo dal lato, solo per macchine tipo PF1250, inclinato non più di 30deg
-   local bLongCutFromSide = ( not bDownCut and ( BD.C_SIMM and BD.DOWN_HEAD and ( vtN:getY() > 0.865 or vtN:getY() < -0.865) and
+   local bLongCutFromSide = ( not bDownCut and ( BD.C_SIMM and BD.DOWN_HEAD and ( abs(vtN:getY()) > 0.865) and
                               Proc.Box:getDimZ() > b3Solid:getDimZ() - 10 * GEO.EPS_SMALL) and
                               ( Proc.Box:getDimX() > 0.75 * b3Solid:getDimX() or Proc.Box:getDimX() > 600.000))
    -- se taglio lungo e Q04 = 1 allora lancio il processo dell'L10
    local bNoDicing = EgtGetInfo( Proc.Id, 'Q04', 'i') == 1
    if bNoDicing then
       if bLongCut then
-         return LongCut.Make( Proc, nPhase, nRawId, nPartId, true)
+         local bOk, sErr = LongCut.Make( Proc, nPhase, nRawId, nPartId, true)
+         return bOk, sErr, bNoDicing
       elseif bLongCutFromSide then
-         return LongCut.Make( Proc, nPhase, nRawId, nPartId, false, 2)
+         local bOk, sErr = LongCut.Make( Proc, nPhase, nRawId, nPartId, false, 2)
+         return bOk, sErr, bNoDicing
       end
+      -- se non passa dal LongCut rimetto a false perchè ha fatto un taglio standard
+      bNoDicing = false
    end
    -- se pezzo ancora attaccato alla trave, per non rovinare quello successivo
    local bFillAreaPiece
@@ -430,7 +435,7 @@ local function MakeFromTop( sCutting, Proc, nPhase, nRawId, nPartId, dOvmHead, b
                   local dVzLimDwnUp = dNzLimDwnUp
                   if j ~= 1 then
                      vtNewOrthoO = -vtOrthoO
-                     if not BD.C_SIMM and abs( vtN:getY()) > 0.05 then dVzLimDwnUp = -0.707 end
+                     if not BD.C_SIMM and not BD.TURN and abs( vtN:getY()) > 0.05 then dVzLimDwnUp = -0.708 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
@@ -454,7 +459,7 @@ local function MakeFromTop( sCutting, Proc, nPhase, nRawId, nPartId, dOvmHead, b
                   end
                end
                local dVzLimDwnUp = dNzLimDwnUp
-               if not BD.C_SIMM and vtN:getZ() > 0.707 then dVzLimDwnUp = -0.708 end
+               if not BD.C_SIMM and not BD.TURN 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
             end
@@ -737,9 +742,11 @@ function ProcessCut.Make( Proc, nPhase, nRawId, nPartId, dOvmHead, bFromBottom,
       EgtOutLog( sErr)
       return false, sErr
    end
+   local bNoDicing = false
    -- se taglio con testa da sopra
    if not bDownHead and not bDownTurn then
-      local bOk, sErr = MakeFromTop( sCutting, Proc, nPhase, nRawId, nPartId, dOvmHead, bFromBottom, bCustDiceCut, bForced, b3Raw, sNotes)
+      local bOk, sErr, bNoDicing2 = MakeFromTop( sCutting, Proc, nPhase, nRawId, nPartId, dOvmHead, bFromBottom, bCustDiceCut, bForced, b3Raw, sNotes)
+      bNoDicing = bNoDicing2
       if not bOk then return false, sErr end
    -- altrimenti taglio con testa da sotto
    else
@@ -747,7 +754,8 @@ function ProcessCut.Make( Proc, nPhase, nRawId, nPartId, dOvmHead, bFromBottom,
       if not bOk then return false, sErr end
    end
    -- Aggiornamento ingombro (se vero taglio o richiesto)
-   if ProcessCut.Identify( Proc) or bUpdateIng then
+   -- Se lascio il cordolo (bNoDicing) non aggiorno il grezzo perchè lo scarto rimane attaccato
+   if ( ProcessCut.Identify( Proc) or bUpdateIng) and not bNoDicing then
       UpdateEncumbrance( Proc, vtN, dOvmHead, nRawId, b3Solid, b3Raw)
    end
    return true

LuaLibs/ProcessDoubleCut.lua

@@ -581,7 +581,7 @@ function ProcessDoubleCut.Make( Proc, nPhase, nRawId, nPartId, dOvmHead)
          local _, _, dDimV2 = BL.GetFaceHvRefDim( Proc.Id, 1, b3Raw)
          local bFace1TooLongForBlade, bFace2TooLongForBlade = ( dDimV1 >= dMaxDepth), ( dDimV2 >= dMaxDepth)
          local dFace1Ang, dFace2Ang = vtN[1]:getZ(), vtN[2]:getZ()
-         if bFace1TooLongForBlade and dFace1Ang < ( BD.CUT_VZ_MIN or -0.485) or bFace2TooLongForBlade and dFace2Ang < ( BD.CUT_VZ_MIN or -0.485) then
+         if bFace1TooLongForBlade and dFace1Ang < ( BD.CUT_VZ_MIN or -0.484) or bFace2TooLongForBlade and dFace2Ang < ( BD.CUT_VZ_MIN or -0.484) then
             local bOk, sErr = MakeBySidePocket(  Proc, nPhase, nRawId, nPartId, nAddGrpId, b3Solid)
             return bOk, sErr
          end

LuaLibs/ProcessFreeContour.lua

@@ -1,6 +1,8 @@
 -- ProcessFreeContour.lua by Egaltech s.r.l. 2021/10/07
 -- Gestione calcolo profilo libero per Travi
 -- 2022/08/23 Aggiunta la funzione MakeByMark per la gestione del caso P13=10
+-- 2022/09/21 In MakeByMill aggiunto messaggio per elevazione non raggiunta
+
 
 -- Tabella per definizione modulo
 local ProcessFreeContour = {}
@@ -313,6 +315,7 @@ local function MakeByMill( Proc, nPhase, nRawId, nPartId, dOvmHead)
          dDepth = dDepth + BD.CUT_EXTRA
       end
    end
+   local bIsDepthReduced = false
    -- se parametro beamdata forza codolo in centro e lavorazione orizzontale e se larghezza trave è sufficientemente larga
    if BD.DIM_TO_CENTER_STRIP and BD.DIM_TO_CENTER_STRIP > 10 * GEO.EPS_SMALL and nStep > 1 and
       bCanDouble and b3Raw:getDimY() > BD.DIM_TO_CENTER_STRIP - 0.1 then
@@ -324,11 +327,21 @@ local function MakeByMill( Proc, nPhase, nRawId, nPartId, dOvmHead)
          if bCanDouble then
             nDouble = 2
             dDepth = min( 0.5 * dDepth, dMaxDepth)
+            if dDepth < 0.5 * dDepth - 10 * GEO.EPS_SMALL then
+               bIsDepthReduced = true
+            end
          else
             dDepth = dMaxDepth
+            bIsDepthReduced = true
          end
       end
    end
+   local sWarn = ''
+   -- se ho ridotto l'altezza emetto warning
+   if bIsDepthReduced then
+      sWarn = 'Warning in process ' .. tostring( Proc.Id) .. ' (Free Contour) : elevation bigger than max tool depth'
+      EgtOutLog( sWarn)
+   end
    -- se utensile orizzontale verso Y+, non in doppio e codolo da lasciare, devo invertire per lavorare sempre da Y-
    if vtExtr:getY() > 0.707 and  nDouble == 1 and bStripOnSide then
       bToolInv = true
@@ -623,7 +636,7 @@ local function MakeByMill( Proc, nPhase, nRawId, nPartId, dOvmHead)
          BL.UpdateTCING( nRawId, dOffs)
       end
    end
-   return true
+   return true, sWarn
 end
 
 ---------------------------------------------------------------------

LuaLibs/ProcessHeadCut.lua

@@ -1,8 +1,10 @@
--- ProcessSplit.lua by Egaltech s.r.l. 2022/08/18
+-- ProcessSplit.lua by Egaltech s.r.l. 2022/09/26
 -- Gestione calcolo tagli di testa per Travi
 -- 2022/05/31 Aggiunta gestione sezioni alte e larghe con taglio di tipo diceCut.
 -- 2022/06/10 Per sezioni alte e larghe aggiunta gestione finitura in base a sovramateriale e a parametro Q05 dell' eventuale lavorazione sostituita.
 -- 2022/08/18 Aggiunta gestione macchine con testa da sotto con lama da sotto disabilitata.
+-- 2022/09/08 Migliorato verso di lavorazione in caso di DoubleCut
+-- 2022/09/26 Gestione dei tagli di lama (Horiz, double, etc.) estesa anche a BigSection 
 
 -- Tabella per definizione modulo
 local ProcessHeadCut = {}
@@ -190,9 +192,9 @@ function ProcessHeadCut.Make( Proc, nPhase, nRawId, nPartId, dOvmHead, bNeedHCut
    local dDimYRef = EgtIf( b3Raw:getDimZ() < BD.MIN_DIM_HBEAM + 10 * GEO.EPS_SMALL, dMaxDepth, abs( BD.MAX_DIM_HTCUT_HBEAM))
    local bBigSectionCut = ( b3Raw:getDimY() > 2 * dDimYRef - BD.CUT_EXTRA_MIN + 10 * GEO.EPS_SMALL) and
                           ( b3Raw:getDimZ() > EgtIf( BD.TURN, 2 * dMaxVertDepth, dMaxVertDepth + dMaxDepth2) - 2 * BD.CUT_EXTRA_MIN + 10 * GEO.EPS_SMALL)
-   local bHorizCut = ( not bBigSectionCut and ( b3Raw:getDimY() > b3Raw:getDimZ() + 10 * GEO.EPS_SMALL or BD.TURN) and b3Raw:getDimZ() < dMaxVertDepth - BD.CUT_EXTRA)
+   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 bBigSectionCut and not bHorizCut and b3Raw:getDimY() > 2 * dDimYRef - BD.CUT_EXTRA_MIN + 10 * GEO.EPS_SMALL)
+   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 bBigSectionCut and not bHorizCut and not bDoubleHorizCut and b3Raw:getDimY() > dDimYRef - BD.CUT_EXTRA + 10 * GEO.EPS_SMALL)
+   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)
    -- se non obbligatorio e coincide con inizio grezzo, non va fatto
@@ -202,15 +204,16 @@ function ProcessHeadCut.Make( Proc, nPhase, nRawId, nPartId, dOvmHead, bNeedHCut
    -- determino se più tagli con offset
    local nCuts = max( ceil( dOvmHead / ( BD.MAX_LEN_SCRAP_START or BD.MAX_LEN_SCRAP)), 1)
    local dOffsL = dOvmHead / nCuts
+   local bFinishByBlade = not bBigSectionCut
    -- se taglio per sezioni alte e larghe
    if bBigSectionCut then
       if dOvmHead > 0 then
-         -- se finitura con lama
+         local nQ05 = EgtGetInfo( nOriId or GDB_ID.NULL, 'Q05', 'i') or 0
-         if not nOriId or EgtGetInfo( nOriId, 'Q05', 'i') == 1 or EgtGetInfo( nOriId, 'Q05', 'i') == 0 then
+         -- se finitura con lama rimando ai casi standard
-            local bOk, sErr = Cut.Make( Proc, nPhase, nRawId, nPartId, dOvmHead, nil, false, true, nil, nil, dCurrOvmT)
+         if nQ05 == 1 or nQ05 == 0 then
-            if not bOk then return bOk, sErr end
+            bFinishByBlade = true
          -- se finitura con truciolatore
-         elseif EgtGetInfo( nOriId, 'Q05', 'i') == 2 then
+         elseif nQ05 == 2 then
             local b3Solid = EgtGetBBoxGlob( EgtGetFirstNameInGroup( nPartId, 'Box') or GDB_ID.NULL, GDB_BB.STANDARD)
             if not b3Solid then
                local sErr = 'Error : part box not found'
@@ -227,73 +230,76 @@ function ProcessHeadCut.Make( Proc, nPhase, nRawId, nPartId, dOvmHead, bNeedHCut
             if not bOk then return bOk, sErr end
          end
       end
-   -- se tagli standard
+   end
-   elseif not bDoubleHorizCut then
+   -- tagli standard con lama
-      -- flag di lavorazione faccia
+   if bFinishByBlade then
-      local nOrthoOpposite = EgtIf( bHorizCut, MCH_MILL_FU.ORTHO_DOWN, MCH_MILL_FU.ORTHO_FRONT)
+      if not bDoubleHorizCut then
-      -- calcolo extra taglio ed accorciamento
+         -- flag di lavorazione faccia
-      local dCutExtra = 0
+         local nOrthoOpposite = EgtIf( bHorizCut, MCH_MILL_FU.ORTHO_DOWN, MCH_MILL_FU.ORTHO_FRONT)
-      local dAccStart = 0
+         -- calcolo extra taglio ed accorciamento
-      local dAccEnd = 0
+         local dCutExtra = 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
+         local dAccStart = 0
-         dCutExtra = EgtIf( bDoubleCut, - 0.5 * b3Raw:getDimY() + BD.CUT_EXTRA_MIN,  BD.CUT_EXTRA)
+         local dAccEnd = 0
-      else
+         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 = - ( b3Raw:getDimY() - dMaxDepth)
+            dCutExtra = EgtIf( bDoubleCut, - 0.5 * b3Raw:getDimY() + BD.CUT_EXTRA_MIN,  BD.CUT_EXTRA)
-         local dSawRad = dSawDiam / 2
-         local dKL = dSawRad - dMaxDepth + b3Raw:getDimY() / 2 + BD.CUT_EXTRA_MIN
-         if BD.C_SIMM then
-            dAccEnd = sqrt( dSawRad * dSawRad - dKL * dKL)
          else
-            dAccStart = sqrt( dSawRad * dSawRad - dKL * dKL)
+            dCutExtra = - ( b3Raw:getDimY() - dMaxDepth)
+            local dSawRad = dSawDiam / 2
+            local dKL = dSawRad - dMaxDepth + b3Raw:getDimY() / 2 + BD.CUT_EXTRA_MIN
+            if BD.C_SIMM then
+               dAccEnd = sqrt( dSawRad * dSawRad - dKL * dKL)
+            else
+               dAccStart = sqrt( dSawRad * dSawRad - dKL * dKL)
+            end
          end
-      end
+         -- se necessari tagli in doppio, eseguo gli opposti
-      -- se necessari tagli in doppio, eseguo gli opposti
+         if bDoubleCut then
-      if bDoubleCut then
+            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, dAccStart, dAccEnd, '', 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
-            local bOk, sErr = Fbs.MakeOne( Proc.Id, 0, sCutting, dSawDiam, MCH_MILL_FU.ORTHO_BACK, nil, dCutExtra, BD.CUT_SIC, dCutOffset, dAccStart, dAccEnd, '', b3Raw)
+            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 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)
+            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
+            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
-      -- eseguo i tagli necessari
-      for i = nCuts, 1, -1 do
-         local dCutOffset = ( i - 1) * dOffsL
-         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 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)
-         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
-         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

LuaLibs/ProcessLapJoint.lua

@@ -51,6 +51,9 @@
 -- 2022/07/12 In MakeByChainOrSaw aggiunto check per feature L20 usata in modo improprio e, nel caso, si passa a una lavorazione tasca.
 -- 2022/08/11 Aggiunta lavorazione tunnel splittata con sega a catena per tutte le macchine ad esclusione della Fast.
 -- 2022/09/01 Spostate le funzioni GetTunnelDimension, CalcCollisionSafety, SetOpenSide in BeamLib.
+-- 2022/09/15 Implementata gestione feature Planing L090, gestita come LapJoint
+--            Implementata, in caso di fresatura di lato con altezza tasca molto bassa, la contornatura con unica passata
+--            Migliorata gestione AntiSplint (Mill e Saw)
 
 -- Tabella per definizione modulo
 local ProcessLapJoint = {}
@@ -101,6 +104,7 @@ function ProcessLapJoint.Identify( Proc)
             (( Proc.Grp == 3 or Proc.Grp == 4)  and  Proc.Prc == 32) or
             (( Proc.Grp == 3 or Proc.Grp == 4)  and  Proc.Prc == 33) or
             (( Proc.Grp == 3 or Proc.Grp == 4)  and  Proc.Prc == 34) or
+            (( Proc.Grp == 3 or Proc.Grp == 4)  and  Proc.Prc == 90) or
             ( Proc.Grp == 4  and  Proc.Prc == 37) or
             ( Proc.Grp == 4  and  Proc.Prc == 39) or
             ( Proc.Grp == 4  and  Proc.Prc == 120))
@@ -158,6 +162,9 @@ local function AssignQIdent( Proc)
       Q_CONTOUR_SMALL_TOOL  = 'Q01' -- i
       Q_USE_MILL            = 'Q02' -- i
       Q_ANTISPLINT_TYPE     = 'Q06' -- i
+   elseif ( Proc.Grp == 3 or Proc.Grp == 4)  and  Proc.Prc == 90 then
+      Q_ANTISPLINT_TYPE     = 'Q03' -- i
+      Q_SIDE_ROUGH_TOOL     = 'Q04' -- i
    end
    -- le altre features gestite non hanno parametri Q
 end
@@ -2986,7 +2993,7 @@ local function MakeAntiSplintBySaw( Proc, nFacet, vtN, b3Raw, nFacInd, bReduceDe
    local bMadeASbyBld, sWarn, nIdMach = Fbs.MakeOne( Proc.Id, nFacet, sCutting, dSawDiam, vtN, nil, ( -0.5 + dExtraOffs), BD.CUT_SIC, 0, 0, 0, nil, b3Raw)
    if bMadeASbyBld then
       sWarn = nil
-      if abs(dExtraOffs) > 0 then
+      if not bReduceDepth and abs(dExtraOffs) > 0 then
          sWarn = 'Warning : antisplint elevation is bigger than max tool depth'
       end
    end
@@ -3088,8 +3095,10 @@ local function MakePocket( Proc, nPartId, ptPs, tvtN, nFaceRef, sMchFind, nUseRo
    end
    -- se elevazione superiore a massimo affondamento della fresa, riduco opportunamente
    local sWarn
+   local dDepth = dElev
    if dElev > dMaxDepth + 10 * GEO.EPS_SMALL then
-      EgtSetMachiningParam( MCH_MP.DEPTH, dMaxDepth - dElev)
+      dDepth = dMaxDepth - dElev
+      EgtSetMachiningParam( MCH_MP.DEPTH, dDepth)
       dElev = dMaxDepth
       sWarn = 'Warning : elevation bigger than max tool depth'
       EgtOutLog( sWarn)
@@ -3110,7 +3119,7 @@ local function MakePocket( Proc, nPartId, ptPs, tvtN, nFaceRef, sMchFind, nUseRo
          return false, sErr
       end
    end
-   return true, sWarn, sTuuidPk, dDiamTool
+   return true, sWarn, sTuuidPk, dDiamTool, dDepth
 end
 
 ---------------------------------------------------------------------
@@ -3314,7 +3323,7 @@ local function GetUShapeWidth( Proc, nFacInd)
 end
 
 ---------------------------------------------------------------------
-local function MakeByPockets( Proc, nPhase, nRawId, nPartId, nChamfer, dDepthCham, nAddGrpId, sMchFindMaster, bIs3Faces, b3Solid, bOrthoFacesMaster, bMillDown, bSetOpenBorders)
+local function MakeByPockets( Proc, nPhase, nRawId, nPartId, nChamfer, dDepthCham, nAddGrpId, sMchFindMaster, bIs3Faces, b3Solid, bOrthoFacesMaster, bMillDown, bSetOpenBorders, bIsU, bIsL)
 
    local nFirstMachId
    local bOrthoFaces
@@ -3322,6 +3331,8 @@ local function MakeByPockets( Proc, nPhase, nRawId, nPartId, nChamfer, dDepthCha
    local sMchFind = 'Pocket'
    local dDimMin, dDimMax, dDepth, vtOrtho, nLundIdFace, nSurfInt
    local bBadMach = false
+   -- minima altezza della tasca sotto alla quale fa una contornatura invece di una svuotatura
+   local dMinFaceElevForPocket = 20
    if sMchFindMaster and #sMchFindMaster > 0 then
       sMchFind = sMchFindMaster
    end
@@ -3377,7 +3388,31 @@ local function MakeByPockets( Proc, nPhase, nRawId, nPartId, nChamfer, dDepthCha
                EgtInvertSurf( nSurfInt)
             end
          end
-         if bMakePocket then
+         local nFacInd, dFacElev = BL.GetFaceWithMostAdj( Proc.Id, nPartId)
+         local vtN = EgtSurfTmFacetNormVersor( Proc.Id, nFacInd, GDB_ID.ROOT)
+         local bMakeContour = false
+         local sMilling
+         if dFacElev < dMinFaceElevForPocket and ( bIsU or bIsL) and ( Proc.Fct == 2 or Proc.Fct == 3) and abs( vtN:getZ()) > 0.996 then
+            bMakeContour = true
+            -- recupero la lavorazione di contornatura
+            sMilling = ML.FindMilling( 'Prof', nil, nil, nil, nil, not bMillDown, bMillDown)
+            if not sMilling then
+               local sMyWarn = 'Warning : Prof not found in library'
+               EgtOutLog( sMyWarn)
+               return true, sMyWarn
+            end
+            -- recupero i dati dell'utensile
+            dDiamTool = 50
+            dMaxDepth = 0
+            if EgtMdbSetCurrMachining( sMilling) then
+               local sTuuid = EgtMdbGetCurrMachiningParam( MCH_MP.TUUID)
+               if EgtTdbSetCurrTool( EgtTdbGetToolFromUUID( sTuuid) or '') then
+                  dDiamTool = EgtTdbGetCurrToolParam( MCH_TP.DIAM) or dMillDiam
+                  dMaxDepth = EgtTdbGetCurrToolMaxDepth() or dToolMaxDepth
+               end
+            end
+         end
+         if bMakePocket or bMakeContour then
             -- gestione svuotatura da un solo lato o anche dal lato opposto (se non verticale)
             -- estraggo il contorno dalla superfice per evitare i problemi con la svuotatura
             -- e assegno l'estrusione
@@ -3403,7 +3438,7 @@ local function MakeByPockets( Proc, nPhase, nRawId, nPartId, nChamfer, dDepthCha
             else
                -- se direzione verso la verticale setto max affondamento possibile ed
                -- emetto messaggio di warning perché non lavorabile interamente
-               if abs( vtOrtho:getZ()) >= 0.707 and not BD.DOWN_HEAD then
+               if abs( vtOrtho:getZ()) >= 0.707 and not BD.DOWN_HEAD and not bMakeContour then
                   dMachDepth = dMaxDepth - ( dDepth / 2) - dCollSic
                   dElev = dMaxDepth
                   sWarn = 'Warning : elevation bigger than max tool depth'
@@ -3438,29 +3473,49 @@ local function MakeByPockets( Proc, nPhase, nRawId, nPartId, nChamfer, dDepthCha
                local sErr = 'Impossible apply perpendicular pocketing: ' .. sPocketing
                return -2, sErr
             end
-            -- inserisco la lavorazione di svuotatura
+            local sName
-            local sName = 'Pock_' .. ( EgtGetName( Proc.Id) or tostring( Proc.Id))
+            local nMchFId
-            local nMchFId = EgtAddMachining( sName, sPocketing)
+            if bMakeContour then
-            if not nMchFId then
+               -- inserisco la lavorazione di contornatura
-               local sErr = 'Error adding machining ' .. sName .. '-' .. sPocketing
+               sName = 'Prof_' .. ( EgtGetName( Proc.Id) or tostring( Proc.Id))
-               EgtOutLog( sErr)
+               nMchFId = EgtAddMachining( sName, sMilling)
-               return -1, sErr
+               if not nMchFId then
+                  local sErr = 'Error adding machining ' .. sName .. '-' .. sMilling
+                  EgtOutLog( sErr)
+                  return -1, sErr
+               end
+            else
+               -- altrimenti inserisco la lavorazione di svuotatura
+               sName = 'Pock_' .. ( EgtGetName( Proc.Id) or tostring( Proc.Id))
+               nMchFId = EgtAddMachining( sName, sPocketing)
+               if not nMchFId then
+                  local sErr = 'Error adding machining ' .. sName .. '-' .. sPocketing
+                  EgtOutLog( sErr)
+                  return -1, sErr
+               end
             end
             -- prendo l'id della prima lavorazione inserita
             if not nFirstMachId then
                nFirstMachId = nMchFId
             end
-            -- aggiungo geometria
+            if bMakeContour then
-            EgtSetMachiningGeometry( {{ nPathInt, -1}})
+               -- aggiungo geometria per contornatura
+               EgtSetMachiningGeometry( {{ Proc.Id, nFacInd}})
+            else
+               -- altrimenti aggiungo geometria per svuotatura
+               EgtSetMachiningGeometry( {{ nPathInt, -1}})
+            end
             -- verifico se devo invertire direzione utensile (in caso di direzione verso la verticale)
             local bInvertMach
-            if vtOrtho:getZ() < BD.NZ_MINA and abs(vtOrtho:getZ()) >= 0.707 and not BD.DOWN_HEAD then
+            if not bMakeContour then
-               EgtSetMachiningParam( MCH_MP.TOOLINVERT, true)
+               if vtOrtho:getZ() < BD.NZ_MINA and abs(vtOrtho:getZ()) >= 0.707 and not BD.DOWN_HEAD then
-               bInvertMach = true
+                  EgtSetMachiningParam( MCH_MP.TOOLINVERT, true)
-            -- altrimenti se da fare in una sola volta e direzionato verso Y+ lo inverto per lavorarlo davanti
+                  bInvertMach = true
-            elseif not bDoubleSide and vtOrtho:getY() > GEO.EPS_SMALL and not ( -(vtOrtho:getZ()) < BD.NZ_MINA) then
+               -- altrimenti se da fare in una sola volta e direzionato verso Y+ lo inverto per lavorarlo davanti
-               EgtSetMachiningParam( MCH_MP.TOOLINVERT, true)
+               elseif not bDoubleSide and vtOrtho:getY() > GEO.EPS_SMALL and not ( -(vtOrtho:getZ()) < BD.NZ_MINA) then
-               bInvertMach = true
+                  EgtSetMachiningParam( MCH_MP.TOOLINVERT, true)
+                  bInvertMach = true
+               end
             end
             -- imposto posizione braccio porta testa
             local nSCC = MCH_SCC.NONE
@@ -3481,11 +3536,50 @@ local function MakeByPockets( Proc, nPhase, nRawId, nPartId, nChamfer, dDepthCha
                EgtSetMachiningParam( MCH_MP.SUBTYPE, MCH_POCK_SUB.SPIRALIN)
             end
             -- inverto il percorso di lavorazione per lavorare sinistro
-            EgtSetMachiningParam( MCH_MP.INVERT, true)
+            if not bMakeContour then
+               EgtSetMachiningParam( MCH_MP.INVERT, true)
+            end
             -- imposto affondamento
-            EgtSetMachiningParam( MCH_MP.DEPTH, dMachDepth)
+            if not bMakeContour then
+               EgtSetMachiningParam( MCH_MP.DEPTH, dMachDepth)
+            end
+            -- se contornatura doppia anticipo la fine della lavorazione a metà trave
+            if bMakeContour and bDoubleSide then
+               EgtSetMachiningParam( MCH_MP.OFFSL, dDepth / 2)
+            end
+            -- se contornatura cerco la direzione di lavoro migliore e setto attacco e allungamenti
+            if bMakeContour then
+               local nFaceUse = BL.GetNearestParalOpposite( vtOrtho)
+               EgtSetMachiningParam( MCH_MP.FACEUSE, nFaceUse)
+               -- quantità di cui allargare la contornatura per andare in tangenza con lo spigolo, nel caso di altezza tasca minore di D/2 fresa
+               local dAddWorkWidth = EgtIf( dFacElev < dDiamTool / 2, -sqrt( dFacElev * dDiamTool - dFacElev * dFacElev), -dDiamTool / 2)
+               EgtSetMachiningParam( MCH_MP.LIELEV, 0)
+               EgtSetMachiningParam( MCH_MP.LOELEV, 0)
+               if bIsU then
+                  EgtSetMachiningParam( MCH_MP.STARTADDLEN, dAddWorkWidth)
+                  EgtSetMachiningParam( MCH_MP.ENDADDLEN, dAddWorkWidth)
+                  EgtSetMachiningParam( MCH_MP.LEADINTYPE, MCH_MILL_LI.LINEAR)
+                  EgtSetMachiningParam( MCH_MP.LEADOUTTYPE, MCH_MILL_LI.LINEAR)
+                  EgtSetMachiningParam( MCH_MP.LITANG, 0)
+                  EgtSetMachiningParam( MCH_MP.LOTANG, 0)
+                  EgtSetMachiningParam( MCH_MP.LIPERP, 30)
+                  EgtSetMachiningParam( MCH_MP.LOPERP, 30)
+               elseif bIsL then
+                  EgtSetMachiningParam( MCH_MP.STARTADDLEN, 30)
+                  EgtSetMachiningParam( MCH_MP.ENDADDLEN, dAddWorkWidth)
+                  EgtSetMachiningParam( MCH_MP.LEADINTYPE, MCH_MILL_LI.TANGENT)
+                  EgtSetMachiningParam( MCH_MP.LEADOUTTYPE, MCH_MILL_LI.LINEAR)
+                  EgtSetMachiningParam( MCH_MP.LITANG, 30)
+                  EgtSetMachiningParam( MCH_MP.LOTANG, 0)
+                  EgtSetMachiningParam( MCH_MP.LIPERP, 0)
+                  EgtSetMachiningParam( MCH_MP.LOPERP, 30)
+               end
+            end
             -- imposto elevazione e dichiaro non si generano sfridi per VMill
-            local sNotes = 'MaxElev=' .. EgtNumToString( dElev, 1) .. ';'
+            local sNotes = ''
+            if not bMakeContour then
+               sNotes = 'MaxElev=' .. EgtNumToString( dElev, 1) .. ';'
+            end
             sNotes = sNotes .. 'VMRS=0;'
             EgtSetMachiningParam( MCH_MP.USERNOTES, sNotes)
             -- eseguo
@@ -3528,20 +3622,36 @@ local function MakeByPockets( Proc, nPhase, nRawId, nPartId, nChamfer, dDepthCha
                      EgtOutLog( sWarn)
                   end
                end
-               -- inserisco la lavorazione di svuotatura
+               if bMakeContour then
-               local sName = 'PockOppo_' .. ( EgtGetName( Proc.Id) or tostring( Proc.Id))
+                  -- inserisco la lavorazione di contornatura
-               local nMchFId = EgtAddMachining( sName, EgtIf( bMakePocketDn, sPocketingDn, sPocketing))
+                  sName = 'ProfOppo_' .. ( EgtGetName( Proc.Id) or tostring( Proc.Id))
-               if not nMchFId then
+                  nMchFId = EgtAddMachining( sName, sMilling)
-                  local sErr = 'Error adding machining ' .. sName .. '-' .. EgtIf( bMakePocketDn, sPocketingDn, sPocketing)
+                  if not nMchFId then
-                  EgtOutLog( sErr)
+                     local sErr = 'Error adding machining ' .. sName .. '-' .. sMilling
-                  return -1, sErr
+                     EgtOutLog( sErr)
+                     return -1, sErr
+                  end
+               else
+                  -- inserisco la lavorazione di svuotatura
+                  sName = 'PockOppo_' .. ( EgtGetName( Proc.Id) or tostring( Proc.Id))
+                  nMchFId = EgtAddMachining( sName, EgtIf( bMakePocketDn, sPocketingDn, sPocketing))
+                  if not nMchFId then
+                     local sErr = 'Error adding machining ' .. sName .. '-' .. EgtIf( bMakePocketDn, sPocketingDn, sPocketing)
+                     EgtOutLog( sErr)
+                     return -1, sErr
+                  end
                end
                -- prendo l'id della prima lavorazione inserita
                if not nFirstMachId then
                   nFirstMachId = nMchFId
                end
-               -- aggiungo geometria
+               if bMakeContour then
-               EgtSetMachiningGeometry( {{ nPathInt, -1}})
+                  -- aggiungo geometria per contornatura
+                  EgtSetMachiningGeometry( {{ Proc.Id, nFacInd}})
+               else
+                  -- altrimenti aggiungo geometria per svuotatura
+                  EgtSetMachiningGeometry( {{ nPathInt, -1}})
+               end
                -- imposto direzione utensile opposta
                EgtSetMachiningParam( MCH_MP.TOOLINVERT, true)
                -- imposto posizione braccio porta testa
@@ -3563,11 +3673,49 @@ local function MakeByPockets( Proc, nPhase, nRawId, nPartId, nChamfer, dDepthCha
                   EgtSetMachiningParam( MCH_MP.SUBTYPE, MCH_POCK_SUB.SPIRALIN)
                end
                -- inverto il percorso di lavorazione per lavorare sinistro
-               EgtSetMachiningParam( MCH_MP.INVERT, true)
+                  EgtSetMachiningParam( MCH_MP.INVERT, true)
-               -- imposo affondamento
+               -- imposto affondamento
-               EgtSetMachiningParam( MCH_MP.DEPTH, dMachDepth)
+               if not bMakeContour then
+                  EgtSetMachiningParam( MCH_MP.DEPTH, dMachDepth)
+               end
+               -- se contornatura doppia anticipo la fine della lavorazione a metà trave
+               if bMakeContour and bDoubleSide then
+                  EgtSetMachiningParam( MCH_MP.OFFSL, dDepth / 2)
+               end
+               -- se contornatura cerco la direzione di lavoro migliore
+               if bMakeContour then
+                  local nFaceUse = BL.GetNearestParalOpposite( vtOrtho)
+                  EgtSetMachiningParam( MCH_MP.FACEUSE, nFaceUse)
+                  -- quantità di cui allargare la contornatura per andare in tangenza con lo spigolo, nel caso di altezza tasca minore di D/2 fresa
+                  local dAddWorkWidth = EgtIf( dFacElev < dDiamTool / 2, -sqrt( dFacElev * dDiamTool - dFacElev * dFacElev), -dDiamTool / 2)
+                  EgtSetMachiningParam( MCH_MP.LIELEV, 0)
+                  EgtSetMachiningParam( MCH_MP.LOELEV, 0)
+                  if bIsU then
+                     EgtSetMachiningParam( MCH_MP.STARTADDLEN, dAddWorkWidth)
+                     EgtSetMachiningParam( MCH_MP.STARTADDLEN, dAddWorkWidth)
+                     EgtSetMachiningParam( MCH_MP.ENDADDLEN, dAddWorkWidth)
+                     EgtSetMachiningParam( MCH_MP.LEADINTYPE, MCH_MILL_LI.LINEAR)
+                     EgtSetMachiningParam( MCH_MP.LEADOUTTYPE, MCH_MILL_LI.LINEAR)
+                     EgtSetMachiningParam( MCH_MP.LITANG, 0)
+                     EgtSetMachiningParam( MCH_MP.LOTANG, 0)
+                     EgtSetMachiningParam( MCH_MP.LIPERP, 30)
+                     EgtSetMachiningParam( MCH_MP.LOPERP, 30)
+                  elseif bIsL then
+                     EgtSetMachiningParam( MCH_MP.STARTADDLEN, dAddWorkWidth)
+                     EgtSetMachiningParam( MCH_MP.ENDADDLEN, 30)
+                     EgtSetMachiningParam( MCH_MP.LEADINTYPE, MCH_MILL_LI.LINEAR)
+                     EgtSetMachiningParam( MCH_MP.LEADOUTTYPE, MCH_MILL_LI.TANGENT)
+                     EgtSetMachiningParam( MCH_MP.LITANG, 0)
+                     EgtSetMachiningParam( MCH_MP.LOTANG, 30)
+                     EgtSetMachiningParam( MCH_MP.LIPERP, 30)
+                     EgtSetMachiningParam( MCH_MP.LOPERP, 0)
+                  end
+               end
                -- imposto elevazione e dichiaro non si generano sfridi per VMill
-               local sNotes = 'MaxElev=' .. EgtNumToString( dElev, 1) .. ';'
+               sNotes = ''
+               if not bMakeContour then
+                  sNotes = 'MaxElev=' .. EgtNumToString( dElev, 1) .. ';'
+               end
                sNotes = sNotes .. 'VMRS=0;'
                EgtSetMachiningParam( MCH_MP.USERNOTES, sNotes)
                -- eseguo
@@ -4918,13 +5066,16 @@ local function MakeMoreFaces( Proc, nPhase, nRawId, nPartId, dOvmHead, bSinglePa
                      -- 2021.07.16 Per poter eseguire antischeggia di lama su feature che non sono passanti da faccia a faccia
                      -- ma che sono su un angolo (coinvolgono 2 facce contigue) è stato modificato il confronto in:
                      -- esegue antischeggia di lama se forma U o L con feature passante in Y o Z, oppure se feature a furma U e con 3 facce oppore a forma a L e con 2 facce
+                     -- non fa mai antischeggia di lama se la faccia è rivolta verso il basso, a meno che ci sia una testa sotto
                      local bMadeASbyBld = false
                      local bPassThrou = ( Proc.Box:getDimY() > b3Raw:getDimY() - 1 or Proc.Box:getDimZ() > b3Raw:getDimZ() - 1)
                      local bPassEdge = ((( bIsU and Proc.Fct == 3) or ( bIsL and Proc.Fct == 2)) and bSinglePart and Proc.Box:getDimX() < 0.9 * b3Raw:getDimX())
-                     if nChamfer < 2 and nQAntisplintResult == 1 and (( bIsU or bIsL) and ( bPassThrou or bPassEdge)) then
+                     local nFacIndOri = BL.GetFaceWithMostAdj( Proc.Id, nPartId)
+                     local vtNOri = EgtSurfTmFacetNormVersor( Proc.Id, nFacIndOri, GDB_ID.ROOT)
+                     if nChamfer < 2 and nQAntisplintResult == 1 and (( bIsU or bIsL) and ( bPassThrou or bPassEdge)) and ( vtNOri:getZ() > -0.087 or BD.DOWN_HEAD) then
                         local bOk
                         local bSawDown = ( bMillDown and not bMillUp)
-                        bMadeASbyBld, bOk, sWarn = ManageAntiSplintBySaw( Proc, b3Raw, bIsU, vtN, nFacInd, sWarn, bSawDown, true)
+                        bMadeASbyBld, bOk, sWarn = ManageAntiSplintBySaw( Proc, b3Raw, bIsU, vtNOri, nFacIndOri, sWarn, bSawDown, true)
                         if not bOk then return false, sWarn end
                      end
                      -- in base al flag interno e al numero di facce e se ha forma ad U
@@ -4994,7 +5145,7 @@ local function MakeMoreFaces( Proc, nPhase, nRawId, nPartId, dOvmHead, bSinglePa
                               dToolMaxDiam = min ( dFacDim1, dFacDim2, dToolTargetDiam)
                            end
                            local _, sPocketing = VerifyPocket( Proc, dToolMaxDiam, dFacElev, nil, sMyMchFind)
-                           bOk, sWarn2, sTuuidPk, dDiamTool = MakePocket( Proc, nPartId, ptPs, tvtNx, nFacInd, sMyMchFind, nUseRoughTool, sPocketing, dMachDepth, nil, nil, bAllWithEndCap)
+                           bOk, sWarn2, sTuuidPk, dDiamTool, dDepth = MakePocket( Proc, nPartId, ptPs, tvtNx, nFacInd, sMyMchFind, nUseRoughTool, sPocketing, dMachDepth, nil, nil, bAllWithEndCap)
                            if not bOk then return false, sWarn2 end
                            if sWarn2 then
                               if not sWarn then sWarn = '' end
@@ -5005,8 +5156,8 @@ local function MakeMoreFaces( Proc, nPhase, nRawId, nPartId, dOvmHead, bSinglePa
                         -- if nChamfer < 2 and nQAntisplintResult == 2 and ( bIsU or bIsL) then
                            if nChamfer < 2 and nQAntisplintResult == 2 then
                               local bOk, sWarn2 = ManageAntiSplintByMill( Proc, nPhase, nRawId, nPartId, b3Raw, 
-                                                                        nFacInd, nAddGrpId, bMillDown, dDiamTool, bDoubleSide, 
+                                                                        nFacInd, nAddGrpId, bMillDown, dDiamTool, nil, 
-                                                                        vtOrtho, nPathInt, nSurfInt, b3Solid, dDepth, 
+                                                                        nil, nil, nil, b3Solid, dDepth, 
                                                                         bOneShot, nFirstMachId)
                               if sWarn2 then
                                  if not sWarn then sWarn = '' end
@@ -5035,7 +5186,7 @@ local function MakeMoreFaces( Proc, nPhase, nRawId, nPartId, dOvmHead, bSinglePa
                               bSetOpenBorders = true
                            end
                            nOk, sErr, dDimMin, dDimMax, dDepth, vtOrtho, nLundIdFace, dDiamTool, bDoubleSide, nPathInt, nSurfInt, bOneShot, bMillDown, nFirstMachId, 
-                           bOrthoFaces = MakeByPockets( Proc, nPhase, nRawId, nPartId, nChamfer, dDepthCham, nAddGrpId, sMyMchFind, bIs3Faces, b3Solid, bOrthoFacesMaster, bMillDown, bSetOpenBorders)
+                           bOrthoFaces = MakeByPockets( Proc, nPhase, nRawId, nPartId, nChamfer, dDepthCham, nAddGrpId, sMyMchFind, bIs3Faces, b3Solid, bOrthoFacesMaster, bMillDown, bSetOpenBorders, bIsU, bIsL)
                            if nOk == -2 then
                               if not sMchFind then 
                                  sMchFind = sMchFindBackUp 
@@ -5055,10 +5206,11 @@ local function MakeMoreFaces( Proc, nPhase, nRawId, nPartId, dOvmHead, bSinglePa
                               sWarn = sErr
                               -- se ho antischeggia con fresa le inserisco
                            -- if nChamfer < 2 and nQAntisplintResult == 2 and ( bIsU or bIsL) then
+                              local nFacIndOri, dFacElevOri = BL.GetFaceWithMostAdj( Proc.Id, nPartId)
                               if nChamfer < 2 and nQAntisplintResult == 2 then
                                  local bOk, sWarn2 = ManageAntiSplintByMill( Proc, nPhase, nRawId, nPartId, b3Raw, 
-                                                                           nFacInd, nAddGrpId, bMillDown, dDiamTool, bDoubleSide, 
+                                                                           nFacIndOri, nAddGrpId, bMillDown, dDiamTool, nil, 
-                                                                           vtOrtho, nPathInt, nSurfInt, b3Solid, dDepth, 
+                                                                           nil, nil, nil, b3Solid, dFacElevOri, 
                                                                            bOneShot, nFirstMachId)
                                  if sWarn2 then
                                     if not sWarn then sWarn = '' end
@@ -5151,13 +5303,16 @@ local function MakeMoreFaces( Proc, nPhase, nRawId, nPartId, dOvmHead, bSinglePa
             -- 2021.07.16 Per poter eseguire antischeggia di lama su feature che non sono passanti da faccia a faccia
             -- ma che sono su un angolo (coinvolgono 2 facce contigue) è stato modificato il confronto in:
             -- esegue antischeggia di lama se forma U o L con feature passante in Y o Z, oppure se feature a furma U e con 3 facce oppore a forma a L e con 2 facce
+            -- non fa mai antischeggia di lama se la faccia è rivolta verso il basso, a meno che ci sia una testa sotto
             local bMadeASbyBld = false
             local bPassThrou = ( Proc.Box:getDimY() > b3Raw:getDimY() - 1 or Proc.Box:getDimZ() > b3Raw:getDimZ() - 1)
             local bPassEdge = ((( bIsU and Proc.Fct == 3) or ( bIsL and Proc.Fct == 2)) and bSinglePart and Proc.Box:getDimX() < 0.9 * b3Raw:getDimX())
-            if nChamfer < 2 and nQAntisplintResult == 1 and (( bIsU or bIsL) and ( bPassThrou or bPassEdge)) then
+            local nFacIndOri = BL.GetFaceWithMostAdj( Proc.Id, nPartId)
+            local vtNOri = EgtSurfTmFacetNormVersor( Proc.Id, nFacIndOri, GDB_ID.ROOT)
+            if nChamfer < 2 and nQAntisplintResult == 1 and (( bIsU or bIsL) and ( bPassThrou or bPassEdge)) and ( vtNOri:getZ() > -0.087 or BD.DOWN_HEAD) then
                local bOk
                local bSawDown = ( bMillDown and not bMillUp)
-               bMadeASbyBld, bOk, sWarn = ManageAntiSplintBySaw( Proc, b3Raw, bIsU, vtN, nFacInd, sWarn, bSawDown)
+               bMadeASbyBld, bOk, sWarn = ManageAntiSplintBySaw( Proc, b3Raw, bIsU, vtNOri, nFacIndOri, sWarn, bSawDown)
                if not bOk then return false, sWarn end
             end
             if nChamfer < 2 and nQAntisplintResult == 2 then
@@ -5396,7 +5551,7 @@ function ProcessLapJoint.Make( Proc, nPhase, nRawId, nPartId, dOvmHead)
    -- in base al tipo di feature attribuisco il significato dei parametri Q
    AssignQIdent( Proc)
    -- se non forzate frese, uso la lama
-   local bUseBlade = EgtGetInfo( Proc.Id, Q_USE_ROUGH_TOOL, 'i') ~= 1 and EgtGetInfo( Proc.Id, Q_USE_MILL, 'i') ~= 1
+   local bUseBlade = EgtIf( Proc.Prc == 90, false, EgtGetInfo( Proc.Id, Q_USE_ROUGH_TOOL, 'i') ~= 1 and EgtGetInfo( Proc.Id, Q_USE_MILL, 'i') ~= 1)
    local nForceUseBladeOnNotContinueFace
    -- se ho attivo la lama e ho la feature 30, verifico i parametri Q propri della feature
    if bUseBlade then
@@ -5523,6 +5678,9 @@ function ProcessLapJoint.Make( Proc, nPhase, nRawId, nPartId, dOvmHead)
          -- se piccola, con fresa
          if not bUseBlade and ( Proc.Box:getDimX() < MAX_MILL_LIN and ( Proc.Box:getDimZ() < MAX_MILL_LIN or Proc.Box:getDimY() < MAX_MILL_LIN)) then
             return MakeOneFaceByMill( Proc, nPhase, nRawId, nPartId)
+         -- se è una spianatura a una faccia richiamo la LongCut
+         elseif Proc.Prc == 90 then
+            return LongCut.Make( Proc, nPhase, nRawId, nPartId)
          -- altrimenti, con lama
          else
             return Cut.Make( Proc, nPhase, nRawId, nPartId, dOvmHead)

LuaLibs/ProcessLongCut.lua

@@ -11,6 +11,7 @@
 -- 2021/11/08 Se con lama e flag BD.USE_LONGCUT si lavora in direzione contraria allo standard.
 -- 2022/03/07 Razionalizzata gestione casi con fresa di fianco. Aggiunta gestione Long2Cut anche con testa sotto.
 -- 2022/07/14 Aggiunta limitazione lavorazione a sinistra anche se il grezzo successivo non ha lavorazioni (finale barra) ma è abbastanza lungo da poter essere riutilizzato (BD.MinRaw).
+-- 2022/09/23 Modificato l'angolo per l'abilitazione della lama da sotto: ora interviene anche per facce verticali.
 
 -- Tabella per definizione modulo
 local ProcessLongCut = {}
@@ -436,8 +437,8 @@ function ProcessLongCut.Make( Proc, nPhase, nRawId, nPartId, bCustUseBlade, nCus
       if ( nSide == -1 or abs(nSide) == 2) and vtN:getZ() <= -0.5 then
          bCanUseUnderBlade = true
       end
-      -- se faccia da sotto o di lato ma con versore Z negativo abilito la lavorazione con lame mixate 
+      -- se faccia da sotto o di lato ma con versore Z sotto l'orizzontale abilito la lavorazione con lame mixate 
-      if ( nSide == -1 or abs(nSide) == 2) and vtN:getZ() <= -0.0175 then
+      if ( nSide == -1 or abs(nSide) == 2) and vtN:getZ() <= 0.0175 then
          bCanUseUnderBlade = true
       end
       -- se faccia da sopra o di lato ma con versore Z negativo verifico che abbia un angolo compatibile (28deg) per non avere extracorsa

LuaLibs/ProcessSplit.lua

@@ -3,6 +3,8 @@
 -- 2022/05/31 Aggiunta gestione sezioni alte e larghe con taglio con sega a catena seguito da rifinitura con lama (aggiunta funzione MakeSplitByChainSaw); gestione eventuale creazione nuova fase dall'interno della Make.
 -- 2022/06/10 Per sezioni alte e larghe aggiunta gestione finitura in base a sovramateriale e a parametro Q05 dell' eventuale lavorazione sostituita.
 -- 2022/08/18 Aggiunta gestione macchine con testa da sotto con lama da sotto disabilitata.
+-- 2022/09/08 Migliorato verso di lavorazione in caso di DoubleCut
+-- 2022/09/26 Gestione dei tagli di lama (Horiz, double, etc.) estesa anche a BigSection 
 
 -- Tabella per definizione modulo
 local ProcessSplit = {}
@@ -278,9 +280,9 @@ function ProcessSplit.Make( Proc, nPhase, nRawId, nPartId, nOrd, sDownOrSideOrSt
    local dDimYRef = EgtIf( b3Raw:getDimZ() < BD.MIN_DIM_HBEAM + 10 * GEO.EPS_SMALL, dMaxDepth, abs( BD.MAX_DIM_HTCUT_HBEAM))
    local bBigSectionCut = ( b3Raw:getDimY() > 2 * dDimYRef - BD.CUT_EXTRA_MIN + 10 * GEO.EPS_SMALL) and
                           ( b3Raw:getDimZ() > EgtIf( BD.TURN, 2 * dMaxVertDepth,  dMaxVertDepth + dMaxDepth2) - 2 * BD.CUT_EXTRA_MIN + 10 * GEO.EPS_SMALL)
-   local bHorizCut = ( not bBigSectionCut and ( b3Raw:getDimY() > b3Raw:getDimZ() + 10 * GEO.EPS_SMALL or BD.TURN) and ( b3Raw:getDimZ() < dMaxVertDepth - BD.CUT_EXTRA))
+   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 bBigSectionCut and not bHorizCut and b3Raw:getDimY() > 2 * dDimYRef - BD.CUT_EXTRA_MIN + 10 * GEO.EPS_SMALL)
+   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 bBigSectionCut and not bHorizCut and not bDoubleHorizCut and b3Raw:getDimY() > dDimYRef - BD.CUT_EXTRA  + 10 * GEO.EPS_SMALL)
+   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
@@ -304,6 +306,7 @@ function ProcessSplit.Make( Proc, nPhase, nRawId, nPartId, nOrd, sDownOrSideOrSt
    end
    -- se taglio per pezzi alti e larghi
    local nNewPhase = 0
+   local bFinishByBlade = not bBigSectionCut
    if bBigSectionCut then
       local bFinishingNeeded = false
       if bSplit then
@@ -380,12 +383,12 @@ function ProcessSplit.Make( Proc, nPhase, nRawId, nPartId, nOrd, sDownOrSideOrSt
             sNotes = 'Precut;'
             sNotesFinal = 'Cut;'
          end
-         -- se finitura con lama
+         local nQ05 = EgtGetInfo( nOriId or GDB_ID.NULL, 'Q05', 'i') or 0
-         if not nOriId or EgtGetInfo( nOriId, 'Q05', 'i') == 1 or EgtGetInfo( nOriId, 'Q05', 'i') == 0 or not bSplit then
+         -- se finitura con lama rimando ai casi standard
-            local bOk, sErr = Cut.Make( Proc, nNewPhase, nRawId, nPartId, dLenEndRaw, nil, false, true, b3Raw, sNotes, dCurrOvmT)
+         if nQ05 == 1 or nQ05 == 0 or not bSplit then
-            if not bOk then return bOk, sErr, nNewPhase end
+            bFinishByBlade = true
          -- se finitura con truciolatore
-         elseif EgtGetInfo( nOriId, 'Q05', 'i') == 2 then
+         elseif nQ05 == 2 then
             local b3Solid = EgtGetBBoxGlob( EgtGetFirstNameInGroup( nPartId, 'Box') or GDB_ID.NULL, GDB_BB.STANDARD)
             if not b3Solid then
                local sErr = 'Error : part box not found'
@@ -405,86 +408,89 @@ function ProcessSplit.Make( Proc, nPhase, nRawId, nPartId, nOrd, sDownOrSideOrSt
             EgtSetMachiningParam( MCH_MP.USERNOTES, sNotesFinal)
          end
       end
-   -- se tagli standard
+   end
-   elseif not bDoubleHorizCut then
+   -- tagli standard con lama
-      -- calcolo extra taglio ed accorciamento
+   if bFinishByBlade then
-      local dCutExtra = 0
+      if not bDoubleHorizCut then
-      local dAccStart = 0
+         -- calcolo extra taglio ed accorciamento
-      local dAccEnd = 0
+         local dCutExtra = 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
+         local dAccStart = 0
-         dCutExtra = EgtIf( bDoubleCut, - 0.5 * b3Raw:getDimY() + BD.CUT_EXTRA_MIN, BD.CUT_EXTRA)
+         local dAccEnd = 0
-      else
+         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 = - ( b3Raw:getDimY() - dMaxDepth)
+            dCutExtra = EgtIf( bDoubleCut, - 0.5 * b3Raw:getDimY() + BD.CUT_EXTRA_MIN, BD.CUT_EXTRA)
-         local dSawRad = dSawDiam / 2
-         local dKL = dSawRad - dMaxDepth + b3Raw:getDimY() / 2 + BD.CUT_EXTRA_MIN
-         if BD.C_SIMM then
-            dAccEnd = sqrt( dSawRad * dSawRad - dKL * dKL)
          else
-            dAccStart = sqrt( dSawRad * dSawRad - dKL * dKL)
+            dCutExtra = - ( b3Raw:getDimY() - dMaxDepth)
+            local dSawRad = dSawDiam / 2
+            local dKL = dSawRad - dMaxDepth + b3Raw:getDimY() / 2 + BD.CUT_EXTRA_MIN
+            if BD.C_SIMM then
+               dAccEnd = sqrt( dSawRad * dSawRad - dKL * dKL)
+            else
+               dAccStart = sqrt( dSawRad * dSawRad - dKL * dKL)
+            end
          end
-      end
+         -- se necessari tagli in doppio, eseguo gli opposti
-      -- se necessari tagli in doppio, eseguo gli opposti
+         if bDoubleCut then
-      if bDoubleCut then
+            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, dAccStart, dAccEnd, 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
+            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, 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 + dMaxDepth2 - dDimZ
+         if dExtra - 2 * BD.CUT_EXTRA_MIN + 10 * GEO.EPS_SMALL < 0 then
+            local sErr = 'Error : section too big for tail 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
+         -- 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, sCutting, dSawDiam, MCH_MILL_FU.ORTHO_FRONT, nil, dCutExtra, BD.CUT_SIC, dCutOffset, dAccStart, dAccEnd, sNotes, b3Raw)
+            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)
             if not bOk then return false, sErr end
          end
-      end
+         -- eseguo i tagli da sopra necessari
-      -- eseguo i tagli necessari
+         for i = nCuts, 1, -1 do
-      for i = nCuts, 1, -1 do
+            local dCutOffset = ( i - 1) * dOffsL
-         local dCutOffset = ( i - 1) * dOffsL
+            local sNotes
-         local sNotes
+            if bSplit then
-         if bSplit then
+               sNotes = EgtIf( i == 1, 'Split;', 'Presplit;')
-            sNotes = EgtIf( i == 1, 'Split;', 'Presplit;')
+            else
-         else
+               sNotes = EgtIf( i == 1, 'Cut;', 'Precut;')
-            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
-         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 + dMaxDepth2 - dDimZ
-      if dExtra - 2 * BD.CUT_EXTRA_MIN + 10 * GEO.EPS_SMALL < 0 then
-         local sErr = 'Error : section too big for tail 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
-      -- 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)
-         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
-         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

LuaLibs/ProcessTenon.lua

@@ -4,6 +4,7 @@
 -- 2022/02/15 Aggiornata VerifyOrientation per macchine con testa da sotto.
 -- 2022/05/18 Migliorata gestione attacco.
 -- 2022/05/28 Spostato calcolo svuotatura in modulo di libreria.
+-- 2022/09/20 Migliorato il calcolo delle passate laterali; ora considera la reale distanza tra contorno del tenone e estremi della faccia
 
 -- Tabella per definizione modulo
 local ProcessTenon = {}
@@ -120,11 +121,32 @@ function ProcessTenon.Make( Proc, nPhase, nRawId, nPartId, dOvmHead)
    local vtN = vtExtr
    local ptC = ptBC + vtN * dTenH
    EgtOutLog( 'ptC=' .. tostring( ptC) ..' vtN=' .. tostring( vtN), 3)
-   -- determino larghezza massima di svuotatura
+   -- determino larghezza svuotatura per calcolare il numero di passate laterali
-   local b3Aux = EgtGetBBoxRef( AuxId, GDB_BB.STANDARD, frTen)
+   -- ricavo i contorni della faccia principale
-   local dPockX = max( b3Ten:getMax():getX() - b3Aux:getMax():getX(), b3Aux:getMin():getX() - b3Ten:getMin():getX())
+   local nLoopId, nLoopCnt = EgtExtractSurfTmFacetLoops( Proc.Id, 0, EgtGetParent( Proc.Id))
-   local dPockY = max( b3Ten:getMax():getY() - b3Aux:getMax():getY(), b3Aux:getMin():getY() - b3Ten:getMin():getY())
+   local dPockL = 0
-   local dPockL = sqrt( dPockX * dPockX + dPockY * dPockY)
+   -- ricavo la massima distanza tra gli estremi della faccia e la curva del tenone
+   if nLoopId then
+      local dUmin, dUmax = EgtCurveDomain( nLoopId)
+      for dU = dUmin, dUmax do
+         local ptP = EgtUP( nLoopId, dU, GDB_ID.ROOT)
+         local ptNear = EgtNP( AuxId, ptP, GDB_ID.ROOT)
+         local dDist = dist( ptP, ptNear)
+         if dDist > dPockL then
+            dPockL = dDist
+         end
+      end
+      -- cancello i contorni dopo averli analizzati
+      for i = 1, nLoopCnt do
+         EgtErase( nLoopId + i - 1)
+      end
+   else
+      -- se il metodo sopra non funziona uso il metodo semplice (distanza tra gli angoli retti della curva tenone e faccia principale)
+      local b3Aux = EgtGetBBoxRef( AuxId, GDB_BB.STANDARD, frTen)
+      local dPockX = max( b3Ten:getMax():getX() - b3Aux:getMax():getX(), b3Aux:getMin():getX() - b3Ten:getMin():getX())
+      local dPockY = max( b3Ten:getMax():getY() - b3Aux:getMax():getY(), b3Aux:getMin():getY() - b3Ten:getMin():getY())
+      dPockL = sqrt( dPockX * dPockX + dPockY * dPockY)
+   end
    -- abilitazione lavorazione da sotto
    local bMillUp = ( BD.DOWN_HEAD and vtExtr:getZ() > -0.259)
    local bMillDown = ( BD.DOWN_HEAD and vtExtr:getZ() < 0.1)