Merge branch 'develop'

- Corretto errore in definizione testa H22
- In BeamData migliorata funzione GetBlockedAxis

Beam/BeamData.lua

@@ -178,25 +178,40 @@ end
 BeamData.GetMinUnloadableRaw = GetMinUnloadableRaw
 
 ---------------------------------------------------------------------
-local function GetChainSawBlockedAxis( nInd)
-   if nInd == 1 then
-      return 'A1=90'
+local function GetBlockedAxis( sHead, nToolType, sBlockedAxis)
+   -- lama
+   if nToolType == MCH_TY.SAW_STD or nToolType == MCH_TY.SAW_FLAT then
+      if sHead == 'H22' then
+         if sBlockedAxis == 'parallel' then
+            return 'A2=0'
+         elseif sBlockedAxis == 'perpendicular' then
+            return 'A2=90'
+         end
+      else
+         return ''
+      end
+   -- sega a catena
+   elseif nToolType == MCH_TY.MORTISE_STD then
+      if sHead == 'H13' then
+         if sBlockedAxis == 'parallel' then
+            return 'A1=0'
+         elseif sBlockedAxis == 'perpendicular' then
+            return 'A1=90'
+         end
+      else
+         return ''
+      end
+   -- fresa
+   elseif nToolType == MCH_TY.MILL_STD or nToolType == MCH_TY.MILL_NOTIP then
+      return ''
+   -- punta
+   elseif nToolType == MCH_TY.DRILL_STD or nToolType == MCH_TY.DRILL_LONG then
+      return ''
    else
-      return 'A1=0'
+      return ''
    end
 end
-BeamData.GetChainSawBlockedAxis = GetChainSawBlockedAxis
-
----------------------------------------------------------------------
-local function GetSawBlockedAxis( nInd, bDownHead)
-   if nInd == 1 then
-      return EgtIf( bDownHead, 'A2=90', '')
-   else
-      return EgtIf( bDownHead, 'A2=0', '')
-   end
-end
-BeamData.GetSawBlockedAxis = GetSawBlockedAxis
-
+BeamData.GetBlockedAxis = GetBlockedAxis
 ---------------------------------------------------------------------
 
 return BeamData

Common-PF1250.TPA.mlpe

@@ -1,4 +1,4 @@
--- Processore macchina Essetre-PF1250 by EgalTech s.r.l.   2023/11/21
+-- Processore macchina Essetre-PF1250 by Egalware s.r.l.   2024/01/22
 -- Con controllo numerico TPA
 
 -- Variabili di modulo
@@ -29,7 +29,6 @@ function OnStart()
    --EMT.St = 'S'           -- token per speed
    EMT.FMAXPINZE = 116000 -- feed massima pinze
    SetToParkLine()        -- si inizia con linee da parcheggiare su stack
-
 end
 
 ---------------------------------------------------------------------
@@ -536,9 +535,11 @@ function OnPathStart()
    --MyOutput( 'CNT='.. tostring( EMT.CNT or 0))
    -- se utensile non cambiato, salvo eventuali precedenti rotanti
    if EMT.TOOL == EMT.PREVTOOL and not EMT.ZMAX then
+      EMT.L3pp = EMT.L3op
       EMT.R1pp = EMT.R1p
       EMT.R2pp = EMT.R2p
    else
+      EMT.L3pp = nil
       EMT.R1pp = nil
       EMT.R2pp = nil
    end
@@ -816,10 +817,6 @@ function OnRapid()
             -- aspetto esecuzione movimento testa 3
             EmitMoveWaitHead( 3)
          end
-         -- se pezzo a destra, dichiaro cabina sinistra da parcheggiare
-         if not EMT.Y1DELTA then
-            EMT.V1NEXTPOS = ParkV1
-         end
          -- dati aggancio a trave
          local BhData = { T=EMT.L1, SetHead=0}
          if EMT.Y1DELTA then
@@ -899,10 +896,6 @@ function OnRapid()
             EmitMoveWaitChars( nMoveType)
          end
          EMT.MDCHAR = {}
-         -- se pezzo a destra, dichiaro cabina sinistra da parcheggiare
-         if not EMT.Y1DELTA then
-            EMT.V1NEXTPOS = ParkV1
-         end
          -- se necessario allargo le cabine
          if RollerParkingNeeded( EMT.HEAD, PrevR1, PrevR2, EMT.R1, EMT.R2) or
             EMT.V1POS < EMT.V1NEXTPOS - 1 or EMT.V2POS > EMT.V2NEXTPOS + 1 then
@@ -948,7 +941,7 @@ function OnRapid()
                      if not WriteAllCoordsOnFirstM101 then
                         EmitMoveDataHead( 1, { X=EgtIf( bXSpec, -DeltaTabY, EMT.L2), S=Speed})
                      end
-                     EmitMoveDataHead( 1, { B=0, S=Speed})
+                     EmitMoveDataHead( 1, { Z=MyMaxZ1, B=0, S=Speed})
                      EmitMoveDataHead( 1, { C=EMT.R1, S=Speed})
                      EmitMoveDataHead( 1, { X=EMT.L2, S=Speed})
                      EmitMoveDataHead( 1, { Z=EMT.L3, B=EMT.R2, S=Speed})
@@ -1183,7 +1176,12 @@ function OnRapid()
       local sAxes = EmtGetAxis('L1')..EmtGetAxis('L2')..EmtGetAxis('L3')..
                     EmtGetAxis('R2')..EmtGetAxis('R1')
       if #sAxes > 0 then
-         MyOutput( 'G0' .. sAxes)
+         if EmitRapidInG1 then
+            local sFeed = ' F30000'
+            MyOutput( 'G1' .. sAxes .. sFeed)
+         else
+            MyOutput( 'G0' .. sAxes)
+         end
       end
    -- se altrimenti risalita a Z max a fine lavorazione
    elseif EMT.FLAG == 3 then
@@ -1241,8 +1239,15 @@ function OnLinear()
       -- emissione movimento
       EMT.R1p = nil
       EMT.R2p = nil
-      sOut = 'G0'..EmtGetAxis('L1')..EmtGetAxis('L2')..EmtGetAxis('L3')..
-                   EmtGetAxis('R2')..EmtGetAxis('R1')
+      if EmitRapidInG1 then
+         local sFeed = ' F30000'
+         sOut = 'G1'..EmtGetAxis('L1')..EmtGetAxis('L2')..EmtGetAxis('L3')..
+                      EmtGetAxis('R2')..EmtGetAxis('R1')..sFeed
+      else
+         sOut = 'G0'..EmtGetAxis('L1')..EmtGetAxis('L2')..EmtGetAxis('L3')..
+                      EmtGetAxis('R2')..EmtGetAxis('R1')
+      end
+
       MyOutput( sOut)
       -- aggiorno precedenti
       EMT.MOVE = 0
@@ -1927,7 +1932,7 @@ end
 function GetV1ToCloseTPA()
    local dMaxHeadPos = EMT.MAXMAX[1] + ( EMT.HOVM or 0) - ( EMT.X_OFF or 0)
    local dMinTailPos = EMT.MAXMIN[1] + EMT.LB + EgtIf( IsStartOrMidPhase( EMT.PHASE), 0, ( EMT.HOVM or 0)) - ( EMT.X_OFF or 0)
-   --MyOutput( string.format( 'V1 MaxHeadPos=%.3f MinTailPos=%.3f BarLen=%.3f HeadOvm=%.3f', dMaxHeadPos, dMinTailPos, EMT.LB, ( EMT.HOVM or 0)))
+   --MyOutput( string.format( 'V1 MaxHeadPos=%.3f MinTailPos=%.3f BarLen=%.3f HeadOvm=%.3f V1NextPos=%.3f', dMaxHeadPos, dMinTailPos, EMT.LB, ( EMT.HOVM or 0), EMT.V1NEXTPOS))
    return ( dMaxHeadPos <= EMT.V1NEXTPOS + RollCageMin and dMinTailPos >= EMT.V1NEXTPOS + RollCageMax)
 end
 
@@ -2387,27 +2392,94 @@ end
 
 ---------------------------------------------------------------------
 function PreselectNextDiffHead( nMchId, sHead)
-   -- se in uso testa 1, verifico di non scendere troppo in Z per evitare collisioni (per testa 3 non serve il controllo)
-   local nHSet = GetHeadSet( sHead)
-   if nHSet == 1 then
-      if EMT.MAXMIN[3] < MinZ1ToChangeH2 then return end
-   end
-   -- recupero lavorazione successiva
+   -- recupero lavorazione successiva, se non esiste esco subito
    local nNextMchId = EgtGetNextActiveOperation( nMchId)
    while nNextMchId do
       if EgtGetOperationType( nNextMchId) ~= MCH_OY.DISP then break end
       nNextMchId = EgtGetNextActiveOperation( nNextMchId)
    end
    if not nNextMchId then return end
-   -- se esiste ed appartiene a gruppo diverso
+
+   -- se esiste lavorazione successiva
    if EgtSetCurrMachining( nNextMchId) then
       local sNextTool = EgtGetMachiningParam( MCH_MP.TOOL)
       if EgtTdbSetCurrTool( sNextTool) then
+         local nHSet = GetHeadSet( sHead)
          local sNextHead = EgtTdbGetCurrToolParam( MCH_TP.HEAD)
          local nNextHSet = GetHeadSet( sNextHead)
-         if nNextHSet ~= nHSet and nNextHSet ~= 3 and ( nHSet ~= 3 or nNextHSet ~= 1) then
+         -- se utensile su altra testa
+         if nNextHSet ~= nHSet then
             local sNextTcPos = EgtTdbGetCurrToolParam( MCH_TP.TCPOS)
             local dNextTotLen = EgtTdbGetCurrToolParam( MCH_TP.TOTLEN)
+
+            -- se sto lavorando con testa 1
+            if nHSet == 1 then
+               -- se preselezione testa 2
+               if nNextHSet == 2 then
+                  -- se agregato lama speciale non preseleziono mai
+                  if sNextHead == 'H22' or EMT.PREVHEAD_H2 == 'H22' then return end
+                  -- se la Z di lavoro è più bassa del cambio della minima Z
+                  if EMT.MAXMIN[3] < MinZ1ToChangeH2 then
+                     -- verifico quota del TC
+                     if BD.RIGHT_LOAD and EMT.MAXMAX[2] > ( DeltaTabY + MaxHoOpen + 400) then return end
+                     if not BD.RIGHT_LOAD and EMT.MAXMAX[2] > ( DeltaTabY + 400) then return end
+                  end
+               -- se preselezione testa 3
+               else
+                  ; -- non devo fare nulla
+               end
+            -- se sto lavorando con testa 2
+            elseif nHSet == 2 then
+               -- se preselezione testa 1
+               if nNextHSet == 1 then
+                  -- se sopra Z oltre la faccia sotto della trave, controllo il cambio utensile
+                  if EMT.MAXMIN[3] > Delta2TabZ then
+                     local nNextTc = GetTcForTopHeadTool( sNextTcPos)   -- utensile da caricare
+                     local nPrevTc = GetTcForTopHeadTool( EMT.PREVTCPOS_H1) -- utensile da depositare
+                     -- se deposito e carico da diversi TC non faccio preselezione
+                     if nNextTc ~= nPrevTc and nPrevTc ~= 0 then return
+                     -- altrimenti se operazione su stesso TC
+                     else
+                        -- TC su montante destro oppure non so cosa c'è montato
+                        if nNextTc == 1  or nPrevTc ~= 0 then
+                           if BD.RIGHT_LOAD and EMT.MAXMIN[2] < ( Delta2TabY - 400) then return end
+                           if not BD.RIGHT_LOAD and EMT.MAXMIN[2] < ( Delta2TabY - MaxHoOpen - 400) then return end
+                        end
+                        -- TC su montante sinistro oppure non so cosa c'è montato
+                        if nNextTc == 2  or nPrevTc ~= 0 then
+                           if BD.RIGHT_LOAD and EMT.MAXMAX[2] > ( Delta2TabY + MaxHoOpen + 400) then return end
+                           if not BD.RIGHT_LOAD and EMT.MAXMAX[2] > ( Delta2TabY + 400) then return end
+                        end
+                     end
+                  end
+               -- se preselezione testa 3
+               else
+                  ; -- non devo fare nulla
+               end
+            -- altrimenti (testa 3)
+            else
+               -- se preselezione testa 1
+               if nNextHSet == 1 then
+                  -- TC su montante destro
+                  if nPrevTc == 1 then return
+                  -- TC su montante sinistro
+                  else
+                     if BD.RIGHT_LOAD and EMT.MAXMAX[2] > ( DeltaTabY + MaxHoOpen + 400) then return end
+                     if not BD.RIGHT_LOAD and EMT.MAXMAX[2] > DeltaTabY then return end
+                  end
+               -- se preselezione testa 2
+               else
+                  -- se agregato lama speciale non preseleziono mai
+                  if sNextHead == 'H22' or EMT.PREVHEAD_H2 == 'H22' then return end
+                  -- se la Z di lavoro è più bassa del cambio utensili, verifico quota X (la nostra Y)
+                  if EMT.MAXMIN[3] < MinZ1ToChangeH2 then
+                     if BD.RIGHT_LOAD and EMT.MAXMAX[2] > ( DeltaTabY + MaxHoOpen + 400) then return end
+                     if not BD.RIGHT_LOAD and EMT.MAXMAX[2] > DeltaTabY then return end
+                  end
+               end
+            end
+
+            -- faccio preselezione ( se sono arrivato qui, vuol dire che posso preselezionare)
             if nNextHSet == 1 then
                -- Recupero quota X1 (nostro L2)
                local dNextX = GetStartMachiningXaxis( nNextMchId)
@@ -2417,7 +2489,7 @@ function PreselectNextDiffHead( nMchId, sHead)
                      EmitMoveDataHead( 1, { X=dNextX, B=ParkB1, C=ParkC1, TPos=AdjustTcPos( false, sNextTcPos), Fmt=2})
                   else
                      local nNextTc = GetTcForTopHeadTool( sNextTcPos)
-                     EmitMoveDataHead( 1, { X=dNextX, B=ParkLongB1, C=EgtIf( nTc ~= 2, ParkLongTc1C1, ParkLongTc2C1), TPos=AdjustTcPos( false, sNextTcPos), Fmt=2})
+                     EmitMoveDataHead( 1, { X=dNextX, B=ParkLongB1, C=EgtIf( nPrevTc ~= 2, ParkLongTc1C1, ParkLongTc2C1), TPos=AdjustTcPos( false, sNextTcPos), Fmt=2})
                   end
                   EmitMoveStartHead( 1)
                elseif sNextHead == 'H12' or sNextHead == 'H16' then
@@ -2432,13 +2504,7 @@ function PreselectNextDiffHead( nMchId, sHead)
                   EmitMoveStartHead( 1)
                end
             else
-               -- non si può preselezionare lama su aggregato da sotto
-               -- Se è già montata, non preseleziono altro utensile fino all'effettiva lavorazione altro utensile
-               if sNextHead == 'H22' or EMT.PREVHEAD_H2 == 'H22' then
-                  return
-               else
-                  EmitMoveDataHead( 2, { B=ParkB2, C=ParkC2, TPos=AdjustTcPos( false, sNextTcPos), Fmt=2})
-               end
+               EmitMoveDataHead( 2, { B=ParkB2, C=ParkC2, TPos=AdjustTcPos( false, sNextTcPos), Fmt=2})
                EmitMoveStartHead( 2)
             end
          end

Common-PF1250.mlpe

@@ -1,4 +1,4 @@
--- Processore standard macchine tipo PF1250 by EgalWare s.r.l.   2023/12/14
+-- Processore standard macchine tipo PF1250 by EgalWare s.r.l.   2024/01/22
 
 -- Funzioni generiche indipendenti dal controllo
 
@@ -736,7 +736,7 @@ function OnSimulPathEnd()
       if EMT.MCHSPLIT and not EMT.TO_FALL then
          EMT.SPLIT_Y1DELTA = EMT.Y1DELTA
          EMT.Y1DELTA = nil
-         SetPY1Light( false)
+         ExecMovePY1( false)
       end
       ExecMoveZmax( EMT.MCHSPLIT)
       EMT.TO_ZMAX = nil
@@ -746,19 +746,19 @@ end
 ---------------------------------------------------------------------
 function OnSimulPathStartAux()
    -- eseguo il comando
-   ExecAuxCmd( EMT.AUX)
+   ExecAuxCmd( EMT.AUX, true)
    -- se ultimo comando e lavorazione di split, sgancio il carro Y1
    if EMT.AUXIND == EMT.AUXTOT and EMT.MCHSPLIT and not EMT.TO_FALL then
       EMT.SPLIT_Y1DELTA = EMT.Y1DELTA
       EMT.Y1DELTA = nil
-      SetPY1Light( false)
+      ExecMovePY1( false)
    end
 end
 
 ---------------------------------------------------------------------
 function OnSimulPathEndAux()
    -- eseguo il comando
-   ExecAuxCmd( EMT.AUX)
+   ExecAuxCmd( EMT.AUX, false)
    -- se ultimo comando e richiesta risalita a Zmax
    if EMT.AUXIND == EMT.AUXTOT and EMT.TO_ZMAX then
       ExecMoveZmax( EMT.MCHSPLIT)
@@ -856,7 +856,7 @@ function OnSimulMoveStart()
                -- in caso di rotazione della lama lontano dalla posizione di home degli assi rotanti
                if ( EMT.HEAD == 'H12' or EMT.HEAD == 'H16') and ( abs( C1Pos - EMT.R1) > 1 or abs( B1Pos - EMT.R2) > 1) and ( abs( C1Home - EMT.R1) > 30.1 or abs( B1Home - EMT.R2) > 30.1) then
                   SimulMoveAxis( 'X1', EgtIf( bXSpec, DeltaTabY, EMT.L2), MCH_SIM_STEP.RAPID)
-                  SimulMoveAxis( 'B1', 0, MCH_SIM_STEP.COLLROT)
+                  SimulMoveAxes( 'Z1', MaxZ1, MCH_SIM_STEP.RAPID, 'B1', 0, MCH_SIM_STEP.COLLROT)
                   SimulMoveAxis( 'C1', EMT.R1, MCH_SIM_STEP.COLLROT)
                   SimulMoveAxis( 'X1', EMT.L2, MCH_SIM_STEP.RAPID)
                   SimulMoveAxes( 'Z1', EMT.L3, MCH_SIM_STEP.RAPID, 'B1', EMT.R2, MCH_SIM_STEP.COLLROT)
@@ -1018,7 +1018,7 @@ function OnSimulMoveEnd()
       -- se lavorazione split, dichiaro carro Y1 riagganciato
       if EMT.SPLIT_Y1DELTA then
          EMT.SPLIT_Y1DELTA = nil
-         SetPY1Light( true)
+         ExecMovePY1( true)
       end
       -- chiusura o apertura rulli V1
       if GetV1ToClose() then
@@ -1081,7 +1081,7 @@ function OnSimulCollision()
 end
 
 ---------------------------------------------------------------------
-function ExecAuxCmd( sCmd)
+function ExecAuxCmd( sCmd, bPathStart)
    -- analizzo il comando
    local Cmd = EgtSplitString( sCmd)
    if Cmd[1] == '0' then
@@ -1094,29 +1094,31 @@ function ExecAuxCmd( sCmd)
       end
       EgtOutText( Cmd[2])
    elseif Cmd[1] == '1' then
-      if EMT.SPLIT then ExecOpenRoller( 1) end
-      if EMT.UNLOADING or EMT.TO_FALL then ExecOpenRoller( 2) end
-      local sV1, MoveV1, sV2, MoveV2 = CalcMoveV1V2ForAuxCmd( Cmd)
-      local bOk, bOk1, bOk2, bOk3 = SimulMoveAxes( Cmd[2], tonumber( Cmd[3]), MCH_SIM_STEP.RAPID,
-                                                   sV1, MoveV1, MCH_SIM_STEP.RAPID,
-                                                   sV2, MoveV2, MCH_SIM_STEP.RAPID)
-      if not bOk then
-         if not bOk1 then
-            if VerifyY1Y2Stroke( Cmd[2], tonumber( Cmd[3])) == nil then 
-               EgtOutLog( 'Error on ExecAuxCmd : ' .. sCmd)
+      if Cmd[2] ~= 'Z' then
+         ExecOpenRoller( 1)
+         ExecOpenRoller( 2)
+         local sV1, MoveV1, sV2, MoveV2 = CalcMoveV1V2ForAuxCmd( Cmd)
+         local bOk, bOk1, bOk2, bOk3 = SimulMoveAxes( Cmd[2], tonumber( Cmd[3]), MCH_SIM_STEP.RAPID,
+                                                      sV1, MoveV1, MCH_SIM_STEP.RAPID,
+                                                      sV2, MoveV2, MCH_SIM_STEP.RAPID)
+         if not bOk then
+            if not bOk1 then
+               if VerifyY1Y2Stroke( Cmd[2], tonumber( Cmd[3])) == nil then 
+                  EgtOutLog( 'Error on ExecAuxCmd : ' .. sCmd)
+               end
+            elseif not bOk2 then
+               VerifyV1V2Stroke( sV1, MoveV1)
+            elseif not bOk3 then
+               VerifyV1V2Stroke( sV2, MoveV2)
             end
-         elseif not bOk2 then
-            VerifyV1V2Stroke( sV1, MoveV1)
-         elseif not bOk3 then
-            VerifyV1V2Stroke( sV2, MoveV2)
          end
       end
    elseif Cmd[1] == '2' then
       -- Verifico movimento carrello con trave agganciata
       VerifyOneChariotSlide( Cmd[2], Cmd[3], Cmd[4], Cmd[5])
       -- Eseguo i movimenti necessari
-      if EMT.SPLIT then ExecOpenRoller( 1) end
-      if EMT.UNLOADING or EMT.TO_FALL then ExecOpenRoller( 2) end
+      ExecOpenRoller( 1)
+      ExecOpenRoller( 2)
       local sV1, MoveV1, sV2, MoveV2 = CalcMoveV1V2ForAuxCmd( Cmd)
       local bOk, bOk1, bOk2, bOk3, bOk4 =  SimulMoveAxes( Cmd[2], tonumber( Cmd[3]), MCH_SIM_STEP.RAPID,
                                                           Cmd[4], tonumber( Cmd[5]), MCH_SIM_STEP.RAPID,
@@ -1138,8 +1140,8 @@ function ExecAuxCmd( sCmd)
       -- Verifico movimento carrelli con trave agganciata
       VerifyTwoChariotsSlide( Cmd[2], Cmd[3], Cmd[4], Cmd[5], Cmd[6], Cmd[7])
       -- Eseguo i movimenti necessari
-      if EMT.SPLIT then ExecOpenRoller( 1) end
-      if EMT.UNLOADING or EMT.TO_FALL then ExecOpenRoller( 2) end
+      ExecOpenRoller( 1)
+      ExecOpenRoller( 2)
       local sV1, MoveV1, sV2, MoveV2 = CalcMoveV1V2ForAuxCmd( Cmd)
       local bOk, bOk1, bOk2, bOk3, bOk4, bOk5 = SimulMoveAxes( Cmd[2], tonumber( Cmd[3]), MCH_SIM_STEP.RAPID,
                                                                Cmd[4], tonumber( Cmd[5]), MCH_SIM_STEP.RAPID,
@@ -1159,13 +1161,13 @@ function ExecAuxCmd( sCmd)
          end
       end
    elseif Cmd[1] == '4' then
-      ExecMoveHome( Cmd[2] == '1', EMT.MCHSPLIT)
+      ExecMoveHome( Cmd[2] == '1', EgtIf( bPathStart, false, EMT.MCHSPLIT))
    elseif Cmd[1] == '11' then
-      SimulMoveAxes( 'PY1', EgtIf( Cmd[2] == '0', MaxHoOpen, EMT.HB), MCH_SIM_STEP.RAPID)
-      SetPY1Light( Cmd[2] ~= '0')
+      local bClose = Cmd[2] ~= '0'
+      if bPathStart and EMT.MCHSPLIT and not EMT.FALL and EMT.AUXIND >= 8 then bClose = false end
+      ExecMovePY1( bClose)
    elseif Cmd[1] == '12' then
-      SimulMoveAxes( 'PY2', EgtIf( Cmd[2] == '0', MaxHoOpen, EMT.HB), MCH_SIM_STEP.RAPID)
-      SetPY2Light( Cmd[2] ~= '0')
+      ExecMovePY2( Cmd[2] ~= '0')
    elseif Cmd[1] == '21' then
       local nY1Delta = tonumber( Cmd[2])
       local nY2Delta = tonumber( Cmd[3])
@@ -1231,6 +1233,7 @@ end
 function ExecMoveHome( bNearV, bMchSplit)
    -- risalita a Zmax
    ExecMoveZmax( bMchSplit)
+   EMT.TO_ZMAX = nil
    -- se testa sotto
    if GetHeadSet( EMT.HEAD) == 2 then
       if not SimulMoveAxis( 'X2', ParkX2, MCH_SIM_STEP.RAPID) then
@@ -1368,6 +1371,18 @@ function ExecUnloading()
    end
 end
 
+---------------------------------------------------------------------
+function ExecMovePY1( bClose)
+   SimulMoveAxes( 'PY1', EgtIf( not bClose, MaxHoOpen, EMT.HB), MCH_SIM_STEP.RAPID)
+   SetPY1Light( bClose)
+end
+
+---------------------------------------------------------------------
+function ExecMovePY2( bClose)
+   SimulMoveAxes( 'PY2', EgtIf( not bClose, MaxHoOpen, EMT.HB), MCH_SIM_STEP.RAPID)
+   SetPY2Light( bClose)
+end
+
 ---------------------------------------------------------------------
 local function LinkRemainingPartsToY1()
    local nCurrOrd = GetPhaseOrd( EMT.PHASE)
@@ -1397,6 +1412,9 @@ function ExecParkRoller( PosY1, PosY2, PosV1, PosV2, bSpliCut, bAgg)
    -- Parcheggi pinze
    local MyParkY1 = ParkY1 + EgtIf( bAgg, AggLoad, 0)
    local MyParkY2 = ParkY2
+   -- Apro i rulli, se necessario
+   if abs( ParkV1 - PosV1) > 0.1 then ExecOpenRoller( 1) end
+   if abs( ParkV2 - PosV2) > 0.1 then ExecOpenRoller( 2) end
    -- Eseguo spostamenti
    if EMT.Y1DELTA and EMT.Y2DELTA then
       local DiffY1 = MyParkY1 - PosY1

Common-PF1250.mlse

@@ -1,4 +1,4 @@
--- Special Operations macchina Essetre-PF1250 by EgalTech s.r.l.  2023/11/21
+-- Special Operations macchina Essetre-PF1250 by Egalware s.r.l.  2024/01/22
 -- Intestazioni
 
 require( 'EmtGenerator')
@@ -254,33 +254,9 @@ local function GetNextStartOrRestPhase( nPhase)
 end
 
 ---------------------------------------------------------------------
-function GetPhaseRot( nPhase)
-   return ( EgtGetInfo( EgtGetPhaseDisposition( nPhase) or GDB_ID.NULL, 'ROT', 'i') or 0)
-end
-
----------------------------------------------------------------------
-local function IsLastMachiningBeforeRotation( nMchId)
-   -- se ultima fase, ritorno risultato negativo
-   if EMC.PHASE == EgtGetPhaseCount() then
-      return false
-   end
-   -- recupero la successiva operazione attiva
-   local nNextOperId = EgtGetNextActiveOperation( nMchId)
-   -- se non esiste o non è una disposizione, ritorno risultato negativo
-   if not nNextOperId or EgtGetOperationType( nNextOperId) ~= MCH_OY.DISP then
-      return false
-   end
-   -- recupero le rotazioni della fase corrente e della prossima fase
-   local nRot = GetPhaseRot( EMC.PHASE)
-   local nNextRot = GetPhaseRot( EMC.PHASE + 1)
-   -- ritorno se sono diverse
-   return ( nRot ~= nNextRot)
-end
-
----------------------------------------------------------------------
-local function IsFirstMachiningAfterRotation( nMchId)
-   -- se prima fase, ritorno risultato negativo
-   if EMC.PHASE == 1 then
+local function IsFirstMachiningOfStart( nMchId)
+   -- se non è fase inizio di pezzo, ritorno risultato negativo
+   if not IsStartOrRestPhase( EMC.PHASE) then
       return false
    end
    -- recupero la precedente operazione attiva
@@ -289,11 +265,8 @@ local function IsFirstMachiningAfterRotation( nMchId)
    if not nPrevOperId or EgtGetOperationType( nPrevOperId) ~= MCH_OY.DISP then
       return false
    end
-   -- recupero le rotazioni della fase corrente e della fase precedente
-   local nRot = GetPhaseRot( EMC.PHASE)
-   local nPrevRot = GetPhaseRot( EMC.PHASE - 1)
-   -- ritorno se sono diverse
-   return ( nRot ~= nPrevRot)
+   -- è la prima
+   return true
 end
 
 ---------------------------------------------------------------------
@@ -545,7 +518,7 @@ function OnPostApplyMachining()
       return
    -- se precedente operazione è disposizione
    elseif  EgtGetOperationType( nPrevOpeId) == MCH_OY.DISP then
-      if EMC.PHASE == 1 or ( IsMidPhase( EMC.PHASE) and IsFirstMachiningAfterRotation( EMC.MCHID)) then
+      if EMC.PHASE == 1 then
          -- posizioni home
          EMC.TPOS = nil
          EMC.Y1DELTA = nil
@@ -712,6 +685,7 @@ function SpecApplyPath( bPreSplit, bSplitting, bPreCut, bCutting, bUnload)
    EMC.SB = b3Tot:getDimY()
    EMC.HB = b3Tot:getDimZ()
    EMC.LT = b3Raw:getDimX()
+   EgtOutLog( '  BarLen='..EgtNumToString( EMC.LB, 1), 3)
 
    -- Aggiorno limiti di presa
    UpdateMinJoin()
@@ -766,7 +740,6 @@ function SpecApplyPath( bPreSplit, bSplitting, bPreCut, bCutting, bUnload)
    -- Se inizio o appena dopo rotazione, eseguo il carico
    if not EMC.TPOS then
       local dPosT = LoadT
-      if IsFirstMachiningAfterRotation( EMC.MCHID) then dPosT = dPosT + TurnerOffs end
       local vCmd = SpecCalcLoad( dPosT, dDistFront, max( dDistBack, MinJoin, EMC.LB - ( MaxY1 - MinY1) + 6))
       EMC.LOAD = true
       local vCmd2 = SpecCalcCarriages( dDistFront, dDistBack, dRollFront, dRollBack, dY1DeltaMaxSP, dY2DeltaMinUL, nChar)
@@ -1105,8 +1078,8 @@ function SpecCalcCarriages( dDistFront, dDistBack, dRollFront, dRollBack, dY1Del
          return {}
       end
 
-      -- al carico si deve ignorare l'ingombro delle lavorazioni di testa per il pinzaggio
-      if EMC.LOAD then EMC.HCING = 0 end
+      -- al carico o con prima lavorazione di un pezzo si deve ignorare l'ingombro delle lavorazioni di testa per il pinzaggio
+      if EMC.LOAD or IsFirstMachiningOfStart( EMC.MCHID) then EMC.HCING = 0 end
 
       return SpecAdjustCarriages( WorkTab)
 
@@ -2303,7 +2276,7 @@ function SpecAdjustCarrC( WorkTab)
          WorkTab.dY1DeltaMaxF = EMC.LB - ( MinJoin + MyTCING)
          -- se Y1 deve accentrarsi 
          if WorkTab.dY1DeltaI > WorkTab.dY1DeltaMaxF then
-            WorkTab.dY1DeltaMinF = EMC.LB - 2 * MinJoin + MyTCING
+            WorkTab.dY1DeltaMinF = EMC.LB - 2 * MinJoin - MyTCING
          end
       end
       -- posizioni obiettivo dei carrelli al centro dei rispettivi intervalli di validità

Essetre-PF1250MAX.mlde

@@ -1,4 +1,4 @@
--- Descrizione macchina Essetre-PF1250MAX by EgalWare s.r.l.   2023/12/07
+-- Descrizione macchina Essetre-PF1250MAX by EgalWare s.r.l.   2024/01/25
 -- 2023/12/07 ver 2.5l1 Prima versione. Derivata da PF1250 ver 2.5l4
 -- 2023/12/15 ver 2.5l2 Corretti vari offset in simulazione
 -- 2023/12/18 ver 2.5l3 Ultimata gestione aggregato lama da sotto
@@ -12,12 +12,19 @@
 --                      Costanti MinForzaPinze e MaxForzaPinze portati in mlde/Ts3data (erano hardcoded - Common)
 --                      Aggiunto variabile 'WriteAllCoordsOnFirstM101' e allineamento con 2.6a1 common
 -- 2023/12/20 ver 2.6a2 Allineamento con Common-PF1250 v.2.6a2
+-- 2024/01/22 ver 2.6a3 Migliorata preselezione utensile
+--                      Rimosse funzioni ribaltamento pezzo
+--                      Allineamento con Common-PF1250 v.2.6a3
+--                      In BeamData aggiunta la funzione GetBlockedAxis che sostituisce le altre (GetChainSawBlockedAxis e GetSawBlockedAxis)
+-- 2024/01/25 ver 2.6a4 Allineamento con Common 2.6a4
+-- 2024/02/09 ver 2.6b1 Corretto errore in definizione testa H22
+--                      In BeamData migliorata funzione GetBlockedAxis
 
 -- Intestazioni
 require( 'EmtGenerator')
 EgtEnableDebug( false)
 
-PP_VER = '2.6a2'
+PP_VER = '2.6a4'
 MIN_MACH_VER = '2.5k1'
 
 local sBaseDir = EgtGetSourceDir()
@@ -474,8 +481,8 @@ if TcAggreBladeUnder then
          Rot2Stroke = { MinB2b, MaxB2b},
          OthColl = {'B2/SOLID', 'C2/SOLID'},
          Geo = 'H22_HEAD/GEO'}
-   EgtSetInfo( H21Id, 'ABOVE', '0')
-   EgtSetInfo( H21Id, 'ZHOMEDOWN', '1')
+   EgtSetInfo( H22Id, 'ABOVE', '0')
+   EgtSetInfo( H22Id, 'ZHOMEDOWN', '1')
 end
 --  *** Carrelli ***
 -- Morse
@@ -955,9 +962,8 @@ function OnSetHead()
       -- aggiustamenti per distanza
       local dDist = EgtIf( EMC.DIST and abs( EMC.DIST) > 1, EMC.DIST, ChSawLen)
       EmtModifyExitPosition( EMC.HEAD, EMC.EXIT or 1, Point3d( 0, 0, -dDist))
-      -- recupero valore asse A1 bloccato
-      local sVal = EgtGetMachiningParam( MCH_MP.BLOCKEDAXIS)
-      local CSawPosA = tonumber( sVal:sub( 4) or '')
+      -- recupero il valore dell'asse virtuale bloccato A
+      local CSawPosA = GetCurrChainSawingVirtualAxis()
       EmtModifyAxisHome( 'X1', ParkCSawX1)
       EmtModifyAxisHome( 'Z1', GetChainSawZHomeFromVirtualAxis( CSawPosA))
       EmtModifyAxisStroke( 'C1', {MinC1, MaxC1})
@@ -979,7 +985,7 @@ function OnSetHead()
    -- se testa H22 (lama su aggregato sotto)
    elseif EMC.HEAD == 'H22' then
       -- recupero valore asse A2 bloccato
-      local sVal = EgtGetMachiningParam( MCH_MP.BLOCKEDAXIS)
+      local sVal = EgtGetMachiningParam( MCH_MP.BLOCKEDAXIS) or 'A1=0'
       local SawUnderPosA2 = tonumber( sVal:sub( 4) or '') or 0
       EmtModifyAxisHome( 'C2', GetSawCHomeFromVirtualAxis( SawUnderPosA2))
       EmtModifyAxisDirection( 'B2', Vector3d( cos( SawUnderC2Offs), -sin( SawUnderC2Offs), 0))

UpdateLog.txt

@@ -7,6 +7,18 @@ Versione 2.6a1 (09/01/2024)
 - (MLDE-GEN) Costanti 'MinForzaPinze' e 'MaxForzaPinze' portati in mlde/Ts3data (erano hardcoded)
 - (MLDE-SIM-GEN) Aggiunto parametro 'WriteAllCoordsOnFirstM101' per decidere se stampare tutti gli assi sulla prima M101
 
-Versione 2.6a2 (09/01/2024)
+Versione 2.6a2 (19/01/2024)
 - (GEN) Corretta inversione coordinata X per Lama su aggregato da sotto
 - (SIM) Se modalità 'WriteAllCoordsOnFirstM101', oltre alla X si scive quota di parcheggio assi B2 e C2 come in generazione
+- (SIM-GEN) Tolta gestione rotazione pezzo (di derivazione PF), in macchina non è previsto ribaltamento
+- (GEN) Migliorata gestione preselezione utensile
+- (MLDE-GEN) Aggiunto flag 'EmitRapidInG0' per decidere se scrivere G0 anziché G1. Se flag a nil, scrive i rapidi in G1
+
+Versione 2.6a3 (22/01/2024)
+- (SIM-GEN) Correzione gestione apertura/chiusura rulli sul fine barra (#1630) e in generale
+- (GEN) Modificato flag 'EmitRapidInG0' in 'EmitRapidInG1' per decidere se scrivere G1 anziché G0. Se flag a nil, scrive i rapidi in G0
+- (SIM) Correzione movimenti pinze prima di separazione
+
+Versione 2.6a4 (25/01/2024)
+- (SIM-GEN) Corretto movimento in caso di cambio assi rotanti tra due lavorazioni
+- (GEN) Corretta emissione coordinate assi in caso di 'WriteAllCoordsOnFirstM101'

Version.lua

@@ -1,9 +1,9 @@
--- Version.lua by EgalWare s.r.l. 2023/11/28
+-- Version.lua by EgalWare s.r.l. 2024/01/22
 -- Gestione della versione dei file comuni post-processori macchine PF1250 e PF1500 di Essetre
 
 local InfoCommon_STD_PP = {
    NAME = 'Common_PF1250',            -- nome script PP standard
-   VERSION = '2.6a2',                 -- versione script
+   VERSION = '2.6a4',                 -- versione script
    MIN_MACH_VER_PP_COMMON = '2.5k1'   -- versione minima kernel
 }