correzioni a ottimizzazione teste

- in RidgeLap abilitato Q04 come LapJoint, se riconducibile a 2 facce
- GetFacetsInfo richiamata ogni volta che c'è uno swap di facce
- In LapJoint -> MakePocket abilitata Q per forzare massima elevazione

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,85 @@ 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
+
+-------------------------------------------------------------------------------------------------------------
+function BeamLib.IsCutNeeded( Proc, b3Raw, dOvmHead, dOvmTail)
+   if not dOvmTail then
+      dOvmTail = BD.OVM_MID
+   end
+   local ptC, vtN = EgtSurfTmFacetCenter( Proc.Id, 0, GDB_ID.ROOT)
+
+   if Proc.Head then
+      -- se coincide con il taglio di separazione precedente, non va fatto
+      if AreSameVectorApprox( vtN, X_AX())  and  abs( ptC:getX() - b3Raw:getMax():getX() + dOvmHead) < 10 * GEO.EPS_SMALL then
+         return false
+      end
+   -- altrimenti taglio di coda
+   else
+      -- se coincide con taglio di separazione, non va fatto
+      if AreSameVectorApprox( vtN, - X_AX())  and  abs( ptC:getX() - b3Raw:getMin():getX()) < dOvmTail + 10 * GEO.EPS_SMALL then
+         return false
+      end
+   end
+   -- se coincide con un taglio frontale non va fatto
+   if Proc.CutFront then
+      return false
+   end
+   
+   return true
+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) and ( vtN:getZ() > dNzLimDwnUp or BD.DOWN_HEAD) 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

@@ -74,40 +74,34 @@ local function SetCurrMachineHeadType()
 end
 
 ---------------------------------------------------------------------
--- funzione che conferma e rende attivi testa e utensile ipotizzati
+-- setta ultimi testa e utensile utilizzati se compatibili con ottimizzazione testa
 local function ConfirmNextMachining()
-   -- se non definita testa successiva, esco
-   if not nNextMachHead or nNextMachHead < 1 or nNextMachHead > 2 then return end
-   -- altrimenti, la confermo come attiva
-   nActiveHead = nNextMachHead
-   if nNextMachHead == 1 then
-      H1_TOOL = H1_NEXT_TOOL
-   elseif nNextMachHead == 2 then
-      H2_TOOL = H2_NEXT_TOOL
+   -- utensile corrente
+   local sToolUuid = EgtMdbGetCurrMachiningParam( MCH_MP.TUUID)
+   local sToolName = EgtTdbGetToolFromUUID( sToolUuid or '')
+   EgtTdbSetCurrTool( sToolName or '')
+   -- testa dell'utensile corrente
+   local sHead = EgtTdbGetCurrToolParam( MCH_TP.HEAD)
+   local nHead = tonumber( sHead:sub( 2, #sHead)) + 0
+
+   if ( nHead < 10 and nHead >= 30) or vFixedHeads[nHead] then
+      -- testa che non richiede ottimizzazione
+      return
+   elseif nHead >= 20 then
+      nHead = 2
+   elseif nHead >= 10 then
+      nHead = 1
+   end
+
+   -- se la testa richiede ottimizzazione, confermo testa attiva
+   nActiveHead = nHead
+   if nActiveHead == 1 then
+      H1_TOOL = sToolName
+   elseif nActiveHead == 2 then
+      H2_TOOL = sToolName
    end
-   -- reset prossima testa
-   nNextMachHead = 0
-   H1_NEXT_TOOL = ''
-   H2_NEXT_TOOL = ''
 end
 
----------------------------------------------------------------------
--- funzione che traccia testa e utensile ipotizzati
-local function SetNextMachining( sToolName, nHead, bFixed)
-   if nHead < 1 or nHead > 2 then return end
-   if bFixed then
-      nNextMachHead = 0
-      H1_NEXT_TOOL = ''
-      H2_NEXT_TOOL = ''
-   end
-   nNextMachHead = nHead
-   if nHead == 1 then
-      H1_NEXT_TOOL = sToolName
-   elseif nHead == 2 then
-      H2_NEXT_TOOL = sToolName
-   end
-end
-   
 ---------------------------------------------------------------------
 local function SetCurrMachiningAndTool( Machining)
    EgtMdbSetCurrMachining( Machining.Name)
@@ -356,16 +350,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 not bTopHead 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 +368,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
@@ -383,18 +377,15 @@ local function FindMachining( MachiningType, sType, Params, bTopHead, bDownHead,
          local bOk, ToolParams = VerifyTool( Machining, MachiningType, Params, bH2)
          if bOk then
             if MachineHeadUse == ONE_HEAD then
-               SetNextMachining( sToolName, 1, bFixed)
                return ReturnParams(MachiningType, Machining.Name, Machining.Type, ToolParams)
             elseif MachineHeadUse == TWO_EQUAL_HEADS then
                -- se nessuna testa attiva, prendo la prima lavorazione disponibile
                if nActiveHead == 0 then
-                  SetNextMachining( sToolName, EgtIf( bH2, 2, 1), bFixed)
                   return ReturnParams( MachiningType, Machining.Name, Machining.Type, ToolParams)
                -- verifico se posso usare lo stesso utensile della testa attiva
                elseif ( nActiveHead == 1 and not bH2 and sToolName == H1_TOOL) or ( nActiveHead == 2 and bH2 and sToolName == H2_TOOL) then
                -- se l'utensile sulla testa attiva è molto più piccolo rispetto a quelli salvati non lo scelgo
                   if ( not sH1Param or not sH1Param.TDiam or sH1Param.TDiam < dBiggerToolTolerance * ToolParams.TDiam) and ( not sH2Param or not sH2Param.TDiam or sH2Param.TDiam < 1.25 * ToolParams.TDiam) then
-                     SetNextMachining( sToolName, nActiveHead, bFixed)
                      return ReturnParams( MachiningType, Machining.Name, Machining.Type, ToolParams)
                   end
                end
@@ -414,10 +405,8 @@ local function FindMachining( MachiningType, sType, Params, bTopHead, bDownHead,
                end
             elseif MachineHeadUse == TWO_UP_DOWN_HEADS then
                if bTopHead and not bH2 then
-                  SetNextMachining( sToolName, 1, bFixed)
                   return ReturnParams( MachiningType, Machining.Name, Machining.Type, ToolParams)
                elseif bDownHead and bH2 then
-                  SetNextMachining( sToolName, 2, bFixed)
                   return ReturnParams( MachiningType, Machining.Name, Machining.Type, ToolParams)
                end
             end
@@ -428,31 +417,25 @@ local function FindMachining( MachiningType, sType, Params, bTopHead, bDownHead,
       -- se uno dei due utensili è molto più grande dell'altro scelgo quello senza fare altre analisi
       if sH1Mach ~= "" and sH1Param.TDiam and sH2Mach ~= "" and sH2Param.TDiam then
          if sH1Param.TDiam > dBiggerToolTolerance * sH2Param.TDiam then
-            SetNextMachining( sH1Tool, 1, bFixed)
             return ReturnParams( MachiningType, sH1Mach, sType, sH1Param)
          elseif sH2Param.TDiam > dBiggerToolTolerance * sH1Param.TDiam then 
-            SetNextMachining( sH2Tool, 2, bFixed)
             return ReturnParams( MachiningType, sH2Mach, sType, sH2Param)
          end
       end
       -- verifico se cambiare testa o cambiare utensile su quella corrente
       if nActiveHead == 1 then
          if sH2Mach ~= "" then
-            SetNextMachining( sH2Tool, 2, bFixed)
             return ReturnParams( MachiningType, sH2Mach, sType, sH2Param)
             --return sH2Mach, sH2Param.Type, sH2Param.TMaxMat, sH2Param.MaxToolLength, sH2Param.ToolDiam, sH2Param.DiamTh, sH2Param.FreeLen
          elseif sH1Mach ~= "" then
-            SetNextMachining( sH1Tool, 1, bFixed)
             return ReturnParams( MachiningType, sH1Mach, sType, sH1Param)
             --return sH1Mach, sH1Param.Type, sH1Param.TMaxMat, sH1Param.MaxToolLength, sH1Param.ToolDiam, sH1Param.DiamTh, sH1Param.FreeLen
          end
       elseif nActiveHead == 2 then
          if sH1Mach ~= "" then
-            SetNextMachining( sH1Tool, 1, bFixed)
             return ReturnParams( MachiningType, sH1Mach, sType, sH1Param)
             --return sH1Mach, sH1Param.Type, sH1Param.TMaxMat, sH1Param.MaxToolLength, sH1Param.ToolDiam, sH1Param.DiamTh, sH1Param.FreeLen
          elseif sH2Mach ~= "" then
-            SetNextMachining( sH2Tool, 2, bFixed)
             return ReturnParams( MachiningType, sH2Mach, sType, sH2Param)
             --return sH2Mach, sH2Param.Type, sH2Param.TMaxMat, sH2Param.MaxToolLength, sH2Param.ToolDiam, sH2Param.DiamTh, sH2Param.FreeLen
          end

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
@@ -812,20 +821,7 @@ function ProcessCut.Make( Proc, nPhase, nRawId, nPartId, dOvmHead, bFromBottom,
    local ptC, vtN = EgtSurfTmFacetCenter( Proc.Id, 0, GDB_ID.ROOT)
    -- se taglio di testa
    if not bForced then
-      if Proc.Head then
-         -- se coincide con il taglio di separazione precedente, non va fatto
-         if AreSameVectorApprox( vtN, X_AX())  and  abs( ptC:getX() - b3Raw:getMax():getX() + dOvmHead) < 10 * GEO.EPS_SMALL then
-            return true
-         end
-      -- altrimenti taglio di coda
-      else
-         -- se coincide con taglio di separazione, non va fatto
-         if AreSameVectorApprox( vtN, - X_AX())  and  abs( ptC:getX() - b3Raw:getMin():getX()) < dOvmTail + 10 * GEO.EPS_SMALL then
-            return true
-         end
-      end
-      -- se coincide con un taglio frontale non va fatto
-      if Proc.CutFront then
+      if not BL.IsCutNeeded( Proc, b3Raw, dOvmHead, dOvmTail) then
          return true
       end
    end

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)

LuaLibs/ProcessRidgeLap.lua

@@ -10,6 +10,7 @@ local BL = require( 'BeamLib')
 local Fbs = require( 'FacesBySaw')
 local Cut = require( 'ProcessCut')
 local DC = require( 'DiceCut')
+local LapJoint = require( 'ProcessLapJoint')
 
 EgtOutLog( ' ProcessRidgeLap started', 1)
 
@@ -48,6 +49,7 @@ end
 ---------------------------------------------------------------------
 -- Applicazione della lavorazione
 function ProcessRidgeLap.Make( Proc, nPhase, nRawId, nPartId, dOvmHead)
+   local nForceUseBladeOnNotContinueFace = EgtGetInfo( Proc.Id, 'Q04', 'i') or 0
    -- recupero l'ingombro del grezzo di appartenenza
    local b3Raw = EgtGetRawPartBBox( nRawId)
    -- ingombro del pezzo
@@ -133,8 +135,15 @@ function ProcessRidgeLap.Make( Proc, nPhase, nRawId, nPartId, dOvmHead)
          local b3Cut = EgtGetBBoxGlob( AddId or GDB_ID.NULL, GDB_BB.STANDARD)
          local CutProc = { Id = AddId, Grp = Proc.Grp, Prc = Proc.Prc, Box = b3Cut, Fct = 1, Flg = Proc.Flg,
                            Head = Proc.Head, Tail = Proc.Tail, CutId = Proc.CutId, TaskId = Proc.TaskId}
-         local bOk, sErr = Cut.Make( CutProc, nPhase, nRawId, nPartId, dOvmHead, false)
-         if not bOk then return bOk, sErr end
+         if BL.IsCutNeeded( CutProc, b3Raw, dOvmHead) then
+            local bOk, sErr = Cut.Make( CutProc, nPhase, nRawId, nPartId, dOvmHead, false)
+            if not bOk then return bOk, sErr end
+         elseif nForceUseBladeOnNotContinueFace > 0 then
+            EgtSurfTmRemoveFacet( Proc.Id, vFaceOrd[1] - 1)
+            Proc.Fct = Proc.Fct - 1
+            Proc.Face = BL.GetFacetsInfo( Proc, b3Raw)
+            return LapJoint.Make( Proc, nPhase, nRawId, nPartId, dOvmHead)
+         end
       end
    end
    -- recupero gruppo per geometria addizionale

LuaLibs/ProcessStepJoint.lua

@@ -320,10 +320,12 @@ local function MakeThreeFaces( Proc, nPhase, nRawId, nPartId, dOvmHead)
    if bAdj12 then
       if dAng12 < 0 then
          EgtSurfTmSwapFacets( Proc.Id, 0, 2)
+         Proc.Face = BL.GetFacetsInfo( Proc, b3Raw)
       end
    elseif bAdj20 then
       if dAng20 < 0 then
          EgtSurfTmSwapFacets( Proc.Id, 1, 2)
+         Proc.Face = BL.GetFacetsInfo( Proc, b3Raw)
       end
    end
    -- dati delle facce

LuaLibs/ProcessStepJointNotch.lua

@@ -11,6 +11,7 @@ local BL = require( 'BeamLib')
 local Fbs = require( 'FacesBySaw')
 local DC = require( 'DiceCut')
 local Cut = require( 'ProcessCut')
+local Topology = require( 'FeatureTopology')
 
 EgtOutLog( ' ProcessStepJointNotch started', 1)
 
@@ -384,6 +385,8 @@ local function MakeFourFaces( Proc, nPhase, nRawId, nPartId, dOvmHead, nDiffWidt
       EgtSetName( AddId, 'AddCut_' .. tostring( Proc.Id))
       -- applico lavorazione
       local NewProc = { Id = AddId, Grp = Proc.Grp, Prc = Proc.Prc, Box = Proc.Box, Fct = Proc.Fct, Flg = Proc.Flg}
+      local b3Raw = EgtGetRawPartBBox( nRawId)
+      Topology.Classify( NewProc, b3Raw)
       local bOk, sErr = MakeTwoFaces( NewProc, nPhase, nRawId, nPartId, dOvmHead, nDiffWidth)
       if not bOk then return bOk, sErr end
    end

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'