DataBeam :

- correzioni varie specie a taglio con cubetti.

LuaLibs/BeamExec.lua

@@ -304,9 +304,9 @@ local function CollectFeatures( PartId, b3Raw, dCurrOvmH)
                      Proc2.Flg = -2
                      Proc2.Box = BBox3d( Proc.Box)
                      Proc2.Fct = Proc.Fct
+                     Proc2.Diam = Proc.Diam
                      Proc2.Head = Proc.Head
                      Proc2.Tail = Drill.IsTailFeature( Proc2, b3Raw)
-                     Proc2.Diam = Proc.Diam
                      Proc2.Fcs = Proc.Fce
                      Proc2.Fce = Proc.Fcs
                      table.insert( vProc, Proc2)
@@ -341,12 +341,12 @@ local function OrderFeatures( vProc, b3Raw)
       if B2.Tail and ( Split.Identify( B1) or not B1.Tail) then
          return true
       end
-      -- se primo è taglio longitudinale completo, dopo tutte le altre feature non di coda
-      if abs( B1.Box:getDimX() - b3Raw:getDimX()) < 100 then
+      -- se primo è taglio longitudinale completo o altra lav. lunga, dopo tutte le altre feature non di coda
+      if abs( B1.Box:getDimX() - b3Raw:getDimX()) < 0.2 * b3Raw:getDimX() then
          return B1.Box:getMin():getX() + 50 > B2.Box:getCenter():getX()
       end
-      -- se secondo è taglio longitudinale completo, dopo tutte le altre feature non di coda
-      if abs( B2.Box:getDimX() - b3Raw:getDimX()) < 100 then
+      -- se secondo è taglio longitudinale completo o altra lav. lunga, dopo tutte le altre feature non di coda
+      if abs( B2.Box:getDimX() - b3Raw:getDimX()) < 0.2 * b3Raw:getDimX() then
          return B1.Box:getCenter():getX() > B2.Box:getMin():getX() + 50
       end
       -- se primo è foro e l'altro no, lo penalizzo
@@ -667,7 +667,7 @@ function BeamExec.ProcessFeatures()
       local bOk, bSomeDown = ClassifyFeatures( vProc, b3Raw)
       if not bOk then
          bAddOk = false
-         sAddErrors = 'Warning : some feature not machinable due to orientation '
+         sAddErrors = 'Warning : some features not machinable'
       end
       -- debug
       if EgtGetDebugLevel() >= 1 then