Merge branch 'release/3.1b1'

- Piccole modifiche alla gestione
- Step diventa il 75% del teorico o se più piccolo, il diametro utensile

LuaLibs/BeamExec.lua

@@ -1508,7 +1508,7 @@ local function AddFeatureMachining( Proc, nPhase, nRawId, nPartId, dCurrOvmH, bN
    -- se foratura ( 3/4-040-X)
    elseif Drill.Identify( Proc) then
       -- esecuzione foratura
-      bOk, sErr = Drill.Make( Proc, nPhase, nRawId, nPartId)
+      bOk, sErr = Drill.Make( Proc, nPhase, nRawId, nPartId, dCurrOvmH)
    -- se giunzione francese ( 1/2-035-X)
    elseif FrenchRidgeLap.Identify( Proc) then
       -- esecuzione giunzione francese

LuaLibs/ProcessDrill.lua

@@ -134,7 +134,8 @@ function ProcessDrill.Split( Proc, b3Raw)
    local bOpen = ( Proc.Fce ~= 0) and ( Proc.Fce ~= Proc.Fcs)
    -- recupero flag abilitazione split (0=auto,1=no)
    local bTrySplit = ( EgtGetInfo( Proc.Id, 'Q02', 'i') ~= 1)
-   if not bTrySplit then
+   local bOnlyContour = ( EgtGetInfo( Proc.Id, 'Q04', 'i') == 1)
+   if ( not bTrySplit) or bOnlyContour then
       return false
    end
    -- restituisco se va fatto in doppio (solo fori orizzontali)
@@ -341,7 +342,13 @@ end
 
 ---------------------------------------------------------------------
 -- Applicazione della lavorazione
-function ProcessDrill.Make( Proc, nPhase, nRawId, nPartId)
+function ProcessDrill.Make( Proc, nPhase, nRawId, nPartId, dCurrOvmH)
+   -- Se forzato contorno foro forzo richiamo a FreeContour e uscita dalla funzione
+   if EgtGetInfo( Proc.Id, 'Q04', 'i') == 1 then
+      _G.package.loaded.ProcessFreeContour = nil
+      local FreeContour = require( 'ProcessFreeContour')
+      return FreeContour.Make( Proc, nPhase, nRawId, nPartId, dCurrOvmH)
+   end
    -- default per costanti
    BD.DRILL_VX_MAX_ANGLEDRILL = ( BD.DRILL_VX_MAX_ANGLEDRILL or 0.928)
    -- ingombro del pezzo
@@ -625,6 +632,8 @@ function ProcessDrill.Make( Proc, nPhase, nRawId, nPartId)
    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)
@@ -637,10 +646,14 @@ function ProcessDrill.Make( Proc, nPhase, nRawId, nPartId)
    -- 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'
@@ -654,8 +667,7 @@ function ProcessDrill.Make( Proc, nPhase, nRawId, nPartId)
    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/ProcessDtMortise.lua

@@ -638,20 +638,44 @@ function ProcessDtMortise.Make( Proc, nPhase, nRawId, nPartId, dCurrOvmH)
       -- sistemo il lato e la direzione di lavoro
       EgtSetMachiningParam( MCH_MP.WORKSIDE, EgtIf( bCW, MCH_MILL_WS.LEFT, MCH_MILL_WS.RIGHT))
       EgtSetMachiningParam( MCH_MP.INVERT, EgtIf( bCW, false, true))
+      local ptS = EgtSP( AuxId, GDB_ID.ROOT)
+      local ptE = EgtEP( AuxId, GDB_ID.ROOT)
       -- in presenza di pocket imposto dati ingresso e uscita
       if bPocket then
+         -- recupero il contorno della tasca (seconda curva ausiliaria)
+         local vAuxId = EgtGetInfo( Proc.Id, 'AUXID', 'vi')
+         -- si prende il centro del percorso da svuotare ( non si controlla che sia presente perchè già verificata in precedenza)
+         local ptPocketCenter = EgtGP( Proc.Id + vAuxId[2], GDB_ID.ROOT)
+         -- calcolo componente tangente e lineare di ingresso
+         local vtS = EgtSV( Proc.Id + vAuxId[1], GDB_ID.ROOT)                                   -- vettore entrante percorso
+         local vtOffS = EgtSV( Proc.Id + vAuxId[1], GDB_ID.ROOT) ;  vtOffS:rotate( vtExtr, 90)  -- vettore da punto iniziale a centro utensile
+         local vtStartToCenter = ptPocketCenter - ( ptS + ( vtOffS * ( dToolDiam/2)))           -- vettore da centro utensilenel punto iniziale e centro del percorso da svuotare
+         local dLenStartToCenter = vtStartToCenter:len()                                        -- distanza da centro utensile a centro del percorso da svuotare
+         local dStartTangComp = abs( vtStartToCenter * vtS)                                     -- prodotto scalare tra vettore entrante e vettore tra centro utensilee percordo da svuotare (componente tangente)
+         local dStartPerpComp = sqrt( dLenStartToCenter^2 - dStartTangComp^2)                   -- pitagora tra componente tangente e la lunghezza tra i due centri
+         -- calcolo componente tangente e lineare di uscita
+         local vtE = EgtEV( Proc.Id + vAuxId[1], GDB_ID.ROOT)
+         local vtOffE = EgtEV( Proc.Id + vAuxId[1], GDB_ID.ROOT) ;  vtOffE:rotate( vtExtr, 90)
+         local vtEndToCenter = ptPocketCenter - ( ptE + ( vtOffE * ( dToolDiam/2)))
+         local dLenEndToCenter = vtEndToCenter:len()
+         local dEndTangComp = abs( vtEndToCenter * vtE)
+         local dEndPerpComp = sqrt( dLenEndToCenter^2 - dEndTangComp^2)
+
          EgtSetMachiningParam( MCH_MP.STARTPOS, 5)
          EgtSetMachiningParam( MCH_MP.LEADINTYPE, MCH_MILL_LI.TANGENT)
-         EgtSetMachiningParam( MCH_MP.LEADOUTTYPE, MCH_MILL_LO.AS_LI)
-         EgtSetMachiningParam( MCH_MP.STARTADDLEN, 5)
-         EgtSetMachiningParam( MCH_MP.ENDADDLEN, 0)
-         EgtSetMachiningParam( MCH_MP.LITANG, dToolDiam / 2)
-         EgtSetMachiningParam( MCH_MP.LIPERP, 5)
+         EgtSetMachiningParam( MCH_MP.LITANG, dStartTangComp)
+         EgtSetMachiningParam( MCH_MP.LIPERP, dStartPerpComp)
          EgtSetMachiningParam( MCH_MP.LIELEV, 0)
+
+         EgtSetMachiningParam( MCH_MP.LEADOUTTYPE, MCH_MILL_LI.TANGENT)
+         EgtSetMachiningParam( MCH_MP.LOTANG, dEndTangComp)
+         EgtSetMachiningParam( MCH_MP.LOPERP, dEndPerpComp)
+         EgtSetMachiningParam( MCH_MP.LOELEV, 0)
+
+         EgtSetMachiningParam( MCH_MP.STARTADDLEN, 0)
+         EgtSetMachiningParam( MCH_MP.ENDADDLEN, 0)
       -- altrimenti verifico se sono bilanciati ingresso e uscita, per evitare inizio o fine nel legno
       else
-         local ptS = EgtSP( AuxId, GDB_ID.ROOT)
-         local ptE = EgtEP( AuxId, GDB_ID.ROOT)
          local dDistS = abs( ( ptS - rfDtMrt:getOrigin()) * rfDtMrt:getVersX())
          local dDistE = abs( ( ptE - rfDtMrt:getOrigin()) * rfDtMrt:getVersX())
          local dIni, dFin = EgtCurveDomain( AuxId)

LuaLibs/ProcessFreeContour.lua

@@ -29,11 +29,13 @@ local ML = require( 'MachiningLib')
 local Q_DIM_STRIP = 'Q01'  -- d
 local Q_DEPTH_CHAMFER = 'Q02' -- d
 local Q_OVERMAT_FOR_FINISH = 'Q03' -- d
+local Q_ONLY_CONTOUR = 'Q04' -- i, valido solo per drill
 local Q_ONLY_CHAMFER = 'Q00' -- i
 local Q_RADIAL_OFFSET = 'Q06' -- d, valido solo per pocket
 local Q_IGNORE_LASER_PROBLEMS = 'Q07'
 local Q_FORCE_CLAMPABLE_AREA = 'Q08'
 local Q_INVERT_LAST_PATH = 'Q09'
+local Q_MAX_ELEVATION = 'Q10' -- d
 
 ---------------------------------------------------------------------
 -- Riconoscimento della feature
@@ -184,6 +186,8 @@ local function VerifyChamfer( Proc, AuxId, nRawId, bMakeVertCham, bDownHead)
          EgtOutLog( sErr)
          return -1, 0, sErr
       end
+   else
+      sMilling = ''
    end
 
    return nChamfer, dDepth, sMilling
@@ -235,6 +239,7 @@ end
 local function MakeByMill( Proc, nPhase, nRawId, nPartId, dOvmHead)
    -- recupero l'ingombro del grezzo di appartenenza
    local b3Raw = EgtGetRawPartBBox( nRawId)
+   local bContourFromDrill = EgtGetInfo( Proc.Id, Q_ONLY_CONTOUR, 'i') == 1
    -- ingombro del pezzo
    local Ls = EgtGetFirstNameInGroup( nPartId, 'Box')
    local b3Solid = EgtGetBBoxGlob( Ls or GDB_ID.NULL, GDB_BB.STANDARD)
@@ -259,7 +264,7 @@ local function MakeByMill( Proc, nPhase, nRawId, nPartId, dOvmHead)
    -- verifico se in testa o coda
    local bHead = Proc.Head
    -- verifico i parametri Q per profondità smusso e per eseguirlo in esclusiva
-   local nChamfer, dDepthCham, sChamfer = VerifyChamfer( Proc, AuxId, nRawId, true)
+   local nChamfer, dDepthCham, sChamfer = VerifyChamfer( Proc, AuxId, nRawId, true, nil)
    -- recupero la lavorazione
    local bTopHead = ( BD.DOWN_HEAD and vtExtr:getZ() > -0.1)
    local bDownHead = ( BD.DOWN_HEAD and vtExtr:getZ() < 0.1)
@@ -631,6 +636,14 @@ local function MakeByMill( Proc, nPhase, nRawId, nPartId, dOvmHead)
                EgtOutLog( sErr)
                return false, sErr
             end
+            -- eventuale elevazione forzata
+            local dCustomMaxElev = EgtGetInfo( Proc.Id, Q_MAX_ELEVATION, 'd')
+            if dCustomMaxElev and dCustomMaxElev < 1 then dCustomMaxElev = nil end
+            if dCustomMaxElev then
+               local sUserNotes = EgtGetMachiningParam( MCH_MP.USERNOTES) or ''
+               sUserNotes = EgtSetValInNotes( sUserNotes, 'MaxElev', EgtNumToString( dCustomMaxElev, 1))
+               EgtSetMachiningParam( MCH_MP.USERNOTES, sUserNotes)
+            end
             -- assegno affondamento
             EgtSetMachiningParam( MCH_MP.DEPTH, dDepth)
          end
@@ -663,7 +676,9 @@ local function MakeByMill( Proc, nPhase, nRawId, nPartId, dOvmHead)
          end
          
          -- assegno lato di lavoro
-         if Proc.Grp == 0 then
+         if bContourFromDrill then
+            dWorkSide = MCH_MILL_WS.LEFT
+         elseif Proc.Grp == 0 then
             dWorkSide = MCH_MILL_WS.CENTER
          elseif ( Proc.Grp == 3 and not bToolInv) or ( Proc.Grp == 4 and bToolInv) or ( Proc.Grp == 1 and bToolInv) or ( Proc.Grp == 2 and bToolInv) then
             dWorkSide = MCH_MILL_WS.LEFT
@@ -695,6 +710,14 @@ local function MakeByMill( Proc, nPhase, nRawId, nPartId, dOvmHead)
          EgtSetMachiningParam( MCH_MP.TOOLINVERT, bToolInvert)
          EgtSetMachiningParam( MCH_MP.INVERT, bInvert)
          EgtSetMachiningParam( MCH_MP.WORKSIDE, dWorkSide)
+         -- setto valori specifici se lavorazione nel pieno del solo contorno di un foro
+         if bContourFromDrill then
+            local dWorkStep = max( ( EgtGetMachiningParam( MCH_MP.STEP) or 0) * 0.75, dToolDiam)
+            EgtSetMachiningParam( MCH_MP.STEP, dWorkStep)
+            EgtSetMachiningParam( MCH_MP.LEADINTYPE, MCH_MILL_LI.GLIDE)
+            EgtSetMachiningParam( MCH_MP.LIELEV, dWorkStep)
+            EgtSetMachiningParam( MCH_MP.LITANG, dWorkStep)
+         end
 
 
          -- posizione braccio porta testa
@@ -995,6 +1018,10 @@ function ProcessFreeContour.Make( Proc, nPhase, nRawId, nPartId, dOvmHead)
       Q_DEPTH_CHAMFER = 'Q01'
       Q_DIM_STRIP = 'Q02'
    end
+   if Proc.Prc == 40 then
+      Q_DIM_STRIP = ''
+      Q_OVERMAT_FOR_FINISH = ''
+   end
    -- recupero la tipologia
    local bPocket = ( EgtGetInfo( Proc.Id, 'PCKT', 'i') == 1)
    -- se svuotatura

LuaLibs/ProcessLapJoint.lua

@@ -3536,8 +3536,12 @@ local function MakePocket( Proc, nPartId, b3Solid, ptPs, tvtN, nFaceRef, sMchFin
       EgtOutLog( sErr)
       return false, sErr
    end
-   -- aggiungo geometria
-   EgtSetMachiningGeometry( {{ Proc.Id, (nFaceRef)}})
+   -- aggiungo geometria (se presente curva si lavora quella)
+   if Proc.LoopIdFacInd then
+      EgtSetMachiningGeometry( { Proc.LoopIdFacInd})
+   else
+      EgtSetMachiningGeometry( {{ Proc.Id, (nFaceRef)}})
+   end
    -- imposto uso faccia
    EgtSetMachiningParam( MCH_MP.FACEUSE, MCH_MILL_FU.ORTHO_CONT)
    -- imposto posizione braccio porta testa
@@ -3564,14 +3568,13 @@ local function MakePocket( Proc, nPartId, b3Solid, ptPs, tvtN, nFaceRef, sMchFin
    end
    EgtSetMachiningParam( MCH_MP.SCC, nSCC)
    -- se tasca aperta e non lavorata col truciolatore, imposto opportuno attacco
-   if sMchFind == 'OpenPocket' and nUseRoughTool == 0 then
+   if ( sMchFind == 'OpenPocket' or sMchFind == 'OpenPocket_H2') and nUseRoughTool == 0 then
       EgtSetMachiningParam( MCH_MP.SUBTYPE, MCH_POCK_SUB.SPIRALIN)
    end
    if sMchFind == 'OpenPocket' and dDiamTool < 90 then
       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.SUBTYPE, MCH_POCK_SUB.ZIGZAG)
          EgtSetMachiningParam( MCH_MP.INVERT, false)
          if not bTipMill then
             EgtSetMachiningParam( MCH_MP.LEADINTYPE, MCH_POCK_LI.HELIX)
@@ -3597,6 +3600,15 @@ 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)
+   -- 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
@@ -6651,7 +6663,8 @@ local function MakeMoreFaces( Proc, nPhase, nRawId, nPartId, dOvmHead, bSinglePa
    end
    -- eventuale forzatura sega a catena
    local bForceChainsaw = ( EgtGetInfo( Proc.Id, Q_FORCE_CHAINSAW, 'i') or 0) > 0
-   -- se è un tunnel provo a vedere se è possibile lavorarlo con la svuotatura o con la sega catena
+
+   -- TUNNEL: svuotatura o sega a catena
    if bClosedOrthoFaces then
       local bTryWithBlades = true
       local dDimMin, dDimMax, dDepth, vtOrtho, nLundIdFace
@@ -6741,7 +6754,8 @@ local function MakeMoreFaces( Proc, nPhase, nRawId, nPartId, dOvmHead, bSinglePa
             end
          end
       end
-   -- altrimenti non è una fessura
+
+   -- NO TUNNEL: tutti gli altri casi
    else
       -- dati della faccia
       local ptC, vtN = EgtSurfTmFacetCenter( Proc.Id, nFacInd, GDB_ID.ROOT)
@@ -6777,6 +6791,8 @@ local function MakeMoreFaces( Proc, nPhase, nRawId, nPartId, dOvmHead, bSinglePa
       if bPrevBhSideMill == nil then
          bPrevBhSideMill = bMakeBySideMill
       end
+
+      -- SIDEMILL (tipo BLOCKHAUS)
       if bMakeBySideMill then
          -- se smusso non è esclusivo
          if nChamfer < 2 then
@@ -6911,7 +6927,8 @@ local function MakeMoreFaces( Proc, nPhase, nRawId, nPartId, dOvmHead, bSinglePa
                end
             end
          end
-      -- altrimenti lavoro con svuotatura
+
+      -- TASCA GENERICA: si cerca il modo migliore di lavorare in base alla forma
       else
          local bSpecial3faces = false
          -- verifico se lavorando la faccia principale rimane esclusa molta sezione trasversale complessiva della feature (da box)
@@ -6941,7 +6958,7 @@ local function MakeMoreFaces( Proc, nPhase, nRawId, nPartId, dOvmHead, bSinglePa
             end
          end
          
-         -- se posso in effetti fare fresatura con aggregato flottante
+         -- FRESATURA SPECIALE CON AGGREGATO FLOTTANTE 
          if bPocketFloatingAggregate then
             -- inserisco la lavorazione di svuotatura
             local sName = 'Float_Mill_' .. ( EgtGetName( Proc.Id) or tostring( Proc.Id))
@@ -6964,7 +6981,7 @@ local function MakeMoreFaces( Proc, nPhase, nRawId, nPartId, dOvmHead, bSinglePa
             -- imposto uso faccia
             local nFaceUse = BL.GetNearestParalOpposite( vtN)
             EgtSetMachiningParam( MCH_MP.FACEUSE, nFaceUse)
-            -- piccolo offser radiale per essere sicuri di lavorare anche con tasca larga come diametro fresa
+            -- piccolo offset radiale per essere sicuri di lavorare anche con tasca larga come diametro fresa
             EgtSetMachiningParam( MCH_MP.OFFSR, -0.01)
 
             -- imposto posizione braccio porta testa
@@ -6989,7 +7006,7 @@ local function MakeMoreFaces( Proc, nPhase, nRawId, nPartId, dOvmHead, bSinglePa
                return false, sErr
             end
 
-         -- se riconosciuta gestione 3 facce (limitatamente per ora alla feature 20)
+         -- CASO SPECIALE 3 FACCE (se rimane esclusa molta sezione trasversale complessiva della feature, solo per feature 20)
          elseif bSpecial3faces and Proc.Prc == 20 then
             -- se smusso non è esclusivo
             if nChamfer < 2 then
@@ -7115,7 +7132,8 @@ local function MakeMoreFaces( Proc, nPhase, nRawId, nPartId, dOvmHead, bSinglePa
                   if not bOk then return false, sWarn end
                end
             end
-         -- altrimenti lavorazione di svuotatura o contornatura
+
+         -- SVUOTATURA O FRESATURA: si valuta se si può fare svuotatura o se provare altro
          else
             local bUseOtherFace
             local bLapJointAngTrasm = false
@@ -7229,6 +7247,11 @@ local function MakeMoreFaces( Proc, nPhase, nRawId, nPartId, dOvmHead, bSinglePa
                   nUseRoughTool = 1
                end
             end
+            -- se presente curva da lavorare con lato aperto
+            if Proc.LoopIdFacInd and ( EgtGetInfo( Proc.LoopIdFacInd, 'OPEN', 'i') or -1) > -1 then
+               sMchFind = 'OpenPocket'
+               nUseRoughTool = 0
+            end
             -- se abilitato rinvio da sotto
             if bLapJointAngTrasm then
                if not EgtEndsWith( sMchFind, '_AT') then
@@ -7273,7 +7296,8 @@ local function MakeMoreFaces( Proc, nPhase, nRawId, nPartId, dOvmHead, bSinglePa
                   EgtErase( nSurfPartId)
                end
             end
-            -- ricerca lavorazione
+            
+            -- ricerca lavorazione di svuotatura
             local sPocketing
             local _, sMyPocketing, dMyTMaxDepth, dMyTDiam = VerifyPocket( Proc, dDiam, dFacElev + dCollSic, dMaxTotLen, sMchFind, bMillUp, bMillDown)
             if not sMyPocketing and bMillUp then
@@ -7320,7 +7344,8 @@ local function MakeMoreFaces( Proc, nPhase, nRawId, nPartId, dOvmHead, bSinglePa
             local nQAntisplintResult = EgtGetInfo( Proc.Id, Q_ANTISPLINT_TYPE, 'i') or 0
             -- se lavorazione fresa come lama disabilito eventuale antischeggia
             if bSpecialMillOnSide then nQAntisplintResult = 0 end
-            -- se non trovata una svuotatura adatta
+
+            -- NO SVUOTATURA (si deve provare altro)
             if not sPocketing then
                -- se forma a L provo con contornatura
                if bIsL and not bSpecialMillOnSide and not bForceSideMill then
@@ -7666,6 +7691,8 @@ local function MakeMoreFaces( Proc, nPhase, nRawId, nPartId, dOvmHead, bSinglePa
                      end
                   end
                end
+
+            -- SVUOTATURA OK
             else
                -- se devo inserire il chamfer
                if ( ( Proc.Fct == 3 and bIsU) or (Proc.Fct == 2 and bIsL)) and nChamfer > 0 then
@@ -8000,6 +8027,21 @@ local function MakeLongMoreFaces( Proc, nPhase, nRawId, nPartId, dOvmHead)
       local nFct = EgtSurfTmFacetCount( vAddId[i])
       local AddProc = { Id = vAddId[i], Grp = Proc.Grp, Prc = Proc.Prc, Box = b3Box, TotBox = Proc.Box, Fct = nFct, Flg = Proc.Flg, PartId = Proc.PartId, TaskId = Proc.TaskId, FeatureId = Proc.FeatureId, IsSplittedLapJoint = true, AffectedFaces = Proc.AffectedFaces, OkFromBottom = Proc.OkFromBottom}
       Topology.Classify( AddProc, b3Raw)
+      -- con specifiche topologie si lavora la curva e si forza il lato aperto dove finisce la lavorazione precedente
+      if i > 1 and
+         ( ( Proc.Topology == 'Groove' and  Proc.IsThrough and Proc.Fct == 3 and Proc.AffectedFaces.Left and Proc.AffectedFaces.Right)
+         or ( Proc.Topology == 'Groove' and Proc.Fct == 4 and ( Proc.AffectedFaces.Left or Proc.AffectedFaces.Right))
+         or Proc.Topology == 'Pocket') then
+         local nFacInd = BL.GetFaceWithMostAdj( AddProc, nPartId)
+         if type( nFacInd) == "number" and nFacInd >= 0 then
+            local nLoopId, nLoopCnt = EgtExtractSurfTmFacetLoops( vAddId[i], nFacInd, nAddGrpId)
+            if nLoopId and nLoopCnt == 1 then
+               local nEdgeId = BL.GetEdgeToMachineFromVector( vAddId[i], nFacInd, -X_AX())
+               EgtSetInfo( nLoopId, 'OPEN', nEdgeId)
+               AddProc.LoopIdFacInd = nLoopId
+            end
+         end
+      end
       -- lasciare il false nel sesto parametro (perchè internamente viene verificato se diverso da nil)
       local bOk, sMyWarn
       bOk, sMyWarn, bPrevBhSideMill = MakeMoreFaces( AddProc, nPhase, nRawId, nPartId, dOvmHead, bAllWithEndCap, bPrevBhSideMill, bAllWithEndCap)

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 = '2.7f2'
+VERSION = '3.1b1'
+MIN_EXE = '3.1b1'