Split - spostate travi alla quota di parcheggio dei rulli in modo che l'area di lavoro sia sgombra dopo uno split.

Common_ONE-PF.NUM.mlpe

@@ -867,7 +867,7 @@ function OnRapid()
          -- 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
+         if not bChangeCarriageClamping and EMT.TOOL == EMT.PREVTOOL and EMT.PLANEACTIVE and ( abs( EMT.R1prec - EMT.R1) < GEO.EPS_SMALL and abs( EMT.R2prec - EMT.R2) < GEO.EPS_SMALL) then
             -- dichiaro finita lavorazione precedente
             local sOut = 'G157 EA1'
             EmtOutput( sOut)
@@ -905,7 +905,7 @@ function OnRapid()
             end
 
             -- si disattiva piano a meno che non sia lavorazione con stesso utensile e stesso orientamento assi
-            if EMT.PLANEACTIVE  then
+            if EMT.PLANEACTIVE then
                EmitResetMachining( false)
             end
 
@@ -2352,27 +2352,14 @@ function EmitParkRoller( dPosT, bSplitCut, bUsePrevDelta)
       local DiffY2 = MyParkY2 - dPosY2
       --EmtOutput( string.format( 'PosT=%.3f DiffY1=%.3f DiffY2=%.3f', dPosT, DiffY1, DiffY2))
       if bSplitCut then
-         local bYNoMove, bVNoMove
-         if DiffY1 > 0.1  then
-            bYNoMove = false
-            MDChar.Y1 = dPosY1 + DiffY1
-         else
-            bYNoMove = true
-            MDChar.Y1 = dPosY1
-         end
-         if DiffY2 < -0.1 then
-            bVNoMove = false
-            MDChar.Y2 = dPosY2 + DiffY2
-            dPosT = dPosT + DiffY2
-         else
-            bVNoMove = true
-            MDChar.Y2 = dPosY2
-         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 + 150
-            MDChar.Y2 = MDChar.Y2 - 150
-         end
+         local dAddMoveY1 = ParkV1 + ( -dPosT - EMT.LT)
+         local dAddMoveY2 = ParkV2 + ( -dPosT - EMT.LT)
+         local MoveY1 = max( DiffY1, dAddMoveY1, 30.0)
+         local MoveY2 = min( DiffY2, dAddMoveY2, -30.0)
+         MDChar.Y1 = dPosY1 + MoveY1
+         MDChar.Y2 = dPosY2 + MoveY2
+         dPosT = dPosT + MoveY2
+    
       elseif DiffY1 > 0.1 and DiffY2 < -0.1 then
          EmtSetLastError( 1201, 'Error Collision in ParkRoller')
       elseif DiffY1 > 0.1  then

Common_ONE-PF.mlpe

@@ -1661,19 +1661,10 @@ function ExecParkRoller( PosY1, PosY2, PosV1, PosV2, bSpliCut, bAgg)
       local DiffY2 = MyParkY2 - PosY2
       -- se appena eseguito taglio di separazione
       if bSpliCut then
-         local dAddMove
-         -- se entrambe le morse si spostano vado in posizione calcolata
-         if DiffY1 > 0.1 and DiffY2 < -0.1 then
-            dAddMove = 0
-         -- se almeno una è rimasta ferma in posizione, allontano comunque di 30mm ulteriori
-         else
-            dAddMove = 150
-         end
-         local MoveY1 = max( DiffY1, 0.0)
-         local MoveY2 = min( DiffY2, 0.0)
-
-         MoveY1 = MoveY1 + dAddMove
-         MoveY2 = MoveY2 - dAddMove
+         local dAddMoveY1 = ParkV1 + ( -PosT - EMT.LR)
+         local dAddMoveY2 = ParkV2 + ( -PosT - EMT.LR)
+         local MoveY1 = max( DiffY1, dAddMoveY1, 30.0)
+         local MoveY2 = min( DiffY2, dAddMoveY2, -30.0)
 
          -- aggancio i pezzi rimanenti all'asse Y1
          LinkRemainingPartsToY1()

Essetre-ONE.mlde

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