Merge remote-tracking branch 'origin/develop'

LuaLibs/FacesBySaw.lua

@@ -457,7 +457,7 @@ function FacesBySaw.MakeOne( nSurfId, nFacet, sCutting, dSawDiam, Par5, dVzLimDw
          -- se distanza al punto è maggiore del raggio lama, significa che non ho già lavorato, quindi calcolo entrata opportunamente
          if dDistPointToCenter > 0.5 * dSawDiam then
             dLiTang = -dAllStart * dCosAlpha
-            dLiPerp = dDist1 * dSinAlpha 
+            dLiPerp = dDist1 * dSinAlpha
          end
       end
       -- se ho accorciato uscita, setto componente tangente e perpendicolare sul percorso di uscita

LuaLibs/ProcessCut.lua

@@ -479,12 +479,16 @@ local function MakeFromTop( sCutting, Proc, nPhase, nRawId, nPartId, dOvmHead, b
          -- determino il modo di tagliare
          local vtOrthoO
          local bNoPerpCuts = false
+         local vtO
+         -- Se tagli ortogonali (indice dispari)
          if i % 2 == 1 then
             vtOrthoO = Vector3d( vtN)
+         -- Se tagli perpendicolari (indice pari)
          else
-            local vtO
+            -- Se elemento precedente contiene tagli ortogonali
             if #vCuts[i-1] > 0 then
                vtO = EgtSurfTmFacetNormVersor( vCuts[i-1][1], 0, GDB_ID.ROOT)
+            -- Se elemento successivo contiene tagli ortogonali
             elseif vCuts[i+1] and #vCuts[i+1] > 0 then
                -- lunghezza faccia nell'eventuale direzione ortogonale
                local asseX = EgtSurfTmFacetNormVersor( vCuts[i+1][1], 0, GDB_ID.ROOT)
@@ -552,8 +556,51 @@ local function MakeFromTop( sCutting, Proc, nPhase, nRawId, nPartId, dOvmHead, b
             end
             local bOk2, sErr2 = Fbs.MakeOne( nSurfToCut, 0, sCutting, dSawDiam, nFaceUseCut2, nil, dCutExtra, BD.CUT_SIC, 0, 0, 0, '', b3Raw)
             if not bOk2 then return false, sErr2 end
+
          -- caso standard
          else
+            -- se necessario aggiungo tagli obliqui per cubettare pezzi lunghi che potrebbero cadere sul motore
+            if ( i % 2) == 0 and Proc.Fct == 1 and AreSameOrOppositeVectorApprox( vtO, Z_AX()) then
+               local vtOrthoVert = vtN ^ vtO
+               -- inverte direzione superfici per corretta direzione SCC
+               if ( vtN:getY() > 0 and vtOrthoVert:getY() > 0) or ( vtN:getY() < 0 and vtOrthoVert:getY() < 0) then
+                  vtOrthoVert = -vtOrthoVert
+               end
+               local Frame = Frame3d( ptC, vtN, vtO)
+               local b3Fac = EgtGetBBoxRef( vCuts[i][1], GDB_BB.STANDARD, Frame)
+               -- se cubetto più grande di MAX_DIM_DICE
+               if abs( b3Fac:getDimY() - BD.MAX_DIM_DICE) > 10 * GEO.EPS_SMALL then
+                  local nVerticalCuts = ceil( b3Fac:getDimY() / ( BD.MAX_LEN_DICE)) - 1
+                  local dVerticalSliceDist = b3Fac:getDimY() / ( nVerticalCuts + 1)
+                  -- selezione utensile
+                  local dSawDiam = 400
+                  if EgtMdbSetCurrMachining( sCutting) then
+                     local sTuuid = EgtMdbGetCurrMachiningParam( MCH_MP.TUUID)
+                     if EgtTdbSetCurrTool( EgtTdbGetToolFromUUID( sTuuid) or '') then
+                        dSawDiam = EgtTdbGetCurrToolParam( MCH_TP.DIAM) or dSawDiam
+                     end
+                  end
+                  -- crea faccia per tagli verticali e le taglia a dimensione corretta
+                  for k = 1, nVerticalCuts do
+                     local nFaceUse = BL.GetNearestOrthoOpposite( vtN)
+                     local dVerticalCutOffset = dVerticalSliceDist * k
+                     local sLeadInOutType = 'Perpendicular'
+                     local nMergedParallelSurfId = EgtSurfTmBySewing( nAddGrpId, vCuts[i], false)
+                     local ptVertCut = EgtSurfTmFacetCenter( nMergedParallelSurfId, 0, GDB_ID.ROOT)
+                     ptVertCut = ptVertCut + ( -b3Fac:getDimY()/2 + dVerticalCutOffset) * vtOrthoVert
+                     local nSurfId = EgtSurfTmPlaneInBBox( nAddGrpId, ptVertCut, vtOrthoVert, b3Raw, GDB_RT.GLOB)
+                     -- se non è il primo taglio parallelo taglia anche le superfici con la faccia parallela precedente
+                     if i ~= 2 then
+                        local nMergedPreviousParallelSurfId = EgtSurfTmBySewing( nAddGrpId, vCuts[i-2], false)
+                        local ptOnPreviousParallelSurf = EgtSurfTmFacetCenter( nMergedPreviousParallelSurfId, 0, GDB_ID.ROOT)
+                        EgtCutSurfTmPlane( nSurfId, ptOnPreviousParallelSurf, vtN, false, GDB_RT.GLOB)
+                     end
+                     EgtCutSurfTmPlane( nSurfId, ptVertCut, -vtN, false, GDB_RT.GLOB)
+                     local bOk, sErr = Fbs.MakeOne( nSurfId, 0, sCutting, dSawDiam, nFaceUse, nil, -0.1, BD.CUT_SIC, 0, 0, 0, '', b3Raw, nil, nil, nil, sLeadInOutType, nil, 0, nil)
+                     if not bOk then return bOk, sErr end
+                  end
+               end
+            end
             -- lavoro la faccia
             for j = 1, #vCuts[i] do
                -- se taglio dal basso

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
@@ -594,8 +599,10 @@ function ProcessDrill.Make( Proc, nPhase, nRawId, nPartId, dCurrOvmH)
          local dHoleToCutDistance = vDistance[1]
          -- se il taglio accorcia realmente il foro
          if ( dHoleToCutDistance > 10 * GEO.EPS_SMALL or Proc.AffectedFaces.Right) and dHoleToCutDistance < dLen then
+            local dToolTipFromCenterDrill = ( ( dDiam / 2) - ( dToolDiam / 2))
+            local dExtraSicDistFromThToTiltedCut = sqrt( ( dToolTipFromCenterDrill / CosB)^2 - dToolTipFromCenterDrill^2) + sqrt( ( ( dDiamTh / 2) / CosB)^2 - (dDiamTh / 2)^2)
             dMaxDepth = dMaxDepthOri
-            dMaxElev = dLen - dHoleToCutDistance
+            dMaxElev = dLen - ( dHoleToCutDistance - dExtraSicDistFromThToTiltedCut)
             bTryDrill = true
             local dToolAddLength = dLen - dMaxElev
             -- se l'utensile è comunque troppo corto lavoro il massimo possibile
@@ -651,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
@@ -721,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/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'