diff --git a/Common_PF1250.TPA.mlpe b/Common_PF1250.TPA.mlpe index 061a1ca..1dd5921 100644 --- a/Common_PF1250.TPA.mlpe +++ b/Common_PF1250.TPA.mlpe @@ -294,6 +294,8 @@ function OnDispositionEnd() for i = 1, #EMT.MDCHAR do EmitMoveDataChars( EMT.MDCHAR[i]) if EMT.MDCHAR[i].Y1 then EMT.CHY_ON = true end + if EMT.MDCHAR[i].V1 then EMT.V1POS = EMT.MDCHAR[i].V1 end + if EMT.MDCHAR[i].V2 then EMT.V2POS = EMT.MDCHAR[i].V2 end end if #EMT.MDCHAR > 0 then local nMoveType = EgtIf( EMT.CHY_ON, 3, 2) @@ -584,8 +586,8 @@ function OnPathStart() if EMT.TOOL == EMT.PREVTOOL and not EMT.ZMAX then EMT.L2pp = EMT.L2op EMT.L3pp = EMT.L3op - EMT.R1pp = EMT.R1p - EMT.R2pp = EMT.R2p + EMT.R1pp = EMT.R1p or EMT.R1pp + EMT.R2pp = EMT.R2p or EMT.R2pp else EMT.L2pp = nil EMT.L3pp = nil @@ -1390,6 +1392,7 @@ function OnRapid() MyOutput( 'M98') MyOutput( 'M6 ' .. GetHeadToolCode() .. AdjustTcPos( true)) MyOutput( 'G24' .. EMT.IPLGLSTR) + EMT.PLANEACTIVE = true -- forzo successiva emissione assi rotanti EMT.R1p = nil EMT.R2p = nil @@ -1471,6 +1474,7 @@ function OnLinear() MyOutput( 'M98') MyOutput( 'M6 ' .. GetHeadToolCode() .. AdjustTcPos( true)) MyOutput( 'G24' .. EMT.IPLGLSTR) + EMT.PLANEACTIVE = true -- emissione movimento EMT.R1p = nil EMT.R2p = nil @@ -1561,6 +1565,7 @@ function OnArc() MyOutput( 'M98') MyOutput( 'M6 ' .. GetHeadToolCode() .. AdjustTcPos( true)) MyOutput( 'G24' .. EMT.IPLGLSTR) + EMT.PLANEACTIVE = true -- emissione movimento EMT.R1p = nil EMT.R2p = nil @@ -2622,15 +2627,19 @@ end --------------------------------------------------------------------- function EmitResetMachining() - MyOutput( 'G27') - if EMT.PREFALLCUT then - MyOutput( 'M29') - EMT.PREFALLCUT = nil + if EMT.PLANEACTIVE then + MyOutput( 'G27') + if EMT.PREFALLCUT then + MyOutput( 'M29') + EMT.PREFALLCUT = nil + end + local sP12 = '' + if EMT.TOOL ~= GetNextTool( EMT.MCHID) then sP12 = EgtIf( EMT.HEAD ~= 'H21', ' P1=0'..EgtIf( EMT.DOU_TYPE, ' P2=0', ''), ' P2=0') end + local sP4 = EgtIf( EMT.MCHUSERNOTES:find( 'Split', 1, true), ' P4=1', '') + MyOutput( 'M99'..sP12..sP4) + -- piano non più attivo + EMT.PLANEACTIVE = false end - local sP12 = '' - if EMT.TOOL ~= GetNextTool( EMT.MCHID) then sP12 = EgtIf( EMT.HEAD ~= 'H21', ' P1=0'..EgtIf( EMT.DOU_TYPE, ' P2=0', ''), ' P2=0') end - local sP4 = EgtIf( EMT.MCHUSERNOTES:find( 'Split', 1, true), ' P4=1', '') - MyOutput( 'M99'..sP12..sP4) end --------------------------------------------------------------------- diff --git a/Essetre-PF1500MAXrl-3T.mlde b/Essetre-PF1500MAXrl-3T.mlde index 4fe78f4..81fdbab 100644 --- a/Essetre-PF1500MAXrl-3T.mlde +++ b/Essetre-PF1500MAXrl-3T.mlde @@ -5,8 +5,8 @@ require( 'EmtGenerator') EgtEnableDebug( false) -PP_VER = '2.7h1' -PP_NVER = '2.7.8.1' +PP_VER = '2.7h2' +PP_NVER = '2.7.8.2' MIN_MACH_VER = '2.7d2' MACH_NAME = string.match( EgtGetCurrMachineDir(), "[^\\]+$") -- si ricava il nome della macchina dal direttorio diff --git a/UpdateLog.txt b/UpdateLog.txt index aaee4fa..8014786 100644 --- a/UpdateLog.txt +++ b/UpdateLog.txt @@ -1,5 +1,9 @@ ==== Common_PF1250 Update Log ==== +Versione 2.7h2 (21/08/2025) +- (GEN) Se la testa rimane bassa, corretto caso di reset del piano generico a fine lavorazione +- (GEN) Corretto movimento in Z massima dopo scarico pezzo + Versione 2.7h1 (20/08/2025) - (GEN) Per posizione T111 e T121, se non è presente asse rotante per presa aggregato (es. se si mette una fresa normale) viene settato a zero. - (MLDE-SIM) Aggiunta variabile FACOLTATIVA 'EstimationRapidMultiplier' in mlde per regolare il tempo stimato di rapido su macchine vecchie. Se non presente default 1. diff --git a/Version.lua b/Version.lua index 9d3b8ee..2294ec7 100644 --- a/Version.lua +++ b/Version.lua @@ -3,7 +3,7 @@ local InfoCommon_STD_PP = { NAME = 'Common_PF1250', -- nome script PP standard - VERSION = '2.7h1', -- versione script + VERSION = '2.7h2', -- versione script MIN_MACH_VER_PP_COMMON = '2.5k1' -- versione minima kernel }