Forza scrittura di tutti gli assi lineari nel G142

- Posizione parcheggio testa 2

Common_ONE-PF.NUM.mlpe

@@ -485,6 +485,7 @@ end
 ---------------------------------------------------------------------
 function OnMachiningEnd()
    --EmtOutput( ';Mach End')
+   local bMoveBothClampsOnSplit = false
    if #EMT.MDCHAR > 0 then
       -- Emissione split
       if EMT.AUXTYPE == 'S' then
@@ -515,6 +516,7 @@ function OnMachiningEnd()
                EMT.MDCHAR[1].MovType = nil
                EMT.MDCHAR[1].Y2 = ParkV2 - EMT.LT + EMT.Y2DELTA
                EMT.MDCHAR[1].V2 = ParkV2
+               bMoveBothClampsOnSplit = true
             end
          end
 
@@ -558,8 +560,13 @@ function OnMachiningEnd()
    end
    if #EMT.MDCHAR > 0 then
       if EMT.AUXTYPE == 'S' then
-         EmitMoveStartChars( 1)
-         EmitMoveWaitChars( 1)
+         if bMoveBothClampsOnSplit then
+            EmitMoveStartChars( 3)
+            EmitMoveWaitChars( 3)
+         else
+            EmitMoveStartChars( 1)
+            EmitMoveWaitChars( 1)
+         end
       elseif EMT.AUXTYPE == 'U' then
          local nMoveType = EgtIf( EMT.CHY_ON, 3, 2)
          EmitMoveStartChars( nMoveType)
@@ -568,6 +575,7 @@ function OnMachiningEnd()
             EmitMoveWaitChars( nMoveType)
          else
             EmitMoveWaitChars( nMoveType, EMT.CHY_ON or TEST_USE)
+            EMT.LASTOPEISUNLOAD = true
          end
          -- emissione conclusione pezzo precedente (se non in modalità test)
          if not TEST_USE and EMT.PRODID then
@@ -889,11 +897,6 @@ function OnRapid()
             -- dichiaro che è un movimento standard
             bStdMachRapid = true
          else
-            
-            MyAdjustLinearAxes()
-            EmtAdjustRotaryAxes()
-            EmtResetPrev()
-
             if bStdMachRapid then
                bStdMachRapid = false
                bStdClimb = true
@@ -903,6 +906,11 @@ function OnRapid()
             if EMT.PLANEACTIVE  then
                EmitResetMachining( false)
             end
+
+            MyAdjustLinearAxes()
+            EmtAdjustRotaryAxes()
+            EmtResetPrev()
+
             EmtOutput( '( *** '..EMT.MCHNAME..'/'..EMT.TOOL..' *** )')
             -- eventuale movimento carrelli
             for i = 1, #EMT.AUXCMD do
@@ -981,10 +989,10 @@ function OnRapid()
       end
       MyAdjustLinearAxes()
       EmtAdjustRotaryAxes()
-      -- se ultimo rapido e motosega, si va in home
+      
       EmitMoveDataHead( nHSet, { X=EMT.L2, Z=EMT.L3, C=EMT.R1, B=EMT.R2})
       -- su ultimo rapido in uscita, comandi di attesa movimenti
-      if bLastRise or bStdRise then
+      if bLastRise or bUniqueRise or bStdRise then
          EmitMoveStartHead( nHSet)
          -- se lavorazione in doppio
          if nHSet == 1 and EMT.DOU_TYPE == 2 then
@@ -1149,14 +1157,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
@@ -2295,6 +2304,8 @@ function EmitResetMachining( bNextTool)
       EmtOutput( 'G157 EA1')
       -- piano non più attivo
       EMT.PLANEACTIVE = false
+      EMT.REFLOC = nil
+      EMT.IPLGL = false
    end
 end
 
@@ -2335,8 +2346,8 @@ function EmitParkRoller( dPosT, bSplitCut, bUsePrevDelta)
          end
          -- se anche solo una morsa è restata in posizione, le sposto comunque entrambe di 5mm per distanziare i pezzi separati
          if bYNoMove or bVNoMove then
-            MDChar.Y1 = MDChar.Y1 + 30
-            MDChar.Y2 = MDChar.Y2 - 30
+            MDChar.Y1 = MDChar.Y1 + 150
+            MDChar.Y2 = MDChar.Y2 - 150
          end
       elseif DiffY1 > 0.1 and DiffY2 < -0.1 then
          EmtSetLastError( 1201, 'Error Collision in ParkRoller')
@@ -2449,9 +2460,19 @@ function ToolPreSelectionSingleHead( nMchId)
    if bCarrMove then
       -- se è stato trovato utensile, emetto preselezione
       if sToolChangePos and sToolChange and sToolChangeHead then
-         local MyParkX1 = EgtIf( GetHeadTCSet( sToolChangeHead, sToolChangePos) == 'Head1_TC2', ParkFrnX1, ParkX1)
+         local MyParkX1, MyParkB1, MyParkC1
+         if GetHeadTCSet( sToolChangeHead, sToolChangePos) == 'Head1_TC2' then
+            MyParkX1 = ParkFrnX1
+            MyParkB1 = ParkFrnB1
+            MyParkC1 = ParkFrnC1
+         else
+            MyParkX1 = ParkX1
+            MyParkB1 = ParkB1
+            MyParkC1 = ParkC1
+         end
+
          EmtOutput( '( *** TOOL PRE-SEL *** )')
-         EmitMoveDataHead( 1, { X=-MyParkX1, Z=MaxZ1, B=ParkB1, C=ParkC1, TPos=AdjustTcPos( false, sToolChangePos)})
+         EmitMoveDataHead( 1, { X=-MyParkX1, Z=MaxZ1, B=MyParkB1, C=MyParkC1, TPos=AdjustTcPos( false, sToolChangePos)})
          -- comincio i movimenti di preselezione
          EmitMoveStartHead( 1)
          -- se preselezione e c'era montata motosega, si aspetta fine della preselezione prima di andare avanti

Common_ONE-PF.mlpe

@@ -1667,7 +1667,7 @@ function ExecParkRoller( PosY1, PosY2, PosV1, PosV2, bSpliCut, bAgg)
             dAddMove = 0
          -- se almeno una è rimasta ferma in posizione, allontano comunque di 30mm ulteriori
          else
-            dAddMove = 30
+            dAddMove = 150
          end
          local MoveY1 = max( DiffY1, 0.0)
          local MoveY2 = min( DiffY2, 0.0)

Essetre-ONE.mlde

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