Movimenti motosega migliorati

Scarico motosega alla fine del ISO

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
 

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)

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