DataBeam :

- migliorie in LapJoint per U passanti da testa a coda e divise in parti
- correzioni e migliorie in LongDoubleCut per casi con facce ortogonali tra loro e allineate con i piani XY e XZ.

LuaLibs/ProcessLongDoubleCut.lua

@@ -1,4 +1,4 @@
--- ProcessLongDoubleCut.lua by Egaltech s.r.l. 2022/03/20
+-- ProcessLongDoubleCut.lua by Egaltech s.r.l. 2022/05/27
 -- Gestione calcolo doppio taglio longitudinale per Travi
 -- 2021/05/18 Possibile taglio con lama anche di fianco su macchina con testa da sotto.
 -- 2021/06/29 Corretta gestione caso equivalente a due smussi.
@@ -7,6 +7,7 @@
 -- 2022/02/08 Sistemate lunghezze fresature quando due sole.
 -- 2022/02/15 Sistemati commenti.
 -- 2022/03/20 Tolta da scelta milling tipo Long2CutDown controllo max diametro fresa.
+-- 2022/05/27 Corretto ordine per casi sui lati.
 
 -- Tabella per definizione modulo
 local ProcessLong2Cut = {}
@@ -294,9 +295,9 @@ function ProcessLong2Cut.Make( Proc, nPhase, nRawId, nPartId, bForcedBladeMaster
 
    -- verifico posizione (+1=sopra, -1=sotto, 0=sui lati)
    local nSide = 0
-   if vtN[1]:getZ() > -10 * GEO.EPS_SMALL and vtN[2]:getZ() > -10 * GEO.EPS_SMALL then
+   if vtN[1]:getZ() > 0.0175 and vtN[2]:getZ() > 0.0175 then
       nSide = 1
-   elseif vtN[1]:getZ() < 10 * GEO.EPS_SMALL and vtN[2]:getZ() < 10 * GEO.EPS_SMALL then
+   elseif vtN[1]:getZ() < -0.0175 and vtN[2]:getZ() < -0.0175 then
       nSide = -1
    end
 
@@ -372,7 +373,7 @@ function ProcessLong2Cut.Make( Proc, nPhase, nRawId, nPartId, bForcedBladeMaster
       vOrd = EgtIf( ptC[1]:getY() < ptRef:getY(), { 1, 2}, { 2, 1})
       vFaceUse = { BL.GetNearestParalOpposite( ptC[1] - ptM), BL.GetNearestParalOpposite( ptC[2] - ptM)}
    else
-      local bFront = ( vtN[1]:getY() < 0)
+      local bFront = ( vtN[1]:getY() < 0 or vtN[2]:getY() < 0)
       if bFront then
          vOrd = EgtIf( ptC[1]:getZ() < ptRef:getZ(), { 1, 2}, { 2, 1})
          vFaceUse = { BL.GetNearestOrthoOpposite( ptC[1] - ptM), BL.GetNearestOrthoOpposite( ptC[2] - ptM)}
@@ -898,10 +899,10 @@ function ProcessLong2Cut.Make( Proc, nPhase, nRawId, nPartId, bForcedBladeMaster
             dMaxDepth = EgtTdbGetCurrToolMaxDepth() or dMaxDepth
          end
       end
-      -- se la fine (a sinistra) non è limitata e ho un pezzo successivo più distante da metà raggio. setto la fine come limitata
-      if dDistToNextPiece < dToolDiam/2 and nFaceLimit < 2 then
+      -- se ho un pezzo successivo più distante di metà raggio : setto la fine come limitata
+      if dDistToNextPiece < dToolDiam/2 then
          bForcedLim = true
-         nFaceLimit = nFaceLimit + 2
+         nFaceLimit = nFaceLimit | 2
       end
       -- se chiuso e corto, applico svuotatura con fresa opportuna
       if nFaceLimit == 3 and Proc.Box:getDimX() < 2 * dToolDiam then
@@ -1022,6 +1023,10 @@ function ProcessLong2Cut.Make( Proc, nPhase, nRawId, nPartId, bForcedBladeMaster
             end
          end
       end
+      if nIni == 2 then
+         dStartDist, dEndDist = dEndDist, dStartDist
+         dStartAccDist, dEndAccDist = dEndAccDist, dStartAccDist
+      end
       -- ciclo sulle parti
       local nM = 0
       for j = 1, nC do