DataBeam :
- aggiunto ricalcolo pezzi se cambiata configurazione macchina TS3 - nei tagli migliorato controllo direzione ingresso lama - nei tagli longitudinali singoli corretto controllo elevazione con massimo affondamento utensile.
This commit is contained in:
+11
-3
@@ -135,9 +135,6 @@ if BEAM.FLAG > 10 then
|
||||
return
|
||||
end
|
||||
|
||||
-- *** Segnalazione avvio ***
|
||||
EgtOutLog( '*** Beam BatchProcess Start ***', 1)
|
||||
|
||||
-- Carico le librerie
|
||||
_G.package.loaded.BeamExec = nil
|
||||
local BE = require( 'BeamExec')
|
||||
@@ -164,6 +161,10 @@ if bBtl and string.find( sTitle, 'Bar_', 1, true) and EgtExistsFile( sNgeFile) t
|
||||
if nDiff == 0 then
|
||||
bToProcess = false
|
||||
end
|
||||
-- se cambiata configurazione macchina da ultima elaborazione, devo riprocessare
|
||||
if EgtCompareFilesLastWriteTime( sOriFile, sMachDir .. '\\Beam\\TS3Data.lua') == -1 then
|
||||
bToProcess = true
|
||||
end
|
||||
end
|
||||
|
||||
-- Inizializzo contatori errori e avvisi
|
||||
@@ -172,6 +173,7 @@ local nWarnCnt = 0
|
||||
|
||||
-- Se da elaborare
|
||||
if bToProcess then
|
||||
EgtOutLog( ' +++ Processing Parts >>>')
|
||||
-- Se Btl, lo importo
|
||||
if bBtl then
|
||||
-- cancello eventuale vecchio progetto omonimo
|
||||
@@ -383,6 +385,7 @@ if bToProcess then
|
||||
|
||||
-- Altrimenti carico il progetto salvato e dichiaro nessun errore
|
||||
else
|
||||
EgtOutLog( ' +++ Loading Project already processed >>>')
|
||||
-- Carico il progetto già fatto
|
||||
EgtOpenFile( sNgeFile)
|
||||
-- Dichiaro nessun errore
|
||||
@@ -417,6 +420,7 @@ end
|
||||
|
||||
-- *** Eseguo simulazione in cieco ***
|
||||
if ( BEAM.FLAG == 3 or BEAM.FLAG == 4) then
|
||||
EgtOutLog( ' +++ Simulating with collision check >>>')
|
||||
local bSimOk, nErr, sErr = EgtSimulate()
|
||||
if not bSimOk then
|
||||
if nErr == MCH_SHE.INIT then
|
||||
@@ -454,6 +458,7 @@ end
|
||||
|
||||
-- *** Genero programma CN *** ( se richiesto)
|
||||
if BEAM.FLAG == 0 or BEAM.FLAG == 4 then
|
||||
EgtOutLog( ' +++ Generating NC part program >>>')
|
||||
if not EgtGenerate( '', 'EgtCAM5 - ' .. sNgeFile) then
|
||||
BEAM.ERR = 20
|
||||
local _, sName, _ = EgtSplitPath( BEAM.FILE)
|
||||
@@ -466,6 +471,7 @@ end
|
||||
|
||||
-- *** Eseguo stima tempi ***
|
||||
if not EgtEstimate( '', 'EgtCAM5 - ' .. sNgeFile) then
|
||||
EgtOutLog( ' +++ Estimating T&L >>>')
|
||||
BEAM.ERR = 21
|
||||
local _, sName, _ = EgtSplitPath( BEAM.FILE)
|
||||
BEAM.MSG = 'Error estimating production time : ' .. sName
|
||||
@@ -491,3 +497,5 @@ end
|
||||
|
||||
-- Scrittura tempo totale stimato di lavorazione
|
||||
WriteTimeToLogFile( Ttot)
|
||||
|
||||
EgtOutLog( ' +++ BatchProcess completed')
|
||||
|
||||
Reference in New Issue
Block a user