Feature/PocletWithAggregate:

- primo implemento tasca da sotto con aggregato (solo 5 lati, allineato con Z) - manca ricerca utensile _AT
2023-07-31 16:57:33 +02:00
1 changed files with 12 additions and 1 deletions
@@ -740,6 +740,13 @@ function ProcessLapJoint.Classify( Proc, b3Raw)
            return false
         end
      end
+      -- se è presente il rinvio angolare ed è una tasca cieca perfettamente verticale, da sotto, non ruoto
+      if BD.ANG_TRASM and Proc.Fct == 5 then
+         local vtNBottomFace = EgtSurfTmFacetNormVersor( Proc.Id, nFacInd, GDB_ID.ROOT)
+         if AreOppositeVectorApprox( vtNBottomFace, Z_AX()) then
+            return true, false
+         end
+      end
      -- se è una feature scanalatura (con 5 facce) e non è stata riconosciuta come fessura, eseguo altre verifiche
      if Proc.Prc == 16 and Proc.Fct == 5 and not bClosedOrthoFaces then
         -- recupero gruppo per geometria addizionale
@@ -4876,8 +4883,12 @@ local function MakeMoreFaces( Proc, nPhase, nRawId, nPartId, dOvmHead, bSinglePa
         -- altrimenti lavorazione di svuotatura o contornatura
         else
            local bUseOtherFace
+            local bLapJointAngTrasm = false
+            -- se è presente il rinvio angolare ed è una tasca cieca perfettamente verticale, da sotto
+            if BD.ANG_TRASM and Proc.Fct == 5 and AreOppositeVectorApprox( vtN, Z_AX()) then
+               bLapJointAngTrasm = true
            -- se orientata verso il basso e non c'è testa da sotto, verifico l'alternativa
-            if vtN:getZ() < BD.NZ_MINA and not BD.DOWN_HEAD and nFacInd2 then
+            elseif vtN:getZ() < BD.NZ_MINA and not BD.DOWN_HEAD and nFacInd2 then
               ptC, vtN = EgtSurfTmFacetCenter( Proc.Id, nFacInd2, GDB_ID.ROOT)
               nFacInd, nFacInd2 = nFacInd2, nFacInd
               dFacElev, dFacElev2 = dFacElev2, dFacElev