Merge branch 'release/3.1b1'

LuaLibs/ProcessDrill.lua

@@ -632,6 +632,8 @@ function ProcessDrill.Make( Proc, nPhase, nRawId, nPartId, dCurrOvmH)
    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)
@@ -644,10 +646,14 @@ function ProcessDrill.Make( Proc, nPhase, nRawId, nPartId, dCurrOvmH)
    -- imposto affondamento
    local dLastStepDepth
    if Proc.Double and Proc.Double > 0 then
-      if ( sType == 'Pocket_AT' or sType == 'Pocket') and bOpen then
-         local dReduceDepth = MIRROR_POCKETS_MIN_DISTANCE / 2 + 10
-         dLastStepDepth = dDepth + dReduceDepth
-         dDepth = dDepth - dReduceDepth
+      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
+         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'
@@ -661,8 +667,7 @@ function ProcessDrill.Make( Proc, nPhase, nRawId, nPartId, dCurrOvmH)
    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)
    local dCustomMaxElev

LuaLibs/ProcessLapJoint.lua

@@ -3575,6 +3575,7 @@ local function MakePocket( Proc, nPartId, b3Solid, ptPs, tvtN, nFaceRef, sMchFin
       local _, dH, dV = EgtSurfTmFacetMinAreaRectangle( Proc.Id, nFaceRef, GDB_ID.ROOT)
       local bL = ( Proc.Fct < 4 or TestElleShape4( Proc) == 2)
       if bL and min( dH, dV) < 1.5 * dDiamTool then
+         EgtSetMachiningParam( MCH_MP.INVERT, false)
          if not bTipMill then
             EgtSetMachiningParam( MCH_MP.LEADINTYPE, MCH_POCK_LI.HELIX)
             EgtSetMachiningParam( MCH_MP.LITANG, dDiamTool)
@@ -3599,7 +3600,16 @@ local function MakePocket( Proc, nPartId, b3Solid, ptPs, tvtN, nFaceRef, sMchFin
    local sUserNotes = EgtGetMachiningParam( MCH_MP.USERNOTES) or ''
    sUserNotes = EgtSetValInNotes( sUserNotes, 'MaxElev', EgtNumToString( dElev, 1))
    sUserNotes = EgtSetValInNotes( sUserNotes, 'VMRS', 0)
-   if bOpenOutRaw or ( Proc.LoopIdFacInd and ( EgtGetInfo( Proc.LoopIdFacInd, 'OPEN', 'i') or -1) > -1) then
+   -- Se forzato lato aperto lavorazione da curva forzo OpenOutRaw
+   if( Proc.LoopIdFacInd and ( EgtGetInfo( Proc.LoopIdFacInd, 'OPEN', 'i') or -1) > -1) then
+      local _, dH, dV = EgtSurfTmFacetMinAreaRectangle( Proc.Id, nFaceRef, GDB_ID.ROOT)
+      -- Se larghezza tasca uguale a larghezza utensile non permetto Invert
+      if abs( min( dH, dV) - dDiamTool) < 50 * GEO.EPS_SMALL then
+         EgtSetMachiningParam( MCH_MP.INVERT, false)
+      end
+      bOpenOutRaw = true
+   end
+   if bOpenOutRaw then
       sUserNotes = EgtSetValInNotes( sUserNotes, 'OpenOutRaw', 1)
    end
    EgtSetMachiningParam( MCH_MP.USERNOTES, sUserNotes)

LuaLibs/ProcessLongDoubleCut.lua

@@ -1277,26 +1277,28 @@ 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
+         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
                nIni = 2
             end
          else
-            if vtN[vOrd[1]]:getZ() < dLimitAngle then
+            if vtN1:getZ() < dLimitAngle then
                nIni = 2
-            elseif vtN[vOrd[2]]:getZ() < dLimitAngle then
+            elseif vtN2:getZ() < dLimitAngle then
                nFin = 1
             else
-               if vtN[vOrd[1]]:getZ() >= vtN[vOrd[2]]:getZ() then
-                  if vtN[vOrd[1]]:getZ() < dLimitAngle then
+               if vtN1:getZ() >= vtN2:getZ() then
+                  if vtN1:getZ() < dLimitAngle then
                      nIni = 2
                   else
                      nFin = 1
                   end
                else
-                  if vtN[vOrd[1]]:getZ() < dLimitAngle then
+                  if vtN1:getZ() < dLimitAngle then
                      nIni = 2
                   else
                      nFin = 1
@@ -1390,18 +1392,19 @@ function ProcessLong2Cut.Make( Proc, nPhase, nRawId, nPartId, bForcedBladeMaster
                   EgtOutLog( sErr)
                   return false, sErr
                end
+               local dMySal, dMyEal = dSal, dEal
                if bFacesSwapped then
-                  dSal, dEal = dEal, dSal
+                  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)

UpdateLog.txt

@@ -1,5 +1,16 @@
            ==== Beam Update Log ====
 
+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 = '3.1a4'
+VERSION = '3.1b1'
+MIN_EXE = '3.1b1'