In movimento dopo G145 si setta la speed dell'utensile

Common_ONE-PF.NUM.mlpe

@@ -1542,11 +1542,11 @@ function OnRapid()
          if AreSameVectorApprox( vtE, Y_AX()) then
             ProbePosX = -( EMT.TABORI1[2] + EMT.HB + dSecDistProbe + dLenProbe + MillOffs)
             ProbePosZ = EMT.TABORI1[3] - MillOffs + ( EMT.SB / 2) + EgtIf( EMT.R2 > 0, dOffHeadProbe, -dOffHeadProbe)
-            sFace = 2
+            sFace = EgtIf( BD.RIGHT_LOAD, 4, 2)
          elseif AreSameVectorApprox( vtE, -Y_AX()) then
             ProbePosX = -( EMT.TABORI1[2] - dSecDistProbe - dLenProbe - MillOffs)
             ProbePosZ = EMT.TABORI1[3] - MillOffs + ( EMT.SB / 2) + EgtIf( EMT.R2 > 0, dOffHeadProbe, -dOffHeadProbe)
-            sFace = 4
+            sFace = EgtIf( BD.RIGHT_LOAD, 2, 4)
          elseif AreSameVectorApprox( vtE, Z_AX()) then
             ProbePosX = -( EMT.TABORI1[2] + ( EMT.HB / 2) + dOffHeadProbe)
             ProbePosZ = EMT.TABORI1[3] + EMT.SB + dSecDistProbe + dLenProbe
@@ -1556,15 +1556,19 @@ function OnRapid()
          end
 
          EmitMoveDataHead( GetHeadSet( EMT.HEAD), { X=ProbePosX, Z=ProbePosZ, B=EMT.R2, C=EMT.R1})
+         EmitMoveStartHead( GetHeadSet( EMT.HEAD))
+         EmitMoveWaitHead( GetHeadSet( EMT.HEAD))
          local sProbeHead = ' ET' .. GetHeadSet( EMT.HEAD)
-         EmtOutput( 'G145 Z-10 EF'..sFace..sProbeHead)
+         EmtOutput( 'G145 Z-20 EF'..sFace..sProbeHead)
          -- ci si riporta in posizione fuori ingombro pezzo
          if AreSameVectorApprox( vtE, Y_AX()) or AreSameVectorApprox( vtE, -Y_AX()) then
             ProbePosZ = EMT.TABORI1[3] + EMT.SB
          elseif AreSameVectorApprox( vtE, Z_AX()) then
             ProbePosX = EMT.L2
          end
-         EmitMoveDataHead( GetHeadSet( EMT.HEAD), { X=ProbePosX, Z=ProbePosZ, B=EMT.R2, C=EMT.R1})
+         EmitMoveDataHead( GetHeadSet( EMT.HEAD), { X=ProbePosX, Z=ProbePosZ, B=EMT.R2, C=EMT.R1, S=Speed})
+         EmitMoveStartHead( GetHeadSet( EMT.HEAD))
+         EmitMoveWaitHead( GetHeadSet( EMT.HEAD))
       end
       -- se taglio di coda senza residuo da scaricare, emetto M175 per accelerare il carico della barra successiva
       if EMT.MCHUSERNOTES and EMT.MCHUSERNOTES:find( 'Cut', 1, true) then

Essetre-PFrl.mlde

@@ -44,10 +44,10 @@
 require( 'EmtGenerator')
 EgtEnableDebug( false)
 
-PP_VER = '2.7f1_DEV4'
+PP_VER = '2.7f1_DEV8'
 PP_NVER = '2.7.6.1'
 MIN_MACH_VER = '2.5k1'
-MACH_NAME = 'Essetre-PFrl'
+MACH_NAME = string.match( EgtGetCurrMachineDir(), "[^\\]+$")  -- si ricava il nome della macchina dal direttorio
 
 -- Carico i dati globali
 local sMachDir = EgtGetCurrMachineDir()