DataWall 2.7g2 :

- aggiunta gestione origine e offset da questa che non fanno riprocessare l'intero grezzo (ma solo aggiornare)
- corretta BatchProcess per nome file anche se da non riprocessare.
This commit is contained in:
Dario Sassi
2025-07-17 17:24:09 +02:00
parent 8f36025b64
commit e15a833158
4 changed files with 89 additions and 33 deletions
+37 -10
View File
@@ -1,4 +1,4 @@
-- BatchProcess.lua by Egaltech s.r.l. 2023/04/17
-- BatchProcess.lua by Egaltech s.r.l. 2025/07/17
-- Gestione calcolo batch disposizione e lavorazioni per Pareti
-- 2020/07/24 Nuvola di punti riferita allo Zero Tavola.
-- 2020/10/28 Corretto spostamento pezzi per rotazioni (0 o 180) e inversioni( 0, 90, 180, o 270).
@@ -93,12 +93,6 @@ end
local function UpdateAuxData( sAuxFile)
local bModif = false
local BtlInfoId = EgtGetFirstNameInGroup( GDB_ID.ROOT, 'BtlInfo') or GDB_ID.NULL
-- Se definito LOAD90, aggiorno
local sLoad90 = EgtGetStringFromIni( 'AuxData', 'LOAD90', '', sAuxFile)
if sLoad90 ~= '' then
EgtSetInfo( BtlInfoId, 'LOAD90', sLoad90)
bModif = true
end
-- Se definito PROJID, aggiorno
local sProjId = EgtGetStringFromIni( 'AuxData', 'PROJID', '', sAuxFile)
if sProjId ~= '' then
@@ -111,6 +105,36 @@ local function UpdateAuxData( sAuxFile)
EgtSetInfo( BtlInfoId, 'PRODID', sProdId)
bModif = true
end
-- Se definito LOAD90, aggiorno
local sLoad90 = EgtGetStringFromIni( 'AuxData', 'LOAD90', '', sAuxFile)
if sLoad90 ~= '' then
EgtSetInfo( BtlInfoId, 'LOAD90', sLoad90)
bModif = true
end
-- Se definito REFPOS, aggiorno
local sRefPos = EgtGetStringFromIni( 'AuxData', 'REFPOS', '', sAuxFile)
if sRefPos ~= '' then
EgtSetInfo( BtlInfoId, 'REFPOS', sRefPos)
bModif = true
end
-- Se definito PANELDELTAX, aggiorno
local sPanelDeltaX = EgtGetStringFromIni( 'AuxData', 'PANELDELTAX', '', sAuxFile)
if sPanelDeltaX ~= '' then
EgtSetInfo( BtlInfoId, 'PANELDELTAX', sPanelDeltaX)
bModif = true
end
-- Se definito PANELDELTAY, aggiorno
local sPanelDeltaY = EgtGetStringFromIni( 'AuxData', 'PANELDELTAY', '', sAuxFile)
if sPanelDeltaY ~= '' then
EgtSetInfo( BtlInfoId, 'PANELDELTAY', sPanelDeltaY)
bModif = true
end
-- Se definito PANELDELTAZ, aggiorno
local sPanelDeltaZ = EgtGetStringFromIni( 'AuxData', 'PANELDELTAZ', '', sAuxFile)
if sPanelDeltaZ ~= '' then
EgtSetInfo( BtlInfoId, 'PANELDELTAZ', sPanelDeltaZ)
bModif = true
end
return bModif
end
@@ -151,7 +175,6 @@ end
-- Carico le librerie
_G.package.loaded.WallExec = nil
local WE = require( 'WallExec')
--local BL = require( 'BeamLib')
-- Carico i dati globali
local WD = require( 'WallData')
@@ -522,12 +545,16 @@ else
UpdateAuxData( sBtmFile)
-- Anche se non è da riprocessare, imposto nome file CN.
-- Se file TS7 importato da altro PC, 'BEAM.FILE' è cambiato da un PC all'altro. Di conseguenza si deve aggiornare nome file che si andrà a generare.
local _, sName, _ = EgtSplitPath( BEAM.FILE)
-- Se file TS7 importato da altro PC, 'WALL.FILE' è cambiato da un PC all'altro. Di conseguenza si deve aggiornare nome file che si andrà a generare.
local _, sName, _ = EgtSplitPath( WALL.FILE)
EgtSetInfo( EgtGetLastMachGroup(), 'NcName', sName .. '.cnc')
-- Passo in modalità lavora
EgtSetCurrMachGroup( EgtGetLastMachGroup())
-- Aggiorno posizione del grezzo
if WE.MoveRaw() then
bToRecalc = true
end
-- Se necessario eseguo aggiornamento con ricalcolo delle lavorazioni
if bToRecalc or WALL.FLAG == 3 or WALL.FLAG == 4 then
EgtOutLog( ' +++ Recalculating all dispositions and machinings >>>')