Se tasca con motosega in faccia sopra e pezzo alto, si ruota in sicurezza

Common_ONE-PF.NUM.mlpe

@@ -422,6 +422,14 @@ function OnToolSelect()
       if EMT.TDIST and abs( EMT.TDIST) < 0.1 then EMT.TDIST = nil end
       EMT.TUSERNOTES = EgtTdbGetCurrToolParam( MCH_TP.USERNOTES)
       EMT.ISPROBING = HeadIsProbe( EMT.HEAD)
+
+      -- gruppo della testa
+      local nHSet = GetHeadSet( EMT.HEAD)
+      if nHSet == 1 and EMT.PRESEL_H1 then
+         EMT.PRESEL_H1 = nil
+      elseif nHSet == 2 and EMT.PRESEL_H2 then
+         EMT.PRESEL_H2 = nil
+      end
    end
 end
 
@@ -597,7 +605,7 @@ function OnMachiningEnd()
                EmtOutput( sOut)
             end
          elseif not EMT.PREROT then
-            EmtOutput( '(M77)')
+            EmtOutput( 'M77')
          end
       end
    end
@@ -1038,13 +1046,20 @@ function OnRapid()
                EmitMoveWaitChars( EgtIf( bOnlyCharY, 1, 3))
 
                -- se motosega configurata per lavorazioni di fianco o circa orizzontale
-               if dPosA == 0  or  abs( EMT.R2) < 10 then
+               if abs( dPosA) < 0.1  or  abs( EMT.R2) < 10 then
                   EmitMoveDataHead( 1, { X=EMT.L2, Z=ParkCSawZ1, B=ParkCSawB1, C=EMT.R1, S=Speed})
                   EmitMoveDataHead( 1, { Z=EMT.L3, B=EMT.R2, S=Speed})
                -- se circa verticale
                else
-                  EmitMoveDataHead( 1, { X=EMT.L2, Z=ParkCSawZ1, B=ParkCSawB1, C=EMT.R1, S=Speed})
-                  EmitMoveDataHead( 1, { Z=EMT.L3, B=EMT.R2, S=Speed})
+                  -- se arrivo da ZMAX e il pezzo è abbastanza alto, si ruota fuori
+                  if EMT.ZMAX and EMT.SB > MaxVeOpen / 2 then
+                     EmitMoveDataHead( 1, { X=-LimX1RotSaw, Z=ParkCSawZ1, B=ParkCSawB1, C=90, S=Speed})
+                     EmitMoveDataHead( 1, { Z=EMT.L3, B=EMT.R2, S=Speed})
+                     EmitMoveDataHead( 1, { X=EMT.L2, C=EMT.R1, S=Speed})
+                  else
+                     EmitMoveDataHead( 1, { X=EMT.L2, Z=ParkCSawZ1, B=ParkCSawB1, C=EMT.R1, S=Speed})
+                     EmitMoveDataHead( 1, { Z=EMT.L3, B=EMT.R2, S=Speed})
+                  end
                end
             end
             EmitMoveDataHead( 1, { X=EMT.L2, Z=EMT.L3, B=EMT.R2, C=EMT.R1, TRad=dTRad, TLen=dTLen, S=Speed})
@@ -1127,15 +1142,21 @@ function OnRapid()
                   EmitMoveWaitChars( EgtIf( bOnlyCharY, 1, 3))
 
                   -- se motosega configurata per lavorazioni di fianco o circa orizzontale
-                  if dPosA == 0  or  abs( EMT.R2) < 10 then
+                  if abs( dPosA) < 0.1  or  abs( EMT.R2) < 10 then
                      EmitMoveDataHead( 1, { X=EMT.L2, Z=ParkCSawZ1, B=ParkCSawB1, C=EMT.R1, S=Speed})
                      EmitMoveDataHead( 1, { Z=EMT.L3, B=EMT.R2, S=Speed})
                   -- se circa verticale
                   else
-                     EmitMoveDataHead( 1, { X=EMT.L2, Z=ParkCSawZ1, B=ParkCSawB1, C=EMT.R1, S=Speed})
-                     EmitMoveDataHead( 1, { Z=EMT.L3, B=EMT.R2, S=Speed})
+                     -- se arrivo da ZMAX e il pezzo è abbastanza alto, si ruota fuori
+                     if EMT.ZMAX and EMT.SB > MaxVeOpen / 2 then
+                        EmitMoveDataHead( 1, { X=-LimX1RotSaw, Z=ParkCSawZ1, B=ParkCSawB1, C=90, S=Speed})
+                        EmitMoveDataHead( 1, { Z=EMT.L3, B=EMT.R2, S=Speed})
+                        EmitMoveDataHead( 1, { X=EMT.L2, C=EMT.R1, S=Speed})
+                     else
+                        EmitMoveDataHead( 1, { X=EMT.L2, Z=ParkCSawZ1, B=ParkCSawB1, C=EMT.R1, S=Speed})
+                        EmitMoveDataHead( 1, { Z=EMT.L3, B=EMT.R2, S=Speed})
+                     end
                   end
-
                end
                EmitMoveDataHead( 1, { X=EMT.L2, Z=EMT.L3, B=EMT.R2, C=EMT.R1, TRad=dTRad, TLen=dTLen, S=Speed})
                EmitMoveStartHead( 1)
@@ -1209,13 +1230,20 @@ function OnRapid()
                   EmitMoveWaitChars( EgtIf( bOnlyCharY, 1, 3))
 
                   -- se motosega configurata per lavorazioni di fianco o circa orizzontale. Dopo attesa movimento carrelli si devono scrivere tutti gli assi.
-                  if dPosA == 0  or  abs( EMT.R2) < 10 then
+                  if abs( dPosA) < 0.1  or  abs( EMT.R2) < 10 then
                      EmitMoveDataHead( 2, { X=EMT.L2, Z=ParkCSawZ2, B=ParkCSawB2, C=EMT.R1, S=Speed})
                      EmitMoveDataHead( 2, { Z=EMT.L3, B=EMT.R2, S=Speed})
                   -- se circa verticale
                   else
-                     EmitMoveDataHead( 2, { X=EMT.L2, Z=ParkCSawZ2, B=ParkCSawB2, C=EMT.R1, S=Speed})
-                     EmitMoveDataHead( 2, { Z=EMT.L3, B=EMT.R2, S=Speed})
+                     -- se arrivo da ZMAX e il pezzo è abbastanza alto, si ruota fuori
+                     if EMT.ZMAX and EMT.SB > MaxVeOpen / 2 then
+                        EmitMoveDataHead( 2, { X=-LimX2RotSaw, Z=ParkCSawZ2, B=ParkCSawB2, C=90, S=Speed})
+                        EmitMoveDataHead( 2, { Z=EMT.L3, B=EMT.R2, S=Speed})
+                        EmitMoveDataHead( 2, { X=EMT.L2, C=EMT.R1, S=Speed})
+                     else
+                        EmitMoveDataHead( 2, { X=EMT.L2, Z=ParkCSawZ2, B=ParkCSawB2, C=EMT.R1, S=Speed})
+                        EmitMoveDataHead( 2, { Z=EMT.L3, B=EMT.R2, S=Speed})
+                     end
                   end
                end
                EmitMoveDataHead( 2, { X=EMT.L2, Z=EMT.L3, B=EMT.R2, C=EMT.R1, TRad=dTRad, TLen=dTLen, S=Speed})
@@ -1387,7 +1415,7 @@ function OnRapid()
                      bMoveZbeforeX = true
                   end
 
-               -- se vado in posizione speciale rotazione assi, poi devo ritornare alla X vera di lavoro
+                  -- se vado in posizione speciale rotazione assi, poi devo ritornare alla X vera di lavoro
                   local dMoveXtoFinalPosition = false
                   local dXref = EMT.L2
                   if  EMT.HEAD == 'H12'  and  EMT.L2 < -LimX1PlRotSaw  then
@@ -1432,13 +1460,20 @@ function OnRapid()
                else
                   EmitMoveDataHead( 1, { X=-ParkCSawX1, Z=ParkCSawZ1, B=ParkCSawB1, C=ParkCSawC1, TRad=dTRad, TLen=dTLen, S=Speed})
                   -- se motosega configurata per lavorazioni di fianco o circa orizzontale
-                  if dPosA == 0  or  abs( EMT.R2) < 10 then
+                  if abs( dPosA) < 0.1  or  abs( EMT.R2) < 10 then
                      EmitMoveDataHead( 1, { X=EMT.L2, C=EMT.R1, S=Speed})
                      EmitMoveDataHead( 1, { Z=EMT.L3, B=EMT.R2, S=Speed})
                   -- se circa verticale
                   else
-                     EmitMoveDataHead( 1, { X=EMT.L2, C=EMT.R1, S=Speed})
-                     EmitMoveDataHead( 1, { Z=EMT.L3, B=EMT.R2, S=Speed})
+                     -- se arrivo da ZMAX e il pezzo è abbastanza alto, si ruota fuori
+                     if EMT.ZMAX and EMT.SB > MaxVeOpen / 2 then
+                        EmitMoveDataHead( 1, { X=-LimX1RotSaw, Z=ParkCSawZ1, B=ParkCSawB1, C=90, S=Speed})
+                        EmitMoveDataHead( 1, { Z=EMT.L3, B=EMT.R2, S=Speed})
+                        EmitMoveDataHead( 1, { X=EMT.L2, C=EMT.R1, S=Speed})
+                     else
+                        EmitMoveDataHead( 1, { X=EMT.L2, Z=ParkCSawZ1, B=ParkCSawB1, C=EMT.R1, S=Speed})
+                        EmitMoveDataHead( 1, { Z=EMT.L3, B=EMT.R2, S=Speed})
+                     end
                   end
                end
             end
@@ -1526,13 +1561,20 @@ function OnRapid()
                   else
                      EmitMoveDataHead( 1, { X=-ParkCSawX1, Z=ParkCSawZ1, B=ParkCSawB1, C=ParkCSawC1, TRad=dTRad, TLen=dTLen, S=Speed})
                      -- se motosega configurata per lavorazioni di fianco o circa orizzontale
-                     if dPosA == 0  or  abs( EMT.R2) < 10 then
+                     if abs( dPosA) < 0.1  or  abs( EMT.R2) < 10 then
                         EmitMoveDataHead( 1, { X=EMT.L2, C=EMT.R1, S=Speed})
                         EmitMoveDataHead( 1, { Z=EMT.L3, B=EMT.R2, S=Speed})
                      -- se circa verticale
                      else
-                        EmitMoveDataHead( 1, { X=EMT.L2, C=EMT.R1, S=Speed})
-                        EmitMoveDataHead( 1, { Z=EMT.L3, B=EMT.R2, S=Speed})
+                        -- se arrivo da ZMAX e il pezzo è abbastanza alto, si ruota fuori
+                        if EMT.ZMAX and EMT.SB > MaxVeOpen / 2 then
+                           EmitMoveDataHead( 1, { X=-LimX1RotSaw, Z=ParkCSawZ1, B=ParkCSawB1, C=90, S=Speed})
+                           EmitMoveDataHead( 1, { Z=EMT.L3, B=EMT.R2, S=Speed})
+                           EmitMoveDataHead( 1, { X=EMT.L2, C=EMT.R1, S=Speed})
+                        else
+                           EmitMoveDataHead( 1, { X=EMT.L2, Z=ParkCSawZ1, B=ParkCSawB1, C=EMT.R1, S=Speed})
+                           EmitMoveDataHead( 1, { Z=EMT.L3, B=EMT.R2, S=Speed})
+                        end
                      end
                   end
                end
@@ -1603,13 +1645,20 @@ function OnRapid()
                   else
                      EmitMoveDataHead( 2, { X=-ParkCSawX2, Z=ParkCSawZ2, B=ParkCSawB2, C=ParkCSawC2, TRad=dTRad, TLen=dTLen, S=Speed})
                      -- se motosega configurata per lavorazioni di fianco o circa orizzontale
-                     if dPosA == 0  or  abs( EMT.R2) < 10 then
+                     if abs( dPosA) < 0.1  or  abs( EMT.R2) < 10 then
                         EmitMoveDataHead( 2, { X=EMT.L2, C=EMT.R1, S=Speed})
                         EmitMoveDataHead( 2, { Z=EMT.L3, B=EMT.R2, S=Speed})
                      -- se circa verticale
                      else
-                        EmitMoveDataHead( 2, { X=EMT.L2, C=EMT.R1, S=Speed})
-                        EmitMoveDataHead( 2, { Z=EMT.L3, B=EMT.R2, S=Speed})
+                        -- se arrivo da ZMAX e il pezzo è abbastanza alto, si ruota fuori
+                        if EMT.ZMAX and EMT.SB > MaxVeOpen / 2 then
+                           EmitMoveDataHead( 2, { X=-LimX2RotSaw, Z=ParkCSawZ2, B=ParkCSawB2, C=90, S=Speed})
+                           EmitMoveDataHead( 2, { Z=EMT.L3, B=EMT.R2, S=Speed})
+                           EmitMoveDataHead( 2, { X=EMT.L2, C=EMT.R1, S=Speed})
+                        else
+                           EmitMoveDataHead( 2, { X=EMT.L2, Z=ParkCSawZ2, B=ParkCSawB2, C=EMT.R1, S=Speed})
+                           EmitMoveDataHead( 2, { Z=EMT.L3, B=EMT.R2, S=Speed})
+                        end
                      end
                   end
                end
@@ -2992,6 +3041,11 @@ function EmitZmax( bReset, bEnd, bXhome, PrevR1, PrevR2, bSplitCut, bUsePrevDelt
             -- ribadisco movimento perchè in G141 si aspetta sempre tutti i valori
             local MovH = { X = -dXPos, Z = EMT.L3o, B = PrevR2, C = PrevR1}
             EmitMoveDataHead( 1, MovH)
+            -- se configurazione per lavorare dall'alto e il pezzo è abbastanza alto, si ruota fuori
+            if EMT.SB > MaxVeOpen / 2 and abs( EMT.R3) > 0.1 and abs( EMT.R2) > 70 then
+               EmitMoveDataHead( 1, { X=-LimX1RotSaw, C=90})
+            end
+
             EmitMoveDataHead( 1, { Z=dSafeZ1, B=dSafeB1})
             if EMT.R3 and abs( EMT.R3) < 0.1 then
                EmitMoveDataHead( 1, { Z=ParkCSawZ1})
@@ -3053,6 +3107,11 @@ function EmitZmax( bReset, bEnd, bXhome, PrevR1, PrevR2, bSplitCut, bUsePrevDelt
                   end
                end
             end
+            -- se configurazione per lavorare dall'alto e il pezzo è abbastanza alto, si ruota fuori
+            if EMT.SB > MaxVeOpen / 2 and abs( EMT.R3) > 0.1 and abs( EMT.R2) > 70 then
+               EmitMoveDataHead( 1, { X=-LimX1RotSaw, C=90})
+            end
+
             EmitMoveDataHead( 1, { Z=dSafeZ1, B=dSafeB1})
             if EMT.R3 and abs( EMT.R3) < 0.1 then
                EmitMoveDataHead( 1, { Z=ParkCSawZ1})
@@ -3112,22 +3171,27 @@ function EmitZmax( bReset, bEnd, bXhome, PrevR1, PrevR2, bSplitCut, bUsePrevDelt
          EmitMoveDataHead( 2, MovH)
          -- controlla che l'ingombro della sega a catena non possa collidere durante il suo riposizionamento
          local dChSawEncumbrance = sqrt( pow( EMT.TTOTLEN, 2) + pow( ChSawLen + Mill2Offs, 2))
-            if EMT.ADIR and EMT.TDIR then
-               -- direzione versore sega a catena X- (copre anche eventuali inclinazioni in Y)
-               if EMT.TDIR[1] <= 0 then
-                  -- ingombro massimo di quota Z (senza pivot) + ingombro massimo sega + altezza pezzo + altezza sicurezza
-                  local dEncumbranceTot = EMT.L3o + Mill2Offs - dChSawEncumbrance - EMT.SB - 30
-                  -- nuova quota Z intermedia
-                  local dZUp = EMT.L3o + ( DeltaTabZ - dEncumbranceTot)
-                  -- se la nuova quota è minore della quota di parcheggio
-                  if dZUp <= ParkCSawZ2 then
-                     -- se B è oltre il punto di massimo ingombro (con l'inclinazione attuale non ha il massimo ingombro)
-                     if asin( EMT.TDIR[3] / 1) > asin( EgtTdbGetCurrToolParam( MCH_TP.TOTLEN) / dChSawEncumbrance) and ( dEncumbranceTot < DeltaTabZ) then
-                        EmitMoveDataHead( 2, { Z=dZUp})
-                     end
+         if EMT.ADIR and EMT.TDIR then
+            -- direzione versore sega a catena X- (copre anche eventuali inclinazioni in Y)
+            if EMT.TDIR[1] <= 0 then
+               -- ingombro massimo di quota Z (senza pivot) + ingombro massimo sega + altezza pezzo + altezza sicurezza
+               local dEncumbranceTot = EMT.L3o + Mill2Offs - dChSawEncumbrance - EMT.SB - 30
+               -- nuova quota Z intermedia
+               local dZUp = EMT.L3o + ( DeltaTabZ - dEncumbranceTot)
+               -- se la nuova quota è minore della quota di parcheggio
+               if dZUp <= ParkCSawZ2 then
+                  -- se B è oltre il punto di massimo ingombro (con l'inclinazione attuale non ha il massimo ingombro)
+                  if asin( EMT.TDIR[3] / 1) > asin( EgtTdbGetCurrToolParam( MCH_TP.TOTLEN) / dChSawEncumbrance) and ( dEncumbranceTot < DeltaTabZ) then
+                     EmitMoveDataHead( 2, { Z=dZUp})
                   end
                end
             end
+         end
+         -- se configurazione per lavorare dall'alto e il pezzo è abbastanza alto, si ruota fuori
+         if EMT.SB > MaxVeOpen / 2 and abs( EMT.R3) > 0.1 and abs( EMT.R2) > 70 then
+            EmitMoveDataHead( 2, { X=-LimX2RotSaw, C=90})
+         end
+
          EmitMoveDataHead( 2, { Z=dSafeZ2, B=dSafeB2})
          if EMT.R3 and abs( EMT.R3) < 0.1 then
             EmitMoveDataHead( 2, { Z=ParkCSawZ2})
@@ -3382,12 +3446,14 @@ function PreselectNextDiffHead( nMchId, sHead)
    local nHSet = GetHeadSet( sHead)
 
    local bVerifyPresel = true
-   -- se lavorazione con testa 1 e sotto al limite massimo di preselezione della testa 2, allora non si fa preselezione
-   if nHSet == 1 and Limit_T1_Presel_T2 and EMT.MAXMIN[2] < Limit_T1_Presel_T2 then
-      bVerifyPresel = false
-   -- se lavorazione con testa 1 e sopra al limite minimo di preselezione della testa 1, allora non si fa preselezione
-   elseif nHSet == 2 and Limit_T2_Presel_T1 and EMT.MAXMIN[2] > Limit_T2_Presel_T1 then
-      bVerifyPresel = false
+   if not EMT.LOAD then
+      -- se lavorazione con testa 1 e sotto al limite massimo di preselezione della testa 2, allora non si fa preselezione
+      if nHSet == 1 and Limit_T1_Presel_T2 and EMT.MAXMIN[2] < Limit_T1_Presel_T2 then
+         bVerifyPresel = false
+      -- se lavorazione con testa 1 e sopra al limite minimo di preselezione della testa 1, allora non si fa preselezione
+      elseif nHSet == 2 and Limit_T2_Presel_T1 and EMT.MAXMIN[2] > Limit_T2_Presel_T1 then
+         bVerifyPresel = false
+      end
    end
 
    -- flag preselezione eseguita
@@ -3456,20 +3522,36 @@ function PreselectNextDiffHead( nMchId, sHead)
    end
    -- se non eseguita preselezione
    if not bPresel then
-      -- mi assicuro che l'altra testa sia in parcheggio
-      if nHSet == 1 then
-         -- non può essere la sega a catena
-         if EMT.PREVHEAD_H2 ~= 'H23' then
-            EmitMoveDataHead( 2, { X=-ParkX2, Z=MaxZ2, B=ParkB2, C=ParkC2, TPos=AdjustTcPos( false, EMT.PREVTCPOS_H2)})
-            EmitMoveStartHead( 2)
-         end
+      -- se era stato preselezionato un utensile e adesso non posso preselezionare, attendo la testa
+      if EMT.PRESEL_H2 then
+         EmitMoveWaitHead( 2)
+         EMT.PRESEL_H2 = nil
+      elseif EMT.PRESEL_H1 then
+         EmitMoveWaitHead( 1)
+         EMT.PRESEL_H1 = nil
+      -- se non era stato preselezionato nulla
       else
-         -- non può essere la sega a catena
-         if EMT.PREVHEAD_H1 ~= 'H13' and EMT.PREVHEAD_H1 ~= 'H15' then
-            EmitMoveDataHead( 1, { X=-ParkX1, Z=MaxZ1, B=ParkB1, C=ParkC1, TPos=AdjustTcPos( false, EMT.PREVTCPOS_H1)})
-            EmitMoveStartHead( 1)
+         -- mi assicuro che l'altra testa sia in parcheggio
+         if nHSet == 1 then
+            -- non può essere la sega a catena
+            if EMT.PREVHEAD_H2 ~= 'H23' then
+               EmitMoveDataHead( 2, { X=-ParkX2, Z=MaxZ2, B=ParkB2, C=ParkC2, TPos=AdjustTcPos( false, EMT.PREVTCPOS_H2)})
+               EmitMoveStartHead( 2)
+            end
+         else
+            -- non può essere la sega a catena
+            if EMT.PREVHEAD_H1 ~= 'H13' and EMT.PREVHEAD_H1 ~= 'H15' then
+               EmitMoveDataHead( 1, { X=-ParkX1, Z=MaxZ1, B=ParkB1, C=ParkC1, TPos=AdjustTcPos( false, EMT.PREVTCPOS_H1)})
+               EmitMoveStartHead( 1)
+            end
          end
       end
+   else
+      if nHSet == 1 then
+         EMT.PRESEL_H2 = true
+      elseif nHSet == 1 then
+         EMT.PRESEL_H2 = true
+      end
    end
 end
 

Common_ONE-PF.mlpe

@@ -1217,13 +1217,20 @@ function OnSimulMoveStart()
                EMT.CHSAW_OUT = nil
             end
             -- se motosega configurata per lavorazioni di fianco o circa orizzontale
-            if dPosA == 0  or  abs( EMT.R2) < 10 then
+            if abs( dPosA) < 0.1  or abs( EMT.R2) < 10 then
                SimulMoveAxes( 'X1', EMT.L2, MCH_SIM_STEP.RAPID, 'C1', EMT.R1, MCH_SIM_STEP.COLLROT)
                SimulMoveAxes( 'Z1', EMT.L3, MCH_SIM_STEP.RAPID, 'B1', EMT.R2, MCH_SIM_STEP.COLLROT)
             -- se circa verticale
             else
-               SimulMoveAxes( 'X1', EMT.L2, MCH_SIM_STEP.RAPID, 'C1', EMT.R1, MCH_SIM_STEP.COLLROT)
-               SimulMoveAxes( 'Z1', EMT.L3, MCH_SIM_STEP.RAPID, 'B1', EMT.R2, MCH_SIM_STEP.COLLROT)
+               -- se arrivo da ZMAX e il pezzo è abbastanza alto, si ruota fuori
+               if EMT.ZMAX and EMT.SB > MaxVeOpen / 2 then
+                  SimulMoveAxes( 'X1', LimX1RotSaw, MCH_SIM_STEP.RAPID, 'C1', 90, MCH_SIM_STEP.COLLROT)
+                  SimulMoveAxes( 'Z1', EMT.L3, MCH_SIM_STEP.RAPID, 'B1', EMT.R2, MCH_SIM_STEP.COLLROT)
+                  SimulMoveAxes( 'X1', EMT.L2, MCH_SIM_STEP.RAPID, 'C1', EMT.R1, MCH_SIM_STEP.COLLROT)
+               else
+                  SimulMoveAxes( 'X1', EMT.L2, MCH_SIM_STEP.RAPID, 'C1', EMT.R1, MCH_SIM_STEP.COLLROT)
+                  SimulMoveAxes( 'Z1', EMT.L3, MCH_SIM_STEP.RAPID, 'B1', EMT.R2, MCH_SIM_STEP.COLLROT)
+               end
             end
          end
       -- altrimenti testa 2
@@ -1291,13 +1298,20 @@ function OnSimulMoveStart()
                   EMT.CHSAW_OUT = nil
                end
                -- se motosega configurata per lavorazioni di fianco o circa orizzontale
-               if dPosA == 0  or  abs( EMT.R2) < 10 then
+               if abs( dPosA) < 0.1  or  abs( EMT.R2) < 10 then
                   SimulMoveAxes( 'X1', EMT.L2, MCH_SIM_STEP.RAPID, 'C1', EMT.R1, MCH_SIM_STEP.COLLROT)
                   SimulMoveAxes( 'Z1', EMT.L3, MCH_SIM_STEP.RAPID, 'B1', EMT.R2, MCH_SIM_STEP.COLLROT)
                -- se circa verticale
                else
-                  SimulMoveAxes( 'X1', EMT.L2, MCH_SIM_STEP.RAPID, 'C1', EMT.R1, MCH_SIM_STEP.COLLROT)
-                  SimulMoveAxes( 'Z1', EMT.L3, MCH_SIM_STEP.RAPID, 'B1', EMT.R2, MCH_SIM_STEP.COLLROT)
+                  -- se arrivo da ZMAX e il pezzo è abbastanza alto, si ruota fuori
+                  if EMT.ZMAX and EMT.SB > MaxVeOpen / 2 then
+                     SimulMoveAxes( 'X1', LimX1RotSaw, MCH_SIM_STEP.RAPID, 'C1', 90, MCH_SIM_STEP.COLLROT)
+                     SimulMoveAxes( 'Z1', EMT.L3, MCH_SIM_STEP.RAPID, 'B1', EMT.R2, MCH_SIM_STEP.COLLROT)
+                     SimulMoveAxes( 'X1', EMT.L2, MCH_SIM_STEP.RAPID, 'C1', EMT.R1, MCH_SIM_STEP.COLLROT)
+                  else
+                     SimulMoveAxes( 'X1', EMT.L2, MCH_SIM_STEP.RAPID, 'C1', EMT.R1, MCH_SIM_STEP.COLLROT)
+                     SimulMoveAxes( 'Z1', EMT.L3, MCH_SIM_STEP.RAPID, 'B1', EMT.R2, MCH_SIM_STEP.COLLROT)
+                  end
                end
             end
          else
@@ -1375,13 +1389,20 @@ function OnSimulMoveStart()
                   EMT.CHSAW_OUT = nil
                end
                -- se motosega configurata per lavorazioni di fianco o circa orizzontale
-               if dPosA == 0  or  abs( EMT.R2) < 10 then
+               if abs( dPosA) < 0.1  or  abs( EMT.R2) < 10 then
                   SimulMoveAxes( 'X2', EMT.L2, MCH_SIM_STEP.RAPID, 'C2', EMT.R1, MCH_SIM_STEP.COLLROT)
                   SimulMoveAxes( 'Z2', EMT.L3, MCH_SIM_STEP.RAPID, 'B2', EMT.R2, MCH_SIM_STEP.COLLROT)
                -- se circa verticale
                else
-                  SimulMoveAxes( 'X2', EMT.L2, MCH_SIM_STEP.RAPID, 'C2', EMT.R1, MCH_SIM_STEP.COLLROT)
-                  SimulMoveAxes( 'Z2', EMT.L3, MCH_SIM_STEP.RAPID, 'B2', EMT.R2, MCH_SIM_STEP.COLLROT)
+                  -- se arrivo da ZMAX e il pezzo è abbastanza alto, si ruota fuori
+                  if EMT.ZMAX and EMT.SB > MaxVeOpen / 2 then
+                     SimulMoveAxes( 'X2', LimX1RotSaw, MCH_SIM_STEP.RAPID, 'C2', 90, MCH_SIM_STEP.COLLROT)
+                     SimulMoveAxes( 'Z2', EMT.L3, MCH_SIM_STEP.RAPID, 'B2', EMT.R2, MCH_SIM_STEP.COLLROT)
+                     SimulMoveAxes( 'X2', EMT.L2, MCH_SIM_STEP.RAPID, 'C2', EMT.R1, MCH_SIM_STEP.COLLROT)
+                  else
+                     SimulMoveAxes( 'X2', EMT.L2, MCH_SIM_STEP.RAPID, 'C2', EMT.R1, MCH_SIM_STEP.COLLROT)
+                     SimulMoveAxes( 'Z2', EMT.L3, MCH_SIM_STEP.RAPID, 'B2', EMT.R2, MCH_SIM_STEP.COLLROT)
+                  end
                end
             end
          end
@@ -1872,6 +1893,11 @@ function ExecMoveZmax( bMchSplit, btoXHome)
             end
          -- altrimenti sega a catena
          else
+            -- se configurazione per lavorare dall'alto e il pezzo è abbastanza alto, si ruota fuori
+            if EMT.SB > MaxVeOpen / 2 and abs( EMT.R3) > 0.1 and abs( EMT.R2) > 70 then
+               SimulMoveAxes( 'X1', LimX1RotSaw, MCH_SIM_STEP.RAPID, 'C1', 90, MCH_SIM_STEP.COLLROT)
+            end
+            
             SimulMoveAxes( 'Z1', HomeZ, MCH_SIM_STEP.RAPID, 'B1', HomeB, MCH_SIM_STEP.COLLROT)
             if EMT.R3 and abs( EMT.R3) < 0.1 then
                SimulMoveAxis( 'Z1', ParkCSawZ1, MCH_SIM_STEP.RAPID)
@@ -1913,6 +1939,10 @@ function ExecMoveZmax( bMchSplit, btoXHome)
                   end
                end
             end
+            -- se configurazione per lavorare dall'alto e il pezzo è abbastanza alto, si ruota fuori
+            if EMT.SB > MaxVeOpen / 2 and abs( EMT.R3) > 0.1 and abs( EMT.R2) > 70 then
+                  SimulMoveAxes( 'X1', LimX1RotSaw, MCH_SIM_STEP.RAPID, 'C1', 90, MCH_SIM_STEP.COLLROT)
+            end
             SimulMoveAxes( 'Z1', HomeZ, MCH_SIM_STEP.RAPID, 'B1', HomeB, MCH_SIM_STEP.COLLROT)
             if EMT.R3 and abs( EMT.R3) < 0.1 then
                SimulMoveAxis( 'Z1', ParkCSawZ1, MCH_SIM_STEP.RAPID)
@@ -1967,6 +1997,10 @@ function ExecMoveZmax( bMchSplit, btoXHome)
                end
             end
          end
+         -- se configurazione per lavorare dall'alto e il pezzo è abbastanza alto, si ruota fuori
+         if EMT.SB > MaxVeOpen / 2 and abs( EMT.R3) > 0.1 and abs( EMT.R2) > 70 then
+               SimulMoveAxes( 'X2', LimX2RotSaw, MCH_SIM_STEP.RAPID, 'C2', 90, MCH_SIM_STEP.COLLROT)
+         end
          SimulMoveAxes( 'Z2', HomeZ, MCH_SIM_STEP.RAPID, 'B2', HomeB, MCH_SIM_STEP.COLLROT)
          if EMT.R3 and abs( EMT.R3) < 0.1 then
             SimulMoveAxis( 'Z2', ParkCSawZ2, MCH_SIM_STEP.RAPID)

UpdateLog.txt

@@ -1,5 +1,14 @@
            ==== Common_ONE-PF Update Log ====
 
+Versione 3.1f5 (26/06/2026)
+- (SIM-GEN) Se tasca con motosega in faccia sopra e pezzo alto, si ruota in sicurezza.
+
+Versione 3.1f4 (17/06/2026)
+- (MLDE-GEN) Corretta preselezione in caso di testa in lavoro troppo vicina a quella che sta preselezionando. Da aggiungere in MLDE parametri 'Limit_T1_Presel_T2' e 'Limit_T2_Presel_T1'
+
+Versione 3.1f3 (08/06/2026)
+- (GEN) M77 viene ora eseguita, prima era commentata.
+
 Versione 3.1f2 (05/06/2026)
 - (MLDE-GEN) Aggiunti parametri di limite asse X per decidere se fare preselezione su altra testa. Serve modifica MLDE
 

Version.lua

@@ -3,7 +3,7 @@
 
 local InfoCommon_STD_PP = {
    NAME = 'Common_ONE-PF',            -- nome script PP standard
-   VERSION = '3.1f2',                 -- versione script
+   VERSION = '3.1f5',                 -- versione script
    MIN_MACH_VER_PP_COMMON = '3.1b2'   -- versione minima kernel
 }