DataWall :

- altre modifiche per gestione pareti su macchine travi.

BatchProcess.lua

@@ -1,8 +1,11 @@
--- BatchProcess.lua by Egaltech s.r.l. 2020/12/03
+-- BatchProcess.lua by Egaltech s.r.l. 2021/03/08
 -- Gestione calcolo batch disposizione e lavorazioni per Pareti
 -- 2020/07/24 Nuvola di punti riferita allo Zero Tavola.
 -- 2020/10/28 Corretto spostamento pezzi per rotazioni (0 o 180) e inversioni( 0, 90, 180, o 270).
--- 2020/12/03 Ora riconosciute rotazioni di inversione con angoli negativi. 
+-- 2020/12/03 Ora riconosciute rotazioni di inversione con angoli negativi.
+-- 2021/03/05 Aggiunta gestione altri angoli di inversione e rotazione combinati.
+-- 2021/03/06 La creazione del file ori si fa solo alla fine se non ci sono stati errori o se edit.
+-- 2021/03/08 Aggiunta gestione lavorazione su macchine per travi.
 
 
 -- Intestazioni
@@ -181,8 +184,6 @@ if bToProcess then
          PostErrView( WALL.ERR, WALL.MSG)
          return
       end
-      -- faccio copia del file btl originale
-      EgtCopyFile( WALL.FILE, sDir..sTitle..'.ori'..sExt)
    -- altrimenti Nge, lo apro
    else
       if not EgtOpenFile( WALL.FILE) then
@@ -192,8 +193,6 @@ if bToProcess then
          PostErrView( WALL.ERR, WALL.MSG)
          return
       end
-      -- faccio copia del file originale
-      EgtCopyFile( WALL.FILE, sDir..sTitle..'.ori'..sExt)
    end
 
    -- Aggiorno eventuali dati ausiliari
@@ -312,6 +311,8 @@ if bToProcess then
             vWall[i].PosX = vWall[i].PosX - vWall[i].Box:getDimX()
             if abs( dRotAng - 0) < GEO.EPS_ANG_SMALL then
                vWall[i].PosZ = vWall[i].PosZ - vWall[i].Box:getDimY()
+            elseif abs( dRotAng - 180) < GEO.EPS_ANG_SMALL or abs( dRotAng + 180) < GEO.EPS_ANG_SMALL then
+               vWall[i].PosX = vWall[i].PosX + vWall[i].Box:getDimX()
             end
          elseif abs( dInvAng - 270) < GEO.EPS_ANG_SMALL or abs( dInvAng + 90) < GEO.EPS_ANG_SMALL then
             if abs( dRotAng - 0) < GEO.EPS_ANG_SMALL then
@@ -420,6 +421,11 @@ if bToProcess then
    -- Salvo il progetto
    EgtSaveFile( sNgeFile)
 
+   -- Se non ci sono errori o modalità modifica, salvo il file originale
+   if nErrCnt == 0 or WALL.FLAG == 1 then
+      EgtCopyFile( WALL.FILE, sDir..sTitle..'.ori'..sExt)
+   end
+
    -- Visualizzazione avvisi o errori
    if #sOutput > 0 then EgtOutLog( sOutput) end
    if nErrCnt > 0 then