Merge commit 'bf58b58b478d65f06e3e14e6de47d58bd21be7e5'

- piccoli aggiustamenti
- sistemazioni a DtMortise per macchina Oikos XL.

LuaLibs/BeamExec.lua

@@ -1991,6 +1991,9 @@ local function VerifyDrillMirrored( Proc, vProc, b3Raw)
    end
    local dToolDoubleDiam = EgtTdbGetCurrToolParam( MCH_TP.DIAM, 'd')
    local dToolDoubleMaxDepth = EgtTdbGetCurrToolParam( MCH_TP.MAXMAT)
+   if ( sType == 'Pocket_AT' or sType == 'Pocket') then
+      dToolDoubleMaxDepth = EgtTdbGetCurrToolMaxDepth()
+   end
    dMachiningDepth = min( dMachiningDepth, dToolDoubleMaxDepth)
    -- recupero la lunghezza della parte inclinata della punta
    local dToolDoubleTipLength = EgtTdbGetCurrToolParam( MCH_TP.TOTLEN) - EgtTdbGetCurrToolParam( MCH_TP.LEN)

LuaLibs/ProcessCut.lua

@@ -63,6 +63,7 @@ function ProcessCut.Classify( Proc, b3Raw)
    if ( BD.C_SIMM and BD.DOWN_HEAD) or BD.TURN then
       return true
    end
+   local bForceNoBeamRotation = ( EgtGetInfo( Proc.Id, 'Q18', 'i') == 1)
    -- recupero i dati del taglio
    local ptC, vtN = EgtSurfTmFacetCenter( Proc.Id, 0, GDB_ID.ROOT)
    -- calcolo le massime estensioni lineari orizzontale e verticale della faccia
@@ -73,7 +74,7 @@ function ProcessCut.Classify( Proc, b3Raw)
    then
       -- confronto queste estensioni con la massima dimensione del DiceCut (impossibile lavorare se entrambe maggiori)
       if DimH > BD.MAX_DIM_DICE + 100 * GEO.EPS_SMALL and DimV > BD.MAX_DIM_DICE + 100 * GEO.EPS_SMALL then
-         return true, true
+         return true, not bForceNoBeamRotation
       end
    end
    -- se è un taglio da sotto, lo verifico
@@ -96,7 +97,7 @@ function ProcessCut.Classify( Proc, b3Raw)
       _, DimH, DimV = BL.GetFaceHvRefDim( Proc.Id, 0)
       -- confronto questo ingombro con il doppio della massima dimensione del DiceCut (impossibile lavorare sotto da sopra se più di 2 tagli oppure se tipo PF, taglio inclinato in Y e non taglio singolo orizzontale)
       if DimH > 2 * BD.MAX_DIM_DICE  or ( BD.C_SIMM and ( abs( vtN:getY()) > 0.1) and dMaxMat < DimH + BD.CUT_EXTRA) then
-         return true, true
+         return true, not bForceNoBeamRotation
       end
    end
    return true, false

LuaLibs/ProcessDrill.lua

@@ -613,6 +613,7 @@ function ProcessDrill.Make( Proc, nPhase, nRawId, nPartId, dCurrOvmH)
          end
       end
    end
+   local dDepthOri = dDepth
    -- se foro da saltare per eccessiva inclinazione
    if not bTryDrill then
       sMyWarn = 'Warning in drill : too slant hole'
@@ -654,6 +655,9 @@ function ProcessDrill.Make( Proc, nPhase, nRawId, nPartId, dCurrOvmH)
             local dReduceDepth = MIRROR_POCKETS_MIN_DISTANCE / 2 + 10
             dLastStepDepth = dDepth + dReduceDepth
             dDepth = dDepth - dReduceDepth
+            if ( dLastStepDepth > dMaxDepth + 10 * GEO.EPS_SMALL) and ( dMaxDepth <= ( dLen / 2) - dReduceDepth) and ( dDepthOri ~= dDepth) then
+               dDepth = dMaxDepth
+            end
          end
       else
          sUserNotes = EgtSetValInNotes( sUserNotes, 'LastStep', MIRROR_DRILLINGS_MIN_DISTANCE / 2 + 15)
@@ -718,12 +722,12 @@ function ProcessDrill.Make( Proc, nPhase, nRawId, nPartId, dCurrOvmH)
       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 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
+            end
             local idMachiningLastStep = EgtCopyMachining( EgtIf( EgtStartsWith( sType, 'Predrill'), 'Predrill_', 'Drill_') .. ( EgtGetName( Proc.Id) or tostring( Proc.Id)), sName)
             EgtSetCurrMachining( idMachiningLastStep)
-            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) .. ')'
-               dLastStepDepth = dMaxDepth
-            end
             local dMaxElevLastStep = dLastStepDepth - dDepth
             sUserNotes = EgtSetValInNotes( sUserNotes, 'MaxElev', EgtNumToString( dMaxElevLastStep, 1))
             EgtSetMachiningParam( MCH_MP.DEPTH, dLastStepDepth)

LuaLibs/ProcessDtMortise.lua

@@ -362,7 +362,7 @@ function ProcessDtMortise.Make( Proc, nPhase, nRawId, nPartId, dCurrOvmH)
       dMaxMat = 30
       dSideAng = 0
       bCW = true
-      bMillOnAggregate = sMchExt == '_AT'
+      bMillOnAggregate = ( sMchExt == '_AT')
       if EgtMdbSetCurrMachining( sMilling) then
          local sTuuid = EgtMdbGetCurrMachiningParam( MCH_MP.TUUID)
          if EgtTdbSetCurrTool( EgtTdbGetToolFromUUID( sTuuid) or '') then
@@ -424,8 +424,16 @@ function ProcessDtMortise.Make( Proc, nPhase, nRawId, nPartId, dCurrOvmH)
       end
       -- aggiungo geometria
       EgtSetMachiningGeometry( {{ Aux2Id, -1}})
-      -- dichiaro non si generano sfridi per VMill
+      -- recupero note utente per aggiornarle
       local sUserNotes = EgtGetMachiningParam( MCH_MP.USERNOTES) or ''
+      -- eventuali impostazioni per 3° asse rot
+      local sAuxDir, sInitAngs = BL.GetAuxDir( sPocketing, "", b3Solid, vtExtr, vtExtr)
+      if sAuxDir then
+         sUserNotes = EgtSetValInNotes( sUserNotes, 'VtAuxDir', sAuxDir)
+         EgtSetMachiningParam( MCH_MP.INITANGS, sInitAngs)
+         EgtSetMachiningParam( MCH_MP.SCC, MCH_SCC.STD)
+      end
+      -- dichiaro non si generano sfridi per VMill
       sUserNotes = EgtSetValInNotes( sUserNotes, 'MaxElev', EgtNumToString( dMaxMat - 0.1, 1))
       sUserNotes = EgtSetValInNotes( sUserNotes, 'VMRS', 0)
       EgtSetMachiningParam( MCH_MP.USERNOTES, sUserNotes)
@@ -537,8 +545,16 @@ function ProcessDtMortise.Make( Proc, nPhase, nRawId, nPartId, dCurrOvmH)
                if nSCC then 
                   EgtSetMachiningParam( MCH_MP.SCC, nSCC)
                end
-               -- dichiaro non si generano sfridi per VMill
+               -- recupero note utente per aggiornarle
                local sUserNotes = EgtGetMachiningParam( MCH_MP.USERNOTES) or ''
+               -- eventuali impostazioni per 3° asse rot
+               local sAuxDir, sInitAngs = BL.GetAuxDir( sMilling, "", b3Solid, vtExtr, vtExtr)
+               if sAuxDir then
+                  sUserNotes = EgtSetValInNotes( sUserNotes, 'VtAuxDir', sAuxDir)
+                  EgtSetMachiningParam( MCH_MP.INITANGS, sInitAngs)
+                  EgtSetMachiningParam( MCH_MP.SCC, MCH_SCC.STD)
+               end
+               -- dichiaro non si generano sfridi per VMill
                sUserNotes = EgtSetValInNotes( sUserNotes, 'MaxElev', EgtNumToString( dAltMort, 1))
                sUserNotes = EgtSetValInNotes( sUserNotes, 'VMRS', 0)
                -- se lavorazione in doppio
@@ -697,12 +713,20 @@ function ProcessDtMortise.Make( Proc, nPhase, nRawId, nPartId, dCurrOvmH)
       if nSCC then
          EgtSetMachiningParam( MCH_MP.SCC, nSCC)
       end
+      -- recupero note utente per aggiornarle
+      local sUserNotes = EgtGetMachiningParam( MCH_MP.USERNOTES) or ''
+      -- eventuali impostazioni per 3° asse rot
+      local sAuxDir, sInitAngs = BL.GetAuxDir( sMilling, "", b3Solid, vtExtr, vtExtr)
+      if sAuxDir then
+         sUserNotes = EgtSetValInNotes( sUserNotes, 'VtAuxDir', sAuxDir)
+         EgtSetMachiningParam( MCH_MP.INITANGS, sInitAngs)
+         EgtSetMachiningParam( MCH_MP.SCC, MCH_SCC.STD)
+      end
       -- dichiaro massima elevazione e assenza sfridi per VMill
       local dMaxElev = dMaxMat
       if bMultipleZPasses then
          dMaxElev = dVerticalStep
       end
-      local sUserNotes = EgtGetMachiningParam( MCH_MP.USERNOTES) or ''
       sUserNotes = EgtSetValInNotes( sUserNotes, 'MaxElev', EgtNumToString( dMaxElev - 0.1, 1))
       sUserNotes = EgtSetValInNotes( sUserNotes, 'VMRS', 0)
       -- in presenza di pocket dichiaro che non sto entrando e uscendo nel grezzo

LuaLibs/ProcessHeadCut.lua

@@ -162,10 +162,11 @@ end
 ---------------------------------------------------------------------
 -- smussi in testa
 local function MakeHeadChamfer( idProc, nPartId)
+   
    local dDepthHeadChamfer = EgtGetInfo( idProc, 'Q08', 'd') or 0
    -- se non attivo esco subito
    if dDepthHeadChamfer < 100 * GEO.EPS_SMALL then
-      return
+      return true, nil
    end
 
    -- recupero gruppo per geometria aggiuntiva
@@ -254,7 +255,8 @@ local function MakeHeadChamfer( idProc, nPartId)
    EgtSetMachiningParam( MCH_MP.DEPTH, dDepthHeadChamfer + dExtra)
    EgtSetMachiningParam( MCH_MP.OFFSR, dExtra)
    -- assegno lato di lavoro
-   EgtSetMachiningParam( MCH_MP.WORKSIDE, MCH_MILL_WS.RIGHT)
+   EgtSetMachiningParam( MCH_MP.WORKSIDE, MCH_MILL_WS.LEFT)
+   EgtSetMachiningParam( MCH_MP.INVERT, true)
    -- eseguo
    if not ML.ApplyMachining( true, false) then
       local _, sErr = EgtGetLastMachMgrError()
@@ -639,11 +641,12 @@ function ProcessHeadCut.Make( Proc, nPhase, nRawId, nPartId, dOvmHead, bNeedHCut
    
    local bOk, sErr = MakeStandardCuts( Proc, b3Raw, nCuts, dOffsL, HeadCutType, Cutting1Data, Cutting2Data, nil, dOvmHead)
 
-
    -- alla fine del taglio si aggiungono gli smussi in testa
    local _, sErrHeadChamfer = MakeHeadChamfer( nOriId or Proc.Id, nPartId)
    if sErr then
-      sErr = sErr..'\n'..sErrHeadChamfer
+      if sErrHeadChamfer then
+         sErr = sErr..'\n'..sErrHeadChamfer
+      end
    else
       sErr = sErrHeadChamfer
    end

LuaLibs/ProcessSplit.lua

@@ -258,7 +258,8 @@ local function MakeTailChamfer( idProc, nPartId, dDepthTailChamfer)
    EgtSetMachiningParam( MCH_MP.DEPTH, dDepthTailChamfer + dExtra)
    EgtSetMachiningParam( MCH_MP.OFFSR, dExtra)
    -- assegno lato di lavoro
-   EgtSetMachiningParam( MCH_MP.WORKSIDE, MCH_MILL_WS.RIGHT)
+   EgtSetMachiningParam( MCH_MP.WORKSIDE, MCH_MILL_WS.LEFT)
+   EgtSetMachiningParam( MCH_MP.INVERT, true)
    -- eseguo
    if not ML.ApplyMachining( true, false) then
       local _, sErr = EgtGetLastMachMgrError()

UpdateLog.txt

@@ -1,5 +1,9 @@
            ==== Beam Update Log ====
 
+Versione 3.1e1 (05/05/2026)
+- Modif : in LapJoint migliorate slot con sega a catena
+- Fixed : in DrillPocket in doppio eliminata lavorazione aggiuntiva in caso di utensile non abbastanza lungo
+
 Versione 3.1d2 (10/04/2026)
 - Added : in StepJoint aggiunto Q02=1 per forzare fresa
 - Added : in DtMortise aggiunto Q01=1 per disabilitare antischeggia

Version.lua

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