Merge branch 'TwoFacesDownheadImprovement' into develop

- in lapjoint 2 facce migliorata la scelta della lama da sotto

LuaLibs/BeamExec.lua

@@ -47,14 +47,15 @@
 -- 2023/03/31 Corretto ordinamento per fori di coda da lasciare in coda.
 -- 2023/07/31 Corretto errore nelle mortase in doppio.
 -- 2023/09/13 Aggiunta ClassifyTopology per la classificazione topologica delle feature. In CollectFeatures aggiunta la raccolta preliminare di alcune informazioni.
--- 2022/09/26 Funzione IsFeatureCuttingEntireSection spostata in BeamLib
--- 2022/09/26 In ClassifyTopology aggiunto passaggio del parametro nRawId
+-- 2023/09/26 Funzione IsFeatureCuttingEntireSection spostata in BeamLib
+-- 2023/09/26 In ClassifyTopology aggiunto passaggio del parametro nRawId
 -- 2023/10/24 Aggiunta scrittura parametro BARLEN nelle info del mach group
 -- 2023/11/08 Aggiunta gestione processi Variant.
 -- 2023/11/30 Migliorato il calcolo elevazione con l'utilizzo della nuova funzione EgtSurfTmFacetElevationInBBox.
 -- 2023/12/26 Modifiche per centrare i pezzi in Y sulla tavola.
 -- 2024/02/26 Migliorata 'CompareFeatures' per ordine lavorazioni
 --            Migliorata 'CompareFeatures' per ordine forature
+-- 2024/02/19 In Collect aggiunta la scrittura nella Proc di Width e Height delle facce.
 
 -- Tabella per definizione modulo
 local BeamExec = {}
@@ -344,7 +345,8 @@ local function CollectFeatures( PartId, b3Raw, dCurrOvmH, dCurrOvmT)
                   if not Proc.Face then
                      Proc.Face = {}
                      for i = 1, Proc.Fct do
-                        Proc.Face[i] = { Id = i - 1, VtN = EgtSurfTmFacetNormVersor( Proc.Id, i - 1, GDB_ID.ROOT )}
+                        local _, dFaceWidth, dFaceHeight = BL.GetFaceHvRefDim( Proc.Id, i - 1, b3Raw)
+                        Proc.Face[i] = { Id = i - 1, VtN = EgtSurfTmFacetNormVersor( Proc.Id, i - 1, GDB_ID.ROOT ), Width = dFaceWidth, Height = dFaceHeight}
                         if Proc.Fct < 10 then
                            Proc.Face[i].Elevation = EgtSurfTmFacetElevationInBBox( Proc.Id, i - 1, b3Solid, true, GDB_ID.ROOT)
                         end

LuaLibs/FacesBySaw.lua

@@ -529,7 +529,7 @@ function FacesBySaw.MakeTwo( Proc, nPhase, nRawId, nPartId, dOvmHead, sCutType,
    local bFaceOk = {}
    bFaceOk[1] = ( vtN[1]:getZ() >= BD.NZ_MINB or abs( vtN[1]:getY()) < 0.174)
    bFaceOk[2] = ( vtN[2]:getZ() >= BD.NZ_MINB or abs( vtN[2]:getY()) < 0.174)
-   if  not bDownHead  and  not bFaceOk[1]  and  not bFaceOk[2]  then
+   if not bDownHead and ( not bFaceOk[1] or not bFaceOk[2]) then
       local sErr = 'Error : TwoFacesBySaw from bottom impossible'
       EgtOutLog( sErr)
       return false, sErr

LuaLibs/ProcessDtTenon.lua

@@ -5,6 +5,7 @@
 -- 2023/02/08 Aumentato il range per cui i tenoni vengono lavorati in sottosquadro.
 -- 2023/03/27 Migliorate condizioni scelta pretaglio con lama o fresa; gestione unificata con ProcessTenon.
 -- 2023/03/28 Corretta gestione faccia di base quando divisa in più parti per distanza massima da lavorare.
+-- 2024/02/29 Aumentato numero passaggi CR su tenone. Massimo 8
 
 -- Tabella per definizione modulo
 local ProcessDtTenon = {}
@@ -268,8 +269,8 @@ function ProcessDtTenon.Make( Proc, nPhase, nRawId, nPartId, dOvmHead)
       dMaxDist = 2 * ( b3DtTen:getRadius() - b3DtAux:getRadius())
    end
    EgtOutLog( 'MaxDist=' .. EgtNumToString( dMaxDist, 3), 3)
-   -- Cicli di lavorazione (max 6)
-   local MAX_PASS = 6
+   -- Cicli di lavorazione (max 8)
+   local MAX_PASS = 8
    local nStep = min( ceil( dMaxDist / ( 0.7 * dTDiam)), MAX_PASS)
    local dStep = min( dMaxDist, 0.7 * dTDiam * MAX_PASS) / nStep
    for i = nStep, 1, -1 do

LuaLibs/ProcessLapJoint.lua

@@ -95,6 +95,8 @@
 -- 2024/02/13 In MakeMoreFaces escluse le Groove 2 facce dalla gestione Special3faces.
 -- 2024/02/22 Migliorato calcolo area non pinzabile in testa HCING e coda TCING
 --            Rimosso un caso di controllo per HCING/TCING
+-- 2024/02/29 In MakeMoreFaces passato b3Solid alla funzione ManageAntiSplintByMill
+-- 2024/02/29 In lapjoint 2 facce (TestTwoFacesDownHead) migliorata la scelta della lama da sotto.
 
 -- Tabella per definizione modulo
 local ProcessLapJoint = {}
@@ -5500,9 +5502,9 @@ local function MakeMoreFaces( Proc, nPhase, nRawId, nPartId, dOvmHead, bSinglePa
                if not bOk then return false, sWarn end
             end
             if nChamfer < 2 and nQAntisplintResult == 2 then
-               local bOk, sWarn2
-               bOk, sWarn2 = ManageAntiSplintByMill( Proc, nPhase, nRawId, nPartId, b3Raw, 
-                                                     nFacInd, nAddGrpId, bMillDown)
+               local bOk, sWarn2 = ManageAntiSplintByMill( Proc, nPhase, nRawId, nPartId, b3Raw, 
+                                                           nFacInd, nAddGrpId, bMillDown, dDiamTool, nil,
+                                                           nil, nil, nil, b3Solid)
                if not bOk then return false, sWarn2 end
             end
             -- se smusso non esclusivo
@@ -5517,17 +5519,17 @@ local function MakeMoreFaces( Proc, nPhase, nRawId, nPartId, dOvmHead, bSinglePa
                local dToolTotalLength = 0
                local dToolThDiameter = 999
                local dToolDiameter = 0
-                  if EgtMdbSetCurrMachining( sPocketing) then
-                     local sTuuidPk = EgtMdbGetCurrMachiningParam( MCH_MP.TUUID)
-                     if EgtTdbSetCurrTool( EgtTdbGetToolFromUUID( sTuuidPk) or '') then
-                        dMaxToolCutDepth = EgtTdbGetCurrToolMaxDepth() or dMaxToolCutDepth
-                        dMaxToolMaterial = EgtTdbGetCurrToolParam( MCH_TP.MAXMAT) or dMaxToolMaterial
-                        dToolDiameter = EgtTdbGetCurrToolParam( MCH_TP.DIAM) or dToolDiameter
-                        dToolThLength = EgtTdbGetCurrToolThLength() or dToolThLength
-                        dToolThDiameter = EgtTdbGetCurrToolParam( MCH_TP.STEMDIAM) or dToolThDiameter
-                        dToolTotalLength = EgtTdbGetCurrToolParam( MCH_TP.TOTLEN) or dToolTotalLength
-                     end
+               if EgtMdbSetCurrMachining( sPocketing) then
+                  local sTuuidPk = EgtMdbGetCurrMachiningParam( MCH_MP.TUUID)
+                  if EgtTdbSetCurrTool( EgtTdbGetToolFromUUID( sTuuidPk) or '') then
+                     dMaxToolCutDepth = EgtTdbGetCurrToolMaxDepth() or dMaxToolCutDepth
+                     dMaxToolMaterial = EgtTdbGetCurrToolParam( MCH_TP.MAXMAT) or dMaxToolMaterial
+                     dToolDiameter = EgtTdbGetCurrToolParam( MCH_TP.DIAM) or dToolDiameter
+                     dToolThLength = EgtTdbGetCurrToolThLength() or dToolThLength
+                     dToolThDiameter = EgtTdbGetCurrToolParam( MCH_TP.STEMDIAM) or dToolThDiameter
+                     dToolTotalLength = EgtTdbGetCurrToolParam( MCH_TP.TOTLEN) or dToolTotalLength
                   end
+               end
                local dMachiningDepth = 0
                -- se il gambo è più largo dell'utensile verifico se la lunghezza del gambo è maggiore della distanza di sicurezza calcolata
                local dShankLength = dToolTotalLength - dToolThLength - dMaxToolCutDepth
@@ -5791,19 +5793,49 @@ end
 
 ---------------------------------------------------------------------
 local function TestTwoFacesDownHead( Proc)
-   -- verifico ci siano due facce
+   -- test valido solo per due facce
    if Proc.Fct ~= 2 then return false end
+   local bDownHeadBlade = false
+   local bDownHeadMill = false
    -- verifico se da lavorare con testa da sotto
-   local bDownHead = false
    if BD.DOWN_HEAD then
-      local ptC = {}
-      local vtN = {}
-      ptC[1], vtN[1] = EgtSurfTmFacetCenter( Proc.Id, 0, GDB_ID.ROOT)
-      ptC[2], vtN[2] = EgtSurfTmFacetCenter( Proc.Id, 1, GDB_ID.ROOT)
-      local vtNm = ( vtN[1] + vtN[2]) ;   vtNm:normalize()
-      bDownHead = ( vtNm:getZ() < -0.5)
+      local vtNm = ( Proc.Face[1].VtN + Proc.Face[2].VtN)
+      vtNm:normalize()
+      bDownHeadMill = ( vtNm:getZ() < -0.5)
+      -- recupero il massimo materiale della lama sopra
+      local sCutting = ML.FindCutting( 'HeadSide', true, false)
+      if not sCutting then
+         local sErr = 'Error : cutting not found in library'
+         EgtOutLog( sErr)
+         return false, sErr
+      end
+      local dTopBladeMaxDepth = 0
+      if EgtMdbSetCurrMachining( sCutting) then
+         local sTuuid = EgtMdbGetCurrMachiningParam( MCH_MP.TUUID)
+         if EgtTdbSetCurrTool( EgtTdbGetToolFromUUID( sTuuid) or '') then
+            dTopBladeMaxDepth = EgtTdbGetCurrToolMaxDepth() or dTopBladeMaxDepth
+         end
+      end
+      -- recupero le caratteristiche della feature e delle facce
+      local vtRes = Proc.Face[1].VtN ^ Proc.Face[2].VtN
+      Proc.IsTopDownRabbet = abs( vtRes:getZ()) > 10 * GEO.EPS_SMALL
+      for i = 1, Proc.Fct do
+         Proc.Face[i].IsTooDownwardForTopBlade = Proc.Face[i].VtN:getZ() < ( BD.CUT_VZ_MIN or -0.484) - 10 * GEO.EPS_SMALL
+         Proc.Face[i].IsTooWideForTopBlade = Proc.Face[i].Width > dTopBladeMaxDepth
+      end
+      -- serve la lama sotto se c'è almeno una faccia troppo inclinata verso il basso e non è un rabbet stretto lavorabile dal lato
+      if not ( Proc.Face[1].IsTooDownwardForTopBlade or Proc.Face[2].IsTooDownwardForTopBlade) then
+         bDownHeadBlade = false
+      else
+         for i = 1, Proc.Fct do
+            if Proc.Face[i].IsTooDownwardForTopBlade and ( not Proc.IsTopDownRabbet or Proc.Face[i].IsTooWideForTopBlade) then
+               bDownHeadBlade = true
+               break
+            end
+         end
+      end
    end
-   return bDownHead
+   return bDownHeadBlade, bDownHeadMill
 end
 
 ---------------------------------------------------------------------
@@ -6067,7 +6099,7 @@ function ProcessLapJoint.Make( Proc, nPhase, nRawId, nPartId, dOvmHead)
       -- due facce
       elseif Proc.Fct == 2 then
          -- verifico se da lavorare con testa da sotto
-         local bDownHead = TestTwoFacesDownHead( Proc)
+         local bDownHeadBlade = TestTwoFacesDownHead( Proc)
          -- dati delle facce
          local b3Fac1 = EgtSurfTmGetFacetBBoxGlob( Proc.Id, 0, GDB_BB.STANDARD)
          local b3Fac2 = EgtSurfTmGetFacetBBoxGlob( Proc.Id, 1, GDB_BB.STANDARD)
@@ -6095,7 +6127,7 @@ function ProcessLapJoint.Make( Proc, nPhase, nRawId, nPartId, dOvmHead)
                if nForceUseBladeOnNotContinueFace and nForceUseBladeOnNotContinueFace > 0 then
                   return LongCut.Make( Proc, nPhase, nRawId, nPartId, bUseBlade, nForceUseBladeOnNotContinueFace)
                else
-                  return Fbs.MakeTwo( Proc, nPhase, nRawId, nPartId, dOvmHead, 'HeadSide' .. EgtIf( bDownHead, '_H2', ''), true, bDownHead)
+                  return Fbs.MakeTwo( Proc, nPhase, nRawId, nPartId, dOvmHead, 'HeadSide' .. EgtIf( bDownHeadBlade, '_H2', ''), true, bDownHeadBlade)
                end
             else
                return LongCut.Make( Proc, nPhase, nRawId, nPartId)
@@ -6106,7 +6138,7 @@ function ProcessLapJoint.Make( Proc, nPhase, nRawId, nPartId, dOvmHead)
                if nForceUseBladeOnNotContinueFace and nForceUseBladeOnNotContinueFace > 0 then
                   return LongCut.Make( Proc, nPhase, nRawId, nPartId, bUseBlade, nForceUseBladeOnNotContinueFace)
                else
-                  return Fbs.MakeTwo( Proc, nPhase, nRawId, nPartId, dOvmHead, 'HeadSide' .. EgtIf( bDownHead, '_H2', ''), true, bDownHead)
+                  return Fbs.MakeTwo( Proc, nPhase, nRawId, nPartId, dOvmHead, 'HeadSide' .. EgtIf( bDownHeadBlade, '_H2', ''), true, bDownHeadBlade)
                end
             else
                return LongCut.Make( Proc, nPhase, nRawId, nPartId)
@@ -6114,7 +6146,7 @@ function ProcessLapJoint.Make( Proc, nPhase, nRawId, nPartId, dOvmHead)
          -- altrimenti
          else
             if bUseBlade and ( abs( vtN1:getX()) > 0.5 or abs( vtN2:getX()) > 0.5) then
-               return Fbs.MakeTwo( Proc, nPhase, nRawId, nPartId, dOvmHead, 'HeadSide' .. EgtIf( bDownHead, '_H2', ''), true, bDownHead)
+               return Fbs.MakeTwo( Proc, nPhase, nRawId, nPartId, dOvmHead, 'HeadSide' .. EgtIf( bDownHeadBlade, '_H2', ''), true, bDownHeadBlade)
             else
                return MakeLongMoreFaces( Proc, nPhase, nRawId, nPartId, dOvmHead)
             end
@@ -6185,7 +6217,7 @@ function ProcessLapJoint.Make( Proc, nPhase, nRawId, nPartId, dOvmHead)
          -- altrimenti
          else
             -- verifico se da lavorare con testa da sotto
-            local bDownHead = TestTwoFacesDownHead( Proc)
+            local bDownHeadblade, bDownHeadMill = TestTwoFacesDownHead( Proc)
             -- determino l'angolo tra le facce
             local bAdj, _, _, dAng = EgtSurfTmFacetsContact( Proc.Id, 0, 1, GDB_ID.ROOT)
             -- se con BH
@@ -6195,7 +6227,7 @@ function ProcessLapJoint.Make( Proc, nPhase, nRawId, nPartId, dOvmHead)
             elseif not bUseBlade then
                -- se piccole
                if Proc.Box:getDimX() < MAX_MILL_LIN and ( Proc.Box:getDimZ() < MAX_MILL_LIN or Proc.Box:getDimY() < MAX_MILL_LIN) and bAdj and abs( dAng + 90) < 1 then
-                  return MakeTwoFacesByMill( Proc, nPhase, nRawId, nPartId, bDownHead)
+                  return MakeTwoFacesByMill( Proc, nPhase, nRawId, nPartId, bDownHeadMill)
                else
                   return MakeMoreFaces( Proc, nPhase, nRawId, nPartId, dOvmHead, true)
                end
@@ -6219,7 +6251,7 @@ function ProcessLapJoint.Make( Proc, nPhase, nRawId, nPartId, dOvmHead)
                end
                -- se smusso non esclusivo
                if nChamfer < 2 then
-                  return Fbs.MakeTwo( Proc, nPhase, nRawId, nPartId, dOvmHead, 'HeadSide' .. EgtIf( bDownHead, '_H2', ''), true, bDownHead or BD.TURN)
+                  return Fbs.MakeTwo( Proc, nPhase, nRawId, nPartId, dOvmHead, 'HeadSide' .. EgtIf( bDownHeadblade, '_H2', ''), true, bDownHeadblade or BD.TURN)
                end
                return true
             end