- Gestion Predrill su foro da due parti

- Ordinamento, Predrill sempre prima del foro

LuaLibs/BeamExec.lua

@@ -61,6 +61,7 @@
 -- 2024/03/07 Implementate le lavorazioni in doppio per fori specchiati non passanti e DrillPocket.
 -- 2024/03/11 In CollectFeatures si scrive ora Width e Height della faccia sia trimmate con il grezzo che intere.
 -- 2024/03/13 In CollectFeatures si scrive lunghezza foro su Proc e si controla se serve Predrill
+--            In OrderFeature, preforo sempre prima del foro
 
 -- Tabella per definizione modulo
 local BeamExec = {}
@@ -370,7 +371,7 @@ local function CollectFeatures( PartId, b3Raw, dCurrOvmH, dCurrOvmT)
                      end
                   end
                end
-               if Proc.Box and not Proc.Box:isEmpty() then 
+               if Proc.Box and not Proc.Box:isEmpty() then
                   Proc.Head = IsHeadFeature( Proc, b3Raw, dCurrOvmH)
                   Proc.Tail, Proc.AdvTail = IsTailFeature( Proc, b3Raw, dCurrOvmH, dCurrOvmT)
                   table.insert( vProc, Proc)
@@ -380,7 +381,10 @@ local function CollectFeatures( PartId, b3Raw, dCurrOvmH, dCurrOvmT)
                      Proc.Diam, Proc.Len, Proc.Fcs, Proc.Fce = Drill.GetData( Proc, b3Raw)
                      -- verifico se devo inserire i prefori
                      if Drill.IsPredrillNeeded( Proc) then
-                        Drill.AddPredrillFromDrillProc( Proc)
+                        local bAddProc, PredrillProc= Drill.AddPredrillFromDrillProc( Proc)
+                        if bAddProc then
+                           table.insert( vProc, PredrillProc)
+                        end
                      end
                      -- verifico se necessaria seconda lavorazione da parte opposta per foro più lungo della punta
                      if Drill.Split( Proc, b3Raw) then
@@ -407,9 +411,13 @@ local function CollectFeatures( PartId, b3Raw, dCurrOvmH, dCurrOvmT)
                         Proc2.TaskId = Proc.TaskId
                         Proc2.AdjId = Proc.AdjId
                         Proc2.MainId = Proc.MainId
+                        table.insert( vProc, Proc2)
                         -- verifico se devo inserire i prefori
                         if Drill.IsPredrillNeeded( Proc2) then
-                           Drill.AddPredrillFromDrillProc( Proc2)
+                           local bAddProc, PredrillProc= Drill.AddPredrillFromDrillProc( Proc2)
+                           if bAddProc then
+                              table.insert( vProc, PredrillProc)
+                           end
                         end
                      end
                   -- se BlockHaus HalfLap
@@ -931,7 +939,11 @@ local function OrderFeatures( vProc, b3Raw)
       end
       -- se entrambi fori con posizione praticamente uguale ordino secondo diametro e faccia di inizio (Fcs)
       if B1.Prc == 40  and  B2.Prc == 40  and  abs( B1.Box:getCenter():getX() - B2.Box:getCenter():getX()) < dSmallDrillRange then
-         if abs( B1.Diam - B2.Diam) < 1.0 then
+         if B1.IsPredrill and not B2.IsPredrill then
+            return true
+         elseif not B1.IsPredrill and B2.IsPredrill then
+            return false
+         elseif abs( B1.Diam - B2.Diam) < 1.0 then
             if B1.Fcs == B2.Fcs then
                if abs( B1.Box:getCenter():getX() - B2.Box:getCenter():getX()) < 1.0  then
                   if abs( B1.Box:getCenter():getY() - B2.Box:getCenter():getY()) < 1.0  then
@@ -2056,7 +2068,7 @@ function BeamExec.ProcessFeatures()
 
       -- verifica presenza forature influenzate da lavorazioni di testa o coda
       if BD.IMPROVE_HEAD_TAIL_DRILLINGS then
-         vMachBeforeIntersDrillings = CalcHeadTailMachBeforeIntersDrillings( vProc, b3Raw)
+         local vMachBeforeIntersDrillings = CalcHeadTailMachBeforeIntersDrillings( vProc, b3Raw)
          SetDrillingsToMachineAfterHeadOrTailCut( vProc, vMachBeforeIntersDrillings)
       end
       -- verifica presenza di feature specchiate per eventuali lavorazioni simultanee