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:
Dario Sassi
2020-06-12 16:27:32 +00:00
parent 0d57d2be78
commit 5cd73a03a8
3 changed files with 18 additions and 10 deletions
+11 -3
View File
@@ -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')