diff --git a/Common_ONE-PF.NUM.mlpe b/Common_ONE-PF.NUM.mlpe index f6246fb..04b5c7c 100644 --- a/Common_ONE-PF.NUM.mlpe +++ b/Common_ONE-PF.NUM.mlpe @@ -3199,7 +3199,7 @@ function EmitTestProgramStart() EmtOutput( 'M12 $START PER SVINCOLO TESTE') EmtOutput( '(SVINCOLO TESTA 1)') EmitMoveDataHead( 1, {Z=ParkZ1-100, TPos=0}) - if Progress then + if Progress or SecondToolChanger then EmtOutput( 'IF E80001<=10 THEN') EmitMoveDataHead( 1, {C=ParkC1, TPos=0}) EmitMoveDataHead( 1, {Z=-150, B=ParkB1, TPos=0}) diff --git a/Common_ONE-PF.mlpe b/Common_ONE-PF.mlpe index f38d4d0..a5ae856 100644 --- a/Common_ONE-PF.mlpe +++ b/Common_ONE-PF.mlpe @@ -129,7 +129,7 @@ function OnSimulStart() end -- gruppo CHSAW si attiva solo se progress, one con BIT mortiser o PF - if Progress or Mortiser or EgtGetHeadId( 'H21') then + if Progress or Mortiser or EgtGetHeadId( 'H21') or SecondToolChanger then table.insert( McdData, { Grp = 'Base', Sub = 'COLLISION', Name = 'CHSAW'}) end -- gruppo MORTISER si attiva solo se PF con BIT mortiser attivo @@ -719,7 +719,7 @@ function OnSimulToolDeselect( dPrevA) local MyParkB1 = ParkB1 local MyParkC1 = ParkC1 -- se ho due teste oppure รจ progress, significa che ho CU verticale - if EgtGetHeadId('H21') or Progress then + if EgtGetHeadId('H21') or Progress or SecondToolChanger then MyParkB1 = EgtIf( GetHeadTCSet( EMT.NEXTHEAD, EMT.NEXTTCPOS) == 'Head1_TC1', ParkB1, ParkFrnB1) MyParkC1 = EgtIf( GetHeadTCSet( EMT.NEXTHEAD, EMT.NEXTTCPOS) == 'Head1_TC1', ParkC1, ParkFrnC1) -- altrimenti su one CU speciale motosega-utensile lungo @@ -1702,6 +1702,8 @@ function ExecMoveZmax( bMchSplit, btoXHome) if btoXHome then EgtUnloadTool( EMT.HEAD, 1) ShowToolInTcPos( EMT.TCPOS, true) + -- nascondo l'utensile sulla testa + EgtSetMode( EgtGetHeadId( EMT.HEAD or '') or GDB_ID.NULL, GDB_MD.HIDDEN) EMT.PREVTOOL_H1 = nil EMT.PREVHEAD_H1 = nil EMT.PREVTCPOS_H1 = nil @@ -2250,7 +2252,7 @@ function LoadNextTool( nHSet, sTcPosDef, bFirst) if vTools and vTools[1] and #(vTools[1]) > 0 then sTool = vTools[1] sTcPos = sTcPosDef - if Progress then + if Progress or SecondToolChanger then sHead = EgtIf( sTcPos == 'T11', 'H12', 'H11') elseif nHSet == 1 then sHead = EgtIf( sTcPos == 'T1', 'H12', 'H11') diff --git a/UpdateLog.txt b/UpdateLog.txt index acd31f9..d9321e1 100644 --- a/UpdateLog.txt +++ b/UpdateLog.txt @@ -1,5 +1,8 @@ ==== Common_ONE-PF Update Log ==== +Versione 2.7-- (--/--/2025) +- (SIM-GEN) Piccole correzioni per gestire secondo TC su ONE. Ticket#2563 + Versione 2.7h2 (28/08/2025) - (GEN) Migliorata gestione spegnimento utensile e disattivazione piano - (SIM-GEN) Corretto nome variabile e altre piccole modifiche per Progress diff --git a/Version.lua b/Version.lua index 524820c..9eb846b 100644 --- a/Version.lua +++ b/Version.lua @@ -3,7 +3,7 @@ local InfoCommon_STD_PP = { NAME = 'Common_ONE-PF', -- nome script PP standard - VERSION = '2.7h2', -- versione script + VERSION = '2.7--', -- versione script MIN_MACH_VER_PP_COMMON = '2.5k1' -- versione minima kernel }