diff --git a/Common_PF1250.TPA.mlpe b/Common_PF1250.TPA.mlpe index 332c265..1a9ccef 100644 --- a/Common_PF1250.TPA.mlpe +++ b/Common_PF1250.TPA.mlpe @@ -2894,7 +2894,13 @@ function EmitParkRoller( dPosT, bSplitCut) end if abs( ParkV2 - EMT.V2POS) > 0.1 then MDChar.V2 = ParkV2 - MDChar.IniStatV2 = 1 + -- Se pezzo a caduta con rulliera V2 attiva (pinza 3), prima muove la rulliera e poi la apre. + if FindFallAtEndAux( EMT.PATHID) and ( EMT.FALL or EMT.FLAG == 3) then + MDChar.IniStatV2 = -1 + MDChar.FinStatV2 = 1 + else + MDChar.IniStatV2 = 1 + end end EmitMoveDataChars( MDChar) EmitMoveStartChars( MDChar.MovType) diff --git a/Common_PF1250.mlpe b/Common_PF1250.mlpe index 5a591e0..cccb583 100644 --- a/Common_PF1250.mlpe +++ b/Common_PF1250.mlpe @@ -1680,7 +1680,8 @@ function ExecMoveZmax( bMchSplit, bGoToHome) -- se necessario ruotare la testa, allargo i carrelli if RollerParkingNeeded( EMT.HEAD, CurrC, CurrB, HomeC, HomeB) then ExecOpenRoller( 1) - ExecOpenRoller( 2) + -- Se pezzo a caduta con rulliera V2 attiva (pinza 3), aspetta ad aprire la rulliera + if ( not bSpliCut and not EMT.TO_FALL) then ExecOpenRoller( 2) end local bAgg = EgtExistsInfo( EMT.PATHID, 'CNT') ExecParkRoller( nil, nil, nil, nil, bMchSplit, bAgg) end @@ -2023,7 +2024,8 @@ function ExecParkRoller( PosY1, PosY2, PosV1, PosV2, bSpliCut, bAgg) local MyParkY2 = ParkY2 -- Apro i rulli, se necessario if abs( ParkV1 - PosV1) > 0.1 then ExecOpenRoller( 1) end - if abs( ParkV2 - PosV2) > 0.1 then ExecOpenRoller( 2) end + -- Se pezzo a caduta con rulliera V2 attiva (pinza 3), aspetta ad aprire la rulliera + if abs( ParkV2 - PosV2) > 0.1 and ( not bSpliCut and not EMT.TO_FALL) then ExecOpenRoller( 2) end -- Eseguo spostamenti if EMT.Y1DELTA and EMT.Y2DELTA then local DiffY1 = MyParkY1 - PosY1 @@ -2092,6 +2094,8 @@ function ExecParkRoller( PosY1, PosY2, PosV1, PosV2, bSpliCut, bAgg) EMT.ERR = 2 EmtSetLastError( 1205, 'Error on MoveAxes in ParkRoller (1)') end + -- Se pezzo a caduta con rulliera V2 attiva (pinza 3), apre la rulliera dopo il posizionamento dei V2 + if abs( ParkV2 - PosV2) > 0.1 and ( bSpliCut and EMT.TO_FALL) then ExecOpenRoller( 2) end else if not SimulMoveAxes( 'T', PosT + MoveY1, MCH_SIM_STEP.RAPID, 'V1', ParkV1, MCH_SIM_STEP.RAPID, diff --git a/UpdateLog.txt b/UpdateLog.txt index afa8468..49fc95b 100644 --- a/UpdateLog.txt +++ b/UpdateLog.txt @@ -1,5 +1,8 @@ ==== Common_PF1250 Update Log ==== +Versione 3.1h1 (07/08/2026) +- (SIM-GEN) Se pezzo a caduta con rulliera V2 attiva (pinza 3), prima muove la rulliera e poi la apre. Ticket#3116 + Versione 3.1g1 (15/07/2026) - (GEN) Se prima lavorazione con punta lunga sbagliava movimenti approccio. diff --git a/Version.lua b/Version.lua index a1f3db3..cb28499 100644 --- a/Version.lua +++ b/Version.lua @@ -3,7 +3,7 @@ local InfoCommon_STD_PP = { NAME = 'Common_PF1250', -- nome script PP standard - VERSION = '3.1g1', -- versione script + VERSION = '3.1h1', -- versione script MIN_MACH_VER_PP_COMMON = '3.1b2' -- versione minima kernel }