diff --git a/Essetre-PF.NUM.mlpe b/Essetre-PF.NUM.mlpe index 0aab862..1102fcd 100644 --- a/Essetre-PF.NUM.mlpe +++ b/Essetre-PF.NUM.mlpe @@ -1,4 +1,4 @@ --- Processore macchina Essetre-PFrl by EgalTech s.r.l. 2023/06/08 +-- Processore macchina Essetre-PFrl by EgalTech s.r.l. 2023/06/26 -- Con controllo numerico NUM -- Variabili di modulo @@ -2182,6 +2182,12 @@ function GetFall( nPathId) return ( sVal == '0,Fall') end +--------------------------------------------------------------------- +function GetSpecUnloading( nPathId) + local sVal = EgtGetInfo( nPathId, 'AE1') + return ( sVal == '0,Unloading SpecSplit') +end + --------------------------------------------------------------------- function EmitZmax( bReset, bEnd, bXhome, PrevR1, PrevR2, bSplitCut, bUsePrevDelta) if bReset then @@ -2340,7 +2346,7 @@ end --------------------------------------------------------------------- function EmitResetMachining() - if EMT.TOOL ~= GetNextTool( EMT.MCHID) and IsLastPath( EMT.PATHID) then + if ( EMT.TOOL ~= GetNextTool( EMT.MCHID) and IsLastPath( EMT.PATHID)) or GetSpecUnloading( EMT.PATHID) or GetFall( EMT.PATHID) then EmtOutput( 'M05') end local sOut = 'G157 EA1' diff --git a/Essetre-PFrl.mlde b/Essetre-PFrl.mlde index a3c847c..544f434 100644 --- a/Essetre-PFrl.mlde +++ b/Essetre-PFrl.mlde @@ -1,4 +1,4 @@ --- Descrizione macchina Essetre-PF by EgalTech s.r.l. 2023/06/13 +-- Descrizione macchina Essetre-PF by EgalTech s.r.l. 2023/06/26 -- 2021/10/01 ver 2.3j1 Prima versione. -- 2021/10/26 ver 2.3j2 Versione provvisoria per pezzo alto. -- 2021/10/26 ver 2.3j3 Aggiunto arresto preciso negli angoli (G9) in fresature con utensili di piccolo diametro. @@ -42,12 +42,13 @@ -- 2023/06/08 ver 2.5f1 Riportate correzioni da PF (riposizionamento carrelli su split con pezzi a caduta, in genera CN controllo conservazione piano impostato). -- In genera CN corretta risalita in Z come in simulazione (ticket #1294). -- 2023/06/13 ver 2.5f2 Corretta distanza Back per aggiuntivo al carico prima di scambi carrelli. +-- 2023/06/26 ver 2.5f3 Tolte da teste per lame forzature risalite in Z. In generaz. CN aggiunto M05 su ultima lavorazione prima di SpecUnloading o Fall. -- Intestazioni require( 'EmtGenerator') EgtEnableDebug( false) -PP_VER = '2.5f2' +PP_VER = '2.5f3' -- Parametri macchina NumericalControl = 'NUM_FLEX' -- NUM o (TPA) o NUM_FLEX @@ -339,7 +340,7 @@ local H12Id = EmtHead { Rot2Stroke = { MinB1b, MaxB1b}, OthColl = {'B1/SOLID', 'C1/SOLID'}, Geo = 'H12_HEAD/GEO'} -EgtSetInfo( H12Id, 'ZMAXONROT', '1,190') +--EgtSetInfo( H12Id, 'ZMAXONROT', '1,190') -- Sega a catena EmtAxis { Name = 'A', @@ -446,7 +447,7 @@ if SecondSaw then Rot2Stroke = { MinB2b, MaxB2b}, OthColl = {'B2/SOLID', 'C2/SOLID'}, Geo = 'H22_HEAD/GEO'} - EgtSetInfo( H22Id, 'ZMAXONROT', '1,190') + --EgtSetInfo( H22Id, 'ZMAXONROT', '1,190') end -- *** Carrelli *** -- Morse