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:
+7
-7
@@ -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
|
||||
|
||||
Reference in New Issue
Block a user