Merge tag '3.1e1' into develop

3.1e1

LuaLibs/BeamExec.lua

@@ -443,7 +443,7 @@ local function CalcHeadTailMachBeforeIntersDrillings( vProc, b3Raw)
    for i = 1, #vProc do
       local Proc = vProc[i]
       if Proc.Box and not Proc.Box:isEmpty() then
-         if Proc.Fct == 1 and BL.IsFeatureCuttingEntireSection( Proc.Box, b3Raw:getDimY(), b3Raw:getDimZ()) and ( Proc.Head or Proc.Tail) and Proc.Prc ~= 340 and Proc.Prc ~= 350 then
+         if Proc.Fct == 1 and BL.IsFeatureCuttingEntireSection( Proc.Box, b3Raw:getDimY(), b3Raw:getDimZ()) and ( Proc.Head or Proc.Tail) and Proc.Prc ~= 350 then
             if Proc.Head and Proc.Box:getCenter():getX() < dHeadX then
                dHeadX = Proc.Box:getCenter():getX()
                nHeadId = Proc.Id
@@ -1991,6 +1991,9 @@ local function VerifyDrillMirrored( Proc, vProc, b3Raw)
    end
    local dToolDoubleDiam = EgtTdbGetCurrToolParam( MCH_TP.DIAM, 'd')
    local dToolDoubleMaxDepth = EgtTdbGetCurrToolParam( MCH_TP.MAXMAT)
+   if ( sType == 'Pocket_AT' or sType == 'Pocket') then
+      dToolDoubleMaxDepth = EgtTdbGetCurrToolMaxDepth()
+   end
    dMachiningDepth = min( dMachiningDepth, dToolDoubleMaxDepth)
    -- recupero la lunghezza della parte inclinata della punta
    local dToolDoubleTipLength = EgtTdbGetCurrToolParam( MCH_TP.TOTLEN) - EgtTdbGetCurrToolParam( MCH_TP.LEN)
@@ -2211,14 +2214,14 @@ function GetFeatureInfoAndDependency( vProc, b3Raw, nPartId)
                   Proc.PassedByHole = true
                end
                -- se taglio attraversato da foro, si definisce precedenza in base ad angolo
-               if Drill.Identify( Proc) and Cut.Identify( ProcB) and Overlaps( Proc.Box, ProcB.Box) then
+               if Drill.Identify( Proc) and ( Cut.Identify( ProcB) or ProcB.Prc == 340 or ProcB.Proc == 350) and Overlaps( Proc.Box, ProcB.Box) then
                   -- recupero e verifico l'entità foro
                   local DrillAuxId = ( EgtGetInfo( Proc.Id, 'AUXID', 'i') or 0) + Proc.Id
                   local vtDrillExtr = EgtCurveExtrusion( DrillAuxId, GDB_RT.GLOB)
                   local bOpen = ( Proc.Fce ~= 0) and ( Proc.Fce ~= Proc.Fcs)
                   local ptCut, vtCutN = EgtSurfTmFacetCenter( ProcB.Id, 0, GDB_ID.ROOT)
                   local dMaxAngleDrillOnCut = BD.MAX_ANGLE_DRILL_CUT or 10
-                  if GetAngle( vtDrillExtr, vtCutN) > dMaxAngleDrillOnCut then
+                  if ( GetAngle( vtDrillExtr, vtCutN) > dMaxAngleDrillOnCut) and not ( ProcB.Prc == 340 or ProcB.Proc == 350) then
                      if bOpen and GetAngle( -vtDrillExtr, vtCutN) < dMaxAngleDrillOnCut then
                         ProcB.Dependency = {}
                         ProcB.Dependency.ExecBefore = Proc

LuaLibs/BeamLib.lua

@@ -883,6 +883,25 @@ function BeamLib.GetBlockedAxis( sMachining, sBlockedAxis, b3Raw, vtTool, vtOut)
    return ''
 end
 
+---------------------------------------------------------------------
+function BeamLib.GetAuxDir( sMachining, sBlockedAxis, b3Raw, vtTool, vtOut)
+   -- informazioni sull'utensile della lavorazione
+   local nToolType, sHead
+   if EgtMdbSetCurrMachining( sMachining) then
+      local sTuuid = EgtMdbGetCurrMachiningParam( MCH_MP.TUUID)
+      if EgtTdbSetCurrTool( EgtTdbGetToolFromUUID( sTuuid) or '') then
+         nToolType = EgtTdbGetCurrToolParam( MCH_TP.TYPE)
+         sHead = EgtTdbGetCurrToolParam( MCH_TP.HEAD)
+      end
+   end
+   -- se presente funzione specifica nella macchina, la richiamo
+   if BD.GetAuxDir then
+      return BD.GetAuxDir( sHead, nToolType, sBlockedAxis, b3Raw, vtTool, vtOut)
+   end
+   -- niente
+   return nil
+end
+
 ---------------------------------------------------------------------
 -- Trova l'Ind (0 based) della faccia meglio orientata come l'asse vtAx. Restituisce anche vtN e ptC della faccia stessa. La faccia di indice (0 based) fctExclude non viene considerata nella ricerca.
 function BeamLib.FindFaceBestOrientedAsAxis( Proc, vtAx, fctExclude)
@@ -1158,6 +1177,31 @@ function BeamLib.Is3EdgesApprox( Proc, nFacet, nAddGrpId)
    return bResult
 end
 
+-------------------------------------------------------------------------------------------------------------
+function BeamLib.IsPointOnBoxLimits( ptPoint, b3Solid)
+    local dTol = 500 * GEO.EPS_SMALL
+
+    local dMinX = b3Solid:getMin():getX()
+    local dMinY = b3Solid:getMin():getY()
+    local dMinZ = b3Solid:getMin():getZ()
+
+    local dMaxX = b3Solid:getMax():getX()
+    local dMaxY = b3Solid:getMax():getY()
+    local dMaxZ = b3Solid:getMax():getZ()
+
+    -- Check di ogni piano limite
+    if abs( ptPoint:getX() - dMinX) < dTol then return true, "Left" end
+    if abs( ptPoint:getX() - dMaxX) < dTol then return true, "Right" end
+ 
+    if abs( ptPoint:getY() - dMinY) < dTol then return true, "Front" end
+    if abs( ptPoint:getY() - dMaxY) < dTol then return true, "Back" end
+ 
+    if abs( ptPoint:getZ() - dMinZ) < dTol then return true, "Bottom" end
+    if abs( ptPoint:getZ() - dMaxZ) < dTol then return true, "Top" end
+
+    return false
+end
+
 -------------------------------------------------------------------------------------------------------------
 -- restituisce le facce della parte interessate dalla feature Proc
 function BeamLib.GetProcessAffectedFaces( Proc)

LuaLibs/FacesBySaw.lua

@@ -170,6 +170,12 @@ function MakeParallelOne( nSurfId, nFacet, sCutting, dSawDiam, nFaceUse, dVzLimD
    end
    local vtOut = EgtIf( vtN:getX() > 0, X_AX(), -X_AX())
    EgtSetMachiningParam( MCH_MP.BLOCKEDAXIS, BL.GetBlockedAxis( sCutting, 'perpendicular', b3Raw, vtTool, vtOut))
+   local sAuxDir, sInitAngs = BL.GetAuxDir( sCutting, 'perpendicular', b3Raw, vtTool, vtOut)
+   if sAuxDir then
+      sNotes = EgtSetValInNotes( sNotes, 'VtAuxDir', sAuxDir)
+      EgtSetMachiningParam( MCH_MP.INITANGS, sInitAngs)
+      EgtSetMachiningParam( MCH_MP.SCC, MCH_SCC.STD)
+   end
    -- eventuali note
    if ( sLeadInOutType == 'PerpendicularOutraw') then
       sNotes = EgtSetValInNotes( sNotes, 'OutRaw', 3)
@@ -231,7 +237,7 @@ local function GetEdgeToMachineFromVector( nSurfId, nFacet, vtOrthO)
 end
 
 ---------------------------------------------------------------------
-function FacesBySaw.MakeOne( nSurfId, nFacet, sCutting, dSawDiam, Par5, dVzLimDwnUp, dCutExtra, dCutSic, dCutOffset, dAccStart, dAccEnd, sNotes, b3Raw, bForceInvert, bMaximizeVerticalDepth, bSpecialTangentLeadInOut, sLeadInOutType, Par5Alternative, dActualElevation)
+function FacesBySaw.MakeOne( nSurfId, nFacet, sCutting, dSawDiam, Par5, dVzLimDwnUp, dCutExtra, dCutSic, dCutOffset, dAccStart, dAccEnd, sNotes, b3Raw, bForceInvert, bMaximizeVerticalDepth, bSpecialTangentLeadInOut, sLeadInOutType, Par5Alternative, dActualElevation, bForceClimbCut)
    -- se lama con asse parallelo alla faccia, passo alla apposita funzione
    if ( Par5 == MCH_MILL_FU.PARAL_DOWN or
         Par5 == MCH_MILL_FU.PARAL_TOP or
@@ -298,7 +304,7 @@ function FacesBySaw.MakeOne( nSurfId, nFacet, sCutting, dSawDiam, Par5, dVzLimDw
       if not BD.TURN or abs( ptP2:getY() - ptP1:getY()) < 250 then
          local bIsMachiningDownwards = ( ptP2:getZ() < ptP1:getZ() - 100 * GEO.EPS_SMALL)
          local bIsMachiningUpwards = ( ptP2:getZ() > ptP1:getZ() + 100 * GEO.EPS_SMALL)
-         if ( bIsSawCCW ~= bDownUp) and ( bIsMachiningDownwards or not ( bIsMachiningDownwards or bIsMachiningUpwards)) then
+         if ( bIsSawCCW ~= bDownUp) and ( bIsMachiningDownwards or not ( bIsMachiningDownwards or bIsMachiningUpwards) or bForceClimbCut) then
             bInvert = true
          elseif ( ( bIsSawCCW ~= bDownUp) ~= bIsMachiningDownwards) then
             if Par5Alternative then
@@ -631,6 +637,12 @@ function FacesBySaw.MakeOne( nSurfId, nFacet, sCutting, dSawDiam, Par5, dVzLimDw
    -- imposto angolo 3° asse rot
    local sBlockedAxis = EgtIf( bMaximizeVerticalDepth, 'parallel', 'perpendicular')
    EgtSetMachiningParam( MCH_MP.BLOCKEDAXIS, BL.GetBlockedAxis( sCutting, sBlockedAxis, b3Raw, vtN, vtOrthO))
+   local sAuxDir, sInitAngs = BL.GetAuxDir( sCutting, sBlockedAxis, b3Raw, vtN, vtOrthO)
+   if sAuxDir then
+      sNotes = EgtSetValInNotes( sNotes, 'VtAuxDir', sAuxDir)
+      EgtSetMachiningParam( MCH_MP.INITANGS, sInitAngs)
+      EgtSetMachiningParam( MCH_MP.SCC, MCH_SCC.STD)
+   end
    -- eventuali note
    if ( sLeadInOutType == 'PerpendicularOutraw') then
       sNotes = EgtSetValInNotes( sNotes, 'OutRaw', 3)

LuaLibs/ProcessDrill.lua

@@ -541,11 +541,13 @@ function ProcessDrill.Make( Proc, nPhase, nRawId, nPartId, dCurrOvmH)
    if not bToInvert and Proc.Flg == 1 and bOpen and abs( vtExtr:getZ()) < 0.259 and abs( vtExtr:getY()) > 0.966 then
       local Tool = BL.GetToolFromMachining( sDrilling)
       -- lato testa e lato di lavoro devono corrispondere
-      if ( ( Tool.PreferredSide.bFront == true) and vtExtr:getY() > 10 * GEO.EPS_SMALL)
-         or ( ( Tool.PreferredSide.bBack == true) and vtExtr:getY() < - 10 * GEO.EPS_SMALL) then
-         ptCen = ptCen - vtExtr * dLen
-         vtExtr = - vtExtr
-         bToInvert = true
+      if Tool.PreferredSide then
+         if ( ( Tool.PreferredSide.bFront == true) and vtExtr:getY() > 10 * GEO.EPS_SMALL)
+            or ( ( Tool.PreferredSide.bBack == true) and vtExtr:getY() < - 10 * GEO.EPS_SMALL) then
+            ptCen = ptCen - vtExtr * dLen
+            vtExtr = - vtExtr
+            bToInvert = true
+         end
       end
    end
    -- Determino la faccia di inizio del foro e dati correlati 
@@ -611,6 +613,7 @@ function ProcessDrill.Make( Proc, nPhase, nRawId, nPartId, dCurrOvmH)
          end
       end
    end
+   local dDepthOri = dDepth
    -- se foro da saltare per eccessiva inclinazione
    if not bTryDrill then
       sMyWarn = 'Warning in drill : too slant hole'
@@ -652,6 +655,9 @@ function ProcessDrill.Make( Proc, nPhase, nRawId, nPartId, dCurrOvmH)
             local dReduceDepth = MIRROR_POCKETS_MIN_DISTANCE / 2 + 10
             dLastStepDepth = dDepth + dReduceDepth
             dDepth = dDepth - dReduceDepth
+            if ( dLastStepDepth > dMaxDepth + 10 * GEO.EPS_SMALL) and ( dMaxDepth <= ( dLen / 2) - dReduceDepth) and ( dDepthOri ~= dDepth) then
+               dDepth = dMaxDepth
+            end
          end
       else
          sUserNotes = EgtSetValInNotes( sUserNotes, 'LastStep', MIRROR_DRILLINGS_MIN_DISTANCE / 2 + 15)
@@ -716,12 +722,12 @@ function ProcessDrill.Make( Proc, nPhase, nRawId, nPartId, dCurrOvmH)
       else
          -- se DrillPocket passante in doppio si fa lavorazione aggiuntiva dell'ultimo step
          if Proc.Double and Proc.Double > 0 and ( sType == 'Pocket_AT' or sType == 'Pocket') and bOpen then
+            if dLastStepDepth > dMaxDepth + 10 * GEO.EPS_SMALL then
+               sMyWarn = 'Warning in drill pocket last step: depth (' .. EgtNumToString( dLastStepDepth, 1) .. ') bigger than max tool depth (' .. EgtNumToString( dMaxDepth, 1) .. ')'
+               return false, sMyWarn
+            end
             local idMachiningLastStep = EgtCopyMachining( EgtIf( EgtStartsWith( sType, 'Predrill'), 'Predrill_', 'Drill_') .. ( EgtGetName( Proc.Id) or tostring( Proc.Id)), sName)
             EgtSetCurrMachining( idMachiningLastStep)
-            if dLastStepDepth  > dMaxDepth + 10 * GEO.EPS_SMALL then
-               sMyWarn = 'Warning in drill pocket last step: depth (' .. EgtNumToString( dLastStepDepth, 1) .. ') bigger than max tool depth (' .. EgtNumToString( dMaxDepth, 1) .. ')'
-               dLastStepDepth = dMaxDepth
-            end
             local dMaxElevLastStep = dLastStepDepth - dDepth
             sUserNotes = EgtSetValInNotes( sUserNotes, 'MaxElev', EgtNumToString( dMaxElevLastStep, 1))
             EgtSetMachiningParam( MCH_MP.DEPTH, dLastStepDepth)

LuaLibs/ProcessDtMortise.lua

@@ -136,9 +136,11 @@ local function CalcPathAtHeight( nProcId, AuxId, nAddGrpId, dHeight, dSideAng, b
    local vtBoxDiag = b3Solid:getMax() - b3Solid:getMin()
    local nCount
    NewAuxId, nCount = EgtTrimFlatCurveWithBox( NewAuxId, refBox, vtBoxDiag, true, true, GDB_RT.GLOB)
-   -- eseguo traslazione e offset per portarla sul top
+   -- per ogni curva creata, eseguo traslazione e offset per portarla sul top
    local vtMove = EgtCurveExtrusion( AuxId, GDB_RT.GLOB) * ( dHeight - 10 * GEO.EPS_SMALL)
-   EgtMove( NewAuxId, vtMove, GDB_RT.GLOB)
+   for i = 1, nCount do
+      EgtMove( NewAuxId + i - 1, vtMove, GDB_RT.GLOB)
+   end
    -- se divisa in più parti, le unisco congiungendole con segmenti
    if nCount > 1 then
       if EgtGetType( NewAuxId) ~= GDB_TY.CRV_COMPO then
@@ -147,7 +149,7 @@ local function CalcPathAtHeight( nProcId, AuxId, nAddGrpId, dHeight, dSideAng, b
       for i = 2, nCount do
          local CrvId = NewAuxId + i - 1
          local ptStart = EgtSP( CrvId)
-         EgtAddCurveCompoLine( NewAuxId, ptStart) 
+         EgtAddCurveCompoLine( NewAuxId, ptStart)
          EgtAddCurveCompoCurve( NewAuxId, CrvId)
       end
    end
@@ -227,9 +229,10 @@ function ProcessDtMortise.Make( Proc, nPhase, nRawId, nPartId, dCurrOvmH)
    end
    local b3DtMrt = EgtGetBBoxRef( Proc.Id, GDB_BB.STANDARD, rfDtMrt)
    local dAltMort = b3DtMrt:getDimZ()
-   -- verifico se di tipo pocket
+   -- verifico se di tipo pocket o se antischeggia disabilitato
    local bPocket = ( EgtGetInfo( Proc.Id, 'P05', 'i') == 1)
-   if bPocket then bMakeAntiSplitPath = false end
+   local bDisableAntiSplint = ( EgtGetInfo( Proc.Id, 'Q01', 'i') or 0) == 1
+   if bPocket or bDisableAntiSplint then bMakeAntiSplitPath = false end
    -- verifico se frontale
    local bFront = ( Proc.Prc == 56)
    -- se mortasa di fronte, eseguo il taglio della faccia

LuaLibs/ProcessLapJoint.lua

@@ -1066,6 +1066,12 @@ local function MakeOneFaceByMill( Proc, nPhase, nRawId, nPartId)
       local _, sErr = EgtGetLastMachMgrError()
       EgtSetOperationMode( nMchFId, false)
       return false, sErr
+      else
+         local _, sWarn = EgtGetMachMgrWarning( 0)
+         if EgtIsMachiningEmpty() then
+            EgtSetOperationMode( nMchFId, false)
+            return false, sWarn
+         end
    end
    -- eventuale segnalazione ingombro di testa o coda
    UpdateEncumbrance( Proc, nRawId, b3Raw, b3Solid)
@@ -1203,6 +1209,12 @@ local function MakeTwoFacesByMill( Proc, nPhase, nRawId, nPartId, bDownHead)
             local _, sErr = EgtGetLastMachMgrError()
             EgtSetOperationMode( nMchFId, false)
             return false, sErr
+         else
+            local _, sWarn = EgtGetMachMgrWarning( 0)
+            if EgtIsMachiningEmpty() then
+               EgtSetOperationMode( nMchFId, false)
+               return false, sWarn
+            end
          end
       end
    end
@@ -1238,6 +1250,12 @@ local function MakeTwoFacesByMill( Proc, nPhase, nRawId, nPartId, bDownHead)
       local _, sErr = EgtGetLastMachMgrError()
       EgtSetOperationMode( nMchFId, false)
       return false, sErr
+   else
+      local _, sWarn = EgtGetMachMgrWarning( 0)
+      if EgtIsMachiningEmpty() then
+         EgtSetOperationMode( nMchFId, false)
+         return false, sWarn
+      end
    end
    -- eventuale segnalazione ingombro di testa o coda
    UpdateEncumbrance( Proc, nRawId, b3Raw, b3Solid)
@@ -1407,6 +1425,12 @@ local function MakeByMill( Proc, nPhase, nRawId, nPartId, nFacInd, rfFac, dH, dV
       _, sErr = EgtGetLastMachMgrError()
       EgtSetOperationMode( nMchFId, false)
       return false, sErr
+   else
+      local _, sWarn = EgtGetMachMgrWarning( 0)
+      if EgtIsMachiningEmpty() then
+         EgtSetOperationMode( nMchFId, false)
+         return false, sWarn
+      end
    end
    return true, '', dTDiam
 end
@@ -2423,7 +2447,8 @@ local function MakeContourByMill( Proc, idContourPath, vtTunnelDirection, dTunne
    local bMultipleHeadsAvailble = BD.DOWN_HEAD or BD.TWO_EQUAL_HEADS
    local bMillFromBottom = vtTunnelDirection:getZ() < BD.NZ_MINA
    local bMillFromBottomOpposite = -vtTunnelDirection:getZ() < BD.NZ_MINA
-   local sWarn = ''
+   local sApplyWarning = ''
+   local bIncomplete = false
 
    -- ricerca lavorazione lato principale
    local sMilling = ML.FindMilling( 'SmallToolContour', nil, nil, nil, nil, not bMillFromBottom, bMillFromBottom)
@@ -2457,94 +2482,6 @@ local function MakeContourByMill( Proc, idContourPath, vtTunnelDirection, dTunne
 
    local bOppositMillingReachesHalfDepth = ToolOpposite.MaxDepth > dTunnelDepth / 2 + dCollSic - dDimStrip / 2
 
-   -- applicazione lavorazione lato principale
-   local sName = 'Contour_' .. ( EgtGetName( Proc.Id) or tostring( Proc.Id))
-   local idMachining = EgtAddMachining( sName, sMilling) 
-   if not idMachining then
-      local sErr = 'Error : impossible add machining ' .. sName .. '-' .. sMilling
-      return false, sErr
-   end
-   -- geometria
-   EgtSetMachiningGeometry( {{ idContourPath, -1}})
-   -- lato di lavoro sinistro
-   EgtSetMachiningParam( MCH_MP.WORKSIDE, MCH_MILL_WS.LEFT)
-   -- inversione direzione utensile
-   EgtSetMachiningParam( MCH_MP.TOOLINVERT, false)
-   -- SCC
-   local nSCC = MCH_SCC.NONE
-   if not BD.C_SIMM then
-      if AreSameOrOppositeVectorApprox( vtTunnelDirection, Z_AX()) then
-         nSCC = MCH_SCC.ADIR_YM
-      elseif abs( vtTunnelDirection:getX()) < 0.1 then
-         nSCC = EgtIf( BL.IsPartFinalPhase( nPhase), MCH_SCC.ADIR_XM, MCH_SCC.ADIR_XP)
-      elseif vtTunnelDirection:getY() < GEO.EPS_SMALL then
-         nSCC = MCH_SCC.ADIR_YM
-      else
-         nSCC = MCH_SCC.ADIR_YP
-      end
-   end
-   EgtSetMachiningParam( MCH_MP.SCC, nSCC)
-   -- gestione attacco e uscita
-   if EgtCurveIsClosed( idContourPath) then
-      -- attacco e uscita a quarto di cerchio senza allungamenti a inizio e fine
-      EgtSetMachiningParam( MCH_MP.LEADINTYPE, MCH_MILL_LI.TANGENT)
-      EgtSetMachiningParam( MCH_MP.LEADOUTTYPE, MCH_MILL_LO.AS_LI)
-      EgtSetMachiningParam( MCH_MP.LITANG, 0)
-      EgtSetMachiningParam( MCH_MP.LIPERP, 0.5 * Tool.Diameter)
-      EgtSetMachiningParam( MCH_MP.LIELEV, 0)
-      EgtSetMachiningParam( MCH_MP.STARTADDLEN, 0)
-      EgtSetMachiningParam( MCH_MP.ENDADDLEN, 0)
-   else
-      -- nessun attacco e uscita, allungo inizio e fine di raggio utensile + 5mm (per evitare controllo collisioni)
-      EgtSetMachiningParam( MCH_MP.LEADINTYPE, MCH_MILL_LI.NONE)
-      EgtSetMachiningParam( MCH_MP.LEADOUTTYPE, MCH_MILL_LO.AS_LI)
-      EgtSetMachiningParam( MCH_MP.STARTADDLEN, Tool.Diameter / 2 + 5)
-      EgtSetMachiningParam( MCH_MP.ENDADDLEN, Tool.Diameter / 2 + 5)
-   end
-   -- affondamento - la curva è a metà tasca quindi affondamento 0 significa che la lavorazione arriva a metà tasca
-   local dDepth
-   -- c'è la lavorazione opposta
-   if bOppositeMillingNeeded then
-      -- si arriva a metà tasca
-      if bMainMillingReachesHalfDepth then
-         dDepth = -dDimStrip / 2
-      -- si arriva al massimo raggiungibile
-      else
-         dDepth = Tool.MaxDepth - dTunnelDepth / 2 - dCollSic
-         sWarn = 'Warning : incomplete'
-      end
-   -- non c'è lavorazione opposta
-   else
-      -- si arriva fino in fondo
-      if bMainMillingReachesFullDepth then
-         dDepth = dTunnelDepth / 2 - dDimStrip
-      -- si arriva al massimo raggiungibile
-      else
-         dDepth = Tool.MaxDepth - dTunnelDepth / 2 - dCollSic
-         sWarn = 'Warning : incomplete'
-      end
-   end
-   EgtSetMachiningParam( MCH_MP.DEPTH, dDepth)
-   -- Note utente con dichiarazione nessuna generazione sfridi per Vmill e massima elevazione
-   local sUserNotes = EgtGetMachiningParam( MCH_MP.USERNOTES) or ''
-   sUserNotes = EgtSetValInNotes( sUserNotes, 'VMRS', 0)
-   sUserNotes = EgtSetValInNotes( sUserNotes, 'MaxElev', EgtNumToString( dTunnelDepth / 2 + dDepth, 1))
-   EgtSetMachiningParam( MCH_MP.USERNOTES, sUserNotes)
-   -- eseguo
-   local bMillingOk
-   if ML.ApplyMachining( true, false) then
-      _, sWarn = EgtGetMachMgrWarning( 0)
-      if EgtIsMachiningEmpty() then
-         EgtSetOperationMode( idMachining, false)
-      end
-      bMillingOk = true
-   -- altrimenti lavorazione non applicata
-   else
-      _, sWarn = EgtGetLastMachMgrError()
-      EgtSetOperationMode( idMachining, false)
-      bMillingOk = false
-   end
-
    -- eventuale lavorazione opposta
    local bMillingOppositeOk
    if bOppositeMillingNeeded then
@@ -2599,7 +2536,7 @@ local function MakeContourByMill( Proc, idContourPath, vtTunnelDirection, dTunne
       -- si arriva al massimo raggiungibile
       else
          dDepth = Tool.MaxDepth - dTunnelDepth / 2 - dCollSic
-         sWarn = 'Warning : incomplete'
+         bIncomplete = true
       end
       EgtSetMachiningParam( MCH_MP.DEPTH, dDepth)
       -- Note utente con dichiarazione nessuna generazione sfridi per Vmill e massima elevazione
@@ -2609,21 +2546,116 @@ local function MakeContourByMill( Proc, idContourPath, vtTunnelDirection, dTunne
       EgtSetMachiningParam( MCH_MP.USERNOTES, sUserNotes)
       -- eseguo
       if ML.ApplyMachining( true, false) then
-         _, sWarn = EgtGetMachMgrWarning( 0)
+         _, sApplyWarning = EgtGetMachMgrWarning( 0)
          if EgtIsMachiningEmpty() then
             EgtSetOperationMode( idMachining, false)
          end
          bMillingOppositeOk = true
       -- altrimenti lavorazione non applicata
       else
-         _, sWarn = EgtGetLastMachMgrError()
+         _, sApplyWarning = EgtGetLastMachMgrError()
          EgtSetOperationMode( idMachining, false)
          bMillingOppositeOk = false
       end
    end
 
+   -- applicazione lavorazione lato principale
+   local sName = 'Contour_' .. ( EgtGetName( Proc.Id) or tostring( Proc.Id))
+   local idMachining = EgtAddMachining( sName, sMilling) 
+   if not idMachining then
+      local sErr = 'Error : impossible add machining ' .. sName .. '-' .. sMilling
+      return false, sErr
+   end
+   -- geometria
+   EgtSetMachiningGeometry( {{ idContourPath, -1}})
+   -- lato di lavoro sinistro
+   EgtSetMachiningParam( MCH_MP.WORKSIDE, MCH_MILL_WS.LEFT)
+   -- inversione direzione utensile
+   EgtSetMachiningParam( MCH_MP.TOOLINVERT, false)
+   -- SCC
+   local nSCC = MCH_SCC.NONE
+   if not BD.C_SIMM then
+      if AreSameOrOppositeVectorApprox( vtTunnelDirection, Z_AX()) then
+         nSCC = MCH_SCC.ADIR_YM
+      elseif abs( vtTunnelDirection:getX()) < 0.1 then
+         nSCC = EgtIf( BL.IsPartFinalPhase( nPhase), MCH_SCC.ADIR_XM, MCH_SCC.ADIR_XP)
+      elseif vtTunnelDirection:getY() < GEO.EPS_SMALL then
+         nSCC = MCH_SCC.ADIR_YM
+      else
+         nSCC = MCH_SCC.ADIR_YP
+      end
+   end
+   EgtSetMachiningParam( MCH_MP.SCC, nSCC)
+   -- gestione attacco e uscita
+   if EgtCurveIsClosed( idContourPath) then
+      -- attacco e uscita a quarto di cerchio senza allungamenti a inizio e fine
+      EgtSetMachiningParam( MCH_MP.LEADINTYPE, MCH_MILL_LI.TANGENT)
+      EgtSetMachiningParam( MCH_MP.LEADOUTTYPE, MCH_MILL_LO.AS_LI)
+      EgtSetMachiningParam( MCH_MP.LITANG, 0)
+      EgtSetMachiningParam( MCH_MP.LIPERP, 0.5 * Tool.Diameter)
+      EgtSetMachiningParam( MCH_MP.LIELEV, 0)
+      EgtSetMachiningParam( MCH_MP.STARTADDLEN, 0)
+      EgtSetMachiningParam( MCH_MP.ENDADDLEN, 0)
+   else
+      -- nessun attacco e uscita, allungo inizio e fine di raggio utensile + 5mm (per evitare controllo collisioni)
+      EgtSetMachiningParam( MCH_MP.LEADINTYPE, MCH_MILL_LI.NONE)
+      EgtSetMachiningParam( MCH_MP.LEADOUTTYPE, MCH_MILL_LO.AS_LI)
+      EgtSetMachiningParam( MCH_MP.STARTADDLEN, Tool.Diameter / 2 + 5)
+      EgtSetMachiningParam( MCH_MP.ENDADDLEN, Tool.Diameter / 2 + 5)
+   end
+   -- affondamento - la curva è a metà tasca quindi affondamento 0 significa che la lavorazione arriva a metà tasca
+   local dDepth
+   -- c'è la lavorazione opposta
+   if bOppositeMillingNeeded then
+      -- si arriva a metà tasca
+      if bMainMillingReachesHalfDepth then
+         dDepth = -dDimStrip / 2
+      -- si arriva al massimo raggiungibile
+      else
+         dDepth = Tool.MaxDepth - dTunnelDepth / 2 - dCollSic
+         bIncomplete = true
+      end
+   -- non c'è lavorazione opposta
+   else
+      -- si arriva fino in fondo
+      if bMainMillingReachesFullDepth then
+         dDepth = dTunnelDepth / 2 - dDimStrip
+      -- si arriva al massimo raggiungibile
+      else
+         dDepth = Tool.MaxDepth - dTunnelDepth / 2 - dCollSic
+         bIncomplete = true
+      end
+   end
+   EgtSetMachiningParam( MCH_MP.DEPTH, dDepth)
+   -- Note utente con dichiarazione nessuna generazione sfridi per Vmill e massima elevazione
+   local sUserNotes = EgtGetMachiningParam( MCH_MP.USERNOTES) or ''
+   sUserNotes = EgtSetValInNotes( sUserNotes, 'VMRS', 0)
+   sUserNotes = EgtSetValInNotes( sUserNotes, 'MaxElev', EgtNumToString( dTunnelDepth / 2 + dDepth, 1))
+   EgtSetMachiningParam( MCH_MP.USERNOTES, sUserNotes)
+   -- eseguo
+   local bMillingOk
+   if ML.ApplyMachining( true, false) then
+      _, sApplyWarning = EgtGetMachMgrWarning( 0)
+      if EgtIsMachiningEmpty() then
+         EgtSetOperationMode( idMachining, false)
+      end
+      bMillingOk = true
+   -- altrimenti lavorazione non applicata
+   else
+      _, sApplyWarning = EgtGetLastMachMgrError()
+      EgtSetOperationMode( idMachining, false)
+      bMillingOk = false
+   end
+
    if bMillingOk or ( bOppositeMillingNeeded and bMillingOppositeOk) then
-      return true, sWarn
+      local sWarning = ''
+      if bIncomplete then
+         sWarning = 'Warning : machining incomplete'
+      end
+      if #sApplyWarning > 0 then
+         sWarning = sApplyWarning .. '\n' .. sWarning
+      end
+      return true, sWarning
    else
       local sErr = 'Error : Not applicable'
       return false, sErr
@@ -2969,6 +3001,12 @@ local function MakeChamfer( Proc, bIs3Faces, nAddGrpId, vtOrtho, b3Solid, nSurfI
                local _, sErr = EgtGetLastMachMgrError()
                EgtSetOperationMode( nMchId, false)
                return -1, sErr
+            else
+               local _, sWarn = EgtGetMachMgrWarning( 0)
+               if EgtIsMachiningEmpty() then
+                  EgtSetOperationMode( nMchId, false)
+                  return false, sWarn
+               end
             end
          -- se non perpendicolare emetto un warning
          -- else
@@ -3122,6 +3160,12 @@ local function MakeByMillAsSaw( Proc, nPhase, nRawId, nPartId, nFacInd,
          local _, sErr = EgtGetLastMachMgrError()
          EgtSetOperationMode( nMchId, false)
          return false, sErr
+      else
+         local _, sWarn = EgtGetMachMgrWarning( 0)
+         if EgtIsMachiningEmpty() then
+            EgtSetOperationMode( nMchId, false)
+            return false, sWarn
+         end
       end
    end
    -- in base all'elevazione calcolo l'impronta della lama
@@ -3308,7 +3352,8 @@ local function MakeByChainOrSaw( Proc, nPhase, nRawId, nPartId, nFacInd,
       end
       for i = 1, nStep do
          local dOffs = ( i - 1) * dStep
-         local bOk, sErr = Fbs.MakeOne( Proc.Id, nFacAdj, sCutting, dSawDiam, nFaceUse, -0.01, 0, BD.CUT_SIC, dOffs, 0, 0, nil, b3Raw)
+         local bForceClimbCut = true
+         local bOk, sErr = Fbs.MakeOne( Proc.Id, nFacAdj, sCutting, dSawDiam, nFaceUse, -0.01, 0, BD.CUT_SIC, dOffs, 0, 0, nil, b3Raw, nil, nil, nil, nil, nil, nil, bForceClimbCut)
          if not bOk then return bOk, sErr end
       end
       -- in base all'elevazione calcolo l'impronta della lama
@@ -3363,7 +3408,9 @@ local function MakeByChainOrSaw( Proc, nPhase, nRawId, nPartId, nFacInd,
             bGoFromHead = false
          -- continuo di testa se fessura con tre facce o non è tunnel
          else
-            bGoFromHead = (( bIs3Faces and dMaxElev) or not bOrthoFaces)
+            bGoFromHead = (( bIs3Faces and ( dMaxElev 
+                           or ( Proc.Topology == 'Groove' and Proc.IsThrough and (Proc.AffectedFaces.Left or Proc.AffectedFaces.Right) and not Proc.IsParallel))) 
+                           or not bOrthoFaces)
          end
       end
       -- se continuo a lavorare di testa
@@ -3428,17 +3475,35 @@ local function MakeByChainOrSaw( Proc, nPhase, nRawId, nPartId, nFacInd,
             -- imposto offset radiale
             local dOffs = ( i - 1) * dStep
             EgtSetMachiningParam( MCH_MP.OFFSR, dOffs)
+            local bElevAdj
+            local dToolEntryAngle, _, _, dTanToolEntryAngle = GetToolEntryAngle( Proc, rfFac:getVersZ())
             -- se necessario, avverto limitazione dell'affondamento
-               if dElev > dMaxDepth + 10 * GEO.EPS_SMALL then
-               EgtSetMachiningParam( MCH_MP.DEPTH, dMaxDepth)
-               sWarn = 'Warning in LapJoint : elevation (' .. EgtNumToString( dElev, 1) .. ') bigger than max tool depth (' .. EgtNumToString( dMaxDepth, 1) .. ')'
-               EgtOutLog( sWarn)
+            if dElev > dMaxDepth + 10 * GEO.EPS_SMALL then
+               if Proc.Fct == 3 and Proc.Topology == 'Groove' and Proc.IsThrough and (Proc.AffectedFaces.Left or Proc.AffectedFaces.Right) and not Proc.IsParallel then
+                  local Edges = BL.GetEdgesInfo( Proc, Proc.Face[nFacAdj+1])
+                  local dWorkEdgeWidth
+                  for i = 1, #Edges do 
+                     if Edges[i].AdjacentFaceId == nFacInd then
+                        dWorkEdgeWidth = Edges[i].Length
+                        break
+                     end
+                  end
+                  local dDeltaDepth = dWorkEdgeWidth * cos( dToolEntryAngle)
+                  bElevAdj = true
+                  EgtSetMachiningParam( MCH_MP.DEPTH, dMaxDepth - dDeltaDepth)
+               else
+                  EgtSetMachiningParam( MCH_MP.DEPTH, dMaxDepth)
+                  sWarn = 'Warning in LapJoint : elevation (' .. EgtNumToString( dElev, 1) .. ') bigger than max tool depth (' .. EgtNumToString( dMaxDepth, 1) .. ')'
+                  EgtOutLog( sWarn)
+               end
+               
                --local dDepth = dMaxDepth - dElev
                --EgtSetMachiningParam( MCH_MP.DEPTH_STR, 'TH '..EgtNumToString( dDepth, 1))
             end
             -- imposto massima elevazione
             local sUserNotes = EgtGetMachiningParam( MCH_MP.USERNOTES) or ''
-            sUserNotes = EgtSetValInNotes( sUserNotes, 'MaxElev', EgtNumToString( dElev, 2))
+            local dElevAdj = EgtIf( bElevAdj, dElev / sin( dToolEntryAngle), dElev)
+            sUserNotes = EgtSetValInNotes( sUserNotes, 'MaxElev', EgtNumToString( dElevAdj, 2))
             EgtSetMachiningParam( MCH_MP.USERNOTES, sUserNotes)
             -- eseguo
             if not ML.ApplyMachining( true, false) then
@@ -3843,6 +3908,12 @@ local function MakePocket( Proc, nPartId, b3Solid, ptPs, tvtN, nFaceRef, sMchFin
          EgtSetOperationMode( nMchFId, false)
          return false, sErr
       end
+   else
+      local _, sWarn = EgtGetMachMgrWarning( 0)
+      if EgtIsMachiningEmpty() then
+         EgtSetOperationMode( nMchFId, false)
+         return false, sWarn
+      end
    end
    -- se la lavorazione rovina il pezzo successivo emetto warning
    if ( not Proc.Tail or Proc.AdvTail) and Proc.AffectedFaces.Left and dDistToNextPiece < dDiamTool / 2 then
@@ -3960,6 +4031,12 @@ local function MachineByMill( Proc, nPhase, nRawId, nPartId, b3Solid, tvtN, nBas
                   local _, sErr = EgtGetLastMachMgrError()
                   EgtSetOperationMode( nMchId, false)
                   return false, sErr
+               else
+                  local _, sWarn = EgtGetMachMgrWarning( 0)
+                  if EgtIsMachiningEmpty() then
+                     EgtSetOperationMode( nMchId, false)
+                     return false, sWarn
+                  end
                end
             else
                return false, sWarn
@@ -4087,6 +4164,12 @@ local function MachineByMill( Proc, nPhase, nRawId, nPartId, b3Solid, tvtN, nBas
             local _, sErr = EgtGetLastMachMgrError()
             EgtSetOperationMode( nMchFId, false)
             return false, sErr
+         else
+            local _, sWarn = EgtGetMachMgrWarning( 0)
+            if EgtIsMachiningEmpty() then
+               EgtSetOperationMode( nMchFId, false)
+               return false, sWarn
+            end
          end
       end
    end
@@ -4530,6 +4613,12 @@ local function MakeByPockets( Proc, nPhase, nRawId, nPartId, nChamfer, dDepthCha
                      EgtSetOperationMode( nMchFId, false)
                      return -1, sErr
                   end
+               else
+                  local _, sWarn = EgtGetMachMgrWarning( 0)
+                  if EgtIsMachiningEmpty() then
+                     EgtSetOperationMode( nMchFId, false)
+                     return false, sWarn
+                  end
                end
             end
             -- se non completo e U, cerco di lavorare anche la faccia di fondo (con il massimo affondamento possibile)
@@ -4601,6 +4690,12 @@ local function MakeByPockets( Proc, nPhase, nRawId, nPartId, nChamfer, dDepthCha
                         EgtSetOperationMode( nMchFId, false)
                         return -1, sErr
                      end
+                  else
+                     local _, sWarn = EgtGetMachMgrWarning( 0)
+                     if EgtIsMachiningEmpty() then
+                        EgtSetOperationMode( nMchFId, false)
+                        return false, sWarn
+                     end
                   end
                end
             end
@@ -4713,6 +4808,12 @@ local function ManageAntiSplintBySaw( Proc, b3Raw, b3Solid, bIsU, vtN, nFacInd,
                local _, sErr = EgtGetLastMachMgrError()
                EgtSetOperationMode( nIdMach, false)
                return false, false, sErr
+            else
+               local _, sWarn = EgtGetMachMgrWarning( 0)
+               if EgtIsMachiningEmpty() then
+                  EgtSetOperationMode( nIdMach, false)
+                  return false, sWarn
+               end
             end
          end
       end
@@ -4722,7 +4823,7 @@ local function ManageAntiSplintBySaw( Proc, b3Raw, b3Solid, bIsU, vtN, nFacInd,
 end
 
 ---------------------------------------------------------------------
-local function MakePathsOnExtremPoints( nAddGrpId, nIdPath, pPaths, dTDiam)
+local function MakePathsOnExtremePoints( nAddGrpId, nIdPath, pPaths, dTDiam, b3Solid)
 
    local dLength = 2
    if not nIdPath then return pPaths end
@@ -4738,15 +4839,20 @@ local function MakePathsOnExtremPoints( nAddGrpId, nIdPath, pPaths, dTDiam)
    local vtIni = EgtSV( nIdPath, GDB_RT.GLOB)
    local vtEnd = EgtEV( nIdPath, GDB_RT.GLOB)
 
-   local ptIniP = ptIni
-   local ptEndP = ptIniP + (vtIni * dLength)
-   local nAuxId = EgtLine( nAddGrpId, ptIniP, ptEndP, GDB_RT.GLOB)
-   table.insert( pPaths, { nAuxId, 1, ptIniP})
+   -- si costruisce il percorso solo per i punti sui bordi del grezzo
+   if BL.IsPointOnBoxLimits( ptIni, b3Solid) then
+      local ptIniP = ptIni
+      local ptEndP = ptIniP + (vtIni * dLength)
+      local nAuxId = EgtLine( nAddGrpId, ptIniP, ptEndP, GDB_RT.GLOB)
+      table.insert( pPaths, { nAuxId, 1, ptIniP})
+   end
 
-   ptIniP = ptEnd
-   ptEndP = ptEnd - ( vtEnd * dLength)
-   nAuxId = EgtLine( nAddGrpId, ptIniP, ptEndP, GDB_RT.GLOB)
-   table.insert( pPaths, { nAuxId, 2, ptIniP})
+   if BL.IsPointOnBoxLimits( ptEnd, b3Solid) then
+      local ptIniP = ptEnd
+      local ptEndP = ptEnd - ( vtEnd * dLength)
+      local nAuxId = EgtLine( nAddGrpId, ptIniP, ptEndP, GDB_RT.GLOB)
+      table.insert( pPaths, { nAuxId, 2, ptIniP})
+   end
 
    return pPaths
 end
@@ -5000,7 +5106,7 @@ local function ManageAntiSplintByMill( Proc, nPhase, nRawId, nPartId, b3Raw,
             -- creo percorsi antisplint dagli estremi dei percorsi di contorno trovati
             for i = 1, nNumId do
                local nIdPath = nFirstId + i - 1
-               pPaths = MakePathsOnExtremPoints( nAddGrpId, nIdPath, pPaths, dTDiam)
+               pPaths = MakePathsOnExtremePoints( nAddGrpId, nIdPath, pPaths, dTDiam, b3Solid)
             end
          end
       -- alrimenti ho la faccia aggiunta
@@ -5035,7 +5141,7 @@ local function ManageAntiSplintByMill( Proc, nPhase, nRawId, nPartId, b3Raw,
          -- se non ho un percorso chiuso estraggo i percorsi
          if bOpenPath then
             -- creo percorsi antisplint dagli estremi dei percorsi di contorno trovati
-            pPaths = MakePathsOnExtremPoints( nAddGrpId, nFirstId, pPaths, dTDiam)
+            pPaths = MakePathsOnExtremePoints( nAddGrpId, nFirstId, pPaths, dTDiam, b3Solid)
          end
          EgtErase(nFirstId)
       end
@@ -6889,17 +6995,50 @@ local function MakeMoreFaces( Proc, nPhase, nRawId, nPartId, dOvmHead, bSinglePa
       if bForceChainsaw then
          -- ottengo le dimensioni del tunnel 
          dDimMin, dDimMax, dDepth, vtOrtho, nLundIdFace = BL.GetTunnelDimension( Proc, nPartId)
-      -- lavoro fessura con svuotature (singola o doppia contrapposta)
+      -- se non richiesto solo contorno, lavoro fessura con svuotature (singola o doppia contrapposta)
       else
-         local sMyMchFind = 'Pocket'
-         local nOk, sErr
-         nOk, sErr, dDimMin, dDimMax, dDepth, vtOrtho,
-            nLundIdFace, sErr = MakeByPockets( Proc, nPhase, nRawId, nPartId, nChamfer, dDepthCham, nAddGrpId, sMyMchFind, false, b3Solid, bClosedOrthoFaces)
-         if nOk < 0 then
-            return false, sErr
-         elseif nOk > 0 then
-            sWarn = sErr
-            bTryWithBlades = false
+         local bOnlyContour = ( EgtGetInfo( Proc.Id, Q_ONLY_CONTOUR, 'i') or 0) > 0
+         if bOnlyContour then
+            if Proc.TopologyLongName == 'Tunnel-Through-RightAngles-Parallel-4' then
+               -- direzione e faccia aggiunta del tunnel (la groove-3 passante è uno pseudotunnel)
+               local _, _, dTunnelDepth, vtTunnelDirection, _, idAddedTunnelTmFace = BL.GetTunnelDimension( Proc, nPartId)
+               -- si tiene il verso del tunnel dal lato Z positiva
+               if vtTunnelDirection:getZ() < GEO.EPS_SMALL then
+                  vtTunnelDirection = -vtTunnelDirection
+                  EgtInvertSurf( idAddedTunnelTmFace)
+               end
+               -- estrazione del contorno da lavorare
+               local idContourPath = EgtExtractSurfTmLoops( idAddedTunnelTmFace, nAddGrpId)
+               EgtModifyCurveExtrusion( idContourPath, vtTunnelDirection, GDB_RT.GLOB)
+               -- spessore codolo da lasciare
+               local dDimStrip = EgtGetInfo( Proc.Id, Q_DIM_STRIP, 'd') or 0
+               -- lavorazione
+               local bOkContour, sWarn2 = MakeContourByMill( Proc, idContourPath, vtTunnelDirection, dTunnelDepth, dDimStrip, nPhase)
+               if bOkContour then
+                  return true, sWarn2
+               else
+                  return false, sWarn2
+               end
+               if sWarn2 then
+                  if not sWarn then sWarn = '' end
+                  sWarn = EgtIf( #sWarn > 0, sWarn .. '\n' .. sWarn2, sWarn2)
+               end
+            else
+               local sErr2 = 'Error : Cannot use ' .. Q_ONLY_CONTOUR .. ' on this feature'
+               return false, sErr2
+            end
+         -- svuotatura
+         else
+            local sMyMchFind = 'Pocket'
+            local nOk, sErr
+            nOk, sErr, dDimMin, dDimMax, dDepth, vtOrtho,
+               nLundIdFace, sErr = MakeByPockets( Proc, nPhase, nRawId, nPartId, nChamfer, dDepthCham, nAddGrpId, sMyMchFind, false, b3Solid, bClosedOrthoFaces)
+            if nOk < 0 then
+               return false, sErr
+            elseif nOk > 0 then
+               sWarn = sErr
+               bTryWithBlades = false
+            end
          end
       end
       -- Se la svuotatura precedente non è stata fatta e chamfer non è mutuamente esclusivo provo con la sega-catena
@@ -7121,6 +7260,12 @@ local function MakeMoreFaces( Proc, nPhase, nRawId, nPartId, dOvmHead, bSinglePa
                local _, sErr = EgtGetLastMachMgrError()
                EgtSetOperationMode( nMchFId, false)
                return false, sErr
+            else
+               local _, sWarn = EgtGetMachMgrWarning( 0)
+               if EgtIsMachiningEmpty() then
+                  EgtSetOperationMode( nMchFId, false)
+                  return false, sWarn
+               end
             end
             -- se divisa in due metà
             if bDouble then
@@ -7141,6 +7286,12 @@ local function MakeMoreFaces( Proc, nPhase, nRawId, nPartId, dOvmHead, bSinglePa
                   local _, sErr = EgtGetLastMachMgrError()
                   EgtSetOperationMode( nMchFNId, false)
                   return false, sErr
+               else
+                  local _, sWarn = EgtGetMachMgrWarning( 0)
+                  if EgtIsMachiningEmpty() then
+                     EgtSetOperationMode( nMchFNId, false)
+                     return false, sWarn
+                  end
                end
             end
          end
@@ -7221,6 +7372,12 @@ local function MakeMoreFaces( Proc, nPhase, nRawId, nPartId, dOvmHead, bSinglePa
                local _, sErr = EgtGetLastMachMgrError()
                EgtSetOperationMode( nMchFId, false)
                return false, sErr
+            else
+               local _, sWarn = EgtGetMachMgrWarning( 0)
+               if EgtIsMachiningEmpty() then
+                  EgtSetOperationMode( nMchFId, false)
+                  return false, sWarn
+               end
             end
 
          -- CASO SPECIALE 3 FACCE (se rimane esclusa molta sezione trasversale complessiva della feature, solo per feature 20)
@@ -7336,6 +7493,12 @@ local function MakeMoreFaces( Proc, nPhase, nRawId, nPartId, dOvmHead, bSinglePa
                      EgtSetOperationMode( nMchFId, false)
                      return false, sErr
                   end
+               else
+                  local _, sWarn = EgtGetMachMgrWarning( 0)
+                  if EgtIsMachiningEmpty() then
+                     EgtSetOperationMode( nMchFId, false)
+                     return false, sWarn
+                  end
                end
                -- se abilitato dal parametro Q inserisco foro sullo spigolo
                if EgtGetInfo( Proc.Id, Q_BORE_ON_CORNER, 'i') == 1 then
@@ -7689,7 +7852,7 @@ local function MakeMoreFaces( Proc, nPhase, nRawId, nPartId, dOvmHead, bSinglePa
                      local bPassEdge = ((( bIsU and Proc.Fct == 3) or ( bIsL and Proc.Fct == 2)) and bSinglePart and Proc.Box:getDimX() < 0.9 * b3Raw:getDimX())
                      local nFacIndOri = BL.GetFaceWithMostAdj( Proc, 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 or BD.TURN) then
+                     if nChamfer < 2 and ( nQAntisplintResult == 1 or nQAntisplintResult == 3) and (( bIsU or bIsL) and ( bPassThrou or bPassEdge)) and ( vtNOri:getZ() > -0.087 or BD.DOWN_HEAD or BD.TURN) then
                         local bOk
                         local bSawDown = ( bMillDown and not bMillUp)
                         bMadeASbyBld, bOk, sWarn = ManageAntiSplintBySaw( Proc, b3Raw, b3Solid, bIsU, vtNOri, nFacIndOri, sWarn, bSawDown, true)
@@ -7774,7 +7937,7 @@ local function MakeMoreFaces( Proc, nPhase, nRawId, nPartId, dOvmHead, bSinglePa
                            end
                            bTryWithBlades = false
                            -- se ho antischeggia con fresa le inserisco
-                           if nChamfer < 2 and nQAntisplintResult == 2 then
+                           if nChamfer < 2 and ( nQAntisplintResult == 2 or ( nQAntisplintResult == 3 and not bMadeASbyBld)) then
                               local bOk, sWarn2 = ManageAntiSplintByMill( Proc, nPhase, nRawId, nPartId, b3Raw, 
                                                                         nFacInd, nAddGrpId, bMillDown, dDiamTool, nil, 
                                                                         nil, nil, nil, b3Solid, dDepth, 
@@ -7798,7 +7961,7 @@ local function MakeMoreFaces( Proc, nPhase, nRawId, nPartId, dOvmHead, bSinglePa
                               end
                            end
                         -- in tutti gli altri casi, a meno che non sia forzata sega a catena, lancio la MakeByPockets
-                        -- lavorazione singola o doppia contrapposta, fondo della tasca una faccia fittizia perpendicolare al lato lungo
+                        -- se non richiesto solo contorno, lavorazione singola o doppia contrapposta, fondo della tasca una faccia fittizia perpendicolare al lato lungo
                         elseif not bForceChainsaw then
                            local bOnlyContour = ( EgtGetInfo( Proc.Id, Q_ONLY_CONTOUR, 'i') or 0) > 0
                            -- richiesto solo contorno
@@ -7811,7 +7974,6 @@ local function MakeMoreFaces( Proc, nPhase, nRawId, nPartId, dOvmHead, bSinglePa
                                     vtTunnelDirection = -vtTunnelDirection
                                     EgtInvertSurf( idAddedTunnelTmFace)
                                  end
-                                 -- elevazione della faccia aggiunta
                                  -- estrazione del contorno da lavorare
                                  local idContourPath = EgtExtractSurfTmLoops( idAddedTunnelTmFace, nAddGrpId)
                                  EgtModifyCurveExtrusion( idContourPath, vtTunnelDirection, GDB_RT.GLOB)
@@ -7819,7 +7981,8 @@ local function MakeMoreFaces( Proc, nPhase, nRawId, nPartId, dOvmHead, bSinglePa
                                  BL.SetOpenSide( idContourPath, b3Solid)
                                  BL.ChangeOrOpenStart( idContourPath, 2)
                                  -- spessore codolo da lasciare
-                                 local dDimStrip = EgtGetInfo( Proc.Id, Q_DIM_STRIP, 'd') or 5
+                                 local dDimStrip = EgtGetInfo( Proc.Id, Q_DIM_STRIP, 'd') or 0
+                                 -- lavorazione
                                  local bOkContour, sWarn2 = MakeContourByMill( Proc, idContourPath, vtTunnelDirection, dTunnelDepth, dDimStrip, nPhase)
                                  if bOkContour then
                                     return true, sWarn2
@@ -7865,7 +8028,7 @@ local function MakeMoreFaces( Proc, nPhase, nRawId, nPartId, dOvmHead, bSinglePa
                                  sWarn = sErr
                                  -- se ho antischeggia con fresa le inserisco
                                  local nFacIndOri, dFacElevOri = BL.GetFaceWithMostAdj( Proc, nPartId)
-                                 if nChamfer < 2 and nQAntisplintResult == 2 then
+                                 if nChamfer < 2 and ( nQAntisplintResult == 2 or ( nQAntisplintResult == 3 and not bMadeASbyBld)) then
                                     local bOk, sWarn2 = ManageAntiSplintByMill( Proc, nPhase, nRawId, nPartId, b3Raw, 
                                                                               nFacIndOri, nAddGrpId, bMillDown, dDiamTool, nil, 
                                                                               nil, nil, nil, b3Solid, dFacElevOri, 
@@ -7970,14 +8133,14 @@ local function MakeMoreFaces( Proc, nPhase, nRawId, nPartId, dOvmHead, bSinglePa
             local bPassEdge = ((( bIsU and Proc.Fct == 3) or ( bIsL and Proc.Fct == 2)) and bSinglePart and Proc.Box:getDimX() < 0.9 * b3Raw:getDimX())
             local nFacIndOri = BL.GetFaceWithMostAdj( Proc, 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 or BD.TURN) then
+            if nChamfer < 2 and ( nQAntisplintResult == 1 or nQAntisplintResult == 3) and (( bIsU or bIsL) and ( bPassThrou or bPassEdge)) and ( vtNOri:getZ() > -0.087 or BD.DOWN_HEAD or BD.TURN) then
                local bOk
                local bSawDown = ( bMillDown and not bMillUp)
                bMadeASbyBld, bOk, sWarn = ManageAntiSplintBySaw( Proc, b3Raw, b3Solid, bIsU, vtNOri, nFacIndOri, sWarn, bSawDown)
                if not bOk then return false, sWarn end
             end
-            if nChamfer < 2 and nQAntisplintResult == 2 then
-               local bOk, sWarn2 = ManageAntiSplintByMill( Proc, nPhase, nRawId, nPartId, b3Raw, 
+            if nChamfer < 2 and ( nQAntisplintResult == 2 or ( nQAntisplintResult == 3 and not bMadeASbyBld)) then
+               local bOk, sWarn2 = ManageAntiSplintByMill( Proc, nPhase, nRawId, nPartId, b3Raw,
                                                            nFacInd, nAddGrpId, bMillDown, dDiamTool, nil,
                                                            nil, nil, nil, b3Solid)
                if not bOk then return false, sWarn2 end
@@ -8517,6 +8680,12 @@ local function MakeStaircaseStep( Proc, nRawId, b3Raw, nPartId)
          local _, sErr = EgtGetLastMachMgrError()
          EgtSetOperationMode( nMchFId, false)
          return false, sErr
+      else
+         local _, sWarn = EgtGetMachMgrWarning( 0)
+         if EgtIsMachiningEmpty() then
+            EgtSetOperationMode( nMchFId, false)
+            return false, sWarn
+         end
       end
       -- eventuale segnalazione ingombro di testa o coda
       UpdateEncumbrance( Proc, nRawId, b3Raw, b3Solid)

LuaLibs/ProcessStepJoint.lua

@@ -140,6 +140,112 @@ local function MakeChamfer( Proc, nPhase, nRawId, nPartId, dOvmHead)
    return true
 end
 
+---------------------------------------------------------------------
+local function MakePocket( Proc, nPartId, ptPs, vtN, nFaceRef, nDiffWidth, sMchFind, nUseRoughTool, tBHx)
+
+   -- calcolo il elevazione dal punto medio
+   local dElev
+   local dLenIn, dLedOut = BL.GetPointDirDepth( nPartId, ptPs, vtN[nFaceRef])
+   if dLenIn > 0 then
+      dElev = dLenIn
+   elseif dLedOut then
+      dElev = dLedOut
+   end
+   local dCollSic = 2 * BD.COLL_SIC
+   local sTuuidMstr
+   -- calcolo il diametro utensile
+   local dDiamTool
+   if nUseRoughTool == 1 then
+      -- se feature passante prendo utensile più grande possibile
+      if ( Proc.AffectedFaces.Top and Proc.AffectedFaces.Bottom) or ( Proc.AffectedFaces.Front and Proc.AffectedFaces.Back) then
+         dDiamTool = nil
+      else
+         dDiamTool = max( 80, min( tBHx[nFaceRef][1], tBHx[nFaceRef][2]))
+      end
+   else
+      -- se non uso truciolatore prendo il valore dalle dimensioni minime delle facce
+      dDiamTool = min( tBHx[nFaceRef][1], tBHx[nFaceRef][2])
+   end
+   -- abilitazione lavorazione da sotto (testa da sotto e direzione normale sotto -30deg)
+   local bTopHead = ( BD.DOWN_HEAD and vtN[nFaceRef]:getZ() > -0.1)
+   local bDownHead = ( BD.DOWN_HEAD and vtN[nFaceRef]:getZ() < 0.1)
+   -- recupero la lavorazione
+   local sPocketing, _, _, bDownHead = ML.FindPocketing( sMchFind.. EgtIf( bDownHead, '_H2', ''), dDiamTool, dElev + dCollSic, nil, bTopHead, bDownHead)
+   if not sPocketing then
+      local sErr = 'Error : pocketing not found in library'
+      EgtOutLog( sErr)
+      return false, sErr
+   end
+   -- recupero il diametro dell'utensile
+   if EgtMdbSetCurrMachining( sPocketing) then
+      sTuuidMstr = EgtMdbGetCurrMachiningParam( MCH_MP.TUUID)
+      if EgtTdbSetCurrTool( EgtTdbGetToolFromUUID( sTuuidMstr) or '') then
+         dDiamTool = EgtTdbGetCurrToolParam( MCH_TP.DIAM) or dDiamTool
+      end
+   end
+   -- inserisco la lavorazione di svuotatura
+   local sName = 'Pock_' .. ( EgtGetName( Proc.Id) or tostring( Proc.Id)) .. 'F' .. tostring( nFaceRef - 1) 
+   local nMchFId = EgtAddMachining( sName, sPocketing)
+   if not nMchFId then
+      local sErr = 'Error adding machining ' .. sName .. '-' .. sPocketing
+      EgtOutLog( sErr)
+      return false, sErr
+   end
+   -- aggiungo geometria
+   EgtSetMachiningGeometry( {{ Proc.Id, (nFaceRef-1)}})
+   -- imposto uso faccia
+   EgtSetMachiningParam( MCH_MP.FACEUSE, MCH_MILL_FU.ORTHO_CONT)
+   -- imposto posizione braccio porta testa
+   if vtN[nFaceRef]:getY() < GEO.EPS_SMALL then
+      EgtSetMachiningParam( MCH_MP.SCC, MCH_SCC.ADIR_YM)
+   else
+      EgtSetMachiningParam( MCH_MP.SCC, MCH_SCC.ADIR_YP)
+   end
+   -- La tasca ha sempre almeno un lato aperto, imposto opportuno attacco
+   EgtSetMachiningParam( MCH_MP.SUBTYPE, MCH_POCK_SUB.SPIRALIN)
+   -- imposto elevazione
+   local sUserNotes = EgtGetMachiningParam( MCH_MP.USERNOTES) or ''
+   sUserNotes = EgtSetValInNotes( sUserNotes, 'MaxElev', EgtNumToString( dElev, 1))
+   EgtSetMachiningParam( MCH_MP.USERNOTES, sUserNotes)
+   if not ML.ApplyMachining( true, false) then
+      -- provo ad allargare leggermente la tasca
+      EgtSetMachiningParam( MCH_MP.OFFSR, -0.1)
+      if not ML.ApplyMachining( true, false) then
+         local _, sErr = EgtGetLastMachMgrError()
+         EgtSetOperationMode( nMchFId, false)
+         return false, sErr
+      end
+   end
+   return true, '', sTuuidMstr
+end
+
+---------------------------------------------------------------------
+local function MachineByMill( Proc, nPhase, nRawId, nPartId, b3Solid, ptC, vtN, nBigInd, nSmaInd, ptPs, tBHx, b3Raw, nDiffWidth, nUseRoughTool, dAng)
+
+   local sMchFind = 'Pocket'
+   -- se feature é larga come trave imposto openpocket 
+   if nDiffWidth == 0 then 
+      sMchFind = 'OpenPocket'
+   -- altrimenti se non è passante disabilito il truciolatore
+   else
+      nUseRoughTool = 0
+   end
+   -- applico la svuotatura
+   local bOk, sErr, sTuuidMstr = MakePocket( Proc, nPartId, ptPs, vtN, nBigInd, nDiffWidth, sMchFind, nUseRoughTool, tBHx)
+   if not bOk then 
+      return bOk, sErr
+   end
+   -- se angolo tra le facce maggiore di 90, inserisco la contornatura o svuotatura del lato più corto
+   if dAng > -90 then
+      -- applico la svuotatura
+      local bOk, sErr = MakePocket( Proc, nPartId, ptPs, vtN, nSmaInd, nDiffWidth, sMchFind, nUseRoughTool, tBHx)
+      if not bOk then
+         return bOk, sErr
+      end
+   end
+   return true
+end
+
 ---------------------------------------------------------------------
 -- Applicazione della lavorazione al caso due facce
 local function MakeTwoFaces( Proc, nPhase, nRawId, nPartId, dOvmHead)
@@ -156,6 +262,7 @@ local function MakeTwoFaces( Proc, nPhase, nRawId, nPartId, dOvmHead)
       return false, sErr
    end
    -- dati delle facce
+   local tBHx = {}
    local ptC = {}
    local vtN = {}
    ptC[1], vtN[1] = EgtSurfTmFacetCenter( Proc.Id, 0, GDB_ID.ROOT)
@@ -183,11 +290,13 @@ local function MakeTwoFaces( Proc, nPhase, nRawId, nPartId, dOvmHead)
    end
    -- recupero i dati dell'utensile
    local dSawDiam = 400
+   local dSawThick = 2
    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
@@ -239,47 +348,58 @@ local function MakeTwoFaces( Proc, nPhase, nRawId, nPartId, dOvmHead)
       vtRef[2] = vtN[2] ^ vtTg
       if vtRef[2] * vtN[1] < 0 then vtRef[2] = - vtRef[2] end
       -- determino quale faccia è più grande
-      local _, dB1, dH1 = EgtSurfTmFacetMinAreaRectangle( Proc.Id, 0)
-      local _, dB2, dH2 = EgtSurfTmFacetMinAreaRectangle( Proc.Id, 1)
+      local rfFac1, dB1, dH1 = EgtSurfTmFacetMinAreaRectangle( Proc.Id, 0)
+      local rfFac2, dB2, dH2 = EgtSurfTmFacetMinAreaRectangle( Proc.Id, 1)
       local nBigInd = EgtIf( dB1 * dH1 >= dB2 * dH2, 1, 2)
       local nSmaInd = 3 - nBigInd
-      -- calcolo extra taglio
-      local dCutExtra = dExtraUp
-      if dAng < -90.5 and dAng > -179.5 then
-         dCutExtra = - dSawThick / tan( 180 + dAng) + dExtraUp
-      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
-         -- sistemo posizione nel DB e nome
-         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
-            -- assegno il modo di tagliare
-            local vtOrthO = EgtIf( ( i % 2) == 1, vtRef[nSmaInd], vtRef[nBigInd])
-            -- lavoro la faccia
-            for j = 1, #vCuts[i] do
-               local dLocCutExtra = EgtIf( j == #vCuts[i], dCutExtra - dExtraUp, dCutExtra)
-               local bOk, sErr = Fbs.MakeOne( vCuts[i][j], 0, sCutting, dSawDiam, vtOrthO, nil, dLocCutExtra, 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, EgtIf( bHead, 'HeadSide', 'TailSide'))
+      tBHx[1] = {dH1, dV1, rfFac1}
+      tBHx[2] = {dH2, dV2, rfFac2}
+      local nUseRoughTool = EgtGetInfo( Proc.Id, 'Q02', 'i')
+      if nUseRoughTool == 1 and dAng < -0.1 and dAng > -90 then
+         local bOk, sErr = MachineByMill( Proc, nPhase, nRawId, nPartId, b3Solid, ptC, vtN, nBigInd, nSmaInd, ptPs, tBHx, b3Raw, 0, nUseRoughTool, dAng)
          if not bOk then
             return bOk, sErr
          end
+      else
+         -- calcolo extra taglio
+         local dCutExtra = dExtraUp
+         if dAng < -90.5 and dAng > -179.5 then
+            dCutExtra = - dSawThick / tan( 180 + dAng) + dExtraUp
+         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
+            -- sistemo posizione nel DB e nome
+            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
+               -- assegno il modo di tagliare
+               local vtOrthO = EgtIf( ( i % 2) == 1, vtRef[nSmaInd], vtRef[nBigInd])
+               -- lavoro la faccia
+               for j = 1, #vCuts[i] do
+                  local dLocCutExtra = EgtIf( j == #vCuts[i], dCutExtra - dExtraUp, dCutExtra)
+                  local bOk, sErr = Fbs.MakeOne( vCuts[i][j], 0, sCutting, dSawDiam, vtOrthO, nil, dLocCutExtra, 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, EgtIf( bHead, 'HeadSide', 'TailSide'))
+            if not bOk then
+               return bOk, sErr
+            end
+         end
       end
    end
+
    -- eventuale segnalazione ingombro di testa o coda
    if Proc.Head then
       local dOffs = b3Raw:getMax():getX() - dOvmHead - Proc.Box:getMin():getX()

UpdateLog.txt

@@ -1,4 +1,29 @@
            ==== Beam Update Log ====
+
+Versione 3.1e1 (05/05/2026)
+- Modif : in LapJoint migliorate slot con sega a catena
+- Fixed : in DrillPocket in doppio eliminata lavorazione aggiuntiva in caso di utensile non abbastanza lungo
+
+Versione 3.1d2 (10/04/2026)
+- Added : in StepJoint aggiunto Q02=1 per forzare fresa
+- Added : in DtMortise aggiunto Q01=1 per disabilitare antischeggia
+- Fixed : in LapJoint correzione a antischeggia con fresa in caso di feature spezzata
+
+Versione 3.1d1 (08/04/2026)
+- Added : le forature vengono accorciate con massima elevazione anche in presenza di tagli di testa
+- Modif : nelle slot con lama verticali si lavora sempre in concordanza
+- Fixed : in DtMortise correzione a lavorazione antischeggia
+- Fixed : in LapJoint, se lavorazione vuota, si disattiva sempre; in Q02 si lavora sempre prima il lato sotto.
+
+Versione 3.1c2 (18/03/2026)
+- Added : in LapJoint (solo L030) aggiunto Q02 per fare solo contorno per forme a "C" e tunnel; Q17 spessore di eventuale codolo
+- Modif : per LapJoint e simili il Q06 per antischeggia ora contempla il valore 3 per scegliere la strategia in automatico (lama o fresa)
+- Modif : in LapJoint migliorie nella lavorazione delle tasche aperte
+- Modif : in LongDoubleCut e LapJoint lunghe migliorata scelta fresa in caso di tasca che guarda verso il basso
+- Fixed : in forature in doppio con svuotatura corretto ultimo step
+- Fixed : in split correzione in caso di materiale di coda molto sottile e testa sotto
+- Fixed : in LongDoubleCut e LapJoint lunghe eliminata passate finale dopo taglio di coda se non è presente un grezzo successivo
+
 Versione 3.1c1 (04/03/2026)
 - Fixed : correzione in ordinamento (fori vs tagli)
 - Fixed : in drilling rimosso preforo duplicato

Version.lua

@@ -2,5 +2,5 @@
 -- Gestione della versione di Beam
 
 NAME = 'Beam'
-VERSION = '3.1c1'
+VERSION = '3.1e1'
 MIN_EXE = '3.1b1'