Merge branch 'release/3.1e1'

In tal caso profondità lavorazione in doppio aumentata al massimo della possibilità dell'utensile.

LuaLibs/BeamExec.lua

@@ -304,7 +304,7 @@ local function NeedTopologyFeature( Proc)
 end
 
 -------------------------------------------------------------------------------------------------------------
-local function CollectFeatures( PartId, b3Raw, dCurrOvmH, dCurrOvmT)
+local function CollectFeatures( PartId, b3Raw, dCurrOvmH, dCurrOvmT, bCreatePreDrill)
    local dRawW = b3Raw:getDimY()
    local dRawH = b3Raw:getDimZ()
    -- recupero le feature
@@ -365,7 +365,7 @@ local function CollectFeatures( PartId, b3Raw, dCurrOvmH, dCurrOvmT)
                      -- assegno diametro e facce di ingresso e uscita (dati tabelle sempre per riferimento)
                      Proc.Diam, Proc.Len, Proc.Fcs, Proc.Fce = Drill.GetData( Proc, b3Raw)
                      -- verifico se devo inserire i prefori
-                     if Drill.IsPredrillNeeded( Proc) then
+                     if Drill.IsPredrillNeeded( Proc) and bCreatePreDrill then
                         local bAddProc, PredrillProc= Drill.AddPredrillFromDrillProc( Proc)
                         if bAddProc then
                            table.insert( vProc, PredrillProc)
@@ -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
@@ -949,13 +949,6 @@ local function OrderFeatures( vProc, b3Raw, nPartId)
       if Hcut.Identify( B2) then
          return false
       end
-      -- se uno dipende dall'altro
-      if B1.Dependency and B1.Dependency.ExecBefore and B1.Dependency.ExecBefore.Id == B2.Id then
-         return true
-      end
-      if B2.Dependency and B2.Dependency.ExecBefore and B2.Dependency.ExecBefore.Id == B1.Id then
-         return false
-      end
       -- se uno di testa e non l'altro, privilegio quello di testa (a meno che non siano dei fori)
       if B1.Head ~= B2.Head  and not Drill.Identify(B1) and not Drill.Identify(B2) then
          return B1.Head
@@ -1508,7 +1501,7 @@ local function AddFeatureMachining( Proc, nPhase, nRawId, nPartId, dCurrOvmH, bN
    -- se foratura ( 3/4-040-X)
    elseif Drill.Identify( Proc) then
       -- esecuzione foratura
-      bOk, sErr = Drill.Make( Proc, nPhase, nRawId, nPartId)
+      bOk, sErr = Drill.Make( Proc, nPhase, nRawId, nPartId, dCurrOvmH)
    -- se giunzione francese ( 1/2-035-X)
    elseif FrenchRidgeLap.Identify( Proc) then
       -- esecuzione giunzione francese
@@ -1980,10 +1973,7 @@ local function VerifyDrillMirrored( Proc, vProc, b3Raw)
       sDrilling, sType, dMaxDepth = ML.FindDrilling( dDiam, 0, true, false, true)
       dMachiningDepth = dMaxDepth or dMachiningDepth
    end
-   if not sDrilling
-      or ( sType ~= 'Drill' and ( sType ~= 'Pocket'or ( Proc.Fcs ~= 0 and Proc.Fce ~= 0)))
-      or not EgtMdbSetCurrMachining( sDrilling) then
-
+   if not sDrilling or not EgtMdbSetCurrMachining( sDrilling) then
       return
    end
    local dDrillingStep = EgtMdbGetCurrMachiningParam( MCH_MP.STEP)
@@ -2001,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)
@@ -2221,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
@@ -2318,7 +2311,7 @@ function BeamExec.ProcessFeatures()
       local dCurrOvmH = EgtGetInfo( nRawId, 'HOVM', 'd') or 0
       local dCurrOvmT = EgtGetInfo( nRawId, 'TOVM', 'd') or 0
       -- recupero le feature di lavorazione della trave
-      local vProc = CollectFeatures( nPartId, b3Raw, dCurrOvmH, dCurrOvmT)
+      local vProc = CollectFeatures( nPartId, b3Raw, dCurrOvmH, dCurrOvmT, true)
       -- recupero informazioni ausiliarie feature e dipendenze tra feature stesse
       GetFeatureInfoAndDependency( vProc, b3Raw, nPartId)
 

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)
@@ -1393,6 +1437,11 @@ function BeamLib.GetToolFromMachining( sMachiningName)
             else
                Tool.IsOnAggregate = false
             end
+            Tool.StemDiameter = EgtTdbGetCurrToolParam( MCH_TP.STEMDIAM) or 0
+            Tool.MaxDepth = EgtTdbGetCurrToolMaxDepth() or 0
+            if Tool.StemDiameter > Tool.Diameter + GEO.EPS_SMALL then
+               Tool.MaxDepth = Tool.MaxDepth - BD.COLL_SIC
+            end
          -- altri utensili al momento non previsti
          else
             error( 'Wrong tool type')
@@ -1403,5 +1452,39 @@ function BeamLib.GetToolFromMachining( sMachiningName)
    return Tool
 end
 
+-------------------------------------------------------------------------------------------------------------
+--- copia una tabella lua in modo ricorsivo, ossia mantiene indipendenti anche tutte le sottotabelle
+--- ATTENZIONE: in caso di modifiche vanno gestiti anche i tipi custom; sarebbe meglio metterla nel LuaLibs
+function BeamLib.TableCopyDeep( OriginalTable)
+   -- controllo se oggetto passato è valido, altrimenti errore. Non deve mai succedere
+   if not OriginalTable then
+      error( "TableCopyDeep : can't copy nil object")
+   end
+   local CopiedTable = {}
+   for key, value in pairs( OriginalTable) do
+      if type( value) == "table" then
+         if isBBox3d( value) then
+            CopiedTable[ key] = BBox3d( value)
+         elseif isColor3d( value) then
+            CopiedTable[ key] = Color3d( value)
+         elseif isFrame3d( value) then
+            CopiedTable[ key] = Frame3d( value)
+         elseif isPoint3d( value) then
+            CopiedTable[ key] = Point3d( value)
+         elseif isQuaternion( value) then
+            CopiedTable[ key] = Quaternion( value)
+         elseif isVector3d( value) then
+            CopiedTable[ key] = Vector3d( value)
+         else
+            CopiedTable[ key] = BeamLib.TableCopyDeep( value)
+         end
+      else
+         CopiedTable[ key] = value
+      end
+   end
+
+   return CopiedTable
+end
+
 -------------------------------------------------------------------------------------------------------------
 return BeamLib

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

@@ -37,6 +37,7 @@ EgtOutLog( ' ProcessDrill started', 1)
 -- Dati
 local BD = require( 'BeamData')
 local ML = require( 'MachiningLib')
+local FreeContour = require( 'ProcessFreeContour')
 
 ---------------------------------------------------------------------
 -- Riconoscimento della feature
@@ -134,7 +135,8 @@ function ProcessDrill.Split( Proc, b3Raw)
    local bOpen = ( Proc.Fce ~= 0) and ( Proc.Fce ~= Proc.Fcs)
    -- recupero flag abilitazione split (0=auto,1=no)
    local bTrySplit = ( EgtGetInfo( Proc.Id, 'Q02', 'i') ~= 1)
-   if not bTrySplit then
+   local bOnlyContour = ( EgtGetInfo( Proc.Id, 'Q04', 'i') == 1)
+   if ( not bTrySplit) or bOnlyContour then
       return false
    end
    -- restituisco se va fatto in doppio (solo fori orizzontali)
@@ -313,9 +315,39 @@ local function GetHoleStartData( ptCen, vtExtr, b3Solid)
    return nFac, CosB, vFaces
 end
 
+---------------------------------------------------------------------
+local function GetSCC( Proc, vtExtr, b3Solid, bDrillAngTrasm, nPhase)
+   local nSCC = MCH_SCC.NONE
+
+   if bDrillAngTrasm then
+      nSCC = MCH_SCC.ADIR_NEAR
+   elseif BD.TURN == 2 then
+      nSCC = MCH_SCC.ADIR_ZP
+   elseif not BD.C_SIMM and not BD.TURN then
+      nSCC = MCH_SCC.ADIR_YM 
+      if AreSameVectorApprox( vtExtr, Z_AX()) then
+         nSCC = MCH_SCC.ADIR_YM
+      elseif abs( vtExtr:getX()) < 0.1 then
+         local bNearTail = ( Proc.Box:getCenter():getX() < b3Solid:getCenter():getX() and Proc.Box:getCenter():getX() - b3Solid:getMin():getX() < 1000)
+         local bVeryShortPart = ( BD.LEN_VERY_SHORT_PART and b3Solid:getDimX() < BD.LEN_VERY_SHORT_PART)
+         nSCC = EgtIf( BL.IsPartFinalPhase( nPhase) or ( bNearTail and not bVeryShortPart), MCH_SCC.ADIR_XM, MCH_SCC.ADIR_XP)
+      elseif vtExtr:getY() > 0.1 then
+         nSCC = MCH_SCC.ADIR_YP
+      end
+   else
+      nSCC = MCH_SCC.NONE
+   end
+
+   return nSCC
+end
+
 ---------------------------------------------------------------------
 -- Applicazione della lavorazione
-function ProcessDrill.Make( Proc, nPhase, nRawId, nPartId)
+function ProcessDrill.Make( Proc, nPhase, nRawId, nPartId, dCurrOvmH)
+   -- Se forzato contorno foro forzo richiamo a FreeContour e uscita dalla funzione
+   if EgtGetInfo( Proc.Id, 'Q04', 'i') == 1 then
+      return FreeContour.Make( Proc, nPhase, nRawId, nPartId, dCurrOvmH)
+   end
    -- default per costanti
    BD.DRILL_VX_MAX_ANGLEDRILL = ( BD.DRILL_VX_MAX_ANGLEDRILL or 0.928)
    -- ingombro del pezzo
@@ -354,10 +386,11 @@ function ProcessDrill.Make( Proc, nPhase, nRawId, nPartId)
       EgtOutLog( sErr)
       return false, sErr
    end
+   local nFac, CosB
    -- se non già richiesta inversione e invertibile
    if not bToInvert and Proc.Flg == 1 and -vtExtr:getZ() >= BD.DRILL_VZ_MIN then
       -- se il foro è cieco o dalla faccia sotto o troppo inclinato all'inizio, lo inverto
-      local nFac, CosB, _ = GetHoleStartData( ptCen, vtExtr, b3Solid)
+      nFac, CosB, _ = GetHoleStartData( ptCen, vtExtr, b3Solid)
       if Proc.Fcs == 0 or (( nFac == 2 or CosB > BD.DRILL_VX_MAX) and bOpen) then
          bToInvert = true
       end
@@ -389,10 +422,11 @@ function ProcessDrill.Make( Proc, nPhase, nRawId, nPartId)
    -- primo gruppo di controlli con lunghezza utensile pari a metà foro se passante
    -- recupero la lavorazione
    local sDrilling, sType, dMaxDepth, dMaxToolLength, dToolDiam, dDiamTh, dToolFreeLen = ML.FindDrilling( dDiam, dCheckDepth, bDrillUp, bDrillDown, bExcludeH2, bDrillAngTrasm, Proc.IsPredrill)
-
+   local dMaxDepthOri
+   local vFaces
    if sDrilling then
       -- Determino la faccia di inizio del foro e dati correlati 
-      local nFac, CosB, vFaces = GetHoleStartData( ptCen, vtExtr, b3Solid)
+      nFac, CosB, vFaces = GetHoleStartData( ptCen, vtExtr, b3Solid)
       -- Calcolo acciorciamento affondamento utile per evitare collisione portautensile con faccia
       local TgA = CosB / sqrt( 1 - CosB * CosB)
       local dSubL = ( dDiamTh / 2 + ( Proc.Diam - dToolDiam) / 2 + 4) * TgA
@@ -400,7 +434,7 @@ function ProcessDrill.Make( Proc, nPhase, nRawId, nPartId)
       if BD.C_SIMM and CosB > 0.866  then
          dSubL = ( 190 / 2 + ( Proc.Diam - dToolDiam) / 2 + 4) * TgA - 116
       end
-      local dMaxDepthOri = dMaxDepth
+      dMaxDepthOri = dMaxDepth
       dMaxDepth = min( dMaxDepth, max( dToolFreeLen - dSubL, 0))
       -- se utensile scelto non arriva in fondo, cerco il più lungo
       if dMaxDepth < GEO.EPS_SMALL * 10 then
@@ -507,11 +541,13 @@ function ProcessDrill.Make( Proc, nPhase, nRawId, nPartId)
    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 
@@ -577,6 +613,7 @@ function ProcessDrill.Make( Proc, nPhase, nRawId, nPartId)
          end
       end
    end
+   local dDepthOri = dDepth
    -- se foro da saltare per eccessiva inclinazione
    if not bTryDrill then
       sMyWarn = 'Warning in drill : too slant hole'
@@ -588,6 +625,7 @@ function ProcessDrill.Make( Proc, nPhase, nRawId, nPartId)
       dDepth = dMaxDepth
       dMaxElev = dMaxDepth
    end
+
    -- inserisco la lavorazione
    local sName = EgtIf( EgtStartsWith( sType, 'Predrill'), 'Predrill_', 'Drill_') .. ( EgtGetName( Proc.Id) or tostring( Proc.Id))
    local nMchId = EgtAddMachining( sName, sDrilling)
@@ -598,6 +636,8 @@ function ProcessDrill.Make( Proc, nPhase, nRawId, nPartId)
    end
    -- aggiungo geometria
    EgtSetMachiningGeometry( {{ AuxId, -1}})
+   -- eventuali note utente
+   local sUserNotes = EgtGetMachiningParam( MCH_MP.USERNOTES) or ''
    -- eventuale inversione
    if sType == 'Drill' or sType == 'Drill_H2' or sType == 'Drill_AT' or sType == 'AngleDrill' or sType == 'Predrill' then
       EgtSetMachiningParam( MCH_MP.INVERT, bToInvert)
@@ -605,31 +645,28 @@ function ProcessDrill.Make( Proc, nPhase, nRawId, nPartId)
       EgtSetMachiningParam( MCH_MP.TOOLINVERT, bToInvert)
    end
    -- imposto posizione braccio porta testa
-   local nSCC = MCH_SCC.NONE
-   if bDrillAngTrasm then
-      nSCC = MCH_SCC.ADIR_NEAR
-   elseif BD.TURN == 2 then
-      nSCC = MCH_SCC.ADIR_ZP
-   elseif not BD.C_SIMM and not BD.TURN then
-      nSCC = MCH_SCC.ADIR_YM 
-      if AreSameVectorApprox( vtExtr, Z_AX()) then
-         nSCC = MCH_SCC.ADIR_YM
-      elseif abs( vtExtr:getX()) < 0.1 then
-         local bNearTail = ( Proc.Box:getCenter():getX() < b3Solid:getCenter():getX() and Proc.Box:getCenter():getX() - b3Solid:getMin():getX() < 1000)
-         local bVeryShortPart = ( BD.LEN_VERY_SHORT_PART and b3Solid:getDimX() < BD.LEN_VERY_SHORT_PART)
-         nSCC = EgtIf( BL.IsPartFinalPhase( nPhase) or ( bNearTail and not bVeryShortPart), MCH_SCC.ADIR_XM, MCH_SCC.ADIR_XP)
-      elseif vtExtr:getY() > 0.1 then
-         nSCC = MCH_SCC.ADIR_YP
-      end
-   else
-      nSCC = MCH_SCC.NONE
-   end
+   local nSCC = GetSCC( Proc, vtExtr, b3Solid, bDrillAngTrasm, nPhase)
    EgtSetMachiningParam( MCH_MP.SCC, nSCC)
    -- imposto affondamento
-   if Proc.Double and Proc.Double > 0 and dDepth > Proc.MachDepthDouble + 10 * GEO.EPS_SMALL then
-      sMyWarn = 'Warning in double head drilling : depth (' .. EgtNumToString( dDepth, 1) .. ') reduced to (' .. EgtNumToString( Proc.MachDepthDouble, 1) .. ') to match H2 max tool depth'
-      dDepth = Proc.MachDepthDouble
-      dMaxElev = Proc.MachDepthDouble
+   local dLastStepDepth
+   if Proc.Double and Proc.Double > 0 then
+      if ( sType == 'Pocket_AT' or sType == 'Pocket') then
+         if bOpen then
+            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)
+      end
+      if dDepth > Proc.MachDepthDouble + 10 * GEO.EPS_SMALL then
+         sMyWarn = 'Warning in double head drilling : depth (' .. EgtNumToString( dDepth, 1) .. ') reduced to (' .. EgtNumToString( Proc.MachDepthDouble, 1) .. ') to match H2 max tool depth'
+         dDepth = Proc.MachDepthDouble
+         dMaxElev = Proc.MachDepthDouble
+      end
    end
    EgtSetMachiningParam( MCH_MP.DEPTH, dDepth)
    -- imposto il valore della distanza di sicurezza per l'attacco. Se il valore del db utensili è troppo basso lo alzo a 10.
@@ -637,12 +674,19 @@ function ProcessDrill.Make( Proc, nPhase, nRawId, nPartId)
    local dMinStartPos = 10
    local dStartPos = max( dMinStartPos, dToolDbStartPos)
    EgtSetMachiningParam( MCH_MP.STARTPOS, dStartPos)
-   -- Note utente con dichiarazione nessuna generazione sfridi per Vmill
-   local sUserNotes = EgtGetMachiningParam( MCH_MP.USERNOTES) or ''
+   -- dichiarazione nessuna generazione sfridi per Vmill
    sUserNotes = EgtSetValInNotes( sUserNotes, 'VMRS', 0)
    -- aggiungo alle note massima elevazione (coincide con affondamento)
-   if dMaxElev then
-      sUserNotes = EgtSetValInNotes( sUserNotes, 'MaxElev', EgtNumToString( dMaxElev, 1))
+   local dCustomMaxElev
+   if Proc.dCustomMaxElev and type( Proc.dCustomMaxElev) == "number" and Proc.dCustomMaxElev > 10 * GEO.EPS_SMALL then
+      dCustomMaxElev = Proc.dCustomMaxElev
+   end
+   if dMaxElev or dCustomMaxElev then
+      if dCustomMaxElev then
+         sUserNotes = EgtSetValInNotes( sUserNotes, 'MaxElev', EgtNumToString( dCustomMaxElev, 1))
+      else
+         sUserNotes = EgtSetValInNotes( sUserNotes, 'MaxElev', EgtNumToString( dMaxElev, 1))
+      end
    end
    -- se foro passante, aggiungo questa qualifica alle note
    if ( sType == 'Drill' or sType == 'Drill_H2' or sType == 'AngleDrill') and  bOpen then
@@ -668,7 +712,7 @@ function ProcessDrill.Make( Proc, nPhase, nRawId, nPartId)
    end
    if not bOk then
       local _, sErr = EgtGetLastMachMgrError()
-      EgtSetOperationMode( nMchId, false) 
+      EgtSetOperationMode( nMchId, false)
       return false, sErr
    else
       local _, sWarn = EgtGetMachMgrWarning( 0)
@@ -676,6 +720,45 @@ function ProcessDrill.Make( Proc, nPhase, nRawId, nPartId)
          EgtSetOperationMode( nMchId, false)
          return false, sWarn
       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)
+            local dMaxElevLastStep = dLastStepDepth - dDepth
+            sUserNotes = EgtSetValInNotes( sUserNotes, 'MaxElev', EgtNumToString( dMaxElevLastStep, 1))
+            EgtSetMachiningParam( MCH_MP.DEPTH, dLastStepDepth)
+            sUserNotes = EgtSetValInNotes( sUserNotes, 'DOUBLE', '')
+            sUserNotes = EgtSetValInNotes( sUserNotes, 'StartZmax', '')
+            EgtSetMachiningParam( MCH_MP.USERNOTES, sUserNotes)
+            local bOkLastStep = ML.ApplyMachining( true, false)
+            if not bOkLastStep and bDownDrill and bOpen and abs( Proc.Flg) == 1 then
+               if sType == 'Drill' or sType == 'Drill_H2' or sType == 'AngleDrill' then
+                  EgtSetMachiningParam( MCH_MP.INVERT, true)
+               else
+                  EgtSetMachiningParam( MCH_MP.TOOLINVERT, true)
+               end
+               bOkLastStep = ML.ApplyMachining( true, false)
+            end
+            if not bOkLastStep then
+               local _, sErr = EgtGetLastMachMgrError()
+               EgtSetOperationMode( nMchId, false)
+               return false, sErr
+            else
+               local _, sWarnLastStep = EgtGetMachMgrWarning( 0)
+               if not bOkLastStep then
+                  sWarnLastStep = 'Drillpocket double : incomplete, last step missing'
+               end
+               local sPreviousWarn = sMyWarn or sWarn
+               if sWarnLastStep then
+                  if not sPreviousWarn then sPreviousWarn = '' end
+                  sMyWarn = EgtIf( #sPreviousWarn > 0, sPreviousWarn .. '\n' .. sWarnLastStep, sWarnLastStep)
+               end
+            end
+         end
          return true, ( sMyWarn or sWarn)
       end
    end

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
@@ -638,20 +641,44 @@ function ProcessDtMortise.Make( Proc, nPhase, nRawId, nPartId, dCurrOvmH)
       -- sistemo il lato e la direzione di lavoro
       EgtSetMachiningParam( MCH_MP.WORKSIDE, EgtIf( bCW, MCH_MILL_WS.LEFT, MCH_MILL_WS.RIGHT))
       EgtSetMachiningParam( MCH_MP.INVERT, EgtIf( bCW, false, true))
+      local ptS = EgtSP( AuxId, GDB_ID.ROOT)
+      local ptE = EgtEP( AuxId, GDB_ID.ROOT)
       -- in presenza di pocket imposto dati ingresso e uscita
       if bPocket then
+         -- recupero il contorno della tasca (seconda curva ausiliaria)
+         local vAuxId = EgtGetInfo( Proc.Id, 'AUXID', 'vi')
+         -- si prende il centro del percorso da svuotare ( non si controlla che sia presente perchè già verificata in precedenza)
+         local ptPocketCenter = EgtGP( Proc.Id + vAuxId[2], GDB_ID.ROOT)
+         -- calcolo componente tangente e lineare di ingresso
+         local vtS = EgtSV( Proc.Id + vAuxId[1], GDB_ID.ROOT)                                   -- vettore entrante percorso
+         local vtOffS = EgtSV( Proc.Id + vAuxId[1], GDB_ID.ROOT) ;  vtOffS:rotate( vtExtr, 90)  -- vettore da punto iniziale a centro utensile
+         local vtStartToCenter = ptPocketCenter - ( ptS + ( vtOffS * ( dToolDiam/2)))           -- vettore da centro utensilenel punto iniziale e centro del percorso da svuotare
+         local dLenStartToCenter = vtStartToCenter:len()                                        -- distanza da centro utensile a centro del percorso da svuotare
+         local dStartTangComp = abs( vtStartToCenter * vtS)                                     -- prodotto scalare tra vettore entrante e vettore tra centro utensilee percordo da svuotare (componente tangente)
+         local dStartPerpComp = sqrt( dLenStartToCenter^2 - dStartTangComp^2)                   -- pitagora tra componente tangente e la lunghezza tra i due centri
+         -- calcolo componente tangente e lineare di uscita
+         local vtE = EgtEV( Proc.Id + vAuxId[1], GDB_ID.ROOT)
+         local vtOffE = EgtEV( Proc.Id + vAuxId[1], GDB_ID.ROOT) ;  vtOffE:rotate( vtExtr, 90)
+         local vtEndToCenter = ptPocketCenter - ( ptE + ( vtOffE * ( dToolDiam/2)))
+         local dLenEndToCenter = vtEndToCenter:len()
+         local dEndTangComp = abs( vtEndToCenter * vtE)
+         local dEndPerpComp = sqrt( dLenEndToCenter^2 - dEndTangComp^2)
+
          EgtSetMachiningParam( MCH_MP.STARTPOS, 5)
          EgtSetMachiningParam( MCH_MP.LEADINTYPE, MCH_MILL_LI.TANGENT)
-         EgtSetMachiningParam( MCH_MP.LEADOUTTYPE, MCH_MILL_LO.AS_LI)
-         EgtSetMachiningParam( MCH_MP.STARTADDLEN, 5)
-         EgtSetMachiningParam( MCH_MP.ENDADDLEN, 0)
-         EgtSetMachiningParam( MCH_MP.LITANG, dToolDiam / 2)
-         EgtSetMachiningParam( MCH_MP.LIPERP, 5)
+         EgtSetMachiningParam( MCH_MP.LITANG, dStartTangComp)
+         EgtSetMachiningParam( MCH_MP.LIPERP, dStartPerpComp)
          EgtSetMachiningParam( MCH_MP.LIELEV, 0)
+
+         EgtSetMachiningParam( MCH_MP.LEADOUTTYPE, MCH_MILL_LI.TANGENT)
+         EgtSetMachiningParam( MCH_MP.LOTANG, dEndTangComp)
+         EgtSetMachiningParam( MCH_MP.LOPERP, dEndPerpComp)
+         EgtSetMachiningParam( MCH_MP.LOELEV, 0)
+
+         EgtSetMachiningParam( MCH_MP.STARTADDLEN, 0)
+         EgtSetMachiningParam( MCH_MP.ENDADDLEN, 0)
       -- altrimenti verifico se sono bilanciati ingresso e uscita, per evitare inizio o fine nel legno
       else
-         local ptS = EgtSP( AuxId, GDB_ID.ROOT)
-         local ptE = EgtEP( AuxId, GDB_ID.ROOT)
          local dDistS = abs( ( ptS - rfDtMrt:getOrigin()) * rfDtMrt:getVersX())
          local dDistE = abs( ( ptE - rfDtMrt:getOrigin()) * rfDtMrt:getVersX())
          local dIni, dFin = EgtCurveDomain( AuxId)

LuaLibs/ProcessFreeContour.lua

@@ -29,11 +29,13 @@ local ML = require( 'MachiningLib')
 local Q_DIM_STRIP = 'Q01'  -- d
 local Q_DEPTH_CHAMFER = 'Q02' -- d
 local Q_OVERMAT_FOR_FINISH = 'Q03' -- d
+local Q_ONLY_CONTOUR = 'Q04' -- i, valido solo per drill
 local Q_ONLY_CHAMFER = 'Q00' -- i
 local Q_RADIAL_OFFSET = 'Q06' -- d, valido solo per pocket
 local Q_IGNORE_LASER_PROBLEMS = 'Q07'
 local Q_FORCE_CLAMPABLE_AREA = 'Q08'
 local Q_INVERT_LAST_PATH = 'Q09'
+local Q_MAX_ELEVATION = 'Q10' -- d
 
 ---------------------------------------------------------------------
 -- Riconoscimento della feature
@@ -184,6 +186,8 @@ local function VerifyChamfer( Proc, AuxId, nRawId, bMakeVertCham, bDownHead)
          EgtOutLog( sErr)
          return -1, 0, sErr
       end
+   else
+      sMilling = ''
    end
 
    return nChamfer, dDepth, sMilling
@@ -235,6 +239,7 @@ end
 local function MakeByMill( Proc, nPhase, nRawId, nPartId, dOvmHead)
    -- recupero l'ingombro del grezzo di appartenenza
    local b3Raw = EgtGetRawPartBBox( nRawId)
+   local bContourFromDrill = EgtGetInfo( Proc.Id, Q_ONLY_CONTOUR, 'i') == 1
    -- ingombro del pezzo
    local Ls = EgtGetFirstNameInGroup( nPartId, 'Box')
    local b3Solid = EgtGetBBoxGlob( Ls or GDB_ID.NULL, GDB_BB.STANDARD)
@@ -259,7 +264,7 @@ local function MakeByMill( Proc, nPhase, nRawId, nPartId, dOvmHead)
    -- verifico se in testa o coda
    local bHead = Proc.Head
    -- verifico i parametri Q per profondità smusso e per eseguirlo in esclusiva
-   local nChamfer, dDepthCham, sChamfer = VerifyChamfer( Proc, AuxId, nRawId, true)
+   local nChamfer, dDepthCham, sChamfer = VerifyChamfer( Proc, AuxId, nRawId, true, nil)
    -- recupero la lavorazione
    local bTopHead = ( BD.DOWN_HEAD and vtExtr:getZ() > -0.1)
    local bDownHead = ( BD.DOWN_HEAD and vtExtr:getZ() < 0.1)
@@ -631,6 +636,14 @@ local function MakeByMill( Proc, nPhase, nRawId, nPartId, dOvmHead)
                EgtOutLog( sErr)
                return false, sErr
             end
+            -- eventuale elevazione forzata
+            local dCustomMaxElev = EgtGetInfo( Proc.Id, Q_MAX_ELEVATION, 'd')
+            if dCustomMaxElev and dCustomMaxElev < 1 then dCustomMaxElev = nil end
+            if dCustomMaxElev then
+               local sUserNotes = EgtGetMachiningParam( MCH_MP.USERNOTES) or ''
+               sUserNotes = EgtSetValInNotes( sUserNotes, 'MaxElev', EgtNumToString( dCustomMaxElev, 1))
+               EgtSetMachiningParam( MCH_MP.USERNOTES, sUserNotes)
+            end
             -- assegno affondamento
             EgtSetMachiningParam( MCH_MP.DEPTH, dDepth)
          end
@@ -663,7 +676,9 @@ local function MakeByMill( Proc, nPhase, nRawId, nPartId, dOvmHead)
          end
          
          -- assegno lato di lavoro
-         if Proc.Grp == 0 then
+         if bContourFromDrill then
+            dWorkSide = MCH_MILL_WS.LEFT
+         elseif Proc.Grp == 0 then
             dWorkSide = MCH_MILL_WS.CENTER
          elseif ( Proc.Grp == 3 and not bToolInv) or ( Proc.Grp == 4 and bToolInv) or ( Proc.Grp == 1 and bToolInv) or ( Proc.Grp == 2 and bToolInv) then
             dWorkSide = MCH_MILL_WS.LEFT
@@ -695,6 +710,14 @@ local function MakeByMill( Proc, nPhase, nRawId, nPartId, dOvmHead)
          EgtSetMachiningParam( MCH_MP.TOOLINVERT, bToolInvert)
          EgtSetMachiningParam( MCH_MP.INVERT, bInvert)
          EgtSetMachiningParam( MCH_MP.WORKSIDE, dWorkSide)
+         -- setto valori specifici se lavorazione nel pieno del solo contorno di un foro
+         if bContourFromDrill then
+            local dWorkStep = max( ( EgtGetMachiningParam( MCH_MP.STEP) or 0) * 0.75, dToolDiam)
+            EgtSetMachiningParam( MCH_MP.STEP, dWorkStep)
+            EgtSetMachiningParam( MCH_MP.LEADINTYPE, MCH_MILL_LI.GLIDE)
+            EgtSetMachiningParam( MCH_MP.LIELEV, dWorkStep)
+            EgtSetMachiningParam( MCH_MP.LITANG, dWorkStep)
+         end
 
 
          -- posizione braccio porta testa
@@ -995,6 +1018,10 @@ function ProcessFreeContour.Make( Proc, nPhase, nRawId, nPartId, dOvmHead)
       Q_DEPTH_CHAMFER = 'Q01'
       Q_DIM_STRIP = 'Q02'
    end
+   if Proc.Prc == 40 then
+      Q_DIM_STRIP = ''
+      Q_OVERMAT_FOR_FINISH = ''
+   end
    -- recupero la tipologia
    local bPocket = ( EgtGetInfo( Proc.Id, 'PCKT', 'i') == 1)
    -- se svuotatura

LuaLibs/ProcessHeadCut.lua

@@ -196,7 +196,11 @@ local function MakeHeadChamfer( idProc, nPartId)
    EgtSetGridFrame( Frame3d( 0,0,0, GDB_FR.RIGHT))
 
    local dQ09Value = EgtGetInfo( idProc, 'Q09', 'd')
+   if not dQ09Value then
+      dQ09Value = 0.1
+   end
    local bChamferedEdge = dQ09Value > 0
+   dQ09Value = EgtIf( bChamferedEdge, max( dQ09Value, 0.1), min( dQ09Value, -0.1))
 
    local nIdFirstEntity, nEntityCnt = EgtExplodeCurveCompo( nLoopId)
    local p3MidPoint = EgtMP( nIdFirstEntity, GDB_ID.GRID)
@@ -232,6 +236,9 @@ local function MakeHeadChamfer( idProc, nPartId)
    end
    EgtChangeClosedCurveStartPoint( idGeom, p3MidPoint, GDB_RT.GRID)
 
+   -- reimposto la griglia
+   EgtSetGridFrame()
+
    -- Inserisco la lavorazione del lato standard
    local dExtra = 2
    local sName1 = 'HeadCham_' .. ( EgtGetName( idProc) or tostring( idProc))

LuaLibs/ProcessLongDoubleCut.lua

@@ -320,7 +320,7 @@ end
 
 ---------------------------------------------------------------------
 -- Applicazione della lavorazione
-function ProcessLong2Cut.Make( Proc, nPhase, nRawId, nPartId, bForcedBladeMaster, nUseSideToolMaster)
+function ProcessLong2Cut.Make( Proc, nPhase, nRawId, nPartId, bForcedBladeMaster, nUseSideToolMaster, nUseConventionalMilling)
    -- recupero l'ingombro del grezzo di appartenenza
    local b3Raw = EgtGetRawPartBBox( nRawId)
    local b3Solid = EgtGetBBoxGlob( EgtGetFirstNameInGroup( nPartId, 'Box') or GDB_ID.NULL, GDB_BB.STANDARD)
@@ -1132,8 +1132,17 @@ function ProcessLong2Cut.Make( Proc, nPhase, nRawId, nPartId, bForcedBladeMaster
    elseif ( nSide ~= -1 or BD.DOWN_HEAD or BD.TURN) and nUseMillOnSide == 0 then
       -- determino la massima elevazione
       local dElev = 0
-      local dFacElev1 = BL.GetFaceElevation( Proc, tFaceLong[1], b3Solid)
-      local dFacElev2 = BL.GetFaceElevation( Proc, tFaceLong[2], b3Solid)
+
+      -- calcolo l'elevazione della faccia principale
+      local dFacElev1 = BL.GetFaceElevation( Proc, tFaceLong[vOrd[1]], b3Solid)
+      local dFacElev2 = BL.GetFaceElevation( Proc, tFaceLong[vOrd[2]], b3Solid)
+      local bFacesSwapped = false
+      if bInt and not bConvex and dFacElev1 - 10* GEO.EPS_SMALL > dFacElev2 then
+         vOrd[1], vOrd[2] = vOrd[2], vOrd[1]
+         dFacElev1, dFacElev2 = dFacElev2, dFacElev1
+         bFacesSwapped = true
+      end
+
       -- se facce concave e a 90 gradi, prendo l'elevazione minima
       if bOrtho then
          dElev = min( dFacElev1, dFacElev2)
@@ -1142,7 +1151,7 @@ function ProcessLong2Cut.Make( Proc, nPhase, nRawId, nPartId, bForcedBladeMaster
       end
       -- recupero la lavorazione
       local sMilling
-      local bDownHead = ( nSide == -1 and BD.DOWN_HEAD)
+      local bDownHead = ( BD.DOWN_HEAD and ( nSide == -1 or AreSameVectorApprox( vtN[vOrd[1]], -Z_AX())))
       sMilling = ML.FindMilling( 'Long2Cut', dElev, nil, nil, nil, not bDownHead, bDownHead)
 
       if not sMilling then
@@ -1174,10 +1183,10 @@ function ProcessLong2Cut.Make( Proc, nPhase, nRawId, nPartId, bForcedBladeMaster
       -- se chiuso e corto, applico svuotatura con fresa opportuna
       if nFaceLimit == 3 and Proc.Box:getDimX() < 2 * dToolDiam then
          -- svuotatura della prima faccia longitudinale
-         local bOk, sErr = MakeByPocketing( Proc, nPhase, nRawId, nPartId, nSide, tFaceLong[1], dFacElev1)
+         local bOk, sErr = MakeByPocketing( Proc, nPhase, nRawId, nPartId, nSide, tFaceLong[vOrd[1]], dFacElev1)
          -- svuotatura della seconda faccia longitudinale
          if not bOk then return bOk, sErr end
-         return MakeByPocketing( Proc, nPhase, nRawId, nPartId, nSide, tFaceLong[2], dFacElev2)
+         return MakeByPocketing( Proc, nPhase, nRawId, nPartId, nSide, tFaceLong[vOrd[2]], dFacElev2)
       end
       -- determino gli estremi
       local dStartDist = 0
@@ -1268,29 +1277,35 @@ function ProcessLong2Cut.Make( Proc, nPhase, nRawId, nPartId, bForcedBladeMaster
       local dLimitAngle = -0.5 - 20 * GEO.EPS_SMALL
       -- se facce ortogonali (concave), mantengo la lavorazione di testa sulla faccia più grande purchè non superi di 30 gradi il sottosquadra
       if bOrtho then
-         if vtN[vOrd[1]]:getZ() > 0.001 and vtN[vOrd[2]]:getZ() > 0.001 then
-            if vtN[vOrd[1]]:getZ() >= vtN[vOrd[2]]:getZ() then
-               nFin = 1
-            else
-               nIni = 2
-            end
+         if bDownHead and AreSameVectorApprox( vtN[vOrd[1]], -Z_AX()) then
+            nFin = 1
          else
-            if vtN[vOrd[1]]:getZ() < dLimitAngle then
-               nIni = 2
-            elseif vtN[vOrd[2]]:getZ() < dLimitAngle then
-               nFin = 1
-            else
-               if vtN[vOrd[1]]:getZ() >= vtN[vOrd[2]]:getZ() then
-                  if vtN[vOrd[1]]:getZ() < dLimitAngle then
-                     nIni = 2
-                  else
-                     nFin = 1
-                  end
+            local vtN1 = vtN[vOrd[1]]
+            local vtN2 = vtN[vOrd[2]]
+            if vtN1:getZ() > 0.001 and vtN2:getZ() > 0.001 then
+               if vtN1:getZ() >= vtN2:getZ() then
+                  nFin = 1
                else
-                  if vtN[vOrd[1]]:getZ() < dLimitAngle then
-                     nIni = 2
+                  nIni = 2
+               end
+            else
+               if vtN1:getZ() < dLimitAngle then
+                  nIni = 2
+               elseif vtN2:getZ() < dLimitAngle then
+                  nFin = 1
+               else
+                  if vtN1:getZ() >= vtN2:getZ() then
+                     if vtN1:getZ() < dLimitAngle then
+                        nIni = 2
+                     else
+                        nFin = 1
+                     end
                   else
-                     nFin = 1
+                     if vtN1:getZ() < dLimitAngle then
+                        nIni = 2
+                     else
+                        nFin = 1
+                     end
                   end
                end
             end
@@ -1314,7 +1329,7 @@ function ProcessLong2Cut.Make( Proc, nPhase, nRawId, nPartId, bForcedBladeMaster
             -- valore sovrapposizione tra passate con fresa di fianco
             local dOverLapExtend = 2
             -- Verifico se da fare di fianco perchè normale troppo verso il basso (minore di -30deg)
-            local bSide = ( vtN[vOrd[i]]:getZ() < dLimitAngle and not ( nSide == -1 and ( BD.DOWN_HEAD or BD.TURN)))
+            local bSide = ( vtN[vOrd[i]]:getZ() < dLimitAngle and not ( bDownHead or ( nSide == -1 and ( BD.DOWN_HEAD or BD.TURN))))
             -- Limitazioni della lavorazione
             local nPos = EgtIf( i == 1, j, nC - j + 1)
             local dSal = EgtIf( nPos == 1, - EgtIf( i == nIni, dStartDist, dEndDist), - EgtIf( i == nIni, dStartAccDist, dEndAccDist) - ( nPos - 2) * dC + EgtIf( bSide, dOverLapExtend, 0))
@@ -1381,15 +1396,19 @@ function ProcessLong2Cut.Make( Proc, nPhase, nRawId, nPartId, bForcedBladeMaster
                   EgtOutLog( sErr)
                   return false, sErr
                end
+               local dMySal, dMyEal = dSal, dEal
+               if bFacesSwapped then
+                  dMySal, dMyEal = dMyEal, dMySal
+               end
                -- aggiungo geometria
                EgtSetMachiningGeometry( {{ Proc.Id, tFaceLong[vOrd[i]]}})
                -- limito opportunamente la lavorazione
                if ( nSide == -1 and BD.DOWN_HEAD) then
-                  EgtSetMachiningParam( MCH_MP.STARTADDLEN, dEal)
-                  EgtSetMachiningParam( MCH_MP.ENDADDLEN, dSal)
+                  EgtSetMachiningParam( MCH_MP.STARTADDLEN, dMyEal)
+                  EgtSetMachiningParam( MCH_MP.ENDADDLEN, dMySal)
                else
-                  EgtSetMachiningParam( MCH_MP.STARTADDLEN, dSal)
-                  EgtSetMachiningParam( MCH_MP.ENDADDLEN, dEal)
+                  EgtSetMachiningParam( MCH_MP.STARTADDLEN, dMySal)
+                  EgtSetMachiningParam( MCH_MP.ENDADDLEN, dMyEal)
                end
                -- imposto posizione braccio porta testa per non ingombrare agli estremi
                EgtSetMachiningParam( MCH_MP.SCC, nSCC)
@@ -1400,6 +1419,28 @@ function ProcessLong2Cut.Make( Proc, nPhase, nRawId, nPartId, bForcedBladeMaster
                -- imposto lato di lavoro e inversione
                EgtSetMachiningParam( MCH_MP.WORKSIDE, EgtIf( bIsMachDownUp, MCH_MILL_WS.RIGHT, MCH_MILL_WS.LEFT))
                EgtSetMachiningParam( MCH_MP.INVERT, EgtIf( bSide, true, false))
+               
+               -- si aggiusta la direzione di lavoro in base a rotazione utensile e preferenza utente (nUseConventionalMilling da fuori o Q14)
+               EgtMdbSetCurrMachining( sMilling)
+               local bIsCurrentToolCCW = EgtMdbGetCurrMachiningParam( MCH_MP.SPEED) < 0
+               if nUseConventionalMilling == nil then
+                  nUseConventionalMilling = EgtGetInfo( Proc.Id, 'Q14', 'd') or 0
+               end
+               local bUseConventionalMilling = false
+               if nUseConventionalMilling == 1 or ( nUseConventionalMilling == 2 and vtN[vOrd[i]]:getX() < 0.1 and Proc.AffectedFaces.Bottom) then
+                  bUseConventionalMilling = true
+               end
+               if bIsCurrentToolCCW ~= bUseConventionalMilling then
+                  local dCurrStartAddLen = EgtGetMachiningParam( MCH_MP.STARTADDLEN)
+                  local dCurrEndAddLen = EgtGetMachiningParam( MCH_MP.ENDADDLEN)
+                  local bCurrInvert = EgtGetMachiningParam( MCH_MP.INVERT)
+                  local nCurrWorkside = EgtGetMachiningParam( MCH_MP.WORKSIDE)
+                  EgtSetMachiningParam( MCH_MP.STARTADDLEN, dCurrEndAddLen)
+                  EgtSetMachiningParam( MCH_MP.ENDADDLEN, dCurrStartAddLen)
+                  EgtSetMachiningParam( MCH_MP.INVERT, not bCurrInvert)
+                  EgtSetMachiningParam( MCH_MP.WORKSIDE, EgtIf( nCurrWorkside == MCH_MILL_WS.LEFT, MCH_MILL_WS.RIGHT, MCH_MILL_WS.LEFT))
+               end
+
                -- imposto offset radiale (nullo se concavo o di lato)
                local dOffsR = EgtIf( k < nO, ( nO - k) * dStep, EgtIf( bConvex, - BD.CUT_EXTRA, 0))
                if bSide then dOffsR = 0 end
@@ -1433,7 +1474,7 @@ function ProcessLong2Cut.Make( Proc, nPhase, nRawId, nPartId, bForcedBladeMaster
             end
          end
       end
-      if not Proc.bMoveAfterSplit and not bConvex and Proc.AffectedFaces.Left then
+      if not Proc.bMoveAfterSplit and not bConvex and Proc.AffectedFaces.Left and Proc.DistanceToNextPart < ( dToolDiam / 2 + 5) then
          -- recupero gruppo per geometria addizionale
          local nAddGrpId = BL.GetAddGroup( nPartId)
          if not nAddGrpId then
@@ -1466,8 +1507,8 @@ function ProcessLong2Cut.Make( Proc, nPhase, nRawId, nPartId, bForcedBladeMaster
          sMilling = ML.FindMilling( sMchType)
          sPrefix = 'L2CS_'
          nExtendMach = nUseMillOnSide
-         if nUseMillOnSide == 2 then 
-            bRemoveToolRadius = true 
+         if nUseMillOnSide == 2 then
+            bRemoveToolRadius = true
          end
          -- se testa da sotto
          if nSide ~= 1 and BD.DOWN_HEAD then
@@ -1545,6 +1586,12 @@ function ProcessLong2Cut.Make( Proc, nPhase, nRawId, nPartId, bForcedBladeMaster
          -- calcolo l'elevazione della faccia principale
       local dFacElev1 = BL.GetFaceElevation( Proc, tFaceLong[vOrd[1]], b3Solid)
       local dFacElev2 = BL.GetFaceElevation( Proc, tFaceLong[vOrd[2]], b3Solid)
+      local bFacesSwapped = false
+      if bInt and not bConvex and dFacElev1 - 10* GEO.EPS_SMALL > dFacElev2 then
+         vOrd[1], vOrd[2] = vOrd[2], vOrd[1]
+         dFacElev1, dFacElev2 = dFacElev2, dFacElev1
+         bFacesSwapped = true
+      end
       -- se fresa di fianco o da sotto calcolo quanto l'utensile può andare vicino al limite se l'elevazione della faccia è minore del raggio utensile
       if nUseMillOnSide <= 1 or nSide == -1 then
          local dFacElev = max( dFacElev1, dFacElev2)
@@ -1643,6 +1690,11 @@ function ProcessLong2Cut.Make( Proc, nPhase, nRawId, nPartId, bForcedBladeMaster
             dEndAccDist = 0
          end
       end
+      if Proc.bMoveAfterSplit then
+         nC = 1
+         dStartDist = Proc.Box:getDimX() - ( dToolDiam / 2 + 5)
+         dEndDist = - ( dToolDiam / 2 + 5)
+      end
       -- ciclo sulle parti
       local nM = 0
       for j = 1, nC do
@@ -1725,7 +1777,7 @@ function ProcessLong2Cut.Make( Proc, nPhase, nRawId, nPartId, bForcedBladeMaster
                local ptC3 = EgtSurfTmFacetCenter( Proc.Id, tFaceLong[vOrd[i]], GDB_ID.ROOT) 
                local ptDir = ptC3 - ptM ; ptDir:normalize()
                -- se concave e dal versore Z  della faccia (> -20°) o convesso e versore Z ( > -30°) decido se eseguire la lavoraione con la testa da sopra o da sotto  
-               if ( not bConvex and vtN[vOrd[i]]:getZ() > -0.9397 and ptDir:getZ() > 0) or
+               if ( not bConvex and vtN[vOrd[i]]:getZ() > -0.9397 and ptDir:getZ() > -0.017) or
                   ( bConvex and vtN[vOrd[i]]:getZ() > -0.866  and ptDir:getZ() > 0) then
                   sNameF = sPrefix .. ( EgtGetName( Proc.Id) or tostring( Proc.Id)) .. '_' .. tostring( nM)
                   nMchFId = EgtAddMachining( sNameF, sMilling)
@@ -1833,9 +1885,39 @@ function ProcessLong2Cut.Make( Proc, nPhase, nRawId, nPartId, bForcedBladeMaster
                   EgtSetMachiningParam( MCH_MP.FACEUSE, vFaceUse[vOrd[i]])
                end
             end
+
+            if bFacesSwapped then
+               local dCurrStartAddLen = EgtGetMachiningParam( MCH_MP.STARTADDLEN)
+               local dCurrEndAddLen = EgtGetMachiningParam( MCH_MP.ENDADDLEN)
+               EgtSetMachiningParam( MCH_MP.STARTADDLEN, dCurrEndAddLen)
+               EgtSetMachiningParam( MCH_MP.ENDADDLEN, dCurrStartAddLen)
+            end
+
             -- imposto lato di lavoro e inversione
             EgtSetMachiningParam( MCH_MP.WORKSIDE, EgtIf( bIsMachDownUp, MCH_MILL_WS.RIGHT, MCH_MILL_WS.LEFT))
             EgtSetMachiningParam( MCH_MP.INVERT, true)
+
+            -- si aggiusta la direzione di lavoro in base a rotazione utensile e preferenza utente (nUseConventionalMilling da fuori o Q14)
+            EgtMdbSetCurrMachining( sMilling)
+            local bIsCurrentToolCCW = EgtMdbGetCurrMachiningParam( MCH_MP.SPEED) < 0
+            if nUseConventionalMilling == nil then
+               nUseConventionalMilling = EgtGetInfo( Proc.Id, 'Q14', 'd') or 0
+            end
+            local bUseConventionalMilling = false
+            if nUseConventionalMilling == 1 or ( nUseConventionalMilling == 2 and vtN[vOrd[i]]:getX() < 0.1 and Proc.AffectedFaces.Bottom) then
+               bUseConventionalMilling = true
+            end
+            if bIsCurrentToolCCW ~= bUseConventionalMilling then
+               local dCurrStartAddLen = EgtGetMachiningParam( MCH_MP.STARTADDLEN)
+               local dCurrEndAddLen = EgtGetMachiningParam( MCH_MP.ENDADDLEN)
+               local bCurrInvert = EgtGetMachiningParam( MCH_MP.INVERT)
+               local nCurrWorkside = EgtGetMachiningParam( MCH_MP.WORKSIDE)
+               EgtSetMachiningParam( MCH_MP.STARTADDLEN, dCurrEndAddLen)
+               EgtSetMachiningParam( MCH_MP.ENDADDLEN, dCurrStartAddLen)
+               EgtSetMachiningParam( MCH_MP.INVERT, not bCurrInvert)
+               EgtSetMachiningParam( MCH_MP.WORKSIDE, EgtIf( nCurrWorkside == MCH_MILL_WS.LEFT, MCH_MILL_WS.RIGHT, MCH_MILL_WS.LEFT))
+            end
+
             -- calcolo la componente dNz non in base alla classificazione della feature (sopra, sotto, fianchi) ma alla componente maggiore 
 --            local dNz = EgtIf( nSide == 0, vtN[vOrd[i]]:getY(), vtN[vOrd[i]]:getZ())
 --            local dNz = EgtIf( abs(vtN[vOrd[i]]:getY()) >= abs(vtN[vOrd[i]]:getZ()), vtN[vOrd[i]]:getY(), vtN[vOrd[i]]:getZ())

LuaLibs/ProcessSplit.lua

@@ -198,7 +198,13 @@ local function MakeTailChamfer( idProc, nPartId, dDepthTailChamfer)
    EgtSetGridFrame( Frame3d( 0,0,0, GDB_FR.LEFT))
 
    local dQ09Value = EgtGetInfo( idProc, 'Q09', 'd')
+   if not dQ09Value then
+      dQ09Value = 0.1
+   end
    local bChamferedEdge = dQ09Value > 0
+   dQ09Value = EgtIf( bChamferedEdge, max( dQ09Value, 0.1), min( dQ09Value, -0.1))
+
+   
 
    local nIdFirstEntity, nEntityCnt = EgtExplodeCurveCompo( nLoopId)
    local p3MidPoint = EgtMP( nIdFirstEntity, GDB_ID.GRID)
@@ -234,6 +240,9 @@ local function MakeTailChamfer( idProc, nPartId, dDepthTailChamfer)
    end
    EgtChangeClosedCurveStartPoint( idGeom, p3MidPoint, GDB_RT.GRID)
 
+   -- reimposto la griglia
+   EgtSetGridFrame()
+
    -- Inserisco la lavorazione del lato standard
    local dExtra = 2
    local sName1 = 'TailCham_' .. ( EgtGetName( idProc) or tostring( idProc))
@@ -825,7 +834,7 @@ function ProcessSplit.Make( Proc, nPhase, nRawId, nPartId, nOrd, sDownOrSideOrSt
          -- determinazione materiale da asportare
          local dSawThickCheck = dSawThick
          if dSawThick2 > 0 and bDoubleHorizCut then
-            dSawThickCheck = min( dSawThick, dSawThick2)
+            dSawThickCheck = max( min( dSawThick, dSawThick2), dOvmTail)
          end
          local dMaxElev = 0
          if vtN:getX() > 0 then

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,5 +1,44 @@
            ==== 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
+
+Versione 3.1b1 (26/02/2026)
+- Added : in LapJoint lunghe gestito Q14 per lavorare discorde
+- Added : in forature ora sono possibili le DrillPocket in doppio (ultimo step fatto dalla testa principale)
+- Added : in FreeContour (contornatura) aggiunta Q10 per forzare massima elevazione
+- Modif : in LongDoubleCut e LapJoint lunghe migliorata la scelta della faccia da lavorare e altre migliorie
+- Modif : in LapJoint migliorie alle svuotature
+- Modif : in LapJoint lunghe, negli spezzoni successivi al primo, le svuotature considerano l'area svuotata precedente
+- Fixed : in forature in doppio si garantisce l'ultimo step per evitare collisioni delle punte o finecorsa
+- Fixed : in mortasa a coda di rondine tagliata corretti ingresso uscita in caso di svuotatura
+- Fixed : in tagli di testa e coda corretti smussi con P08 e P09
+
 Versione 2.7l3 (23/12/2025)
 - Modif : nei fori che attraversano un taglio si decide la precedenza in base all'angolo tra foro e taglio stesso
 - Fixed : corretto precut in caso di sega a catena

Version.lua

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