Merge branch 'develop' of https://gitlab.steamware.net/egalware-cadcam/lua/DataBeam into develop

3.1h2

LuaLibs/BeamExec.lua

@@ -996,12 +996,12 @@ local function OrderFeatures( vProc, b3Raw, nPartId)
          return true
       end
       -- se primo è foro e secondo è un ribasso o tenone, il foro va sempre prima a meno che il ribasso non sia di testa
-      if Drill.Identify(B1) and ( LapJoint.Identify(B2) or Mortise.Identify(B2) or Tenon.Identify(B2)) and B2.PassedByHole and
+      if Drill.Identify(B1) and ( LapJoint.Identify(B2) or Mortise.Identify(B2) or Tenon.Identify(B2) or ScarfJoint.Identify(B2)) and B2.PassedByHole and
          B1.Box:getCenter():getX() > B2.Box:getMin():getX() and B1.Box:getCenter():getX() < B2.Box:getMax():getX() then
          return true
       end
       -- se primo è un ribasso e secondo è un foro o tenone, il ribasso va sempre dopo a meno che il ribasso non sia di testa
-      if ( LapJoint.Identify(B1) or Mortise.Identify(B1) or Tenon.Identify(B1)) and B1.PassedByHole and Drill.Identify(B2) and
+      if ( LapJoint.Identify(B1) or Mortise.Identify(B1) or Tenon.Identify(B1) or ScarfJoint.Identify(B1)) and B1.PassedByHole and Drill.Identify(B2) and
          B2.Box:getCenter():getX() > B1.Box:getMin():getX() and B2.Box:getCenter():getX() < B1.Box:getMax():getX() then
          return false
       end
@@ -1067,12 +1067,12 @@ local function OrderFeatures( vProc, b3Raw, nPartId)
          return ( B1.Box:getMax():getX() + dDrillPenalty > B2.Box:getCenter():getX())
       end
       -- se prima è mortasa coda di rondine sul fianco e secondo taglio longitudinale, la coda di rondine va sempre prima
-      if DtMortise.SideIdentify(B1) and ( LongCut.Identify(B2) or Long2Cut.Identify(B2)) and
+      if DtMortise.SideIdentify(B1) and ( LongCut.Identify(B2) or Long2Cut.Identify(B2) or LapJoint.Identify( B2)) and
          OverlapsX( B1.Box, B2.Box) then
          return true
       end
       -- se primo è taglio longitudinale e seconda è mortasa coda di rondine sul fianco, il taglio longitudinale va sempre dopo
-      if ( LongCut.Identify(B1) or Long2Cut.Identify(B1)) and DtMortise.SideIdentify(B2) and
+      if ( LongCut.Identify(B1) or Long2Cut.Identify(B1) or LapJoint.Identify( B1)) and DtMortise.SideIdentify(B2) and
          OverlapsX( B1.Box, B2.Box) then
          return false
       end
@@ -2227,8 +2227,8 @@ function GetFeatureInfoAndDependency( vProc, b3Raw, nPartId)
                   and DtMortise.SideIdentify( ProcB) and Overlaps( Proc.Box, ProcB.Box)  and DtMortise.IsDeeper( ProcB, b3Raw) then
                   Proc.PassedByDtMortise = true
                end
-               -- se tenone è attraversato da foro allora il foro deve essere fatto prima
+               -- se tenone o ScarfJoint sono attraversati da foro allora il foro deve essere fatto prima
-               if Tenon.Identify( Proc) and Drill.Identify( ProcB) and Overlaps( Proc.Box, ProcB.Box) then
+               if ( Tenon.Identify( Proc) or ScarfJoint.Identify( Proc)) and Drill.Identify( ProcB) and Overlaps( Proc.Box, ProcB.Box) then
                   Proc.PassedByHole = true
                end
                -- se taglio attraversato da foro, si definisce precedenza in base ad angolo
@@ -2300,7 +2300,7 @@ function BeamExec.ProcessFeatures()
       BD.IMPROVE_HEAD_TAIL_DRILLINGS = true
    end
    -- costanti per doppio
-   MIRROR_DRILLINGS_MIN_DISTANCE = 40
+   MIRROR_DRILLINGS_MIN_DISTANCE = 25 --TODO spostare la variabile MinDistToolX1X2 nel BeamData e usare quella
    MIRROR_POCKETS_MIN_DISTANCE = EgtIf( BD.DOWN_HEAD, 35, 50)
    -- verifica se possibile rotazione di 90 gradi
    BD.ROT90 = BD.ROT90 and Verify90DegRotation( EgtGetFirstRawPart())

LuaLibs/BeamLib.lua

@@ -1448,7 +1448,7 @@ function BeamLib.GetToolFromMachining( sMachiningName)
             Tool.Thickness = EgtTdbGetCurrToolParam( MCH_TP.THICK) or 0
             Tool.CornerRadius = EgtTdbGetCurrToolParam( MCH_TP.CORNRAD) or 0
          -- fresa (TODO al momento aggiunte solo le informazioni che servono)
-         elseif Tool.Type == MCH_TY.MILL_STD or MCH_TY.MILL_NOTIP then
+         elseif Tool.Type == MCH_TY.MILL_STD or Tool.Type == MCH_TY.MILL_NOTIP then
             if BD.GetSetupInfo then
                Tool.IsOnAggregate = BD.GetSetupInfo( EgtTdbGetCurrToolParam( MCH_TP.HEAD)).bToolOnAggregate
             else
@@ -1459,6 +1459,8 @@ function BeamLib.GetToolFromMachining( sMachiningName)
             if Tool.StemDiameter > Tool.Diameter + GEO.EPS_SMALL then
                Tool.MaxDepth = Tool.MaxDepth - BD.COLL_SIC
             end
+         elseif Tool.Type == MCH_TY.DRILL_STD or Tool.Type == MCH_TY.DRILL_LONG then
+            Tool.Length = EgtTdbGetCurrToolParam( MCH_TP.LEN) or 0
          -- altri utensili al momento non previsti
          else
             error( 'Wrong tool type')

LuaLibs/ProcessDrill.lua

@@ -559,7 +559,7 @@ function ProcessDrill.Make( Proc, nPhase, nRawId, nPartId, dCurrOvmH)
    nFac, CosB, vFaces = GetHoleStartData( ptCen, vtExtr, b3Solid)
    -- Calcolo acciorciamento affondamento utile per evitare collisione portautensile con faccia
    TgA = CosB / sqrt( 1 - CosB * CosB)
-   dSubL = ( dDiamTh / 2 + ( Proc.Diam - dToolDiam) / 2 + 4) * TgA
+   local dSubL = ( dDiamTh / 2 + ( Proc.Diam - dToolDiam) / 2 + 4) * TgA
    -- Per fori molto inclinati ( < 30 gradi) si usa la testa della macchina per l'accorciamento. Fast esclusa
    if BD.C_SIMM and CosB > 0.866  then
       dSubL = ( 190 / 2 + ( Proc.Diam - dToolDiam) / 2 + 4) * TgA - 116
@@ -667,7 +667,13 @@ function ProcessDrill.Make( Proc, nPhase, nRawId, nPartId, dCurrOvmH)
             end
          end
       else
-         sUserNotes = EgtSetValInNotes( sUserNotes, 'LastStep', MIRROR_DRILLINGS_MIN_DISTANCE / 2 + 15)
+         local Tool = BL.GetToolFromMachining( sDrilling)
+         local dDrillbitTipLength_H1 = dMaxToolLength - Tool.Length
+         local sNotes = EgtTdbGetCurrToolParam( MCH_TP.USERNOTES)
+         EgtTdbSetCurrTool( EgtGetValInNotes( sNotes, 'DOUBLE', 's') or Tool.Name)
+         local dDrillbitTipLength_H2 = ( EgtTdbGetCurrToolParam( MCH_TP.TOTLEN) or 0) - ( EgtTdbGetCurrToolParam( MCH_TP.LEN) or 0)
+         EgtTdbSetCurrTool( Tool.Name)
+         sUserNotes = EgtSetValInNotes( sUserNotes, 'LastStep', ( MIRROR_DRILLINGS_MIN_DISTANCE + dDrillbitTipLength_H1 + dDrillbitTipLength_H2 + 10) / 2 + 1)
       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'

LuaLibs/ProcessLapJoint.lua

@@ -1792,7 +1792,9 @@ local function MakeRoundCleanContour( Proc, nPhase, nRawId, nPartId, b3Raw,
                                       dDepth, bOneShot)
 
    -- recupero la lavorazione senza considerare l'elevazione perché viene calcolata l'elevazione utile
-   local sMilling = ML.FindMilling( 'SmallToolContour', nil, nil, nil, nil, not( bMillDown and not bDoubleSide), bMillDown and not bDoubleSide)
+   local bTopHead = not( bMillDown and not bDoubleSide)
+   local bDownHead = bMillDown and not bDoubleSide
+   local sMilling = ML.FindMilling( 'SmallToolContour', nil, nil, nil, nil, bTopHead, bDownHead)
    if not sMilling then
       local sMyWarn = 'Warning : SmallToolContour not found in library'
       EgtOutLog( sMyWarn)
@@ -1954,17 +1956,31 @@ local function MakeRoundCleanContour( Proc, nPhase, nRawId, nPartId, b3Raw,
       EgtSetMachiningParam( MCH_MP.WORKSIDE, MCH_MILL_WS.LEFT)
       -- inversione direzione utensile
       local bInvertMach = false
+      local bInvertTool = false
       if nPathInt then
+         if bDownHead then
+            if vtN1:getZ() > 10 * GEO.EPS_SMALL then
+               bInvertTool = true
+               bInvertMach = true
+            end
+         elseif bMillDown and bDoubleSide then
+            if vtN1:getZ() > 10 * GEO.EPS_SMALL and bDownHead then
+               bInvertTool = true
+               bInvertMach = true
+            end
+         else
             -- verifico se devo invertire direzione utensile (in caso di direzione verso la verticale)
-         if vtN1:getZ() < BD.NZ_MINA and abs(vtN1:getZ()) >= 0.707 then
+            if vtN1:getZ() < BD.NZ_MINA and abs( vtN1:getZ()) >= 0.707 then
-            EgtSetMachiningParam( MCH_MP.TOOLINVERT, true)
+               bInvertTool = true
                bInvertMach = true
             -- altrimenti se da fare in una sola volta e direzionato verso Y+ lo inverto per lavorarlo davanti
-         elseif not bDoubleSide and vtN1:getY() > GEO.EPS_SMALL then
+            elseif not bDoubleSide and vtN1:getY() > 10 * GEO.EPS_SMALL then
-            EgtSetMachiningParam( MCH_MP.TOOLINVERT, true)
+               bInvertTool = true
                bInvertMach = true
             end
          end
+      end
+      EgtSetMachiningParam( MCH_MP.TOOLINVERT, bInvertMach)
       -- imposto posizione braccio porta testa
       local nSCC = MCH_SCC.NONE
       if not BD.C_SIMM then
@@ -2039,7 +2055,7 @@ local function MakeRoundCleanContour( Proc, nPhase, nRawId, nPartId, b3Raw,
          -- imposto lato di lavoro sinistro
          EgtSetMachiningParam( MCH_MP.WORKSIDE, MCH_MILL_WS.LEFT)
          -- imposto direzione utensile opposta
-         EgtSetMachiningParam( MCH_MP.TOOLINVERT, true)
+         EgtSetMachiningParam( MCH_MP.TOOLINVERT, not bInvertTool)
          -- imposto posizione braccio porta testa
          local nSCC = MCH_SCC.NONE
          if not BD.C_SIMM then
@@ -2068,7 +2084,7 @@ local function MakeRoundCleanContour( Proc, nPhase, nRawId, nPartId, b3Raw,
          EgtSetMachiningParam( MCH_MP.DEPTH, dMachDepth)
          -- setto se devo invertire il percorso
          local bInvert = CheckToInvert( nIdPath, true)
-         EgtSetMachiningParam( MCH_MP.INVERT, not bInvert)
+         EgtSetMachiningParam( MCH_MP.INVERT, not EgtIf( bInvertMach, not bInvert, bInvert))
          -- Note utente con dichiarazione nessuna generazione sfridi per Vmill e massima elevazione
          local sUserNotes = EgtGetMachiningParam( MCH_MP.USERNOTES) or ''
          sUserNotes = EgtSetValInNotes( sUserNotes, 'VMRS', 0)
@@ -4583,21 +4599,25 @@ local function MakeByPockets( Proc, nPhase, nRawId, nPartId, nChamfer, dDepthCha
                   else
                      dMachDepth = dMaxDepthDn - ( dDepth / 2) - dCollSic
                      dElev = dMaxDepthDn
+                     if dMaxDepthDn < ( dDepth / 2) + dCollSic + 100 * GEO.EPS_SMALL then
                         bComplete = false
                         sWarn = 'Warning : elevation bigger than max tool depth'
                         EgtOutLog( sWarn)
                      end
+                  end
                else
                   -- se anche lavorando dal lato opposto non riesco a svuotare completamente la fessura 
                   -- setto i parametri affondamento ed emetto warning
                   if dMaxDepth < ( dDepth / 2) + BD.CUT_EXTRA + dCollSic then
                      dMachDepth = dMaxDepth - (dDepth / 2) - dCollSic
                      dElev = dMaxDepth
+                     if dMaxDepth < ( dDepth / 2) + dCollSic + 100 * GEO.EPS_SMALL then
                         bComplete = false
                         sWarn = 'Warning : elevation bigger than max tool depth'
                         EgtOutLog( sWarn)
                      end
                   end
+               end
                if bMakeContour then
                   -- inserisco la lavorazione di contornatura
                   sName = 'ProfOppo_' .. ( EgtGetName( Proc.Id) or tostring( Proc.Id))
@@ -4894,6 +4914,30 @@ local function ManageAntiSplintBySaw( Proc, b3Raw, b3Solid, bIsU, vtN, nFacInd,
                      EgtSetMachiningParam( MCH_MP.INVERT, not bInvert)
                      -- setto l'offset pari allo spessore lama
                      EgtSetMachiningParam( MCH_MP.OFFSL, -dSawThick)
+                     local LeadIn = {
+                        dStartAddLen = EgtGetMachiningParam( MCH_MP.STARTADDLEN),
+                        dLeadInTangDist = EgtGetMachiningParam( MCH_MP.LITANG),
+                        dLeadInPerpDist = EgtGetMachiningParam( MCH_MP.LIPERP),
+                        dLeadInElev = EgtGetMachiningParam( MCH_MP.LIELEV),
+                        dLeadInCompLen = EgtGetMachiningParam( MCH_MP.LICOMPLEN)
+                     }
+                     local LeadOut = {
+                        dEndAddLen = EgtGetMachiningParam( MCH_MP.ENDADDLEN),
+                        dLeadOutTangDist = EgtGetMachiningParam( MCH_MP.LOTANG),
+                        dLeadOutPerpDist = EgtGetMachiningParam( MCH_MP.LOPERP),
+                        dLeadOutElev = EgtGetMachiningParam( MCH_MP.LOELEV),
+                        dLeadOutCompLen = EgtGetMachiningParam( MCH_MP.LOCOMPLEN)
+                     }
+                     EgtSetMachiningParam( MCH_MP.STARTADDLEN, LeadOut.dEndAddLen)
+                     EgtSetMachiningParam( MCH_MP.LITANG, LeadOut.dLeadOutTangDist)
+                     EgtSetMachiningParam( MCH_MP.LIPERP, LeadOut.dLeadOutPerpDist)
+                     EgtSetMachiningParam( MCH_MP.LIELEV, LeadOut.dLeadOutElev)
+                     EgtSetMachiningParam( MCH_MP.LICOMPLEN, LeadOut.dLeadOutCompLen)
+                     EgtSetMachiningParam( MCH_MP.ENDADDLEN, LeadIn.dStartAddLen)
+                     EgtSetMachiningParam( MCH_MP.LOTANG, LeadIn.dLeadInTangDist)
+                     EgtSetMachiningParam( MCH_MP.LOPERP, LeadIn.dLeadInPerpDist)
+                     EgtSetMachiningParam( MCH_MP.LOELEV, LeadIn.dLeadInElev)
+                     EgtSetMachiningParam( MCH_MP.LOCOMPLEN, LeadIn.dLeadInCompLen)
                   end
                end
             end
@@ -5713,17 +5757,8 @@ function SawPlusChain.CalculateLeadInOut( Machining, EdgeToMachine, FaceToMachin
          LeadIn.StartAddLength = BD.CUT_EXTRA
          LeadOut.EndAddLength = BD.CUT_EXTRA
       end
-      local vtN = Vector3d( FaceToMachine.VtN)
+      local ptP1 = Point3d( EdgeToMachine.ptStart)
-      local vtOrthO
+      local ptP2 = Point3d( EdgeToMachine.ptEnd)
-      if EdgeToMachine.Elevation > - 10 * GEO.EPS_SMALL then
-         vtOrthO = Vector3d( EdgeToMachine.ToolDirection)
-      else
-         vtOrthO = -Vector3d( EdgeToMachine.ToolDirection)
-      end
-      local ptP1 = Point3d( FaceToMachine.Edges.BottomEdge.ptStart)
-      local ptP2 = Point3d( FaceToMachine.Edges.BottomEdge.ptEnd)
-      local vtV1 = -Vector3d( FaceToMachine.Edges.SideEdges.StartEdge.vtEdge)
-      local vtV2 = Vector3d( FaceToMachine.Edges.SideEdges.EndEdge.vtEdge)
       
       local bInvert = Machining.Invert
       if bInvert then
@@ -5734,16 +5769,6 @@ function SawPlusChain.CalculateLeadInOut( Machining, EdgeToMachine, FaceToMachin
       Machining.vtTg = vtTg
       Machining.vtV = vtV1
       
-      -- Versore di riferimento
-      local vtRef = Vector3d( vtTg)
-      vtRef:rotate( vtN, EgtIf( bInvert, -90, 90))
-      
-      local b3Box = BBox3d( b3Raw)
-      b3Box:expand( BD.CUT_SIC)
-      local ptPa1 = ptP1 + LeadIn.StartAddLength * -vtTg
-      local ptPa2 = ptP2 + LeadOut.EndAddLength * vtTg
-
-      LeadIn.TangentDistance, LeadIn.PerpDistance, LeadOut.TangentDistance, LeadOut.PerpDistance = Fbs.CalcLeadInOutPerpGeom(  ptPa1, ptPa2, vtV1, vtV2, vtN, ( Machining.Tool.Diameter / 2), vtRef, -Machining.RadialOffset, b3Box)
    else
       if Machining.IsStartClosed then
          LeadIn.StartAddLength = -dAddLengthToReduce
@@ -5856,9 +5881,28 @@ function SawPlusChain.ApplyMachining( Machining, b3Raw)
 end
 
 
-function SawPlusChain.Saw.GetSCC( vtMachiningDirection)
+function SawPlusChain.Saw.GetSCC( vtMachiningDirection, vtN, vtTg)
    -- TODO implementare SCC come per FacesBySaw
-   local nSCC = MCH_SCC.NONE
+   if not BD.TURN then
+      -- per ora aggregato usato in verticale solo in split e headcut; Fast non influenzata
+      if BD.C_SIMM and bMaximizeVerticalDepth then
+         nSCC = MCH_SCC.ADIR_ZM
+      elseif abs( vtMachiningDirection:getX()) > abs( vtMachiningDirection:getY()) - GEO.EPS_SMALL then
+         -- se il taglio è orizzontale, si gira aggregato lama per facilitare caduta del legno
+         if abs( vtTg:getZ()) < 10 * GEO.EPS_SMALL and not AreSameOrOppositeVectorApprox( vtN, Z_AX()) then
+            nSCC = EgtIf( ( vtMachiningDirection:getX() > -GEO.EPS_SMALL), MCH_SCC.ADIR_XM, MCH_SCC.ADIR_XP)
+         else
+            nSCC = EgtIf( ( vtMachiningDirection:getX() > -GEO.EPS_SMALL), MCH_SCC.ADIR_XP, MCH_SCC.ADIR_XM)
+         end
+      else
+         -- se il taglio è orizzontale, si gira aggregato lama per facilitare caduta del legno
+         if abs( vtTg:getZ()) < 10 * GEO.EPS_SMALL and not AreSameOrOppositeVectorApprox( vtN, Z_AX()) then
+            nSCC = EgtIf( ( vtMachiningDirection:getY() > -GEO.EPS_SMALL), MCH_SCC.ADIR_YM, MCH_SCC.ADIR_YP)
+         else
+            nSCC = EgtIf( ( vtMachiningDirection:getY() > -GEO.EPS_SMALL), MCH_SCC.ADIR_YP, MCH_SCC.ADIR_YM)
+         end
+      end
+   else
       if AreSameVectorApprox( vtMachiningDirection, Z_AX()) then
          nSCC = MCH_SCC.ADIR_ZP
       elseif AreOppositeVectorApprox( vtMachiningDirection, Z_AX()) then
@@ -5872,7 +5916,7 @@ function SawPlusChain.Saw.GetSCC( vtMachiningDirection)
       elseif AreOppositeVectorApprox( vtMachiningDirection, X_AX()) then
          nSCC = MCH_SCC.ADIR_XM
       end
-
+   end
    return nSCC
 end
 
@@ -5994,8 +6038,6 @@ function SawPlusChain.Saw.CalculateMachiningParameters( Proc, FaceToMachine, Edg
       Cutting.Faceuse = BL.GetNearestOrthoOpposite( -EdgeToMachine.ToolDirection)
    end
    Cutting.nEdgeFaceUse = EdgeToMachine.Id
-   -- SCC
-   Cutting.SCC = SawPlusChain.Saw.GetSCC( EdgeToMachine.ToolDirection)
    -- asse bloccato
    Cutting.BlockedAxis = {}
    Cutting.BlockedAxis.Orientation = 'perpendicular'
@@ -6003,6 +6045,8 @@ function SawPlusChain.Saw.CalculateMachiningParameters( Proc, FaceToMachine, Edg
    Cutting.BlockedAxis.VtOut = EgtIf( FaceToMachine.VtN:getX() > 0, X_AX(), -X_AX())
    -- approccio e retrazione
    Cutting.LeadIn, Cutting.LeadOut = SawPlusChain.CalculateLeadInOut( Cutting, EdgeToMachine, FaceToMachine, b3Raw)
+   -- SCC
+   Cutting.SCC = SawPlusChain.Saw.GetSCC( EdgeToMachine.ToolDirection, FaceToMachine.VtN, Cutting.vtTg)
    -- eventuale step orizzontale
    Cutting.HorizontalSteps = {}
    if Cutting.Tool.SideStep then
@@ -6036,25 +6080,15 @@ function SawPlusChain.Saw.ApplyAllSteps( Cutting, b3Raw)
    local bIsCuttingOk = false
    local sCuttingOriginalMessage = Cutting.Message or ''
    local sCuttingApplyMessage = ''
-   local vtTg = Cutting.vtTg
-   local bInvert = Cutting.Invert
    local dOriginalRadialOffset = Cutting.RadialOffset
    local dOriginalLeadInPerpDistance = Cutting.LeadIn.PerpDistance
-   local dOriginalLeadInTangDistance = Cutting.LeadIn.TangentDistance
    local dOriginalLeadOutPerpDistance = Cutting.LeadOut.PerpDistance
-   local dOriginalLeadOutTangDistance = Cutting.LeadOut.TangentDistance
    
    for i = Cutting.HorizontalSteps.Count, 1, -1 do
       Cutting.RadialOffset = dOriginalRadialOffset + Cutting.HorizontalSteps.StepLength * ( i - 1)
-      local dOrthoOffsetStep = ( Cutting.RadialOffset * ( Cutting.vtV * vtTg))
       -- update distanza perpendicolare attacco per contemplare l'offset applicato
       Cutting.LeadIn.PerpDistance = dOriginalLeadInPerpDistance - Cutting.RadialOffset
-      Cutting.LeadIn.TangentDistance = dOriginalLeadInTangDistance + dOrthoOffsetStep + Cutting.LeadIn.StartAddLength
       Cutting.LeadOut.PerpDistance = dOriginalLeadOutPerpDistance - Cutting.RadialOffset
-      Cutting.LeadOut.TangentDistance = dOriginalLeadOutTangDistance - dOrthoOffsetStep - Cutting.LeadOut.EndAddLength
-
-      Cutting.LeadIn.StartAddLength = Cutting.LeadIn.StartAddLength - dOrthoOffsetStep - Cutting.LeadIn.StartAddLength
-      Cutting.LeadOut.EndAddLength = Cutting.LeadOut.EndAddLength + dOrthoOffsetStep + Cutting.LeadOut.EndAddLength
       -- applicazione lavorazione
       bIsCuttingOk, sCuttingApplyMessage = SawPlusChain.ApplyMachining( Cutting, b3Raw)
       -- update messaggi
@@ -6780,9 +6814,9 @@ local function AddMillCorner( vFace, Proc, dToolDiam, nAddGrpId, nMasterNewProc,
                end
             end
             -- punto successivo ( precedente della faccia successiva)
-            local k = EgtIf( j < #vFace, j + 1, 1)
+            local k = EgtIf( j < #vFace, j + 1, EgtIf( bClosed, 1, nil))
             -- se è un percorso aperto prendo il punto medio della seconda faccia come punto locale 2
-            if not bClosed then
+            if not k then
                if vFace[j].PNoSucc then
                   ptLoc2 = vFace[j].PNoSucc
                elseif abs( vtN:getZ()) > abs( vtN:getY()) then
@@ -6791,7 +6825,15 @@ local function AddMillCorner( vFace, Proc, dToolDiam, nAddGrpId, nMasterNewProc,
                   ptLoc2 = Point3d( vFace[j].Cen:getX(), ptLoc1:getY(), vFace[j].Cen:getZ())
                end
             else
+               if vFace[j].PNoSucc then
+                  ptLoc2 = vFace[j].PNoSucc
+               elseif vFace[k].PPrev then
                   ptLoc2 = vFace[k].PPrev
+               elseif abs( vtN:getZ()) > abs( vtN:getY()) then
+                  ptLoc2 = Point3d( vFace[j].Cen:getX(), vFace[j].Cen:getY(), ptLoc1:getZ())
+               else
+                  ptLoc2 = Point3d( vFace[j].Cen:getX(), ptLoc1:getY(), vFace[j].Cen:getZ())
+               end
             end
             -- ricavo i punti e l'angolo interno
             local _, ptP1, ptP2, dAng = EgtSurfTmFacetsContact( nNewProc.Id, nFace1, nFace2, GDB_ID.ROOT)
@@ -6930,7 +6972,7 @@ local function GetCleanCornerFacesData( nNewProc, dToolDiam, dToolMaxDepth, dToo
       local bAdj, ptLocP1, ptLocP2, dAng =  EgtSurfTmFacetsContact( nNewProc, nPrecFac, nFac, GDB_ID.ROOT)
       -- salvo i dati
       vFace[i] = { Fac = nFac, Cen = ptCen, Norm = vtN, Len = dLen, Width = dWidth, AngPrev = EgtIf( bAdj, dAng, 0)}
-      if not bAdj then
+      if not bAdj and Proc.Fct > 3 then
          vFace[i].PNoPrev = GetCleanCornerPointIfNoAdj( nNewProc, Proc, nFac, vFace[i], nil, nil)
       end
       -- verifico che l'adiacenza sia veramente con il precedente (percorro con normale a destra)
@@ -6955,7 +6997,7 @@ local function GetCleanCornerFacesData( nNewProc, dToolDiam, dToolMaxDepth, dToo
             end
          end
          local bAdj_2, ptLocP1_2, ptLocP2_2, dAng_2 = EgtSurfTmFacetsContact( nNewProc, nFac, nFac+1, GDB_ID.ROOT)
-         if not bAdj_2 then
+         if not bAdj_2 and Proc.Fct > 3 then
             vFace[i].PNoSucc = GetCleanCornerPointIfNoAdj( nNewProc, Proc, nFac, vFace[i], ptLocP1, ptLocP2)
          end
       end
@@ -8176,7 +8218,7 @@ local function MakeMoreFaces( Proc, nPhase, nRawId, nPartId, dOvmHead, bSinglePa
                               local bOk, sWarn2 = MakeRoundCleanCornerOrContour( Proc, nPhase, nRawId, nPartId, b3Raw, 
                                                                                  nFacInd, nAddGrpId, dDiamTool, nContourSmallTool, bMillDown, 
                                                                                  bDoubleSide, vtOrtho, nPathInt, nSurfInt, b3Solid, 
-                                                                                 dDepth, bOneShotm)
+                                                                                 dDepth, bOneShot)
                               if not bOk then return false, sWarn2 end
                               if sWarn2 then
                                  if not sWarn then sWarn = '' end
@@ -8268,7 +8310,7 @@ local function MakeMoreFaces( Proc, nPhase, nRawId, nPartId, dOvmHead, bSinglePa
                                     local bOk, sWarn2 = MakeRoundCleanCornerOrContour( Proc, nPhase, nRawId, nPartId, b3Raw, 
                                                                                        nFacInd, nAddGrpId, dDiamTool, nContourSmallTool, bMillDown, 
                                                                                        bDoubleSide, vtOrtho, nPathInt, nSurfInt, b3Solid, 
-                                                                                       dDepth, bOneShotm)
+                                                                                       dDepth, bOneShot)
                                     if not bOk then return false, sWarn2 end
                                     if sWarn2 then
                                        if not sWarn then sWarn = '' end

LuaLibs/ProcessProfCamb.lua

@@ -33,6 +33,7 @@ local sEnableExtraBladeUpperFace = 'Q02' -- i
 local sDepthChamferMill          = 'Q03' -- d
 local sOverMaterialForFinish     = 'Q04' -- d
 local sPreemptiveChamfer         = 'Q05' -- i
+local sDisableAntiSplint         = 'Q19'
 
 -- abilitazioni extra
 local dMakeAntiSplintOnHead = 1 -- valore impronta antischeggia, per disattivare settare = nil o = 0
@@ -301,13 +302,14 @@ function ProcessProfCamb.Make( Proc, nPhase, nRawId, nPartId, dCurrOvmH)
    local sMilling
    -- in base alla direzione iniziale della curva e al valore di entrata valido, setto l'antischeggia
    local bMakeAs
+   local bDeleteAntiSplint = ( EgtGetInfo( Proc.Id, sDisableAntiSplint, 'i') or 0) == 1
    local vtStart = EgtSV( AuxId, GDB_ID.ROOT)
    if nSide == 0 then
-      if abs(vtStart:getY()) >= dActivateCompoAng and dMakeAntiSplintOnHead and abs(dMakeAntiSplintOnHead) > 0 then
+      if abs( vtStart:getY()) >= dActivateCompoAng and dMakeAntiSplintOnHead and abs( dMakeAntiSplintOnHead) > 0 and not bDeleteAntiSplint then
          bMakeAs = true
       end
    else
-      if abs(vtStart:getZ()) >= dActivateCompoAng and dMakeAntiSplintOnHead and abs(dMakeAntiSplintOnHead) > 0 then
+      if abs( vtStart:getZ()) >= dActivateCompoAng and dMakeAntiSplintOnHead and abs( dMakeAntiSplintOnHead) > 0 and not bDeleteAntiSplint then
          bMakeAs = true
       end
    end

UpdateLog.txt

@@ -1,5 +1,31 @@
            ==== Beam Update Log ====
 
+Versione 3.1h2 (24/08/2026)
+- Fixed : in Drill - Fori in doppio con utensili lunghi, corretto calcolo LastStep
+- Fixed : AntiSplintBySaw - Se inverte lavorazione, inverte anche i parametri di LeadIn e LeadOut
+
+Versione 3.1h1 (05/08/2026)
+- Modif : in Pocket non eseguo lavorazione di pulizia tasca (laterale) se le lavorazioni sopra e sotto arrivano esattamente a metà tasca (senza affondamento extra)
+- Modif : in RoundCleanContour - tasca passante lavorata solo da sopra o da sotto e fresa di contorno non lavora tutto, attiva lavorazione in doppio
+
+Versione 3.1g5 (31/07/2026)
+- Fixed : in RoundCleanContour per tasche a 3 facce a U in doppio
+
+Versione 3.1g4 (31/07/2026)
+- Modif : in ProfCamb aggiunta Q19, se = 1 disabilita lavorazione AntiSplint
+- Fixed : in RoundCleanContour per tasche a 3 facce a U MillDown
+
+Versione 3.1g3 (24/07/2026)
+- Fixed : in slot con lama corretta scelta SCC
+
+Versione 3.1g2 (17/07/2026)
+- Modif : Diminuito LastStep forature in doppio
+- Modif : ScarfJoint tra le feature da eseguire dopo i fori che la attraversano
+
+Versione 3.1g1 (14/07/2026)
+- Modif : in slot con lama migliorati attacchi inclinati
+- Modif : in CleanCorner migliorie
+
 Versione 3.1f3 (25/06/2026)
 - Modif : LapJoint - migliorata gestione BirdsMouth con più di 3 facce
 - Modif : Per identificare feature di testa, oltre che verificare se sia troncante, si controlla anche la feature taglio

Version.lua

@@ -1,6 +1,6 @@
--- Version.lua by Egaltech s.r.l. 2026/05/31
+-- Version.lua by Egaltech s.r.l. 2026/08/05
 -- Gestione della versione di Beam
 
 NAME = 'Beam'
-VERSION = '3.1f3'
+VERSION = '3.1h2'
 MIN_EXE = '3.1b1'