Revert modifiche in generazione per lavorazioni in doppio. Non erano corrette.

Common_ONE-PF.NUM.mlpe

@@ -826,12 +826,6 @@ function OnRapid()
    -- gruppo della testa
    local nHSet = GetHeadSet( EMT.HEAD)
 
-   -- se ultimo movimento era LastClimb, su questo punto si attiva il piano
-   if EMT.PREVLASTCLIMB or ( bStdMachRapid and EMT.MCHFIRST) then
-      EMT.PREVLASTCLIMB = nil
-      EMT.LAST_APPROACH_RAPID = true
-   end
-
    -- se primo movimento della lavorazione, gestione speciale
    if EMT.MCHFIRST then
       -- se carico trave
@@ -976,6 +970,7 @@ function OnRapid()
          end
       end
 
+      EMT.MCHFIRST = false
    -- movimento standard CLIMB
    elseif EMT.FLAG == 2 then
       MyAdjustLinearAxes()
@@ -1020,17 +1015,7 @@ function OnRapid()
    end
 
    -- se ultimo, oppure unico, movimento in discesa sul pezzo, attivo piano generico. Se già attivo siginifica che è seconda lavorazione compatibile
-   if not EMT.PLANEACTIVE and ( EMT.LAST_APPROACH_RAPID or bLastClimb or bUniqueClimb) then
-      -- si scrive ultimo punto prima di attivare il piano solo in caso sia un rapido calcolato da CAM5, altrimenti siamo già sul punto
-      if not ( bLastClimb or bUniqueClimb) and not EMT.MCHFIRST then
-         MyAdjustLinearAxes()
-         EmtAdjustRotaryAxes()
-         local dTRad, dTLen = GetToolRadLen()
-         EmitMoveDataHead( nHSet, { X=EMT.L2, Z=EMT.L3, C=EMT.R1, B=EMT.R2, TRad=dTRad, TLen=dTLen, S=CalcRealSpeed( EMT.S)})
-      end
-      
-      EMT.LAST_APPROACH_RAPID = nil
-      bStdMachRapid = false
+   if not EMT.PLANEACTIVE and ( bLastClimb or bUniqueClimb or bStdClimb) then
       EMT.ZMAX = false
       -- movimenti testa 
       -- scrittura comando start movimenti testa
@@ -1223,15 +1208,6 @@ function OnRapid()
    EMT.TPOS = EMT.L1o
    EmtUpdatePrev()
 
-   EMT.MCHFIRST = false
-   -- se si è attivato il piano, disattivo che è stato climb ultimo movimento
-   if EMT.PLANEACTIVE then
-      EMT.PREVLASTCLIMB = nil
-   -- se è ultimo movimento di climb, si salva per scrivere il piano in movimento successivo
-   elseif bStdClimb then
-      EMT.PREVLASTCLIMB = true
-   end
-
    -- si salva posizione assi rotanti
    EMT.R1prec = EMT.R1
    EMT.R2prec = EMT.R2

Essetre-ONE.mlde

@@ -32,7 +32,7 @@
 require( 'EmtGenerator')
 EgtEnableDebug( false)
 
-PP_VER = '3.1f1_CR2'
+PP_VER = '3.1f1_CR3'
 PP_NVER = '3.1.6.1'
 MIN_MACH_VER = '2.5k1'
 MACH_NAME = EgtGetCurrMachineName()