- piccola correzione a tagli aggiuntivi orizzontali in ProcessSplit

LuaLibs/ProcessSplit.lua

@@ -11,6 +11,7 @@
 -- 2023/04/04 Modifiche per travi con sezioni molto grandi e materiale inferiore allo spessore lama.
 -- 2023/04/20 Per travi alte aggiunti tagli orizzontali per ridurre le dimensioni degli scarti.
 -- 2023/05/09 Aggiunta richiesta risalita preliminare a Zmax per tagli da sopra su macchine PF e ONE.
+-- 2023/06/13 Corrette note Precut e Cut per tagli aggiuntivi orizzontali.
 
 -- Tabella per definizione modulo
 local ProcessSplit = {}
@@ -477,7 +478,7 @@ function ProcessSplit.Make( Proc, nPhase, nRawId, nPartId, nOrd, sDownOrSideOrSt
       -- per travi alte faccio faccio dei tagli orizzontali aggiuntivi
       local _, _, dimV = BL.GetFaceHvRefDim( Proc.Id, 0, b3Raw)
       local dMinTailScrapForHorizontalCuts = 10.123
-      local bAreHorizontalCutsNeeded = ( dimV > BD.MAX_LEN_DICE) and not bBigSectionCut and ( dLenEndRaw > dMinTailScrapForHorizontalCuts - 10 * GEO.EPS_SMALL)
+      local bAreHorizontalCutsNeeded = not bSplit and ( dimV > BD.MAX_LEN_DICE) and not bBigSectionCut and ( dLenEndRaw > dMinTailScrapForHorizontalCuts - 10 * GEO.EPS_SMALL)
       if bAreHorizontalCutsNeeded then
          local nHorizontalCuts = ceil ( dimV / BD.MAX_DIM_DICE) - 1
          local dHorizontalSliceHeight = dimV / ( nHorizontalCuts + 1)
@@ -501,7 +502,9 @@ function ProcessSplit.Make( Proc, nPhase, nRawId, nPartId, nOrd, sDownOrSideOrSt
                if not bOk then return false, sErr end
             end
             -- taglio verticale
-            local bOk, sErr = Fbs.MakeOne( Proc.Id, 0, sCutting, dSawDiam, nOrthoOpposite, nil, dCutExtra, BD.CUT_SIC, dCutXOffset, dAccStart, dAccEnd, 'Cut;', b3Raw)
+            local sInfo = 'PreCut;'
+            if i == 1 then sInfo = 'Cut;' end
+            local bOk, sErr = Fbs.MakeOne( Proc.Id, 0, sCutting, dSawDiam, nOrthoOpposite, nil, dCutExtra, BD.CUT_SIC, dCutXOffset, dAccStart, dAccEnd, sInfo, b3Raw)
             if not bOk then return false, sErr end
          end
          return true, sWarn, nNewPhase