OnRapid() se presenti movimenti dei carrelli resetta piano di lavorazione

Common_ONE-PF.NUM.mlpe

@@ -593,7 +593,7 @@ function OnMachiningEnd()
                EmtOutput( sOut)
             end
          elseif not EMT.PREROT then
-            EmtOutput( 'M77')
+            EmtOutput( '(M77)')
          end
       end
    end
@@ -864,8 +864,10 @@ function OnRapid()
 
          EmitMoveWaitChars( EgtIf( bOnlyCharY, 1, 3))
       else
-         -- se stesso utensile, e c'è ancora piano attivo dalla lavorazione precedente, allora questo è un climb
-         if EMT.TOOL == EMT.PREVTOOL and EMT.PLANEACTIVE and ( abs( EMT.R1prec - EMT.R1) < 0.1 and abs( EMT.R2prec - EMT.R2) < 0.1) then
+         -- controllo se ci sono spostamenti dei carrelli programmati
+         local bChangeCarriageClamping = CheckChangeCarriageClamping()
+         -- se non ci sono riposizionamenti dei carrelli, se stesso utensile, e c'è ancora piano attivo dalla lavorazione precedente, allora questo è un climb
+         if not bChangeCarriageClamping and EMT.TOOL == EMT.PREVTOOL and EMT.PLANEACTIVE and ( abs( EMT.R1prec - EMT.R1) < 0.1 and abs( EMT.R2prec - EMT.R2) < 0.1) then
             -- dichiaro finita lavorazione precedente
             local sOut = 'G157 EA1'
             EmtOutput( sOut)
@@ -1378,6 +1380,28 @@ function CalcCharStatusN( sCmd)
    end
 end
 
+---------------------------------------------------------------------
+-- controlla se nella tabella AUX sono presenti dei movimenti dei carrelli
+function CheckChangeCarriageClamping()
+   local ChangeCarriagesParam = {
+      '1', -- movimento singolo carro
+      '2', -- movimento carro e trave
+      '3', -- movimento 2 carri e trave
+      '4', -- risalita a Z max
+      '11', -- comando pinza 1
+      '12' -- comando pinza 2
+   }
+   for i=1, #EMT.AUXCMD do
+      local Cmd = EgtSplitString( EMT.AUXCMD[i])
+      for j=1, #ChangeCarriagesParam do
+         if Cmd[1] == ChangeCarriagesParam[j] then
+            return true
+         end
+      end
+   end
+   return false
+end
+
 ---------------------------------------------------------------------
 function PrepareLoad(  sCmd, nInd, bStart)
    local Cmd = EgtSplitString( sCmd)

Essetre-ONE.mlde

@@ -32,7 +32,7 @@
 require( 'EmtGenerator')
 EgtEnableDebug( false)
 
-PP_VER = '3.1e1_NL9_DEV1'
+PP_VER = '3.1e1_NL10'
 PP_NVER = '3.1.3.2'
 MIN_MACH_VER = '2.5k1'
 MACH_NAME = EgtGetCurrMachineName()