- corretto problema in LongDoubleCut in cui si sbagliava la riduzione di affondamento con lama da sotto

- in Lapjoint aggiunta Q_FORCE_CHAINSAW per forzare sega a catena anche in casi in cui ci passerebbe la fresa

LuaLibs/BeamExec.lua

@@ -1275,6 +1275,7 @@ local function AddFeatureMachining( Proc, nPhase, nRawId, nPartId, dCurrOvmH, bN
    local bOk = true
    local sErr = ''
    local nNewPhase = -1
+   local AddedIds
    EgtOutLog( ' * Process ' .. tostring( Proc.Id) .. ' *', 1)
    -- se intestatura ( 1-340-X )
    if Hcut.Identify( Proc) then
@@ -1300,7 +1301,7 @@ local function AddFeatureMachining( Proc, nPhase, nRawId, nPartId, dCurrOvmH, bN
    elseif Long2Cut.Identify( Proc) then
      -- se due facce longitudinali, eseguo doppio taglio longitudinale
       if Long2Cut.GetLongFacesCount( Proc) == 2 then
-         bOk, sErr = Long2Cut.Make( Proc, nPhase, nRawId, nPartId)
+         bOk, sErr, _, AddedIds = Long2Cut.Make( Proc, nPhase, nRawId, nPartId)
       -- altrimenti eseguo singolo taglio longitudinale
       else
          bOk, sErr = LongCut.Make( Proc, nPhase, nRawId, nPartId)
@@ -1318,7 +1319,7 @@ local function AddFeatureMachining( Proc, nPhase, nRawId, nPartId, dCurrOvmH, bN
    -- o se rivestimento ( 3/4-034-X) o se mezzolegno chalet ( 4-037-X) o se tasca ( 4-039-X) o se taglio triangolato ( 4-120-X)
    elseif LapJoint.Identify( Proc) then
       -- esecuzione mezzo-legno o scanalatura
-      bOk, sErr = LapJoint.Make( Proc, nPhase, nRawId, nPartId, dCurrOvmH)
+      bOk, sErr, _, AddedIds = LapJoint.Make( Proc, nPhase, nRawId, nPartId, dCurrOvmH)
    -- se smusso  ( 3/4-036-X)
    elseif Chamfer.Identify( Proc) then
       -- esecuzione smusso
@@ -1423,7 +1424,7 @@ local function AddFeatureMachining( Proc, nPhase, nRawId, nPartId, dCurrOvmH, bN
       EgtOutLog( sErr)
       bOk = false
    end
-   return bOk, sErr, ( nNewPhase or -1)
+   return bOk, sErr, ( nNewPhase or -1), AddedIds
 end
 
 -------------------------------------------------------------------------------------------------------------
@@ -2096,7 +2097,8 @@ function BeamExec.ProcessFeatures()
          -- flag feature precedente in doppio
          local nPrevDouble = 0
          -- inserisco le lavorazioni da lavorare ribaltate
-         for i = 1, #vProc do
+         local i = 1
+         while i <= #vProc do
             -- creo la lavorazione
             local Proc = vProc[i]
             if Proc.Flg ~= 0 and Proc.Down then
@@ -2107,7 +2109,13 @@ function BeamExec.ProcessFeatures()
                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)
+               local bOk, sMsg, nNewPhase, AddedIds = AddFeatureMachining( Proc, nPhase, nRawId, nPartId, dCurrOvmH, bNeedHCut, b3Raw, nOrd, sDownOrSideOrStd, nil, nil, dCurrOvmT)
+               -- lavorazioni da fare dopo separazione
+               if AddedIds and #AddedIds > 0 then
+                  for j = 1, #AddedIds do
+                     table.insert( vProc, AddedIds[j])
+                  end
+               end
                if not bOk then
                   nTotErr = nTotErr + 1
                   table.insert( Stats, {Err=1, Msg=sMsg, Rot=-2, CutId=Proc.CutId, TaskId=Proc.TaskId})
@@ -2137,6 +2145,7 @@ function BeamExec.ProcessFeatures()
                   EgtSetInfo( nDispId, 'ROT', -2)
                end
             end
+            i = i + 1
          end
          -- se separazione non ancora effettuata, aggiungo nuova fase con le travi in posizione standard
          if not bSplitRot then
@@ -2178,7 +2187,8 @@ function BeamExec.ProcessFeatures()
          local nPrevDouble = 0
          -- inserisco le lavorazioni da lavorare ruotate
          local nSideMchOk = 0
-         for i = 1, #vProc do
+         local i = 1
+         while i <= #vProc do
             -- creo la lavorazione
             local Proc = vProc[i]
             if Proc.Flg ~= 0 and Proc.Side then
@@ -2189,7 +2199,13 @@ function BeamExec.ProcessFeatures()
                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)
+               local bOk, sMsg, nNewPhase, AddedIds = AddFeatureMachining( Proc, nPhase, nRawId, nPartId, dCurrOvmH, false, b3Raw, nOrd, sDownOrSideOrStd, bPreMove, vtMove, dCurrOvmT)
+               -- lavorazioni da fare dopo separazione
+               if AddedIds and #AddedIds > 0 then
+                  for j = 1, #AddedIds do
+                     table.insert( vProc, AddedIds[j])
+                  end
+               end
                if not bOk then
                   nTotErr = nTotErr + 1
                   table.insert( Stats, {Err=1, Msg=sMsg, Rot=-1, CutId=Proc.CutId, TaskId=Proc.TaskId})
@@ -2222,6 +2238,7 @@ function BeamExec.ProcessFeatures()
                   EgtSetInfo( nDispId, 'ROT', -1)
                end
             end
+            i = i + 1
          end
          -- se non sono state inserite lavorazioni di fianco, elimino la fase perchè inutile e dannosa
          if nSideMchOk == 0 then
@@ -2248,7 +2265,8 @@ function BeamExec.ProcessFeatures()
       -- flag feature precedente in doppio
       local nPrevDouble = 0
       -- inserisco le lavorazioni non ribaltate della trave
-      for i = 1, #vProc do
+      local i = 1
+      while i <= #vProc do
          -- 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
@@ -2259,7 +2277,13 @@ function BeamExec.ProcessFeatures()
             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)
+            local bOk, sMsg, nNewPhase, AddedIds = AddFeatureMachining( Proc, nPhase, nRawId, nPartId, dCurrOvmH, false, b3Raw, nOrd, sDownOrSideOrStd, nil, nil, dCurrOvmT)
+            -- lavorazioni da fare dopo separazione
+            if AddedIds and #AddedIds > 0 then
+               for j = 1, #AddedIds do
+                  table.insert( vProc, AddedIds[j])
+               end
+            end
             if not bOk then
                nTotErr = nTotErr + 1
                table.insert( Stats, {Err=1, Msg=sMsg, Rot=0, CutId=Proc.CutId, TaskId=Proc.TaskId})
@@ -2287,6 +2311,7 @@ function BeamExec.ProcessFeatures()
                EgtSetInfo( nDispId, 'ORD', nOrd)
             end
          end
+         i = i + 1
       end
       EgtOutLog( ' *** End AddMachinings ***', 1)
       -- passo al grezzo successivo

LuaLibs/BeamLib.lua

@@ -734,7 +734,9 @@ end
 
 -------------------------------------------------------------------------------------------------------------
 function BeamLib.GetNzLimDownUp( b3Raw, vtN, vtOrtho)
-   if BD.C_SIMM then
+   if BD.GetNzLimDownUp then
+      return BD.GetNzLimDownUp( b3Raw, vtN, vtOrtho)
+   elseif BD.C_SIMM then
       return -0.484
    elseif BD.TURN then
       return -2
@@ -1186,6 +1188,11 @@ end
 
 -------------------------------------------------------------------------------------------------------------
 function BeamLib.GetFacetsInfo( Proc, b3Raw)
+
+   if Proc.Fct > 20 then
+      return nil
+   end
+
    local Face = {}
    local b3Solid = EgtGetBBoxGlob( EgtGetFirstNameInGroup( Proc.PartId, 'Box') or GDB_ID.NULL, GDB_BB.STANDARD)
    local vAdj

LuaLibs/MachiningLib.lua

@@ -384,8 +384,8 @@ local function FindMachining( MachiningType, sType, Params, bTopHead, bDownHead,
                   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
+               -- se l'utensile sulla testa attiva è molto più piccolo rispetto a quelli salvati non lo scelgo, a meno che non siano entrambi grandi (truciolatori)
+                  if ( not sH1Param or not sH1Param.TDiam or ( sH1Param.TDiam < 75 and ToolParams.TDiam < 75 and sH1Param.TDiam < dBiggerToolTolerance * ToolParams.TDiam)) and ( not sH2Param or not sH2Param.TDiam or ( sH2Param.TDiam < 75 and ToolParams.TDiam < 75 and sH2Param.TDiam < 1.25 * ToolParams.TDiam)) then
                      return ReturnParams( MachiningType, Machining.Name, Machining.Type, ToolParams)
                   end
                end
@@ -414,12 +414,14 @@ local function FindMachining( MachiningType, sType, Params, bTopHead, bDownHead,
       end
    end
    if MachineHeadUse == TWO_EQUAL_HEADS then
-      -- se uno dei due utensili è molto più grande dell'altro scelgo quello senza fare altre analisi
+      -- se entrambi gli utensili sono piccoli (no truciolatori) e uno dei due è 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
-            return ReturnParams( MachiningType, sH1Mach, sType, sH1Param)
-         elseif sH2Param.TDiam > dBiggerToolTolerance * sH1Param.TDiam then 
-            return ReturnParams( MachiningType, sH2Mach, sType, sH2Param)
+         if sH1Param.TDiam < 75 or sH2Param.TDiam < 75 then
+            if sH1Param.TDiam > dBiggerToolTolerance * sH2Param.TDiam then
+               return ReturnParams( MachiningType, sH1Mach, sType, sH1Param)
+            elseif sH2Param.TDiam > dBiggerToolTolerance * sH1Param.TDiam then 
+               return ReturnParams( MachiningType, sH2Mach, sType, sH2Param)
+            end
          end
       end
       -- verifico se cambiare testa o cambiare utensile su quella corrente

LuaLibs/ProcessCut.lua

@@ -542,7 +542,11 @@ local function MakeFromTop( sCutting, Proc, nPhase, nRawId, nPartId, dOvmHead, b
                      local dVzLimDwnUp = dNzLimDwnUp
                      if j ~= 1 then
                         vtNewOrthoO = -vtOrthoO
-                        if not BD.C_SIMM and not BD.TURN and abs( vtN:getY()) > 0.05 then dVzLimDwnUp = -0.708 end
+                        if BD.GetNzLimDownUp then
+                           dVzLimDwnUp = BD.GetNzLimDownUp( b3Raw, vtN, V_NULL(), true)
+                        elseif not BD.C_SIMM and not BD.TURN and abs( vtN:getY()) > 0.05 then
+                           dVzLimDwnUp = -0.708
+                        end
                      end
                      local bOk, sErr = Fbs.MakeOne( vCuts[i][j], 0, sCutting, dSawDiam, vtNewOrthoO, dVzLimDwnUp, BD.CUT_EXTRA, BD.CUT_SIC, 0, 0, 0, nil, b3Raw)
                      if not bOk then return bOk, sErr end
@@ -566,7 +570,11 @@ local function MakeFromTop( sCutting, Proc, nPhase, nRawId, nPartId, dOvmHead, b
                      end
                   end
                   local dVzLimDwnUp = dNzLimDwnUp
-                  if not BD.C_SIMM and not BD.TURN and vtN:getZ() > 0.707 then dVzLimDwnUp = -0.708 end
+                  if BD.GetNzLimDownUp then
+                     dVzLimDwnUp = BD.GetNzLimDownUp( b3Raw, vtN, V_NULL(), true)
+                  elseif not BD.C_SIMM and not BD.TURN and vtN:getZ() > 0.707 then
+                     dVzLimDwnUp = -0.708
+                  end
                   local bOk, sErr = Fbs.MakeOne( vCuts[i][j], 0, sCutting, dSawDiam, vtOrthoO, dVzLimDwnUp, dExtraCut, BD.CUT_SIC, 0, 0, 0, sNotes, b3Raw)
                   if not bOk then return bOk, sErr end
                end

LuaLibs/ProcessDtTenon.lua

@@ -216,7 +216,7 @@ function ProcessDtTenon.Make( Proc, nPhase, nRawId, nPartId, dOvmHead)
    end
    -- recupero la lavorazione
    local sMillType = 'DtTenon'
-   local sMilling = ML.FindMilling( sMillType .. EgtIf( bMillDown, '_H2', ''), nil, nil, nil, nil, bMillUp, bMillDown)
+   local sMilling = ML.FindMilling( sMillType .. EgtIf( bMillDown and not bMillUp, '_H2', ''), nil, nil, nil, nil, bMillUp, bMillDown)
    if not sMilling then
       local sErr = 'Error : milling not found in library'
       EgtOutLog( sErr)

LuaLibs/ProcessLapJoint.lua

@@ -106,6 +106,8 @@
 -- 2024/04/17 In MakeMoreLongFaces corretto calcolo divisione in parti per evitare problemi di ceil con interi perfetti (ceil(3) = 3 o 4??)
 -- 2024/04/22 In IsTailFeature se LapJoint a 2 facce che taglia intera sezione, deve essere fatto dopo taglio di coda
 -- 2024/06/18 In MakeByMillAsSaw si cerca di orientare il motore verso il lato più vicino (rispetto a dove è la feature)
+-- 2024/06/28 In VerifySideMillAsSaw modificato criterio ricerca utensile in base a normale della faccia
+-- 2024/07/04 In IsTailFeature controllo per spostare lapjoint dopo taglio di separazione per lavorazioni tipo BH
 
 -- Tabella per definizione modulo
 local ProcessLapJoint = {}
@@ -139,6 +141,9 @@ local Q_SIDE_ROUGH_TOOL     = '' -- i
 local Q_ANTISPLINT_TYPE     = '' -- i
 local Q_BLADE_ON_ALONG_FACE = '' -- i
 local Q_MAX_ELEVATION       = '' -- d
+local Q_SAW_PLUS_CHAIN      = '' -- i
+local Q_FORCE_CHAINSAW      = '' -- i
+
 
 -- variabile smussi
 local bMadeChamfer
@@ -180,6 +185,7 @@ local function AssignQIdent( Proc)
    Q_MAX_ELEVATION      = 'Q10'
    Q_STAIRCASE          = ''
    Q_SAW_PLUS_CHAIN     = 'Q11'
+   Q_FORCE_CHAINSAW     = 'Q12'
 
    if ( Proc.Grp == 3 or Proc.Grp == 4)  and  Proc.Prc == 16 then
       Q_FORCE_BLADE         = 'Q01' -- i
@@ -565,8 +571,19 @@ local function VerifySideMillAsSaw( Proc, nAddGrpId, vtN, dDiam, dFacElev)
       return false
    end
    -- Recupero la lavorazione
-   local bDownHead = ( BD.DOWN_HEAD and vtN:getZ() < BD.NZ_MINA)
-   local sMillingOnSide = ML.FindMilling( 'SideMillAsBlade', nil, nil, nil, nil, not bDownHead, bDownHead)
+   local bDownHead
+   local sMillingOnSide
+   -- se ho testa da sotto e lap-joint diretto verso il basso, cerco prima testa sotto
+   if BD.DOWN_HEAD and vtN:getZ() < BD.NZ_MINA then
+      bDownHead = true
+      sMillingOnSide = ML.FindMilling( 'SideMillAsBlade_H2', nil, nil, nil, nil, not bDownHead, bDownHead)
+   end
+   -- se non ha trovato su testa sotto, cerco su testa sopra
+   if not sMillingOnSide then
+      bDownHead = false
+      sMillingOnSide = ML.FindMilling( 'SideMillAsBlade', nil, nil, nil, nil, not bDownHead, bDownHead)
+   end
+
    if not sMillingOnSide then
       return false
    end
@@ -763,7 +780,11 @@ function ProcessLapJoint.IsTailFeature( Proc, b3Raw)
    -- verifico se è in coda
    local dEndDist = Proc.Box:getMin():getX() - b3Solid:getMin():getX()
    if dEndDist > BD.MAX_DIST_HTFEA then
-      return false
+      if bUseBHSideMill and ( Proc.Box:getMax():getX() - b3Solid:getMin():getX()) < 400 then
+         return true
+      else
+         return false
+      end
    end
    -- se lunga come trave, oppure non è trave corta e la sua lunghezza supera il massimo o il 80% della lunghezza della trave
    if Proc.Box:getDimX() > b3Solid:getDimX() - 1 or
@@ -3178,6 +3199,11 @@ local function MakeAntiSplintBySaw( Proc, nFacet, vtN, b3Raw, nFacInd, bReduceDe
    end
    -- valuto l'angolo tra le due facce
    local bAdj, ptP1, ptP2, dAng = EgtSurfTmFacetsContact( Proc.Id, nFacInd, nFacet, GDB_ID.ROOT)
+   if not bAdj then
+      local sErr = 'Error : Faces not adjacent'
+      EgtOutLog( sErr)
+      return false, sErr
+   end
    local ptPm = (ptP1+ptP2)/2
    -- ottengo il boundingBox e prendo le dimensioni lungo la normale (Z locale) che rappresenta l'elevazione della faccia
    -- laterale sul punto medio della linea in comune
@@ -5436,7 +5462,7 @@ function SawPlusChain.Chainsaw.CalculateMachiningParameters( Proc, FaceToMachine
    Mortising.SuggestedAngles = {}
    Mortising.SuggestedAngles.Index = 1
    Mortising.SuggestedAngles.VtN = FaceToMachine.VtN
-   Mortising.SuggestedAngles.VtOrthO = EdgeToMachine.ToolDirection
+   Mortising.SuggestedAngles.VtOrtho = EdgeToMachine.ToolDirection
    -- approccio e retrazione
    Mortising.LeadIn, Mortising.LeadOut = SawPlusChain.CalculateLeadInOut( Mortising, EdgeToMachine)
    -- eventuale step verticale
@@ -5709,17 +5735,27 @@ local function MakeMoreFaces( Proc, nPhase, nRawId, nPartId, dOvmHead, bSinglePa
    if nChamfer < 0 then
       return false, sErrCham
    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
    if bClosedOrthoFaces then
       local bTryWithBlades = true
+      local dDimMin, dDimMax, dDepth, vtOrtho, nLundIdFace
+      -- forzata sega a catena
+      if bForceChainsaw then
+         -- ottengo le dimensioni del tunnel 
+         dDimMin, dDimMax, dDepth, vtOrtho, nLundIdFace = BL.GetTunnelDimension( Proc, nPartId)
       -- lavoro fessura con svuotature (singola o doppia contrapposta)
-      local sMyMchFind = 'Pocket'
-      local nOk, sErr, dDimMin, dDimMax, dDepth, vtOrtho, 
+      else
+         local sMyMchFind = 'Pocket'
+         local nOk, sErr
+         nOk, sErr, dDimMin, dDimMax, dDepth, vtOrtho,
             nLundIdFace = MakeByPockets( Proc, nPhase, nRawId, nPartId, nChamfer, dDepthCham, nAddGrpId, sMyMchFind, false, b3Solid, bClosedOrthoFaces)
-      if nOk < 0 then
-         return false, sErr
-      elseif nOk > 0 then
-         bTryWithBlades = false
+         if nOk < 0 then
+            return false, sErr
+         elseif nOk > 0 then
+            bTryWithBlades = false
+         end
       end
       -- Se la svuotatura precedente non è stata fatta e chamfer non è mutuamente esclusivo provo con la sega-catena
       if bTryWithBlades and nChamfer < 2 then
@@ -6210,6 +6246,10 @@ local function MakeMoreFaces( Proc, nPhase, nRawId, nPartId, dOvmHead, bSinglePa
             if bForceSideMill then
                sPocketing = nil
             end
+            -- se forzata sega a catena
+            if bForceChainsaw then
+               sPocketing = nil
+            end
             -- leggo parametro Q
             local nQAntisplintResult = EgtGetInfo( Proc.Id, Q_ANTISPLINT_TYPE, 'i') or 0
             -- se lavorazione fresa come lama disabilito eventuale antischeggia
@@ -6431,8 +6471,9 @@ local function MakeMoreFaces( Proc, nPhase, nRawId, nPartId, dOvmHead, bSinglePa
                                  sWarn = EgtIf( #sWarn > 0, sWarn .. '\n' .. sWarn2, sWarn2)
                               end
                            end
-                        -- in tutti gli altri casi lancio la MakeByPockets (lavorazione singola o doppia contrapposta, fondo della tasca una faccia fittizia perpendicolare al lato lungo)
-                        else
+                        -- in tutti gli altri casi, a meno che non sia forzata sega a catena, lancio la MakeByPockets
+                        -- lavorazione singola o doppia contrapposta, fondo della tasca una faccia fittizia perpendicolare al lato lungo
+                        elseif not bForceChainsaw then
                            -- se 2 facce setto i parametri corretti per la MakeByPockets
                            if bForceSideMill and Proc.Fct == 2 then
                               bIs3Faces = false
@@ -7188,13 +7229,13 @@ function ProcessLapJoint.Make( Proc, nPhase, nRawId, nPartId, dOvmHead)
             -- leggo i parametri Q per utilizzare la fresa di fianco e/o lama
             local nUseSideTool = EgtGetInfo( Proc.Id, Q_SIDE_ROUGH_TOOL, 'i') or 0
             local bUseBlade = EgtGetInfo( Proc.Id, Q_ANTISPLINT_TYPE, 'i') == 1
-            local bOk, sMyWarn = Long2Cut.Make( Proc, nPhase, nRawId, nPartId, bUseBlade, nUseSideTool)
+            local bOk, sMyWarn, _, AddedIds = Long2Cut.Make( Proc, nPhase, nRawId, nPartId, bUseBlade, nUseSideTool)
             -- se non sono riuscito a farlo di lama, riprovo con la fresa
             if not bOk and bUseBlade then
                bUseBlade = false
                return Long2Cut.Make( Proc, nPhase, nRawId, nPartId, bUseBlade, nUseSideTool)
             else
-               return bOk, sMyWarn
+               return bOk, sMyWarn, nil, AddedIds
             end
          -- prima faccia terminale
          elseif b3Fac1:getDimX() < 1 and abs( vtN2:getX()) < GEO.EPS_SMALL then

LuaLibs/ProcessLongDoubleCut.lua

@@ -37,6 +37,7 @@ EgtOutLog( ' ProcessLongDoubleCut started', 1)
 -- Dati
 local BD = require( 'BeamData')
 local ML = require( 'MachiningLib')
+local Topology = require( 'FeatureTopology')
 
 local dLimMinPiece = BD.LEN_SHORT_PART or 1000
 
@@ -324,6 +325,9 @@ function ProcessLong2Cut.Make( Proc, nPhase, nRawId, nPartId, bForcedBladeMaster
    local nFaceLimit, tFaceLong, ptC, vtN = IdentifyFaces( Proc)
    local dLen = Proc.Box:getDimX()
 
+   -- inizializzazione tabella con eventuali lavorazioni create a posteriori da ritornare al chiamante
+   local AddedIds = {}
+
    -- recupero lunghezza grezzo totale da info sulla macchinata
    local dBarLen = EgtGetInfo( EgtGetCurrMachGroup(), 'BARLEN', 'd')
    local dOvmHead = b3Raw:getMax():getX() - b3Solid:getMax():getX()
@@ -945,18 +949,6 @@ function ProcessLong2Cut.Make( Proc, nPhase, nRawId, nPartId, bForcedBladeMaster
          end
       -- altrimenti concavo
       else
-         -- se effettivamente un taglio longitudinale e lama non taglia completamente, limito la lavorazione. Altrimenti esco.
-         for k = 1, #vOrd do
-            if vWidth[vOrd[k]] + BD.CUT_SIC > dMaxDepth  then
-               if not( ProcessLong2Cut.Identify( Proc)) then
-                  return false
-               else
-                  local sWarn2 = 'Warning in ' .. ( EgtGetName( Proc.Id) or tostring( Proc.Id)) .. ' : elevation (' .. EgtNumToString( vWidth[vOrd[k]], 1) .. ') bigger than max saw depth (' .. EgtNumToString( dMaxDepth, 1) .. ')'
-                  if not sWarn then sWarn = '' end
-                  sWarn = EgtIf( #sWarn > 0, sWarn .. '\n' .. sWarn2, sWarn2)
-               end
-            end
-         end
          -- si percorrono i lati alto e basso della faccia
          for i = 1, nC do
             -- Posizione braccio portatesta
@@ -986,6 +978,22 @@ function ProcessLong2Cut.Make( Proc, nPhase, nRawId, nPartId, bForcedBladeMaster
                   EgtOutLog( sErr)
                   return false, sErr
                end
+               -- se effettivamente un taglio longitudinale e lama non taglia completamente, limito la lavorazione. Altrimenti esco.
+               local dCheckDepth = 0
+               if bCanUseBlade then
+                  dCheckDepth = dMaxDepth
+               elseif bCanUseUnderBlade then
+                  dCheckDepth = dMaxDepthDn
+               end
+               if vWidth[vOrd[j]] + 100 * GEO.EPS_SMALL > dCheckDepth  then
+                  if not( ProcessLong2Cut.Identify( Proc)) then
+                     return false
+                  else
+                     local sWarn2 = 'Warning in ' .. ( EgtGetName( Proc.Id) or tostring( Proc.Id)) .. ' : elevation (' .. EgtNumToString( vWidth[vOrd[j]], 1) .. ') bigger than max saw depth (' .. EgtNumToString( dCheckDepth, 1) .. ')'
+                     if not sWarn then sWarn = '' end
+                     sWarn = EgtIf( #sWarn > 0, sWarn .. '\n' .. sWarn2, sWarn2)
+                  end
+               end
                -- se lama da sotto verifico se la componente Y della profondità di taglio supera la capacità della lama
                if nSide <= 0 and bCanUseUnderBlade then
                   if ( vWidth[vOrd[j]] / 2) > dMaxDepthDn then
@@ -999,7 +1007,7 @@ function ProcessLong2Cut.Make( Proc, nPhase, nRawId, nPartId, bForcedBladeMaster
                local dLioPerp
 
                if j == 1 then -- il primo taglio lo faccio completo se angolo interno maggiore di 90
-                  local dMinOffsBigFace = max( vWidth[vOrd[j]] - dMaxDepth, 0)
+                  local dMinOffsBigFace = max( vWidth[vOrd[j]] - dCheckDepth, 0)
                   -- se la faccia è più grande del massimo materiale lama, allora limito lavorazione
                   if dMinOffsBigFace > 0 then
                      dOffset = dMinOffsBigFace
@@ -1011,7 +1019,7 @@ function ProcessLong2Cut.Make( Proc, nPhase, nRawId, nPartId, bForcedBladeMaster
                   end
                   dLioPerp = vWidth[vOrd[j]] + BD.CUT_SIC
                else -- il secondo ridotto della distanza minima e della componente spessore della lama
-                  local dMinOffsBigFace = max( vWidth[vOrd[j]] - dMaxDepth, 0)
+                  local dMinOffsBigFace = max( vWidth[vOrd[j]] - dCheckDepth, 0)
                   -- se la faccia è più grande del massimo materiale lama, allora limito lavorazione
                   if dMinOffsBigFace > 0 then
                      dOffset = dMinOffsBigFace
@@ -1070,12 +1078,27 @@ function ProcessLong2Cut.Make( Proc, nPhase, nRawId, nPartId, bForcedBladeMaster
                EgtSetMachiningParam( MCH_MP.LOTANG, dLioTang)
                EgtSetMachiningParam( MCH_MP.LOPERP, dLioPerp)
                -- imposto posizione braccio porta testa per non ingombrare agli estremi
+               local ptP1LineToMachine, _, ptP2LineToMachine = EgtSurfTmFacetOppositeSide( Proc.Id, vOrd[j] - 1, BL.GetVersRef( vFaceUse[vOrd[j]]), GDB_ID.ROOT)
+               local vtTg = ptP2LineToMachine - ptP1LineToMachine ;   vtTg:normalize()
+               local bIsMachiningInverted = EgtGetMachiningParam( MCH_MP.INVERT)
+               if bIsMachiningInverted then
+                  vtTg = -vtTg
+               end
+               if BD.C_SIMM then
+                  if abs( vtN[vOrd[j]]:getX()) < GEO.EPS_SMALL then
+                     nSCC = EgtIf( ( vtTg:getX() > GEO.EPS_SMALL), MCH_SCC.ADIR_XM, MCH_SCC.ADIR_XP)
+                  else
+                     nSCC = MCH_SCC.NONE
+                  end
+               else
+                  nSCC = EgtIf( ( i == 1 or i == nC - 1), MCH_SCC.ADIR_XP, MCH_SCC.ADIR_XM)
+               end
                EgtSetMachiningParam( MCH_MP.SCC, nSCC)
                -- determino e imposto l'utilizzo della faccia
                EgtSetMachiningParam( MCH_MP.FACEUSE, vFaceUse[vOrd[j]])
                -- imposto angolo 3° asse rot
                local vtOut = EgtIf( vtN[vOrd[j]]:getX() > 0, X_AX(), -X_AX())
-               EgtSetMachiningParam( MCH_MP.BLOCKEDAXIS, BL.GetBlockedAxis( sCutting, 'perpendicular', b3Raw, vtN, vtOut))
+               EgtSetMachiningParam( MCH_MP.BLOCKEDAXIS, BL.GetBlockedAxis( EgtIf( bCanUseUnderBlade, sCuttingDn, sCutting), 'perpendicular', b3Raw, vtN, vtOut))
                -- eseguo
                if not ML.ApplyMachining( true, false) then
                   local _, sErr = EgtGetLastMachMgrError()
@@ -1254,6 +1277,11 @@ function ProcessLong2Cut.Make( Proc, nPhase, nRawId, nPartId, bForcedBladeMaster
             end
          end
       end
+      if Proc.bMoveAfterSplit then
+         nC = 1
+         dStartDist = Proc.Box:getDimX() - ( dToolDiam / 2 + 5)
+         dEndDist = - ( dToolDiam / 2 + 5)
+      end
       if nIni == 2 then
          dStartDist, dEndDist = dEndDist, dStartDist
          dStartAccDist, dEndAccDist = dEndAccDist, dStartAccDist
@@ -1365,6 +1393,19 @@ function ProcessLong2Cut.Make( Proc, nPhase, nRawId, nPartId, bForcedBladeMaster
             end
          end
       end
+      if not Proc.MoveAfterSplit and not bEndFixed and not bConvex then
+         -- recupero gruppo per geometria addizionale
+         local nAddGrpId = BL.GetAddGroup( nPartId)
+         if not nAddGrpId then
+            local sErr = 'Error : missing AddGroup'
+            EgtOutLog( sErr)
+            return false, sErr
+         end
+         local AddId = EgtCopyGlob( Proc.Id, nAddGrpId) or GDB_ID.NULL
+         local AddProc = { Id = AddId, Grp = 0, Prc = 12, Box = Proc.Box, Fct = Proc.Fct, Flg = Proc.Flg, PartId = Proc.PartId, bMoveAfterSplit = true}
+         Topology.Classify( AddProc, b3Raw)
+         table.insert( AddedIds, AddProc)
+      end
 
    -- altrimenti lavorazione di fianco : Long2CutSide o Long2CutDown
    else
@@ -1807,8 +1848,8 @@ function ProcessLong2Cut.Make( Proc, nPhase, nRawId, nPartId, bForcedBladeMaster
       end
    end
 
-   return true, sWarn
-end   
+   return true, sWarn, nil, AddedIds
+end
 
 ---------------------------------------------------------------------
 return ProcessLong2Cut

LuaLibs/ProcessStepJointNotch.lua

@@ -1,6 +1,7 @@
 -- ProcessStepJointNotch.lua by Egaltech s.r.l. 2022/11/03
 -- Gestione calcolo tacca a gradino per Travi
 -- 2022/11/03 Correzione per riconoscimento testa da sotto su fresatura.
+-- 2024/06/28 In MakeFourFaces aggiunta copia del parametro PartId sulla nuova Proc
 
 -- Tabella per definizione modulo
 local ProcessStepJointNotch = {}
@@ -384,7 +385,7 @@ local function MakeFourFaces( Proc, nPhase, nRawId, nPartId, dOvmHead, nDiffWidt
       EgtSurfTmSwapFacets( AddId, 1, 3)
       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 NewProc = { Id = AddId, Grp = Proc.Grp, Prc = Proc.Prc, Box = Proc.Box, Fct = Proc.Fct, Flg = Proc.Flg, PartId = Proc.PartId}
       local b3Raw = EgtGetRawPartBBox( nRawId)
       Topology.Classify( NewProc, b3Raw)
       local bOk, sErr = MakeTwoFaces( NewProc, nPhase, nRawId, nPartId, dOvmHead, nDiffWidth)

UpdateLog.txt

@@ -1,11 +1,16 @@
            ==== Beam Update Log ====
 
-Versione 2.6f3 (19/06/2024)
-- Modif : in LapJoint -> MakeByMillAsSaw si cerca di orientare il motore verso il lato più vicino
-- Modif : in FacesBySaw -> MakeTwo si accettano facce con qualunque orientazione a patto che siano in testa o in coda e abbastanza piccole
-- Modif : in Lapjoint lunghe che guardano il top, se sufficientemente lunghe, si blocca l'asse C per non sollecitare inutilmente l'asse B
-- Fixed : in FacesBySaw -> MakeOne corretto accorciamento start/end in caso di inversione percorso
-- Fixed : in StepJointNotch abilitati correttamente smussi con testa da sotto
+
+Versione 2.6g2 (04/07/2024)
+- Modif : le lavorazioni BlockHaus, se vicine alla coda, vengono spostate dopo il taglio di separazione
+
+Versione 2.6g1 (01/07/2024)
+- Modif : in LongDoubleCut gestita correttamente SCC per lama
+- Modif : in MachiningLib miglioramenti a scelta testa ottimizzata
+- Modif : in ProcessDtTenon correzione in scelta testa
+- Modif : In LapJoint -> VerifySideMillAsSaw modificato criterio ricerca utensile in base a normale della faccia
+- Fixed : in MakeAntiSplintBySaw se non si trova adiacenza tra le facce si restituisce errore
+- Fixed : In StepJointNotch, MakeFourFaces corretta copia feature con PartId mancante
 
 Versione 2.6f2 (17/06/2024)
 - Modif : correzione a tagli a cubetti (ripristinata versione pre 2.6f1)

Version.lua

@@ -2,5 +2,5 @@
 -- Gestione della versione di Beam
 
 NAME = 'Beam'
-VERSION = '2.6f3'
+VERSION = '2.6g2'
 MIN_EXE = '2.6e2'