DataBeam :

- modifiche per distanza libera dietro al pezzo (per uscite tagli longitudinali).

LuaLibs/BeamExec.lua

@@ -1,4 +1,4 @@
--- BeamExec.lua by Egaltech s.r.l. 2020/09/24
+-- BeamExec.lua by Egaltech s.r.l. 2020/10/07
 -- Libreria esecuzione lavorazioni per Travi
 -- 2019/07/11 Aggiunta gestione stato rotazione di feature per TS3.
 -- 2019/09/04 Corretto controllo feature di testa e coda con sovramateriale di testa elevato.
@@ -15,7 +15,8 @@
 -- 2020/05/25 Correzione rotazione di 90deg dopo scarico su carico.
 -- 2020/06/02 Per dati foro si chiama funzione GetData di ProcessDrill (per gestire variazioni di diametro da UserParams).
 -- 2020/07/25 Ricalcolati flag head e tail della prima parte del foro dopo lo split.
--- 2002/07/27 Modifica a ordinamento fori.
+-- 2020/07/27 Modifica a ordinamento fori.
+-- 2020/10/07 Aggiunta distanza libera dietro il pezzo (BDST) scritta nel suo grezzo.
 
 -- Tabella per definizione modulo
 local BeamExec = {}
@@ -142,6 +143,7 @@ function BeamExec.ProcessBeams( dRawW, dRawH, dRawL, dOvmHead, vBeam)
    -- Inserimento dei pezzi con il loro grezzo
    local Cnt = 0
    local Len = dRawL
+   local nPrevRaw, dPrevDelta
    local DeltaS = dOvmHead
    local DeltaE = BD.OVM_MID
    for i = 1, #vBeam do
@@ -184,6 +186,9 @@ function BeamExec.ProcessBeams( dRawW, dRawH, dRawL, dOvmHead, vBeam)
          -- se sovramateriale di testa, lo notifico
          if DeltaS > 0.09 then
             EgtSetInfo( nRaw, 'HOVM', DeltaS)
+            if nPrevRaw then
+               EgtSetInfo( nPrevRaw, 'BDST', DeltaS + dPrevDelta)
+            end
          end
          -- aggiungo faccia per taglio finale al pezzo
          BL.AddPartEndFace( Pz, b3Solid)
@@ -202,11 +207,17 @@ function BeamExec.ProcessBeams( dRawW, dRawH, dRawL, dOvmHead, vBeam)
          end
          -- aggiorno la lunghezza residua della barra
          Len = Len - CrawLen
+         -- aggiorno grezzo precedente
+         nPrevRaw = nRaw
+         dPrevDelta = Delta
       end
       -- se rimasto troppo poco grezzo, esco
       --if Len < BD.MinRaw then break end
       DeltaS = 0
    end
+   if nPrevRaw then
+      EgtSetInfo( nPrevRaw, 'BDST', 10000)
+   end
 
    -- Se rimasto materiale aggiungo grezzo dell'avanzo
    if Len > 10 then