in FacesBySaw corretto SCC in caso di asse bloccato parallelo

release

LuaLibs/BeamExec.lua

@@ -324,6 +324,7 @@ local function CollectFeatures( PartId, b3Raw, dCurrOvmH, dCurrOvmT)
             -- leggo se ci sono feature collegate
             local nAddAdjId = EgtGetInfo( ProcId, 'ADJID', 'i')
             local nAddMainId = EgtGetInfo( ProcId, 'MAINID', 'i')
+            local nFeatureId = EgtGetInfo( ProcId, 'PRID', 'i')
             if nGrp and nPrc and nDo == 1 then
                local Proc = {}
                Proc.PartId = PartId
@@ -337,6 +338,7 @@ local function CollectFeatures( PartId, b3Raw, dCurrOvmH, dCurrOvmT)
                Proc.Fce = 0
                Proc.CutId = nCutId
                Proc.TaskId = nTaskId
+               Proc.FeatureId = nFeatureId or Proc.TaskId
                -- se ci sono feature collegate ne scrivo il riferimento nella Proc
                if nAddAdjId then
                   Proc.AdjId = Proc.Id + nAddAdjId
@@ -345,8 +347,6 @@ local function CollectFeatures( PartId, b3Raw, dCurrOvmH, dCurrOvmT)
                end
                Proc.Box = EgtGetBBoxGlob( ProcId, GDB_BB.STANDARD)
                if b3Raw then
-                  -- id della feature
-                  Proc.FeatureId = EgtGetInfo( ProcId, 'PRID', 'i') or Proc.TaskId
                   -- recupero l'elenco delle facce della parte interessate dalla feature
                   Proc.AffectedFaces = BL.GetProcessAffectedFaces( Proc)
                   -- recupero informazioni sulle facce della feature
@@ -2100,6 +2100,11 @@ function BeamExec.ProcessFeatures()
             -- creo la lavorazione
             local Proc = vProc[i]
             if Proc.Flg ~= 0 and Proc.Down then
+               -- dato che ho ruotato, aggiorno alcune proprietà della feature
+               Proc.Box = EgtGetBBoxGlob( Proc.Id, GDB_BB.STANDARD)
+               Proc.Face = BL.GetFacetsInfo( Proc, b3Raw)
+               Proc.AffectedFaces = BL.GetProcessAffectedFaces( Proc)
+               Proc.DistanceToNextPart = BL.GetDistanceToNextPart( nRawId, nPhase)
                Proc.PrevDouble = nPrevDouble
                nPrevDouble = Proc.Double
                local bOk, sMsg, nNewPhase = AddFeatureMachining( Proc, nPhase, nRawId, nPartId, dCurrOvmH, bNeedHCut, b3Raw, nOrd, sDownOrSideOrStd, nil, nil, dCurrOvmT)
@@ -2177,6 +2182,11 @@ function BeamExec.ProcessFeatures()
             -- creo la lavorazione
             local Proc = vProc[i]
             if Proc.Flg ~= 0 and Proc.Side then
+               -- dato che ho ruotato, aggiorno alcune proprietà della feature
+               Proc.Box = EgtGetBBoxGlob( Proc.Id, GDB_BB.STANDARD)
+               Proc.Face = BL.GetFacetsInfo( Proc, b3Raw)
+               Proc.AffectedFaces = BL.GetProcessAffectedFaces( Proc)
+               Proc.DistanceToNextPart = BL.GetDistanceToNextPart( nRawId, nPhase)
                Proc.PrevDouble = nPrevDouble
                nPrevDouble = Proc.Double
                local bOk, sMsg, nNewPhase = AddFeatureMachining( Proc, nPhase, nRawId, nPartId, dCurrOvmH, false, b3Raw, nOrd, sDownOrSideOrStd, bPreMove, vtMove, dCurrOvmT)
@@ -2242,6 +2252,11 @@ function BeamExec.ProcessFeatures()
          -- creo la lavorazione
          local Proc = vProc[i]
          if Proc.Flg ~= 0 and ( not ( Proc.Down or Proc.Side) or BD.DOWN_HEAD or BD.TURN) then
+            -- dato che ho ruotato, aggiorno alcune proprietà della feature
+            Proc.Box = EgtGetBBoxGlob( Proc.Id, GDB_BB.STANDARD)
+            Proc.Face = BL.GetFacetsInfo( Proc, b3Raw)
+            Proc.AffectedFaces = BL.GetProcessAffectedFaces( Proc)
+            Proc.DistanceToNextPart = BL.GetDistanceToNextPart( nRawId, nPhase)
             Proc.PrevDouble = nPrevDouble
             nPrevDouble = Proc.Double
             local bOk, sMsg, nNewPhase = AddFeatureMachining( Proc, nPhase, nRawId, nPartId, dCurrOvmH, false, b3Raw, nOrd, sDownOrSideOrStd, nil, nil, dCurrOvmT)

LuaLibs/BeamLib.lua

@@ -814,9 +814,10 @@ function BeamLib.GetDistanceToNextPart( nRawId, nPhase)
    -- se segue una parte rimanente riutilizzabile, modifico opportunamente questa distanza
    if not BeamLib.IsSplittedPartPhase( nPhase) then
       local nNextRawId = EgtGetNextRawPart( nRawId)
-      if  nNextRawId and 
-          EgtGetPartInRawPartCount( nNextRawId) <= 0 and 
-          EgtGetRawPartBBox( nNextRawId):getDimX() >= BD.MinRaw then
+      if nNextRawId and
+         EgtGetPartInRawPartCount( nNextRawId) <= 0 and
+         EgtGetRawPartBBox( nNextRawId):getDimX() >= BD.MinRaw then
+
          dDistToNextPiece = BD.OVM_MID
       end
    end
@@ -1185,11 +1186,19 @@ end
 
 -------------------------------------------------------------------------------------------------------------
 function BeamLib.GetFacetsInfo( Proc, b3Raw)
-   Face = {}
+   local Face = {}
    local b3Solid = EgtGetBBoxGlob( EgtGetFirstNameInGroup( Proc.PartId, 'Box') or GDB_ID.NULL, GDB_BB.STANDARD)
+   local vAdj
+   if Proc.AdjacencyMatrix then
+      vAdj = Proc.AdjacencyMatrix
+   else
+      vAdj = BeamLib.GetAdjacencyMatrix( Proc)
+   end
 
    for i = 1, Proc.Fct do
-      Face[i] = { Id = i - 1, VtN = EgtSurfTmFacetNormVersor( Proc.Id, i - 1, GDB_ID.ROOT )}
+      Face[i] = {}
+      Face[i].Id = i - 1
+      Face[i].PtCenter, Face[i].VtN =  EgtSurfTmFacetCenter( Proc.Id, i - 1, GDB_ID.ROOT)
       if Proc.Fct < 10 then
          local frHV, dFaceWidthTrimmed, dFaceHeightTrimmed = BeamLib.GetFaceHvRefDim( Proc.Id, i - 1, b3Raw)
          -- frame OCS faccia
@@ -1205,11 +1214,58 @@ function BeamLib.GetFacetsInfo( Proc, b3Raw)
          Face[i].Height = dFaceHeight
          -- elevazione calcolata rispetto al box della parte
          Face[i].Elevation = EgtSurfTmFacetElevationInBBox( Proc.Id, i - 1, b3Solid, true, GDB_ID.ROOT)
+         -- area della faccia
+         -- TODO qui sarebbe meglio l'area vera e non quella del rettangolo minimo
+         local _, dLongEdgeDimension, dShortEdgeDimension = EgtSurfTmFacetMinAreaRectangle( Proc.Id, i - 1, GDB_ID.ROOT)
+         Face[i].Area = dShortEdgeDimension * dLongEdgeDimension
+         -- adiacenze della faccia
+         -- TODO chiamarle in modo che si capisca che sono solo gli id e non l'intero oggetto faccia
+         Face[i].Adjacencies = {}
+         for j = 1, Proc.Fct do
+            if vAdj[i][j] and vAdj[i][j] ~= 0 and ( i ~= j) then
+               table.insert( Face[i].Adjacencies, j - 1)
+            end
+         end
       end
    end
 
    return Face
 end
 
+---------------------------------------------------------------------
+-- restituisce la matrice delle adiacenze di Proc dove i e j sono le facce e a(ij) è l'angolo tra di esse; 0 se nessuna adiacenza
+function BeamLib.GetAdjacencyMatrix( Proc)
+   local vAdj = {}
+   -- essendo la matrice simmetrica a diagonale nulla, ne calcolo solo la metà superiore
+   for i = 1, Proc.Fct do
+      vAdj[i] = {}
+      for j = i + 1, Proc.Fct do
+         _, _, _, vAdj[i][j] = EgtSurfTmFacetsContact( Proc.Id, i - 1, j - 1, GDB_ID.ROOT)
+         if not vAdj[i][j] then vAdj[i][j] = 0 end
+      end
+   end
+   -- riempio di conseguenza il resto della matrice
+   for i = 1, Proc.Fct do
+      vAdj[i][i] = 0
+      for j = i + 1, Proc.Fct do
+         vAdj[j][i] = vAdj[i][j]
+      end
+   end
+   return vAdj
+end
+
+-------------------------------------------------------------------------------------------------------------
+function BeamLib.GetMachiningSteps( dMachiningDepth, dStep)
+
+   local MachiningSteps = {}
+   MachiningSteps.StepLength = 0
+   MachiningSteps.Count = ceil( ( dMachiningDepth - 10 * GEO.EPS_SMALL) / dStep)
+   if MachiningSteps.Count > 1 then
+      MachiningSteps.StepLength = ( dMachiningDepth - dStep) / ( MachiningSteps.Count - 1)
+   end
+
+   return MachiningSteps
+end
+
 -------------------------------------------------------------------------------------------------------------
 return BeamLib

LuaLibs/DiceCut.lua

@@ -155,7 +155,7 @@ local function GetOrtoCutCenter( FacetId, ptC, vtN, vtO, dOffsetEff, dNzLimDwnUp
    -- se faccia non troppo lunga, con un lato piccolo e non diretta troppo verso il basso, non servono dice
    local dMaxLen = BD.MAX_LEN_DICE or 600
    if dLen < dMaxLen and dWidth < dMaxLen and
-      ( dLen < dOffsetEff + 1.0 or dWidth < dOffsetEff + 1.0) and vtN:getZ() > dNzLimDwnUp then
+      ( dLen < dOffsetEff + 1.0 or dWidth < dOffsetEff + 1.0) then
       return nil, nil, nil
    end
 

LuaLibs/FacesBySaw.lua

@@ -407,7 +407,10 @@ function FacesBySaw.MakeOne( nSurfId, nFacet, sCutting, dSawDiam, Par5, dVzLimDw
    EgtOutLog( 'vtN=' .. tostring( vtN) .. ' vtRef=' .. tostring( vtRef) .. ' vtOut=' .. tostring( vtOut) .. ' vtAux=' .. tostring( vtAux), 3)
    local nSCC = MCH_SCC.NONE
    if not BD.TURN then
-      if abs( vtAux:getX()) > abs( vtAux:getY()) - GEO.EPS_SMALL then
+      -- per ora aggregato usato in verticale solo in split e headcut; Fast non influenzata
+      if BD.C_SIMM and bMaximizeVerticalDepth then
+         nSCC = MCH_SCC.ADIR_ZM
+      elseif abs( vtAux:getX()) > abs( vtAux:getY()) - GEO.EPS_SMALL then
          nSCC = EgtIf( ( vtAux:getX() > -GEO.EPS_SMALL), MCH_SCC.ADIR_XP, MCH_SCC.ADIR_XM)
       else
          nSCC = EgtIf( ( vtAux:getY() > -GEO.EPS_SMALL), MCH_SCC.ADIR_YP, MCH_SCC.ADIR_YM)

LuaLibs/FeatureTopology.lua

@@ -6,6 +6,7 @@
 -- 2023/11/03 In Classify ora si settano le AffectedFaces nella Proc, se non già presenti.
 --            Aggiunta groove 2 facce, differenziata da rabbet.
 -- 2024/03/04 Feature senza topologia, calcolato in BeamExec
+-- 2024/05/06 A topologia Cut aggiunta IsThrough = true
 
 -- Tabella per definizione modulo
 local FeatureTopology = {}
@@ -18,32 +19,10 @@ local BL = require( 'BeamLib')
 
 EgtOutLog( ' FeatureTopology started', 1)
 
----------------------------------------------------------------------
--- restituisce la matrice delle adiacenze di Proc dove i e j sono le facce e a(ij) è l'angolo tra di esse; 0 se nessuna adiacenza
-local function GetAdjacencyMatrix( Proc)
-   local vAdj = {}
-   -- essendo la matrice simmetrica a diagonale nulla, ne calcolo solo la metà superiore
-   for i = 1, Proc.Fct do
-      vAdj[i] = {}
-      for j = i + 1, Proc.Fct do
-         _, _, _, vAdj[i][j] = EgtSurfTmFacetsContact( Proc.Id, i - 1, j - 1, GDB_ID.ROOT)
-         if not vAdj[i][j] then vAdj[i][j] = 0 end
-      end
-   end
-   -- riempio di conseguenza il resto della matrice
-   for i = 1, Proc.Fct do
-      vAdj[i][i] = 0
-      for j = i + 1, Proc.Fct do
-         vAdj[j][i] = vAdj[i][j]
-      end
-   end
-   return vAdj
-end
-
 ---------------------------------------------------------------------
 -- restituisce gli id delle facce di Proc che hanno il numero di adiacenze nAdj
 function FeatureTopology.GetFacesWithGivenAdjacencyNumber( Proc, vAdj, nAdj)
-   if not vAdj then vAdj = GetAdjacencyMatrix( Proc) end
+   if not vAdj then vAdj = BL.GetAdjacencyMatrix( Proc) end
    local nFct = #( vAdj or {}) 
    local vFacesWithGivenAdj = {}
    for i = 1, nFct do
@@ -187,7 +166,7 @@ function FeatureTopology.Classify( Proc, b3Raw)
       Proc.Face = BL.GetFacetsInfo( Proc, b3Raw)
    end
 
-   local vAdj = GetAdjacencyMatrix( Proc)
+   local vAdj = Proc.AdjacencyMatrix or BL.GetAdjacencyMatrix( Proc)
    local bAllAnglesConcave, bAllRightAngles = AreAllAnglesConcaveOrRight( vAdj)
    local vTriangularFaces = GetTriangularFaces( Proc)
    local bIsAnyDimensionLongAsPart = IsAnyDimensionLongAsPart( Proc)
@@ -204,6 +183,7 @@ function FeatureTopology.Classify( Proc, b3Raw)
    local bIsThrough
    if Proc.Fct == 1 and bIsAnyDimensionLongAsPart and bIsFeatureCuttingEntireSection then
       sFamily = 'Cut'
+      bIsThrough = true
    elseif Proc.Fct == 1 and bIsAnyDimensionLongAsPart then
       sFamily = 'Bevel'
       bIsThrough = true

LuaLibs/MachiningLib.lua

@@ -356,16 +356,16 @@ local function FindMachining( MachiningType, sType, Params, bTopHead, bDownHead,
    end
    if ( BEAM and BEAM.BW) or MachineHeadType == ONE_HEAD or MachineHeadType == TWO_EQUAL_HEADS or ( MachineHeadType == TWO_UP_DOWN_HEADS and not bDownHead) then
       _, sType = EgtEndsWith( sType, '_H2')
-   elseif ( not BEAM or not BEAM.BW) and MachineHeadType == TWO_UP_DOWN_HEADS and bDownHead then
+   elseif not ( BEAM and BEAM.BW) and MachineHeadType == TWO_UP_DOWN_HEADS and bDownHead then
       if not EgtEndsWith( sType, '_H2') then
          sType = sType .. '_H2'
       end
    end
    local MachineHeadUse = MachineHeadType
-   if not BEAM or not BEAM.BW then
+   if not ( BEAM and BEAM.BW) and MachineHeadUse == TWO_EQUAL_HEADS then
       MachineHeadUse = ONE_HEAD
    end
-   if BEAM and BEAM.BW and MachineHeadUse == TWO_UP_DOWN_HEADS and bTopHead and bDownHead then
+   if MachineHeadUse == TWO_UP_DOWN_HEADS and bTopHead and bDownHead then
       -- se posso usare entrambe le teste, la gestisco come una macchina a due teste da sopra
       MachineHeadUse = TWO_EQUAL_HEADS
    end
@@ -374,7 +374,7 @@ local function FindMachining( MachiningType, sType, Params, bTopHead, bDownHead,
    for i = ForStart, ForEnd, ForStep do
       local Machining = Machinings[i]
       local sMachiningType = Machining.Type
-      if BEAM and BEAM.BW then
+      if ( BEAM and BEAM.BW) or MachineHeadUse == TWO_EQUAL_HEADS then
          _, sMachiningType = EgtEndsWith( Machining.Type, '_H2')
       end
       -- recupero dati utensile

LuaLibs/ProcessCut.lua

@@ -25,6 +25,7 @@
 -- 2023/10/27 In MakeFromTop corretto massimo materiale in caso di lavorazione da sotto.
 -- 2023/12/07 Correzione in Classify in scelta ribaltamento trave quando si è in condizioni downUp.
 -- 2024/01/18 Gestita superficie limitante opzionale da passare a diceCut.
+-- 2024/05/10 In MakeFromTop ricalcolo direzione di lavorazione su facce a cubetti
 
 -- Tabella per definizione modulo
 local ProcessCut = {}
@@ -479,7 +480,15 @@ local function MakeFromTop( sCutting, Proc, nPhase, nRawId, nPartId, dOvmHead, b
             if vtO then
                vtOrthoO = Vector3d( vtO) * EgtIf( bOrthInv, -1, 1)
             else
-               if bHorizCut then
+               -- ricalcolo tipo taglio perché "bHorizCut" è calcolato sulla feature, mentre il cubetto potrebbe essere lavorato in un altro modo
+               local _, dLen, dWidth = BL.GetFaceHvRefDim( vCuts[i][1], 0, b3Raw)
+               local bCutDirection = bHorizCut
+               -- se bisogna tagliare di fianco ma la lunghezza faccia è più del massimo materiale, forzo lavorazione da sopra
+               if not bHorizCut and dLen > dMaxDepth then
+                  bCutDirection = true
+               end
+
+               if bCutDirection then
                   vtOrthoO = Z_AX()
                else
                   if vtN:getZ() < dNzLimDwnUp then

LuaLibs/ProcessLongCut.lua

@@ -34,6 +34,8 @@
 -- 2023/11/30 Calcolo elevazione velocizzato e centralizzato tramite la funzione GetFaceElevation.
 -- 2024/01/18 Implementata GetBlockedAxis che gestisce gli assi bloccati per tutti i tipi di utensile.
 -- 2024/01/22 Implementata gestione seghe a catena multiple.
+-- 2024/05/09 In Make, allungamento percorso ingresso per evitare collisioni durante approccio pezzo quando si setta OutRaw=3
+--            In Make, se non trova fresa per pulizia, da messaggio di warning anziché di errore
 
 -- Tabella per definizione modulo
 local ProcessLongCut = {}
@@ -293,7 +295,7 @@ local function MakeAntiSplintBySaw( Proc, nFacet, vtN, b3Raw, nFacInd, bReduceDe
    -- laterale sul punto medio della linea in comune
    local frFc = Frame3d( ptPm, vtN) ;
    local b3BoxLoc = EgtGetBBoxRef( Proc.Id, GDB_BB.STANDARD, frFc)
-   dDepth = b3BoxLoc:getDimZ() or 0
+   local dDepth = b3BoxLoc:getDimZ() or 0
    -- recupero i dati dell'utensile
    local dSawDiam = 400
    local dSawThick = 0
@@ -510,6 +512,7 @@ local function MakeSideFaceByChainSaw( nSurfId, dDepth, dOffs, dSal, dEal, bShor
    local dSawCornerRad = 0
    local dSawThick = 0
    local dSawDiameter = 0
+   local sWarn
    -- se non trova una lavorazione di sawing esco
    if not sSawing then
       local sErr = 'Error : Sawing not found in library'
@@ -969,58 +972,57 @@ function ProcessLongCut.Make( Proc, nPhase, nRawId, nPartId, bCustUseBlade, nCus
          local dElev = BL.GetFaceElevation( Proc, 0, b3Solid)
          -- recupero la lavorazione
          local sMilling = ML.FindMilling( 'Long2Cut_H2', dElev, nil, nil, nil, not bCanUseUnderBlade, bCanUseUnderBlade)
-         if not sMilling then
-            local sErr = 'Error : milling Long2Cut (_H2) not found in library'
-            EgtOutLog( sErr)
-            return false, sErr
-         end
-         -- recupero i dati dell'utensile
-         local dToolDiam = 0
-         local dMaxDepth = 0
-         if EgtMdbSetCurrMachining( sMilling) then
-            local sTuuid = EgtMdbGetCurrMachiningParam( MCH_MP.TUUID)
-            if EgtTdbSetCurrTool( EgtTdbGetToolFromUUID( sTuuid) or '') then
-               dToolDiam = EgtTdbGetCurrToolParam( MCH_TP.DIAM) or dToolDiam
-               dMaxDepth = EgtTdbGetCurrToolMaxDepth() or dMaxDepth
+         if sMilling then
+            -- recupero i dati dell'utensile
+            local dToolDiam = 0
+            local dMaxDepth = 0
+            if EgtMdbSetCurrMachining( sMilling) then
+               local sTuuid = EgtMdbGetCurrMachiningParam( MCH_MP.TUUID)
+               if EgtTdbSetCurrTool( EgtTdbGetToolFromUUID( sTuuid) or '') then
+                  dToolDiam = EgtTdbGetCurrToolParam( MCH_TP.DIAM) or dToolDiam
+                  dMaxDepth = EgtTdbGetCurrToolMaxDepth() or dMaxDepth
+               end
             end
-         end
-         -- se ho facce di chiusura, per prima cosa faccio antischeggia
-         -- come richiesto da Fabio Squaratti il 03/09/2021
-         if ( bLimXmin and not bForcedLim) or bLimXmax then
-            local bOk, nFacet
-            bMadeASbyBld, bOk, sWarn = ManageAntiSplintBySaw( Proc, b3Raw, (( bLimXmin and not bForcedLim) and bLimXmax), vtN, nFacet, 0, sWarn, bCanUseUnderBlade, nil, sCutting)
-            if not bOk then return false, sWarn end
-         end
-         -- eventuale lavorazione della faccia limitante l'inizio
-         if not bStartFixed then
-            local vtIni = -X_AX()
-            for j = 1, Proc.Fct - 1 do
-               local _, vtN = EgtSurfTmFacetCenter( Proc.Id, j, GDB_ID.ROOT)
-               if vtIni * vtN > 0 and nCountMilHead < 2 then
-                  MakeSideFace( Proc.Id, j, nSide, sMilling, dToolDiam, nil, max(dStartDistUp,dStartDistDn), bCanUseUnderBlade)
+            -- se ho facce di chiusura, per prima cosa faccio antischeggia
+            -- come richiesto da Fabio Squaratti il 03/09/2021
+            if ( bLimXmin and not bForcedLim) or bLimXmax then
+               local bMadeASbyBld, bOk, nFacet
+               bMadeASbyBld, bOk, sWarn = ManageAntiSplintBySaw( Proc, b3Raw, (( bLimXmin and not bForcedLim) and bLimXmax), vtN, nFacet, 0, sWarn, bCanUseUnderBlade, nil, sCutting)
+               if not bOk then return false, sWarn end
+            end
+            -- eventuale lavorazione della faccia limitante l'inizio
+            if not bStartFixed then
+               local vtIni = -X_AX()
+               for j = 1, Proc.Fct - 1 do
+                  local _, vtN = EgtSurfTmFacetCenter( Proc.Id, j, GDB_ID.ROOT)
+                  if vtIni * vtN > 0 and nCountMilHead < 2 then
+                     MakeSideFace( Proc.Id, j, nSide, sMilling, dToolDiam, nil, max(dStartDistUp,dStartDistDn), bCanUseUnderBlade)
+                     nCountMilHead = nCountMilHead + 1
+                  end
+               end
+               if bForcedLim and nCountMilHead < 1 then
+                  MakeSideFace( Proc.Id, 0, nSide, sMilling, dToolDiam, bForcedLim, max(dStartDistUp,dStartDistDn), bCanUseUnderBlade)
                   nCountMilHead = nCountMilHead + 1
                end
             end
-            if bForcedLim and nCountMilHead < 1 then
-               MakeSideFace( Proc.Id, 0, nSide, sMilling, dToolDiam, bForcedLim, max(dStartDistUp,dStartDistDn), bCanUseUnderBlade)
-               nCountMilHead = nCountMilHead + 1
-            end
-         end
 
-         -- eventuale lavorazione della faccia limitante la fine
-         if not bEndFixed then
-            local vtFin = X_AX()
-            for j = 1, Proc.Fct - 1 do
-               local _, vtN = EgtSurfTmFacetCenter( Proc.Id, j, GDB_ID.ROOT)
-               if vtFin * vtN > 0  and nCountMilHead < 2 then
-                  MakeSideFace( Proc.Id, j, nSide, sMilling, dToolDiam, nil, max(dEndDistUp,dEndDistDn), bCanUseUnderBlade)
+            -- eventuale lavorazione della faccia limitante la fine
+            if not bEndFixed then
+               local vtFin = X_AX()
+               for j = 1, Proc.Fct - 1 do
+                  local _, vtN = EgtSurfTmFacetCenter( Proc.Id, j, GDB_ID.ROOT)
+                  if vtFin * vtN > 0  and nCountMilHead < 2 then
+                     MakeSideFace( Proc.Id, j, nSide, sMilling, dToolDiam, nil, max(dEndDistUp,dEndDistDn), bCanUseUnderBlade)
+                     nCountMilHead = nCountMilHead + 1
+                  end
+               end
+               if bForcedLim  and nCountMilHead < 2 then
+                  MakeSideFace( Proc.Id, 0, nSide, sMilling, dToolDiam, bForcedLim, max(dEndDistUp,dEndDistDn), bCanUseUnderBlade)
                   nCountMilHead = nCountMilHead + 1
                end
             end
-            if bForcedLim  and nCountMilHead < 2 then
-               MakeSideFace( Proc.Id, 0, nSide, sMilling, dToolDiam, bForcedLim, max(dEndDistUp,dEndDistDn), bCanUseUnderBlade)
-               nCountMilHead = nCountMilHead + 1
-            end
+         else
+            sWarn = 'Warning: milling Long2Cut (_H2) not found in library'
          end
       end
 
@@ -1215,7 +1217,6 @@ function ProcessLongCut.Make( Proc, nPhase, nRawId, nPartId, bCustUseBlade, nCus
             if not bChainSawOk then return false, sErr end
          end
       end
-      
    -- se non è sotto e non uso fresa di fianco: lavorazione Long2Cut
    elseif ( nSide ~= - 1 or BD.DOWN_HEAD) and nUseMillOnSide == 0 then
       -- determino la massima elevazione
@@ -1426,6 +1427,21 @@ function ProcessLongCut.Make( Proc, nPhase, nRawId, nPartId, bCustUseBlade, nCus
             if k < nO then
                local sNotes = 'OutRaw=3;'
                EgtSetMachiningParam( MCH_MP.USERNOTES, sNotes)
+               -- aumento ingresso su spezzoni per evitare collisione durante approccio pezzo
+               if bFront then
+                  -- se invertito si allunga ingresso su tutti tranne su ultimo
+                  if bInvert and i ~= nC then
+                     EgtSetMachiningParam( MCH_MP.LIPERP, ( nO - k) * dStep + 10)
+                  -- se non invertito si allunga solo il primo
+                  elseif not bInvert and i == 1 then
+                     EgtSetMachiningParam( MCH_MP.LIPERP, ( nO - k) * dStep + 10)
+                  end
+               else
+                  -- se invertito si allunga ingresso su tutti
+                  if bInvert then
+                     EgtSetMachiningParam( MCH_MP.LIPERP, ( nO - k) * dStep + 10)
+                  end
+               end
             end
             -- eseguo
             if not ML.ApplyMachining( true, false) then

LuaLibs/ProcessMortise.lua

@@ -128,7 +128,7 @@ end
       local nFaceUse = BL.GetNearestParalOpposite( vtN)
       EgtSetMachiningParam( MCH_MP.FACEUSE, nFaceUse)
       -- applico il parametro plunge, che setta la lavorazione per affondare solamente, senza lavorare tutto il contorno; 1: solo lato iniziale, 2: solo lato finale, 3: entrambi
-      sNotes = 'Plunge=3;'
+      local sNotes = 'Plunge=3;'
       EgtSetMachiningParam( MCH_MP.USERNOTES, sNotes)
       -- imposto angolo 3° asse rot
       local vtOrtho = BL.GetVersRef( nFaceUse)

UpdateLog.txt

@@ -1,5 +1,31 @@
            ==== Beam Update Log ====
 
+Versione 2.6e5 (27/05/2024)
+- Modif : in LapJoint corretto typo in lavorazione lamello che impediva il funzionamento corretto.
+
+Versione 2.6e4 (20/05/2024)
+- Modif : in SawPlusChain le lavorazioni di sega a catena aggiuntive (side) si fermano in mezzeria se tasca passante
+- Modif : in SawPlusChain il tunnel con sega a catena viene fatto da un solo lato se possibile
+
+Versione 2.6e3 (14/05/2024)
+- Modif : in SawPlusChain aggiunta gestione lavorazioni aggiuntive lati aperti e tunnel
+- Fixed : in Cut -> MakeFromTop ricalcolo direzione di lavorazione su facce a cubetti.
+
+Versione 2.6e2 (10/05/2024)
+- Modif : in FeatureTopology aggiunta proprietà IsTrough = true anche a Cut
+- Modif : LongCut : se non trova fresa per pulizia, da messaggio di warning anziché di errore
+- Fixed : LongCut : allungamento percorso ingresso per evitare collisioni durante approccio pezzo quando si setta OutRaw.
+
+Versione 2.6e1 (03/05/2024)
+- Modif : in LapJoint Groove verso il basso lavorata di preferenza dal lato
+- Modif : in LapJoint -> SideMillAsSaw gestito anche rabbet passante
+- Fixed : in BeamExec box della feature aggiornato dopo rotazione
+- Fixed : in BeamExec GetProcessAffectedFaces e GetFacetsInfo rilanciati dopo rotazione
+- Fixed : In LapJoint -> MakeMoreLongFaces corretto calcolo divisione in parti per evitare problemi di ceil con interi perfetti
+
+Versione 2.6d2 (11/04/2024)
+- Added : in LapJoint aggiunta strategia per fare tasche con lama + sega a catena, attivata da Q11 
+
 Versione 2.6d1 (08/04/2024)
 - Fixed : in Long2Cut corretto nome passato alla BL.GetBlockedAxis
 - Fixed : in MakeTwo rimossa gestione calcolo differente su ultima passata in caso di macchina FAST

Version.lua

@@ -2,5 +2,5 @@
 -- Gestione della versione di Beam
 
 NAME = 'Beam'
-VERSION = '2.6d1'
-MIN_EXE = '2.6a1'
+VERSION = '2.6e5'
+MIN_EXE = '2.6e2'