Improvement:

- ora le forature che intersecano le mortase sono sempre fatte prima della mortasa stessa

LuaLibs/BeamExec.lua

@@ -41,7 +41,7 @@
 -- 2022/12/28 Implementata gestione forature e code di rondine in doppio.
 -- 2023/01/31 Implementata gestione mortase in doppio.
 -- 2023/01/31 Nelle lavorazioni in doppio aggiunta la minima distanza tra le feature.
-
+-- 2023/02/17 Ora le forature che intersecano le mortase sono sempre fatte prima della mortasa stessa.
 
 -- Tabella per definizione modulo
 local BeamExec = {}
@@ -695,12 +695,12 @@ local function OrderFeatures( vProc, b3Raw)
          return B1.Head
       end
       -- se primo è foro e secondo è un ribasso, il foro va sempre prima
-      if Drill.Identify(B1) and LapJoint.Identify(B2) and
+      if Drill.Identify(B1) and ( LapJoint.Identify(B2) or Mortise.Identify(B2)) and
          B1.Box:getCenter():getX() > B2.Box:getMin():getX() and B1.Box:getCenter():getX() < B2.Box:getMax():getX() then
          return true
       end
       -- se primo è un ribasso e secondo è un foro, il ribasso va sempre dopo
-      if LapJoint.Identify(B1) and Drill.Identify(B2) and
+      if (LapJoint.Identify(B1) or Mortise.Identify(B1)) and Drill.Identify(B2) and
          B2.Box:getCenter():getX() > B1.Box:getMin():getX() and B2.Box:getCenter():getX() < B1.Box:getMax():getX() then
          return false
       end

LuaLibs/ProcessLapJoint.lua

@@ -62,6 +62,7 @@
 -- 2023/01/19 In MakeMoreFaces -> MakeBySideMill aggiunto controllo che lo step finale non superi lo spessore utensile.
 -- 2023/01/24 In MakeByPocket gestito caso il caso in cui veniva applicata una fresatura con percorso vuoto. Ora viene rimossa e la tasca viene fatta con lama.
 -- 2023/02/06 Alla MakeDrillOnCorner aggiunto controllo distanza di sicurezza minima.
+-- 2023/02/16 Piccola correziona alla scelta utensile di svuotatura.
 
 -- Tabella per definizione modulo
 local ProcessLapJoint = {}
@@ -315,16 +316,18 @@ local function VerifyChainSaw( Proc, dMinDim, dMaxDim)
 end
 
 ---------------------------------------------------------------------
-local function VerifyPocket( Proc, dDiam, dDepth, dMaxTotLen, sMchFindMaster, bPocketDown)
+local function VerifyPocket( Proc, dDiam, dDepth, dMaxTotLen, sMchFindMaster, bPocketUp, bPocketDown)
    -- tipo di svuotatura
    local sMchFind = EgtIf( sMchFindMaster and #sMchFindMaster > 0, sMchFindMaster, 'Pocket')
    -- ricerca della svuotatura
    local sPocketing
    if dDepth then
-      sPocketing = ML.FindPocketing( sMchFind, dDiam, dDepth, dMaxTotLen, not bPocketDown, bPocketDown) or
-                   ML.FindPocketing( sMchFind, dDiam, 0.8 * dDepth, dMaxTotLen, not bPocketDown, bPocketDown) or
-                   ML.FindPocketing( sMchFind, dDiam, 0.6 * dDepth, dMaxTotLen, not bPocketDown, bPocketDown) or
-                   ML.FindPocketing( sMchFind, dDiam, 0.4 * dDepth, dMaxTotLen, not bPocketDown, bPocketDown) or
+      sPocketing = ML.FindPocketing( sMchFind, dDiam, dDepth, dMaxTotLen, bPocketUp, bPocketDown) or
+                   ML.FindPocketing( sMchFind, dDiam, 0.8 * dDepth, dMaxTotLen, bPocketUp, bPocketDown) or
+                   ML.FindPocketing( sMchFind, dDiam, 0.7 * dDepth, dMaxTotLen, bPocketUp, bPocketDown) or
+                   ML.FindPocketing( sMchFind, dDiam, 0.6 * dDepth, dMaxTotLen, bPocketUp, bPocketDown) or
+                   ML.FindPocketing( sMchFind, dDiam, 0.5 * dDepth, dMaxTotLen, bPocketUp, bPocketDown) or
+                   ML.FindPocketing( sMchFind, dDiam, 0.4 * dDepth, dMaxTotLen, bPocketUp, bPocketDown) or
                    ML.FindPocketing( sMchFind, dDiam, 0, dMaxTotLen)
    else
       sPocketing = ML.FindPocketing( sMchFind, dDiam, 0, dMaxTotLen)
@@ -3488,7 +3491,7 @@ local function MakeByPockets( Proc, nPhase, nRawId, nPartId, nChamfer, dDepthCha
          local bMakePocket, sPocketing, dMaxDepth, dDiamTool = VerifyPocket( Proc, dDimMin, dDepth / 2, nil, sMchFind)
          local bMakePocketDn, sPocketingDn, dMaxDepthDn, dDiamToolDn
          if bMillDown then
-            bMakePocketDn, sPocketingDn, dMaxDepthDn, dDiamToolDn = VerifyPocket( Proc, dDimMin, dDepth / 2, nil, sMchFind, true)
+            bMakePocketDn, sPocketingDn, dMaxDepthDn, dDiamToolDn = VerifyPocket( Proc, dDimMin, dDepth / 2, nil, sMchFind, nil, true)
             -- se è negativo inverto il versore e la faccia
             if vtOrtho:getZ() < 0 then 
                vtOrtho = -vtOrtho
@@ -4991,7 +4994,7 @@ local function MakeMoreFaces( Proc, nPhase, nRawId, nPartId, dOvmHead, bSinglePa
             end
             -- ricerca lavorazione
             local sPocketing
-            local _, sMyPocketing, dMyTMaxDepth, dMyTDiam = VerifyPocket( Proc, dDiam, dFacElev + dCollSic, dMaxTotLen, sMchFind, bMillDown)
+            local _, sMyPocketing, dMyTMaxDepth, dMyTDiam = VerifyPocket( Proc, dDiam, dFacElev + dCollSic, dMaxTotLen, sMchFind, bMillUp, bMillDown)
             if not sMyPocketing and bMillUp then
                _, sMyPocketing, dMyTMaxDepth, dMyTDiam = VerifyPocket( Proc, dDiam, dFacElev + dCollSic, dMaxTotLen, sMchFind)
                bMillDown = false