DataWall :

- modifiche per pareti a layer (aggiunta gestione quota parete in lavoro nel grezzo).
This commit is contained in:
DarioS
2021-07-12 12:29:54 +02:00
parent abe712151f
commit 0baa4968e5
3 changed files with 19 additions and 6 deletions
+8 -2
View File
@@ -1,4 +1,4 @@
-- Process.lua by Egaltech s.r.l. 2021/06/23
-- Process.lua by Egaltech s.r.l. 2021/07/08
-- Gestione calcolo disposizione e lavorazioni per Pareti
-- Si opera sulla macchina corrente
-- 2020/12/09 Come per BatchProcess.lua si gestiscono anche rotazioni di inversione con valori negativi.
@@ -96,6 +96,12 @@ local function MyProcessInputData()
if not PosX then PosX = CurrX end
vWall[i].PosX = PosX
CurrX = CurrX + vWall[i].Box:getDimX() + 50
if WD.USE_POSY then
local PosY = EgtGetInfo( vWall[i].Id, 'POSY', 'd')
vWall[i].PosY = max( PosY, 0)
else
vWall[i].PosY = 0
end
local PosZ = EgtGetInfo( vWall[i].Id, 'POSZ', 'd') or 50
vWall[i].PosZ = PosZ
end
@@ -160,7 +166,7 @@ local function MyProcessInputData()
end
-- Ne verifico le dimensioni
dRawH = vWall[1].Box:getDimZ()
dRawH = vWall[1].Box:getDimZ() + vWall[1].PosY
local vWallErr = {}
for i = 2, #vWall do
local dDimH = vWall[i].Box:getDimZ()