Merge remote-tracking branch 'origin/develop'

Common_ONE-PF.NUM.mlpe

@@ -312,6 +312,8 @@ function OnDispositionEnd()
          MyOutputNoNum( '(PART UNLOAD)')
          for i = 1, #EMT.MDCHAR do
             EmitMoveDataChars( EMT.MDCHAR[i])
+            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
          EmitMoveStartChars( 2)
          -- se dopo c'è scarico spezzone devo mettere attesa termine esecuzione
@@ -327,7 +329,8 @@ function OnDispositionEnd()
          end
       elseif EMT.SPECUNLOADING then
          EmtOutput( '(PART SPEC UNLOADING)')
-         EmitBeamHeadData( { T=EMT.L1, Pz5=2})
+         local dAbsHeadPos = EMT.L1pp or EMT.L1
+         EmitBeamHeadData( { T=dAbsHeadPos, Pz5=2})
          EMT.SPECUNLOADING = nil
          EMT.W2DELTA = nil
          -- emissione conclusione pezzo precedente
@@ -674,8 +677,8 @@ function OnPathStart()
       EMT.L1pp = EMT.L1op
       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.L1pp = nil
       EMT.L2pp = nil
@@ -1603,7 +1606,7 @@ function OnRapid()
       MyAdjustLinearAxes()
       EmtAdjustRotaryAxes()
       -- se Split o Presplit lascio agganciata solo la pinza Y2 alla fine dei movimenti
-      local sNextTool = GetNextTool( EMT.MCHID)
+      local sNextTool = GetNextTool( EMT.MCHID, true)
       -- vado in home se è ultimo movimento ed è ultima lavorazione, se sono con motosega e devo cambiare utensile, oppure se ho la lama
       local bToXhome = ( IsLastPath( EMT.PATHID) and not sNextTool) or ( EMT.HEAD == 'H23' and EMT.TOOL ~= sNextTool) or ( EMT.HEAD == 'H13' and EMT.TOOL ~= sNextTool) or 
                        ( EMT.HEAD == 'H12' and EMT.TOOL ~= sNextTool ) or ( EMT.HEAD == 'H22' and EMT.TOOL ~= sNextTool) or EMT.MCHSPLIT
@@ -2952,11 +2955,12 @@ end
 
 ---------------------------------------------------------------------
 function EmitResetMachining()
-   if ( EMT.TOOL ~= GetNextTool( EMT.MCHID) and IsLastPath( EMT.PATHID)) or GetSpecUnloading( EMT.PATHID) or GetFall( EMT.PATHID) then
-      -- se da MLDE parametro non settato, o settato a true, scrivo il comando arresto mandrino
-      if WriteM05Command == nil or WriteM05Command then
-         EmtOutput( 'M05')
-      end
+   -- se non sono a Z massima e operatore deve entrare in cabina spango sempre
+   if not EMT.ZMAX and ( GetSpecUnloading( EMT.PATHID) or GetFall( EMT.PATHID)) then
+      EmtOutput( 'M05')
+   -- altrimenti spegnimento dipende da parametro
+   elseif ( EMT.TOOL ~= GetNextTool( EMT.MCHID, false) and IsLastPath( EMT.PATHID)) or GetSpecUnloading( EMT.PATHID) or GetFall( EMT.PATHID) then
+      EmtOutput( 'M05')
    end
    local sOut = 'G157 EA1'
    EmtOutput( sOut)

Common_ONE-PF.mlpe

@@ -966,7 +966,12 @@ function OnSimulMoveStart()
    -- pinza 5
    if EMT.W2DELTA then
       EMT.A5n = 'W'
-      EMT.A5m = 'T'
+      local dPosQW = EgtGetAxisPos( 'QW') or 0
+      if dPosQW < 1 then
+         EMT.A5m = nil
+      else
+         EMT.A5m = 'T'
+      end
       EMT.A5 = EMT.L1 + EMT.W2DELTA - EMT.A4
       VerifyWStroke( EMT.A5)
    end
@@ -1344,7 +1349,7 @@ function OnSimulMoveEnd()
       -- eventuale rimozione sfridi
       ExecRemoveScraps()
       -- se Split o Presplit lascio agganciata solo la pinza Y2 alla fine dei movimenti
-      local sNextTool = GetNextTool( EMT.MCHID)
+      local sNextTool = GetNextTool( EMT.MCHID, true)
       -- vado in home se è ultimo movimento ed è ultima lavorazione, se sono con motosega e devo cambiare utensile, oppure se ho la lama
       local bToXhome = ( IsLastPath( EMT.PATHID) and not sNextTool) or ( EMT.HEAD == 'H23' and EMT.TOOL ~= sNextTool) or ( EMT.HEAD == 'H13' and EMT.TOOL ~= sNextTool) or
                        ( EMT.HEAD == 'H12' and EMT.TOOL ~= sNextTool ) or ( EMT.HEAD == 'H22' and EMT.TOOL ~= sNextTool) or EMT.MCHSPLIT
@@ -1478,7 +1483,7 @@ function ExecAuxCmd( sCmd, bPathStart)
       ExecMoveHome( Cmd[2] == '1', EgtIf( bPathStart, false, EMT.MCHSPLIT))
    elseif Cmd[1] == '11' then
       local bClose = Cmd[2] ~= '0'
-      if bPathStart and EMT.MCHSPLIT and not EMT.FALL and GetPY2Light() then bClose = false end
+      if bPathStart and EMT.MCHSPLIT and not ( EMT.FALL or EMT.TO_FALL) and GetPY2Light() then bClose = false end
       ExecMovePY1( bClose)
    elseif Cmd[1] == '12' then
       ExecMovePY2( Cmd[2] ~= '0')
@@ -2819,7 +2824,7 @@ function GetNextChainSawingVirtualAxis( MchId)
 end
 
 ---------------------------------------------------------------------
-function GetNextTool( nMchId)
+function GetNextTool( nMchId, bResetOnStart)
    -- inizializzo prossimo utensile
    local sNextTool
    -- recupero lavorazione successiva
@@ -2827,7 +2832,7 @@ function GetNextTool( nMchId)
    while nNextMchId do
       -- se la prossima lavorazione è lo start di un altro pezzo, faccio finta che cambia utensile in modo che vada in parcheggio con utensili speciali
       if EgtGetOperationType( nNextMchId) == MCH_OY.DISP then
-         if IsStartOrRestPhase( EMT.PHASE+1) then
+         if IsStartOrRestPhase( EMT.PHASE+1) and bResetOnStart then
             return nil
          end
       else

Essetre-PF.mlde

@@ -32,8 +32,8 @@
 require( 'EmtGenerator')
 EgtEnableDebug( false)
 
-PP_VER = '2.7g4_DEV2'
-PP_NVER = '2.7.7.4'
+PP_VER = '2.7h1'
+PP_NVER = '2.7.8.1'
 MIN_MACH_VER = '2.5k1'
 MACH_NAME = string.match( EgtGetCurrMachineDir(), "[^\\]+$")  -- si ricava il nome della macchina dal direttorio
 

UpdateLog.txt

@@ -1,5 +1,11 @@
            ==== Common_ONE-PF Update Log ====
 
+Versione 2.7h1 (20/08/2025)
+- (SIM-GEN) Non si chiudono i rulli se tagli o pretagli di testa e coda
+- (SIM) Corretto movimento pinza 5 in caso di riposizionamento pinza 1
+- (GEN) Corretta quota assoluta posizione testa trave in caso di pinza 5 e testa rimasta bassa
+- (GEN) Se ultima lavorazione pezzo precedente ha stesso utensile della prima lavorazione pezzo successivo, la speed resta accesa
+
 Versione 2.7g4 (23/07/2025)
 - (SIM-GEN) Aggiunto parametro configurabile da TS3 per massima sporgenza trave in coda per pinza 5. Ticket#2538
 

Version.lua

@@ -3,7 +3,7 @@
 
 local InfoCommon_STD_PP = {
    NAME = 'Common_ONE-PF',            -- nome script PP standard
-   VERSION = '2.7g4',                 -- versione script
+   VERSION = '2.7h1',                 -- versione script
    MIN_MACH_VER_PP_COMMON = '2.5k1'   -- versione minima kernel
 }