DataBeam 2.5e3 :

- correzione riconoscimento per possibile lavorazione in doppio di tasche che si toccano sul fondo (ovviamente non possibili in doppio)
- in taglio di separazione aggiunta richiesta risalita preliminare a Zmax quando da sopra su macchine PF e ONE
- dopo aver fatto rotazioni e inversioni dei pezzi cambio chiave Info relative per evitare di rifarle se si parte da Nge e non da Btl.

BatchProcess.lua

@@ -1,4 +1,4 @@
--- BatchProcess.lua by Egaltech s.r.l. 2022/04/28
+-- BatchProcess.lua by Egaltech s.r.l. 2022/05/10
 -- Gestione calcolo batch disposizione e lavorazioni per Travi
 -- 2019/07/11 Aggiunta gestione stato rotazione di feature per TS3.
 -- 2019/07/16 Aggiunta gestione modalità oltre 10 per impostazione macchina e uscita.
@@ -24,6 +24,7 @@
 -- 2021/08/04 Direzione vista simulazione da BD.SIMUL_VIEW_DIR se esiste.
 -- 2022/04/28 In info generazione aggiunta indicazione se 64bit.
 -- 2023/05/03 Tolleranza su sezione portata a 0.1 mm (100 * GEO.EPS_SMALL).
+-- 2022/05/10 Dopo aver fatto rotazioni e inversioni dei pezzi cambio chiave Info relative.
 
 -- Intestazioni
 require( 'EgtBase')
@@ -267,22 +268,26 @@ if bToProcess then
       vBeam[i].PosX = PosX
    end
    
-   -- Eseguo eventuali rotazioni e inversioni testa-coda
+   -- Se non già eseguite, applico eventuali rotazioni e inversioni testa-coda
    for i = 1, #vBeam do
       local b3Solid = vBeam[i].Box
       -- rotazione
-      local dRotAng = EgtGetInfo( vBeam[i].Id, 'ROTATED', 'd')
-      if dRotAng and abs( dRotAng) > GEO.EPS_ANG_SMALL then
+      local dRotAng = EgtGetInfo( vBeam[i].Id, 'ROTATED', 'd') or 0
+      if abs( dRotAng) > GEO.EPS_ANG_SMALL then
          local ptRotCen = b3Solid:getCenter()
          EgtRotate( vBeam[i].Id, ptRotCen, X_AX(), dRotAng, GDB_RT.GLOB)
          b3Solid:rotate( ptRotCen, X_AX(), dRotAng)
       end
+      EgtRemoveInfo( vBeam[i].Id, 'ROTATED')
+      EgtSetInfo( vBeam[i].Id, 'ROTATED_OK', dRotAng)
       -- inversione
       local dInvAng = 180 - ( EgtGetInfo( vBeam[i].Id, 'INVERTED', 'd') or 0)
       if abs( dInvAng) > GEO.EPS_ANG_SMALL then
          local ptInvCen = b3Solid:getCenter()
          EgtRotate( vBeam[i].Id, ptInvCen, Z_AX(), dInvAng, GDB_RT.GLOB)
       end
+      EgtRemoveInfo( vBeam[i].Id, 'INVERTED')
+      EgtSetInfo( vBeam[i].Id, 'INVERTED_OK', 180 - dInvAng)
    end
    
    -- Ne verifico le dimensioni