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

Common_ONE-PF.NUM.mlpe

@@ -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)
@@ -1157,14 +1159,15 @@ function OnRapid()
       -- trasformo i punti nel piano
       MyAdjustLinearAxes()
       EmtAdjustRotaryAxes()
+      -- annullo precedenti per forzare scrittura
+      EMT.L1p = nil
+      EMT.L2p = nil
+      EMT.L3p = nil
       local sDouFlag = EgtIf( EMT.DOU_TYPE, ' EE1', '')
       EmtOutput( 'G142'..EmtGetAxis('L1')..EmtGetAxis('L2')..EmtGetAxis('L3')..EMT.IPLGLSTR..EgtIf( nHSet~=2, ' EU1', ' EU2')..sDouFlag..' EF'..GetFmaxClamp())
 
       EMT.PLANEACTIVE = true
 
-      -- EMT.L1p = nil
-      -- EMT.L2p = nil
-      -- EMT.L3p = nil
       -- annullo precedenti per forzare scrittura
       EMT.R1p = nil
       EMT.R2p = nil
@@ -1377,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_NL8'
+PP_VER = '3.1e1_NL10'
 PP_NVER = '3.1.3.2'
 MIN_MACH_VER = '2.5k1'
 MACH_NAME = EgtGetCurrMachineName()