Merge branch 'Feature/L020AngleBigger90Deg' into develop

LuaLibs/BeamLib.lua

@@ -778,13 +778,20 @@ function BeamLib.GetNzLimDownUp( b3Raw, vtN, vtOrtho)
                else
                   return -0.383
                end
-            elseif b3Raw:getDimZ() < BD.MIN_DIM_HBEAM then
+            elseif b3Raw:getDimZ() < 300 then
                -- N_HorAng < 10°
                if vtN and ( abs( vtN:getY()) < 0.174) then
                   return -0.5
                else
                   return -0.259
                end
+            elseif b3Raw:getDimZ() < BD.MIN_DIM_HBEAM then
+               -- N_HorAng < 10°
+               if vtN and ( abs( vtN:getY()) < 0.174) then
+                  return -0.342
+               else
+                  return -0.259
+               end
             else
                -- N_HorAng < 10°
                if vtN and ( abs( vtN:getY()) < 0.174) then

LuaLibs/ProcessLapJoint.lua

@@ -5402,10 +5402,10 @@ local function MakeMoreFaces( Proc, nPhase, nRawId, nPartId, dOvmHead, bSinglePa
                   if not sWarn then sWarn = '' end
                   sWarn = EgtIf( #sWarn > 0, sWarn .. '\n' .. sWarn2, sWarn2)
                end
-               -- se ho più di 3 facce e non di forma ad u oppure ho 3 facce e di forma ad u
+               -- se ho più di 3 facce e non di forma ad u oppure ho 3 facce e di forma ad u oppure groove a 2 facce non su testa/coda
                -- e non sono stati inseriti antischeggia di lama
                -- controllo se c'è una faccia non ortogonale alla principale e la lavoro con una contornatura o svuotatura
-               if ( ( Proc.Fct > 3 and not bIsU) or ( Proc.Fct == 3 and bIsU)) and not bMadeASbyBld then
+               if ( ( Proc.Fct >= 3 and not bIsU) or ( Proc.Fct == 3 and bIsU)  or ( Proc.Fct == 2 and not Proc.Head and not Proc.Tail)) and not bMadeASbyBld then
                   -- Recupero le facce adiacenti alla principale
                   local vAdj = EgtSurfTmFacetAdjacencies( Proc.Id, nFacInd)[1]
                   if not vAdj or #vAdj == 0 then
@@ -5429,7 +5429,7 @@ local function MakeMoreFaces( Proc, nPhase, nRawId, nPartId, dOvmHead, bSinglePa
                            local ptPs = ( ptP1 + ptP2) / 2
                            local bOk, sWarn2
                            bOk, sWarn2 = MachineByMill( Proc, nPhase, nRawId, nPartId, b3Solid, tvtNx, nFacInd, vAdj[i], ptPs, tDimAndRef, 
-                                                        b3Raw, EgtIf( ( Proc.Fct == 3 and bIsU), 0, 2), nUseRoughTool, dAng, sPocketing, sTuuidPk, dFacElev)
+                                                        b3Raw, EgtIf( ( Proc.Fct == 3 and bIsU) or Proc.Fct == 2, 0, 2), nUseRoughTool, dAng, sPocketing, sTuuidPk, dFacElev)
                            if not bOk then return bOk, sWarn2 end
                            if sWarn2 then
                               if not sWarn then sWarn = '' end
@@ -5853,10 +5853,11 @@ function ProcessLapJoint.Make( Proc, nPhase, nRawId, nPartId, dOvmHead)
             if VerifyBHSideMill( Proc) then
                return MakeMoreFaces( Proc, nPhase, nRawId, nPartId, dOvmHead, true)
             -- se ortogonali e non forzata lama, con fresa
-            elseif not bUseBlade and bAdj and abs( dAng + 90) < 1 then
+            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) then
+               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)
+               -- altrimenti svuotatura
                else
                   return MakeMoreFaces( Proc, nPhase, nRawId, nPartId, dOvmHead, true)
                end