LapJoint - migliorata gestione BirdsMouth con più di 3 facce

LuaLibs/ProcessDrill.lua

@@ -348,6 +348,11 @@ function ProcessDrill.Make( Proc, nPhase, nRawId, nPartId, dCurrOvmH)
    if EgtGetInfo( Proc.Id, 'Q04', 'i') == 1 then
       return FreeContour.Make( Proc, nPhase, nRawId, nPartId, dCurrOvmH)
    end
+
+   -- verifico se macchina configurata per avere le nuove svuotature in doppio
+   local sIniMachFile = EgtGetCurrMachineDir()..'\\'..EgtGetCurrMachineName()..'.ini'
+   local dPockDoubleNTActive =  ( EgtGetStringFromIni( 'Machinings', 'PocketingDoubleNT', '0', sIniMachFile) == '1')
+
    -- default per costanti
    BD.DRILL_VX_MAX_ANGLEDRILL = ( BD.DRILL_VX_MAX_ANGLEDRILL or 0.928)
    -- ingombro del pezzo
@@ -653,7 +658,7 @@ function ProcessDrill.Make( Proc, nPhase, nRawId, nPartId, dCurrOvmH)
    local dLastStepDepth
    if Proc.Double and Proc.Double > 0 then
       if ( sType == 'Pocket_AT' or sType == 'Pocket') then
-         if bOpen then
+         if not dPockDoubleNTActive and bOpen then
             local dReduceDepth = MIRROR_POCKETS_MIN_DISTANCE / 2 + 10
             dLastStepDepth = dDepth + dReduceDepth
             dDepth = dDepth - dReduceDepth
@@ -723,7 +728,7 @@ function ProcessDrill.Make( Proc, nPhase, nRawId, nPartId, dCurrOvmH)
          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 not dPockDoubleNTActive and 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

LuaLibs/ProcessLapJoint.lua

@@ -1004,7 +1004,7 @@ end
 ---------------------------------------------------------------------
 -- Lavorazione con fresa
 ---------------------------------------------------------------------
-local function MakeOneFaceByMill( Proc, nPhase, nRawId, nPartId)
+local function MakeOneFaceByMill( Proc, nPhase, nRawId, nPartId, nForcedFacInd, nSideInd)
    -- recupero l'ingombro del grezzo di appartenenza
    local b3Raw = EgtGetRawPartBBox( nRawId)
    -- recupero l'ingombro della trave
@@ -1015,13 +1015,16 @@ local function MakeOneFaceByMill( Proc, nPhase, nRawId, nPartId)
       return false, sErr
    end
    -- verifico il numero di facce della tacca
-   assert( ( Proc.Fct == 1), 'Error : MakeOneFaceByMill in LapJoint with ' .. tostring( Proc.Fct) .. ' faces')
+   if not nForcedFacInd then
+      assert( ( Proc.Fct == 1), 'Error : MakeOneFaceByMill in LapJoint with ' .. tostring( Proc.Fct) .. ' faces')
+      nForcedFacInd = 0
+   end
    -- dati della faccia
-   local ptC, vtN = EgtSurfTmFacetCenter( Proc.Id, 0, GDB_ID.ROOT)
+   local ptC, vtN = EgtSurfTmFacetCenter( Proc.Id, nForcedFacInd, GDB_ID.ROOT)
    -- verifico se orientata verso l'alto
    local bUp = ( vtN:getZ() >= BD.NZ_MINA)
    -- scelta faccia da lavorare
-   local nFacInd = 0
+   local nFacInd = nForcedFacInd
    -- recupero la lavorazione
    local sMilling = ML.FindMilling( 'BirdsMouth')
    if not sMilling then
@@ -1029,6 +1032,16 @@ local function MakeOneFaceByMill( Proc, nPhase, nRawId, nPartId)
       EgtOutLog( sErr)
       return false, sErr
    end
+   local dTDiam = 50
+   local dMaxMat = 0
+   if EgtMdbSetCurrMachining( sMilling) then
+      local sTuuid = EgtMdbGetCurrMachiningParam( MCH_MP.TUUID)
+      if EgtTdbSetCurrTool( EgtTdbGetToolFromUUID( sTuuid) or '') then
+         dTDiam = EgtTdbGetCurrToolParam( MCH_TP.DIAM) or dTDiam
+         dMaxMat = EgtTdbGetCurrToolParam( MCH_TP.MAXMAT) or dMaxMat
+      end
+   end
+   dTDiam = EgtTdbGetCurrToolParam( MCH_TP.DIAM) or dTDiam
    -- inserisco la lavorazione di fresatura
    local sName = 'Mill_' .. ( EgtGetName( Proc.Id) or tostring( Proc.Id))
    local nMchFId = EgtAddMachining( sName, sMilling)
@@ -1039,8 +1052,17 @@ local function MakeOneFaceByMill( Proc, nPhase, nRawId, nPartId)
    end
    -- aggiungo geometria
    EgtSetMachiningGeometry( {{ Proc.Id, nFacInd}})
-   -- imposto uso faccia e lato correzione
-   if vtN:getX() > 0 then
+   -- imposto uso faccia e lato correzione se forzate da fuori forzo lavorazione della faccia
+   if nSideInd and nForcedFacInd then
+      EgtSetMachiningParam( MCH_MP.FACEUSE, MCH_MILL_FU.NONE)
+      EgtSetMachiningParam( MCH_MP.ENDADDLEN, -dTDiam / 2)
+      EgtSetMachiningParam( MCH_MP.STARTADDLEN, -dTDiam / 2)
+      local sUserNotes = EgtGetMachiningParam( MCH_MP.USERNOTES) or ''
+      sUserNotes = EgtSetValInNotes( sUserNotes, 'EdgesFaceUse', EgtNumToString( nSideInd))
+      EgtSetMachiningParam( MCH_MP.USERNOTES, sUserNotes)
+      EgtSetMachiningParam( MCH_MP.LIPERP, dTDiam / 2)
+      EgtSetMachiningParam( MCH_MP.LOPERP, dTDiam / 2)
+   elseif vtN:getX() > 0 then
       EgtSetMachiningParam( MCH_MP.FACEUSE, EgtIf( bUp, MCH_MILL_FU.ORTHO_LEFT, MCH_MILL_FU.PARAL_LEFT))
    else
       EgtSetMachiningParam( MCH_MP.FACEUSE, EgtIf( bUp, MCH_MILL_FU.ORTHO_RIGHT, MCH_MILL_FU.PARAL_RIGHT))
@@ -7511,14 +7533,34 @@ local function MakeMoreFaces( Proc, nPhase, nRawId, nPartId, dOvmHead, bSinglePa
                end
                -- provo con contornatura
                local dDiamTool = 20
+               local nChoosenFacInd = nFacInd2
+               local dChoosenFacElev = dFacElev2
                if bIsL then
                   local bOk, sErr
                   bOk, sWarn, dDiamTool = MakeByMill( Proc, nPhase, nRawId, nPartId, nFacInd, rfFac, dH, dV, dFacElev, dCollSic, true, sMilling, nFacInd2, dFacElev2)
                   if not bOk then return bOk, sWarn end
                else
-                  local sErr = 'Error : Impossible mill special LapJoint'
-                  EgtOutLog( sErr)
-                  return false, sErr
+                  -- provo ancora con la pocketing dell'altra faccia
+                  local sPocketing = ML.FindPocketing( sMchFind, dDiam, dFacElev + dCollSic)
+                  if sPocketing then
+                     nChoosenFacInd = nFacInd
+                     dChoosenFacElev = dFacElev
+                     local Edges = BL.GetEdgesInfo( Proc, Proc.Face[nFacInd+1])
+                     local nSideInd
+                     for i = 1, #Edges do 
+                        if Edges[i].AdjacentFaceId == nFacInd2 then
+                           nSideInd = i - 1
+                           break
+                        end
+                     end
+                     -- se pocketing ok forza facet e spigolo di lavoro
+                     bOk, sWarn = MakeOneFaceByMill( Proc, nPhase, nRawId, nPartId, nFacInd2, nSideInd)
+                     if not bOk then return bOk, sWarn end
+                  else
+                     local sErr = 'Error : Impossible mill special LapJoint'
+                     EgtOutLog( sErr)
+                     return false, sErr
+                  end
                end
                -- inserisco la lavorazione di svuotatura
                local sName = 'Pock_' .. ( EgtGetName( Proc.Id) or tostring( Proc.Id))
@@ -7529,7 +7571,7 @@ local function MakeMoreFaces( Proc, nPhase, nRawId, nPartId, dOvmHead, bSinglePa
                   return false, sErr
                end
                -- aggiungo geometria
-               EgtSetMachiningGeometry( {{ Proc.Id, nFacInd2}})
+               EgtSetMachiningGeometry( {{ Proc.Id, nChoosenFacInd}})
                -- imposto uso faccia
                EgtSetMachiningParam( MCH_MP.FACEUSE, MCH_MILL_FU.ORTHO_CONT)
                -- imposto posizione braccio porta testa
@@ -7544,7 +7586,7 @@ local function MakeMoreFaces( Proc, nPhase, nRawId, nPartId, dOvmHead, bSinglePa
                end
                -- imposto elevazione
                local sUserNotes = EgtGetMachiningParam( MCH_MP.USERNOTES) or ''
-               sUserNotes = EgtSetValInNotes( sUserNotes, 'MaxElev', EgtNumToString( dFacElev2, 1))
+               sUserNotes = EgtSetValInNotes( sUserNotes, 'MaxElev', EgtNumToString( dChoosenFacElev, 1))
                EgtSetMachiningParam( MCH_MP.USERNOTES, sUserNotes)
                -- eseguo
                if not ML.ApplyMachining( true, false) then

LuaLibs/ProcessMortise.lua

@@ -32,7 +32,7 @@ local BD = require( 'BeamData')
 local ML = require( 'MachiningLib')
 
 -- variabili assegnazione parametri Q
-local Q_DEPTH_CHAMFER = 'Q02' -- d
+local Q_DEPTH_CHAMFER = 'Q01' -- d
 
 ---------------------------------------------------------------------
 -- Riconoscimento della feature

UpdateLog.txt

@@ -1,5 +1,12 @@
            ==== Beam Update Log ====
 
+Versione 3.1f2 (18/06/2026)
+- Added : Gestione svuotature in doppio tipo NT
+
+Versione 3.1f1 (17/06/2026)
+- Added : Tagli per dividere il cubetto in caso sia troppo lungo
+- Modif : DepthChamfer su feature Mortase (050 e 051) cambio di Q. Prima era Q02, ora è Q01
+
 Versione 3.1e2 (01/06/2026)
 - Added : in Cut aggiunta Q18 per evitare di ruotare
 - Modif : gli smussi di testa sono in senso orario

Version.lua

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