From 8275f167ebda3dc5bc0124a020fb2c7d8afb1986 Mon Sep 17 00:00:00 2001
From: "andrea.villa" <andrea.villa@egalware.com>
Date: Thu, 21 May 2026 09:39:44 +0200
Subject: [PATCH] Movimenti motosega migliorati Scarico motosega alla fine del
 ISO

---
 Common_ONE-PF.NUM.mlpe |  6 ++++++
 Common_ONE-PF.mlse     | 11 +++++++----
 Essetre-ONE.mlde       |  4 ++--
 3 files changed, 15 insertions(+), 6 deletions(-)

diff --git a/Common_ONE-PF.NUM.mlpe b/Common_ONE-PF.NUM.mlpe
index fc55f63..20f3722 100644
--- a/Common_ONE-PF.NUM.mlpe
+++ b/Common_ONE-PF.NUM.mlpe
@@ -2461,6 +2461,12 @@ function ToolPreSelectionSingleHead( nMchId)
          EmtOutput( '( *** UNMOUNT CHAIN-SAW *** )')
          EmitUnmountChainSaw()
       end
+   else
+      -- se ultima lavorazione e ho motosega, scarico
+      if not nNextMchId and HeadIsChainSaw( EMT.HEAD) then
+         EmtOutput( '( *** UNMOUNT CHAIN-SAW *** )')
+         EmitUnmountChainSaw()
+      end
    end
 end
 
diff --git a/Common_ONE-PF.mlse b/Common_ONE-PF.mlse
index dc059f2..c5c1b0d 100644
--- a/Common_ONE-PF.mlse
+++ b/Common_ONE-PF.mlse
@@ -234,14 +234,17 @@ function OnSpecialLink()
    elseif EMC.HEAD == 'H13' or EMC.HEAD == 'H15' then
       -- recupero se split da note utente di lavorazione precedente
       local bSplit = IsPrevSplit()
-
        -- se inizio lavorazione con prelievo utensile
       if EMC.LINKTYPE == 1 then
          -- approccio
          EmtRemoveClimb( EMC.NEXTMCHID, EMC.NEXTMAIN)
          EmtAddClimb( EMC.NEXTMCHID, EMC.NEXTMAIN, { EMC.L1, EMC.L2, EMC.L3p, EMC.R1, EMC.R2p, EMC.R3}, 30, 2, 2, 'FirstClimb=1;')
-         EmtAddClimb( EMC.NEXTMCHID, EMC.NEXTMAIN, { EMC.L1, EMC.L2, EMC.L3p, EMC.R1, EMC.R2, EMC.R3}, 30, 2, 2)
-         EmtAddClimb( EMC.NEXTMCHID, EMC.NEXTMAIN, { EMC.L1, EMC.L2, EMC.L3p, EMC.R1, EMC.R2, EMC.R3}, 31, 2, 2, 'LastClimb=1;')
+         if abs( EMC.R3) < 0.1 then
+            EmtAddClimb( EMC.NEXTMCHID, EMC.NEXTMAIN, { EMC.L1, EMC.L2, ParkCSaw0Z1, EMC.R1, EMC.R2, EMC.R3}, 30, 2, 2)
+         else
+            EmtAddClimb( EMC.NEXTMCHID, EMC.NEXTMAIN, { EMC.L1, EMC.L2, EMC.L3p, EMC.R1, EMC.R2, EMC.R3}, 30, 2, 2)
+         end
+         EmtAddClimb( EMC.NEXTMCHID, EMC.NEXTMAIN, { EMC.L1, EMC.L2, EMC.L3, EMC.R1, EMC.R2, EMC.R3}, 31, 2, 2, 'LastClimb=1;')
 
       -- se fine lavorazione con deposito utensile
       elseif EMC.LINKTYPE == 2 then
@@ -3118,7 +3121,7 @@ function SpecOutputCmds( vCmd, bEnd)
          local sInfo = '23,'..EgtNumToString( Cmd[2],3)
          EgtSetInfo( EMC.PATHID, sKey, sInfo)
          EMC.W2DELTA = Cmd[2]
-      -- riporta trave in zona carico dopo una fase start partita con un riposizionamento
+      -- riporta trave in zona carico dopo una fase start partita con un riposizionam,ento
       elseif Cmd[1] == 24 then
          local sInfo = '24,'..Cmd[2]..','..EgtNumToString( Cmd[3],3)..','..Cmd[4]..','..EgtNumToString( Cmd[5],3)..EgtIf( Cmd[6], ',*', '')
          EgtSetInfo( EMC.PATHID, sKey, sInfo)
diff --git a/Essetre-ONE.mlde b/Essetre-ONE.mlde
index ef6f819..0e13cd1 100644
--- a/Essetre-ONE.mlde
+++ b/Essetre-ONE.mlde
@@ -32,7 +32,7 @@
 require( 'EmtGenerator')
 EgtEnableDebug( false)
 
-PP_VER = '3.1e1_NL2'
+PP_VER = '3.1e1_NL3'
 PP_NVER = '3.1.3.2'
 MIN_MACH_VER = '2.5k1'
 MACH_NAME = EgtGetCurrMachineName()
@@ -914,7 +914,7 @@ end
 function GetChainSawZHomeFromVirtualAxis( dPosA)
    -- se A=0 -> T101 -> HomeZ = -400
    if abs( dPosA) < 0.1 then
-      return ParkCSaw0Z1
+      return ParkCSawZ1
    -- altrimenti A=-90 -> T102 o A=90 -> T104 -> HomeZ = -100
    else
       return ParkCSawZ1