DataWall :

- aggiunta gestione baffi tagli lama tra pezzi adiacenti.

Process.lua

@@ -1,4 +1,4 @@
--- Process.lua by Egaltech s.r.l. 2020/04/25
+-- Process.lua by Egaltech s.r.l. 2020/04/29
 -- Gestione calcolo disposizione e lavorazioni per Pareti
 -- Si opera sulla macchina corrente
 
@@ -32,7 +32,7 @@ EgtOutLog( '*** Wall Process Start ***', 1)
 -- Carico le librerie
 _G.package.loaded.WallExec = nil
 local WE = require( 'WallExec')
---local BL = require( 'BeamLib')
+local WL = require( 'WallLib')
 
 -- Carico i dati globali
 local WD = require( 'WallData')
@@ -103,17 +103,25 @@ local function MyProcessInputData()
    for i = 1, #vWall do
       local b3Solid = vWall[i].Box
       -- rotazione
-      local dRotAng = EgtGetInfo( vWall[i].Id, 'ROTATED', 'd') or 0
-      if dRotAng and abs( dRotAng) > GEO.EPS_ANG_SMALL then
-         local ptRotCen = b3Solid:getCenter()
-         EgtRotate( vWall[i].Id, ptRotCen, X_AX(), dRotAng, GDB_RT.GLOB)
-         b3Solid:rotate( ptRotCen, X_AX(), dRotAng)
+      local dRotAng = EgtGetInfo( vWall[i].Id, 'ROTATED', 'd')
+      if dRotAng then
+         if abs( dRotAng) > GEO.EPS_ANG_SMALL then
+            local ptRotCen = b3Solid:getCenter()
+            EgtRotate( vWall[i].Id, ptRotCen, X_AX(), dRotAng, GDB_RT.GLOB)
+            b3Solid:rotate( ptRotCen, X_AX(), dRotAng)
+         end
+         EgtSetInfo( vWall[i].Id, 'ROTATED_DONE', dRotAng)
+         EgtRemoveInfo( vWall[i].Id, 'ROTATED')
       end
       -- inversione
-      local dInvAng = 180 - ( EgtGetInfo( vWall[i].Id, 'INVERTED', 'd') or 180)
-      if abs( dInvAng) > GEO.EPS_ANG_SMALL then
-         local ptInvCen = b3Solid:getCenter()
-         EgtRotate( vWall[i].Id, ptInvCen, Z_AX(), dInvAng, GDB_RT.GLOB)
+      local dInvAng = EgtGetInfo( vWall[i].Id, 'INVERTED', 'd')
+      if dInvAng then
+         if abs( 180 - dInvAng) > GEO.EPS_ANG_SMALL then
+            local ptInvCen = b3Solid:getCenter()
+            EgtRotate( vWall[i].Id, ptInvCen, Z_AX(), 180 - dInvAng, GDB_RT.GLOB)
+         end
+         EgtSetInfo( vWall[i].Id, 'INVERTED_DONE', dInvAng)
+         EgtRemoveInfo( vWall[i].Id, 'INVERTED')
       end
    end