- Hotfix: se testa sopra/sotto la distanza minima feature per attivare le tasche in doppio MIRROR_POCKETS_MIN_DISTANCE diventa 35

2.7i2

LuaLibs/BeamExec.lua

@@ -991,12 +991,12 @@ local function OrderFeatures( vProc, b3Raw, nPartId)
       if abs( B2.Box:getDimX() - b3Raw:getDimX()) < 0.2 * b3Raw:getDimX() then
          return not ( B1.Tail or B2.Box:getMin():getX() + 20 > B1.Box:getCenter():getX())
       end
-      -- se primo è foro e l'altro no, lo penalizzo
-      if Drill.Identify(B1) and not Drill.Identify(B2) then
-         return ( B1.Box:getCenter():getX() > B2.Box:getMax():getX() + dDrillPenalty) 
+      -- se primo è foro e l'altro no, lo penalizzo (a patto che il foro non attraversi nessuna feature)
+      if Drill.Identify(B1) and not B1.Dependency and not Drill.Identify(B2) then
+         return ( B1.Box:getCenter():getX() > B2.Box:getMax():getX() + dDrillPenalty)
       end
-      -- se primo è altro e secondo è foro, lo premio
-      if not Drill.Identify(B1) and Drill.Identify(B2) then
+      -- se primo è altro e secondo è foro, lo premio (a patto che il foro non attraversi nessuna feature)
+      if not Drill.Identify(B1) and not B2.Dependency and Drill.Identify(B2) then
          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
@@ -2181,13 +2181,13 @@ function BeamExec.ProcessFeatures()
    end
    -- costanti per doppio
    MIRROR_DRILLINGS_MIN_DISTANCE = 40
-   MIRROR_POCKETS_MIN_DISTANCE = 50
+   MIRROR_POCKETS_MIN_DISTANCE = EgtIf( BD.DOWN_HEAD, 35, 50)
    -- verifica se possibile rotazione di 90 gradi
    BD.ROT90 = BD.ROT90 and Verify90DegRotation( EgtGetFirstRawPart())
    -- ciclo sui pezzi
    local nTotErr = 0
    local Stats = {}
-   local nOrd = 1 
+   local nOrd = 1
    local nRawId = EgtGetFirstRawPart()
    while nRawId do
       -- verifico che il grezzo contenga pezzi oppure sia abbastanza lungo da essere scaricato coi carrelli

LuaLibs/ProcessDtTenon.lua

@@ -64,14 +64,14 @@ local function VerifyOrientation( Proc, vtN, b3Raw)
       -- se tenone praticamente in asse, accetto fino a -22 deg
       if abs( vtN:getY()) < 0.088 then
          return ( vtN:getZ() >= -0.375)
-      -- altrimenti, accetto fino a -10 deg
+      -- altrimenti, accetto fino a -12.5 deg
       else
-         return ( vtN:getZ() >= -0.174)
+         return ( vtN:getZ() >= -0.216)
       end
    -- altrimenti
    else
-      -- accetto fino a -7deg
-      return ( vtN:getZ() >= -0.122)
+      -- accetto fino a -12.5 deg
+      return ( vtN:getZ() >= -0.216)
    end
 end
 
@@ -209,7 +209,20 @@ function ProcessDtTenon.Make( Proc, nPhase, nRawId, nPartId, dOvmHead)
             local CutProc = { Id = AddId, Grp = Proc.Grp, Prc = Proc.Prc, Box = Proc.Box, Fct = Proc.Fct, Flg = Proc.Flg,
                               Head = Proc.Head, Tail = Proc.Tail, CutId = Proc.CutId, TaskId = Proc.TaskId, PartId = Proc.PartId}
             CutProc.AffectedFaces = BL.GetProcessAffectedFaces( CutProc)
-            local bFromBottom = ( b3Solid:getDimX() < BD.LEN_SHORT_PART and vtExtr:getZ() > 0.25)
+            
+            -- se esiste grezzo successivo non serve tagliare dal basso
+            local bFromBottom
+            local dTotalLength = 0
+            local nNextRawId = EgtGetNextRawPart( nRawId)
+            while nNextRawId do
+               dTotalLength = dTotalLength + EgtGetRawPartBBox( nNextRawId):getDimX()
+               nNextRawId = EgtGetNextRawPart( nNextRawId)
+            end
+            if dTotalLength > BD.MinRaw and not Proc.Tail then
+               bFromBottom = false
+            else
+               bFromBottom = ( b3Solid:getDimX() < BD.LEN_SHORT_PART and vtExtr:getZ() > 0.25)
+            end
             local bOk, sErr = Cut.Make( CutProc, nPhase, nRawId, nPartId, dOvmHead, bFromBottom)
             if not bOk then return bOk, sErr end
          end

LuaLibs/ProcessLongDoubleCut.lua

@@ -1280,10 +1280,10 @@ function ProcessLong2Cut.Make( Proc, nPhase, nRawId, nPartId, bForcedBladeMaster
                nFin = 1
             else
                if vtN[vOrd[1]]:getZ() >= vtN[vOrd[2]]:getZ() then
-                  if vtN[vOrd[2]]:getZ() < dLimitAngle then
-                     nFin = 1
-                  else
+                  if vtN[vOrd[1]]:getZ() < dLimitAngle then
                      nIni = 2
+                  else
+                     nFin = 1
                   end
                else
                   if vtN[vOrd[1]]:getZ() < dLimitAngle then

LuaLibs/ProcessMortise.lua

@@ -353,6 +353,18 @@ function ProcessMortise.Make( Proc, nPhase, nRawId, nPartId, dCurrOvmH)
       BL.SetOpenSide( AuxId, b3Solid)
    end
 
+   -- recupero il raggio minimo della mortasa
+   local dMaxDiam = 1000
+   local nSt, nEnd = EgtCurveDomain( AuxId)
+   for i = nSt, nEnd - 1 do
+      local dRad = EgtCurveCompoRadius( AuxId, i)
+      -- se è un raggio, setto ed esco subito. Tutti i raggi sono uguali nella mortasa
+      if dRad > 0 then
+         dMaxDiam = dRad * 2
+         break
+      end
+   end
+
    -- caso speciale feature trimmata diversamente in/out: si ricostruisce la curva non trimmata
    -- recupero gruppo per geometria addizionale
    local nAddGrpId = BL.GetAddGroup( nPartId)
@@ -486,6 +498,10 @@ function ProcessMortise.Make( Proc, nPhase, nRawId, nPartId, dCurrOvmH)
    end
    -- determino larghezza della mortasa
    if dL < dW then dL, dW = dW, dL end
+
+   -- si prende il minimo tra larghezza mortasa e il raggio minimo impostato da parametro
+   dMaxDiam = min( dW, dMaxDiam)
+
    -- abilitazione lavorazione da sotto
    local bPockUp = ( BD.DOWN_HEAD and vtExtr:getZ() > -0.259)
    local bPockDown = ( BD.DOWN_HEAD and vtExtr:getZ() < 0.174)
@@ -564,16 +580,16 @@ function ProcessMortise.Make( Proc, nPhase, nRawId, nPartId, dCurrOvmH)
    end
    local sPocketing
    if Proc.Prc ~= 53 then
-      sPocketing = ProcessMortise.VerifyMortiseOrPocket( Proc, dW, dMorH, nil, sPockType..sMchExt, bPockDown, bExcludeH2)
+      sPocketing = ProcessMortise.VerifyMortiseOrPocket( Proc, dMaxDiam, dMorH, nil, sPockType..sMchExt, bPockDown, bExcludeH2)
       if not sPocketing and bPockUp then
-         sPocketing = ProcessMortise.VerifyMortiseOrPocket( Proc, dW, dMorH, nil, sPockType..sMchExt, _, bExcludeH2)
+         sPocketing = ProcessMortise.VerifyMortiseOrPocket( Proc, dMaxDiam, dMorH, nil, sPockType..sMchExt, _, bExcludeH2)
       end
    end
    if not sPocketing then
       sPockType = 'Pocket'
-      sPocketing = ProcessMortise.VerifyMortiseOrPocket( Proc, dW, dMorH, nil, sPockType..sMchExt, bPockDown, bExcludeH2)
+      sPocketing = ProcessMortise.VerifyMortiseOrPocket( Proc, dMaxDiam, dMorH, nil, sPockType..sMchExt, bPockDown, bExcludeH2)
       if not sPocketing and bPockUp then
-         sPocketing = ProcessMortise.VerifyMortiseOrPocket( Proc, dW, dMorH, nil, sPockType..sMchExt, _, bExcludeH2)
+         sPocketing = ProcessMortise.VerifyMortiseOrPocket( Proc, dMaxDiam, dMorH, nil, sPockType..sMchExt, _, bExcludeH2)
       end
    end
    if not sPocketing then
@@ -594,6 +610,7 @@ function ProcessMortise.Make( Proc, nPhase, nRawId, nPartId, dCurrOvmH)
          bCW = ( dSpeed >= 0)
       end
    end
+
    -- inserisco la lavorazione di svuotatura
    local sName = 'Mort_' .. ( EgtGetName( Proc.Id) or tostring( Proc.Id))
    local nMchFId = EgtAddMachining( sName, sPocketing)
@@ -613,6 +630,11 @@ function ProcessMortise.Make( Proc, nPhase, nRawId, nPartId, dCurrOvmH)
       EgtSetMachiningParam( MCH_MP.SUBTYPE, MCH_POCK_SUB.SPIRALIN)
    end
 
+   -- se diametro utensile esattamente uguale a larghezza tasca, e tasca tonda, si setta un offset radiale negativo
+   if Proc.Fct > 6 and abs( dMillDiam - dW) < 100 * GEO.EPS_SMALL then
+      EgtSetMachiningParam( MCH_MP.OFFSR, - 50 * GEO.EPS_SMALL)
+   end
+
    -- aggiungo geometria
    EgtSetMachiningGeometry( {{ AuxId, -1}})
    -- sistemo la direzione di lavoro

LuaLibs/ProcessProfCamb.lua

@@ -796,8 +796,10 @@ function ProcessProfCamb.Make( Proc, nPhase, nRawId, nPartId, dCurrOvmH)
          if bDoubleFinishMill then
             local sNewName = 'FinB_' .. ( EgtGetName( Proc.Id) or tostring( Proc.Id))
             local nMch2Id = EgtCopyMachining( sNewName, EgtGetName( nMchId))
+            -- ottengo l'inversione e setto il contrario
+            local bInvertMode = EgtGetMachiningParam( MCH_MP.INVERT)
+            EgtSetMachiningParam( MCH_MP.INVERT, not bInvertMode)
             EgtSetMachiningParam( MCH_MP.TOOLINVERT, true)
-            EgtSetMachiningParam( MCH_MP.INVERT, true)
 
             -- eseguo
             if not ML.ApplyMachining( true, false) then

UpdateLog.txt

@@ -1,5 +1,10 @@
            ==== Beam Update Log ====
 
+Versione 2.7i2 (30/09/2025)
+- Modif : migliorie a mortasa e tenone a coda di rondine
+- Modif : migliorie a LongDoubleCut
+- Modif : migliorie ai tagli
+
 Versione 2.7i1 (03/09/2025)
 - Added : in Tenone a coda di rondine aggiunto passaggio di finitura in caso di P14 > 0
 - Modif : in LapJoint migliorata la scelta lama in caso di due facce e altre piccole correzioni

Version.lua

@@ -2,5 +2,5 @@
 -- Gestione della versione di Beam
 
 NAME = 'Beam'
-VERSION = '2.7i1'
+VERSION = '2.7i2'
 MIN_EXE = '2.7f2'