DataWall :

- aggiunta possibilità di posizionare i pezzi nei quattro angoli della tavola (da WD.ORIG_CORNER con valori BL,TL,BR,TR)
- corretta classificazione Tagli con Lama.
This commit is contained in:
Dario Sassi
2020-11-14 08:26:05 +00:00
parent ffe641a705
commit cd0d0fe1c9
3 changed files with 27 additions and 13 deletions
+7 -7
View File
@@ -1,4 +1,4 @@
-- Process.lua by Egaltech s.r.l. 2020/07/07
-- Process.lua by Egaltech s.r.l. 2020/11/13
-- Gestione calcolo disposizione e lavorazioni per Pareti
-- Si opera sulla macchina corrente
@@ -89,18 +89,18 @@ local function MyProcessInputData()
end
-- Ne recupero la posizione
local CurrX = 100
local CurrX = 50
for i = 1, #vWall do
local PosX = EgtGetInfo( vWall[i].Id, 'POSX', 'd')
if not PosX then PosX = CurrX end
vWall[i].PosX = PosX
CurrX = CurrX + vWall[i].Box:getDimX() + 50
local PosZ = EgtGetInfo( vWall[i].Id, 'POSZ', 'd') or 100
local PosZ = EgtGetInfo( vWall[i].Id, 'POSZ', 'd') or 50
vWall[i].PosZ = PosZ
end
-- Recupero informazione se progetto o produzione
local bProj = ( EgtGetInfo( EgtGetFirstNameInGroup( GDB_ID.ROOT, 'BtlInfo'), 'PROJECT', 'i') == 1)
local bProj = ( EgtGetInfo( EgtGetFirstNameInGroup( GDB_ID.ROOT, 'BtlInfo') or GDB_ID.NULL, 'PROJECT', 'i') == 1)
-- Eseguo eventuali rotazioni e inversioni testa-coda
for i = 1, #vWall do
@@ -154,7 +154,7 @@ local function MyProcessInputData()
table.remove( vWall, vWallErr[i])
end
EgtOutLog( sOut, 1)
EgtOutBox( sOut, 'Lavora Travi', 'INFO')
EgtOutBox( sOut, 'Lavora Pareti', 'INFO')
EgtDraw()
return false
end
@@ -256,11 +256,11 @@ local function MyProcessFeatures()
end
if #sOutput > 0 then EgtOutLog( sOutput) end
if nErrCnt > 0 then
EgtOutBox( sOutput, 'Lavora Travi', 'ERRORS')
EgtOutBox( sOutput, 'Lavora Pareti', 'ERRORS')
EgtDraw()
return false
elseif nWarnCnt > 0 then
EgtOutBox( sOutput, 'Lavora Travi', 'WARNINGS')
EgtOutBox( sOutput, 'Lavora Pareti', 'WARNINGS')
EgtDraw()
return true
end