DataBeam :

- in LapJoint miglioramenti vari per BH, compreso controlli per lavorazione da sotto
- in LapJoint corretta assegnazione elevazione quando si scambia la faccia principale tra due
- in LongDoubleCut piccole modifiche e migliorie.

LuaLibs/ProcessLapJoint.lua

@@ -1,4 +1,4 @@
--- ProcessLapJoint.lua by Egaltech s.r.l. 2022/05/04
+-- ProcessLapJoint.lua by Egaltech s.r.l. 2022/05/24
 -- Gestione calcolo mezzo-legno per Travi
 -- 2019/10/08 Agg. gestione OpenPocket.
 -- 2021/01/24 Con sega a catena ora sempre impostato asse A.
@@ -41,6 +41,7 @@
 -- 2022/03/29 Aggiunta gestione antischeggia con Q06 anche su 3/4-033-X.
 -- 2022/04/28 Lavorazione BH forzata sempre OneWay.
 -- 2022/05/04 Corretta classificazione due facce sotto. Modificati criteri assegnazione due facce alla coda.
+-- 2022/05/24 Miglioramenti vari per BH, compreso controlli per lavorazione da sotto.
 
 -- Tabella per definizione modulo
 local ProcessLapJoint = {}
@@ -698,11 +699,6 @@ end
 function ProcessLapJoint.Classify( Proc, b3Raw)
    -- se 1 faccia
    if Proc.Fct == 1 then
-      -- dati della faccia
-      --local ptC, vtN = EgtSurfTmFacetCenter( Proc.Id, 0, GDB_ID.ROOT)
-      -- verifico se è lavorabile solo dal basso
-      --local bDown = ( vtN:getZ() < BD.NZ_MINA)
-      --return true, bDown
       return true, false
    -- se 2 facce
    elseif Proc.Fct == 2 then
@@ -802,9 +798,14 @@ function ProcessLapJoint.Classify( Proc, b3Raw)
             rfFac:rotate( rfFac:getOrigin(), rfFac:getVersZ(), 90)
          end
          -- se può essere fatto con utensile tipo lama
-         local bUseBHSideMill = VerifyBHSideMill( Proc)
+         local bUseBHSideMill, _, _, _, _, dTDiam = VerifyBHSideMill( Proc)
          if bUseBHSideMill then
-            return true, false
+            local vtN = EgtSurfTmFacetNormVersor( Proc.Id, nFacInd, GDB_ID.ROOT)
+            if vtN:getZ() > -0.5 or b3Raw:getDimZ() - Proc.Box:getDimZ() < ( BD.MAX_DIST_BH_FROM_BOTTOM or 395) - dTDiam / 2 then
+               return true, false
+            else
+               return true, true
+            end
          -- altrimenti controllo se deve essere ruotato con le altre lavorazioni
          else
             -- dati della faccia
@@ -4549,6 +4550,7 @@ local function MakeMoreFaces( Proc, nPhase, nRawId, nPartId, dOvmHead, bSinglePa
                local vtN2 = EgtSurfTmFacetNormVersor( Proc.Id, nFacInd2, GDB_ID.ROOT)
                if vtN2 and abs( vtN2:getX()) < 0.866 then
                   nFacInd, nFacInd2 = nFacInd2, nFacInd
+                  dFacElev, dFacElev2 = dFacElev2, dFacElev
                   vtN, vtN2 = vtN2, vtN
                end
             end