Piccola correzione per gestire diametro utensile a nil

- Gestione limite corsa asse B2 se lama su H21

Beam/BeamData.lua

@@ -216,6 +216,11 @@ BeamData.GetBlockedAxis = GetBlockedAxis
 local function GetSetupInfo( sHead)
    local SetupInfo = {}
 
+   -- dati comuni
+   SetupInfo.bIsCSymmetric = true
+   SetupInfo.dCAxisEncumbrance = 180
+   SetupInfo.bToolOnAggregate = false
+   
    -- testa 5 assi da sopra
    if sHead == 'H11' then
       SetupInfo.bIsTopHead = true
@@ -248,10 +253,6 @@ local function GetSetupInfo( sHead)
       SetupInfo.dMaxPositiveAngle = sin( 25)
    end
 
-   -- dati comuni
-   SetupInfo.bIsCSymmetric = true
-   SetupInfo.dCAxisEncumbrance = 180
-
    return SetupInfo
 end
 BeamData.GetSetupInfo = GetSetupInfo

Common-PF1250.TPA.mlpe

@@ -412,7 +412,7 @@ function OnMachiningStart()
       -- imposto home dell'asse C2 (A=0 -> T201, A=90 -> T204)
       local MyParkCSawC2 = GetSawCHomeFromVirtualAxis( dPosA)
       EmtModifyAxisHome( 'C2', MyParkCSawC2)
-      -- se lavorazione attuale e precedente con sega a catena con angolo A diverso, devo scaricare e ricaricare
+      -- se lavorazione attuale e precedente con lama su aggregato da sotto con angolo A diverso, devo scaricare e ricaricare
       if EMT.HEAD == EMT.PREVHEAD_H2 then
          if abs( dPosA - dPrevA) > 1 then
             EMT.TO_ZMAX = true
@@ -815,15 +815,19 @@ function OnRapid()
             -- se bisogna scrivere tutti gli assi
             if WriteAllCoordsOnFirstM101 then
                if EMT.HEAD == 'H22' then
-                  EmitMoveDataHead( 2, { X=ParkSawX2, Z=ParkZ2, B=ParkB2, C=ParkC2, S=Speed})
+                  EmitMoveDataHead( 2, { X=ParkSawX2, Z=ParkZ2, B=0, C=ParkC2, S=Speed})
+                  EMT.L2pp = ParkSawX2
                else
                   EmitMoveDataHead( 2, { X=ParkX2, Z=ParkZ2, B=ParkB2, C=ParkC2, S=Speed})
+                  EMT.L2pp = ParkX2
                end
             else
                if EMT.HEAD == 'H22' then
                   EmitMoveDataHead( 2, { X=ParkSawX2, S=Speed})
+                  EMT.L2pp = ParkSawX2
                else
                   EmitMoveDataHead( 2, { X=ParkX2, S=Speed})
+                  EMT.L2pp = ParkX2
                end
             end
             if ( not EMT.L2pp or ( EMT.L2pp and EMT.L2pp > ParkMchY2)) and ( ParkB2 ~= EMT.R2  or  ParkC2 ~= EMT.R1) then
@@ -842,7 +846,11 @@ function OnRapid()
             if EMT.HEAD == 'H22' and ( CurrB2 ~= EMT.R2  or  CurrC2 ~= EMT.R1) then
                EmitMoveDataHead( 2, { B=EMT.R2, C=EMT.R1, S=Speed})
             end    
-            EmitMoveDataHead( 2, { X=EMT.L2, Z=EMT.L3, B=EMT.R2, C=EMT.R1, S=Speed})     
+            if EMT.ZMAX then
+               EmitMoveDataHead( 2, { X=EMT.L2, B=EMT.R2, C=EMT.R1, S=Speed})            
+            else
+               EmitMoveDataHead( 2, { X=EMT.L2, Z=EMT.L3, B=EMT.R2, C=EMT.R1, S=Speed})            
+            end    
             EmitMoveStartHead( 2)
             -- eventuale preselezione successiva testa 1
             PreselectNextDiffHead( EMT.MCHID, EMT.HEAD)
@@ -930,7 +938,7 @@ function OnRapid()
          --MyOutput( string.format( 'V1Pos=%.3f V2Pos=%.3f', EMT.V1POS, EMT.V2POS))
          if not EMT.RELOAD and not EMT.ZMAX and #EMT.AUXCMD > 0 and EMT.TO_ZMAX then
             -- caso speciale in cui bisogna solo cambiare presa aggregato lama sotto
-            if EMT.R3_CHANGED then 
+            if EMT.R3_CHANGED then
                -- EmitZmax è fatta per essere chiamata con utensile attuale. In questo caso l'attuale è già quello con nuova rotazione
                -- Allora salvo l'attuale e imposto il vecchio solo momentanemente, per poi ripristinarlo
                local sBckTcPos = EMT.TCPOS
@@ -1109,9 +1117,19 @@ function OnRapid()
                   -- se bisogna scrivere tutti gli assi
                   if WriteAllCoordsOnFirstM101 then
                      if EMT.HEAD == 'H22' then
-                        EmitMoveDataHead( 2, { X=ParkSawX2, Z=-dSafeZ2, B=CurrB2, C=CurrC2, S=Speed})
+                        EmitMoveDataHead( 2, { X=ParkSawX2, Z=-dSafeZ2, B=0, C=CurrC2, S=Speed})
+                        EMT.L2pp = ParkSawX2
                      else
                         EmitMoveDataHead( 2, { X=SafeX2, Z=-dSafeZ2, B=CurrB2, C=CurrC2, S=Speed})
+                        EMT.L2pp = SafeX2
+                     end
+                  else
+                     if EMT.HEAD == 'H22' then
+                        EmitMoveDataHead( 2, { X=ParkSawX2, S=Speed})
+                        EMT.L2pp = ParkSawX2
+                     else
+                        EmitMoveDataHead( 2, { X=SafeX2, S=Speed})
+                        EMT.L2pp = SafeX2
                      end
                   end
                   -- scrivo solo se gli assi rotanti sono cambiati
@@ -1136,7 +1154,11 @@ function OnRapid()
             if EMT.HEAD == 'H22' and ( CurrB2 ~= EMT.R2  or  CurrC2 ~= EMT.R1) then
                EmitMoveDataHead( 2, { B=EMT.R2, C=EMT.R1, S=Speed})
             end    
-            EmitMoveDataHead( 2, { X=EMT.L2, Z=EMT.L3, B=EMT.R2, C=EMT.R1, S=Speed})            
+            if EMT.ZMAX then
+               EmitMoveDataHead( 2, { X=EMT.L2, B=EMT.R2, C=EMT.R1, S=Speed})            
+            else
+               EmitMoveDataHead( 2, { X=EMT.L2, Z=EMT.L3, B=EMT.R2, C=EMT.R1, S=Speed})            
+            end
             EmitMoveStartHead( 2)
             -- eventuale preselezione successiva testa 1
             PreselectNextDiffHead( EMT.MCHID, EMT.HEAD)
@@ -2362,6 +2384,11 @@ function EmitZmax( bReset, bEnd, PrevR1, PrevR2, bSplitCut, bTopGoHome)
       EmitMoveStartHead( 3)
       EmitMoveWaitHead( 3)
    end
+   -- resetto posizione precedente assi
+   EMT.L2pp = nil
+   EMT.L3pp = nil
+   EMT.R1pp = nil
+   EMT.R2pp = nil
 end
 
 ---------------------------------------------------------------------

Common-PF1250.mlpe

@@ -449,7 +449,7 @@ function OnSimulToolSelect( dPosA)
    EMT.TTOTLEN = EgtTdbGetCurrToolParam( MCH_TP.TOTLEN)
    EMT.TUSERNOTES = EgtTdbGetCurrToolParam( MCH_TP.USERNOTES)
    -- recupero il gruppo
-   local nSetHead = GetHeadSet( EMT.NEXTHEAD)
+   local nSetHead = GetHeadSet( EMT.HEAD)
    -- se fresa o lama su testa 1, reset assi rotanti
    if nSetHead == 1 then
       -- se ho la testa 3, la mando a parcheggio
@@ -662,7 +662,7 @@ function OnSimulMachiningStart()
          OnSimulToolSelect( dPosA)
       end
    end
-   -- se lavorazione attuale e precedente con sega a catena con angolo A diverso, devo scaricare e ricaricare
+   -- se lavorazione attuale e precedente con aggregato lama da sotto con angolo A diverso, devo scaricare e ricaricare
    if EMT.HEAD == 'H22' and EMT.HEAD == EMT.PREVHEAD_H2 then
       local dPrevA = EgtGetAxisPos( 'A2')
       local sVal = EgtGetMachiningParam( MCH_MP.BLOCKEDAXIS)
@@ -676,6 +676,9 @@ function OnSimulMachiningStart()
          OnSimulToolDeselect( dPrevA)
          EgtSetStatus( EgtGetHeadId( EMT.HEAD), GDB_ST.ON)
          OnSimulToolSelect( dPosA)
+         -- aggiorno dati utensile su testa
+         EMT.TCPOSREAL = 'T' .. AdjustTcPos( false, EMT.TCPOS, dPosA)
+         EMT.PREVTCPOSREAL_H2 = EMT.TCPOSREAL
       end
    end
    -- recupero alcuni dati della lavorazione
@@ -723,6 +726,27 @@ function OnSimulMachiningStart()
          EmtSetLastError( 1211, 'Missing or not active double tool of '..sOldTool)
       end
       EgtTdbSetCurrTool( sOldTool)
+   else
+      -- recupero il gruppo
+      local nSetHead = GetHeadSet( EMT.HEAD)
+      if nSetHead ~= 1 and ( EMT.PREVTOOL_H1 and EMT.PREVHEAD_H1) then
+         local nPrevExit_H1 = 1
+         local nInd_H1 = 1001
+         AddToolToCollisionObj( EMT.PREVTOOL_H1, EMT.PREVHEAD_H1, nPrevExit_H1, nInd_H1, true)
+         AddToolHolderToCollisionObj( EMT.PREVTOOL_H1, EMT.PREVHEAD_H1, nPrevExit_H1, nInd_H1 + 1)
+      end
+      if nSetHead ~= 2 and ( EMT.PREVTOOL_H2 and EMT.PREVHEAD_H2) then
+         local nPrevExit_H2 = 1
+         local nInd_H2 = 1011
+         AddToolToCollisionObj( EMT.PREVTOOL_H2, EMT.PREVHEAD_H2, nPrevExit_H2, nInd_H2, true)
+         AddToolHolderToCollisionObj( EMT.PREVTOOL_H2, EMT.PREVHEAD_H2, nPrevExit_H2, nInd_H2 + 1)
+      end
+      if nSetHead ~= 3 and EgtGetHeadId( 'H31') then
+         local nPrevExit_H3 = 1
+         local nInd_H3 = 1001
+         AddToolToCollisionObj( nil, 'H31', nPrevExit_H3, 1001)
+         AddToolHolderToCollisionObj( nil, 'H31', nPrevExit_H3, 1002)
+      end
    end
    -- se precedente in doppio ma ora solo testa 1 e non in sicurezza
    if EMT.DOU_TO_ZMAX then
@@ -765,12 +789,14 @@ function OnSimulMachiningEnd()
       EMT.PREVHEAD_H1 = EMT.HEAD
       EMT.PREVTCPOS_H1 = EMT.TCPOS
       EMT.PREVTTOTLEN_H1 = EMT.TTOTLEN
+      EMT.PREVTCPOSREAL_H1 = EMT.TCPOSREAL
    -- per gruppo testa 2
    elseif nSetHead == 2 then
       EMT.PREVTOOL_H2 = EMT.TOOL
       EMT.PREVHEAD_H2 = EMT.HEAD
       EMT.PREVTCPOS_H2 = EMT.TCPOS
       EMT.PREVTTOTLEN_H2 = EMT.TTOTLEN
+      EMT.PREVTCPOSREAL_H2 = EMT.TCPOSREAL
    -- per gruppo testa 3 (resetto dati testa 1)
    else
       EMT.PREVTOOL_H3 = nil
@@ -963,24 +989,32 @@ function OnSimulMoveStart()
          local X2Pos = EgtGetAxisPos( 'X2')
          local B2Pos = EgtGetAxisPos( 'B2')
          local C2Pos = EgtGetAxisPos( 'C2')
-         if EMT.TOOL ~= EMT.PREVTOOL_H2 then
+         -- calcolo posizione reale
+         EMT.TCPOSREAL = 'T' .. AdjustTcPos( false, EMT.TCPOS, EMT.R3)
+         -- se utensile cambiato (controllo il reale perchè per aggregato dipende come è stato caricato)
+         if EMT.PREVTCPOSREAL_H2 ~= EMT.TCPOSREAL then
             if EMT.ZMAX then
                -- se bisogna scrivere tutti gli assi
                if WriteAllCoordsOnFirstM101 then
-                  if EMT.HEAD == 'H22' and  EMT.PREVHEAD_H2 ~= EMT.HEAD then
-                     SimulMoveAxes( 'X2', ParkSawX2, MCH_SIM_STEP.RAPID, 'B2', B2Home, MCH_SIM_STEP.COLLROT, 'C2', C2Home, MCH_SIM_STEP.COLLROT)
+                  if EMT.HEAD == 'H22' then
+                     SimulMoveAxes( 'X2', ParkSawX2, MCH_SIM_STEP.RAPID, 'B2', 0, MCH_SIM_STEP.COLLROT, 'C2', C2Home, MCH_SIM_STEP.COLLROT)
+                     X2Pos = ParkSawX2
                   else
                      SimulMoveAxes( 'X2', SafeX2, MCH_SIM_STEP.RAPID, 'B2', B2Home, MCH_SIM_STEP.COLLROT, 'C2', C2Home, MCH_SIM_STEP.COLLROT)
+                     X2Pos = SafeX2
+                  end
+               else
+                  if EMT.HEAD == 'H22' then
+                     SimulMoveAxis( 'X2', ParkSawX2, MCH_SIM_STEP.RAPID)
+                     X2Pos = ParkSawX2
+                  else
+                     SimulMoveAxis( 'X2', SafeX2, MCH_SIM_STEP.RAPID)
+                     X2Pos = SafeX2
                   end
                end
                SimulMoveAxis( 'Z2', Z2Home, MCH_SIM_STEP.RAPID)
                -- Porto la X alla giusta quota
-               if EMT.HEAD ~= 'H22' and X2Pos > ParkMchY2 and ( B2Pos ~= EMT.R2  or  C2Pos ~= EMT.R1) then
-                  SimulMoveAxis( 'X2', ParkMchY2, MCH_SIM_STEP.RAPID)
-               end
-            else
-               -- Porto la X alla giusta quota
-               if EMT.ZMAX and X2Pos > ParkMchY2 and ( B2Pos ~= EMT.R2  or  C2Pos ~= EMT.R1) then
+               if X2Pos > ParkMchY2 and ( B2Pos ~= EMT.R2  or  C2Pos ~= EMT.R1) then
                   SimulMoveAxis( 'X2', ParkMchY2, MCH_SIM_STEP.RAPID)
                end
             end
@@ -993,6 +1027,10 @@ function OnSimulMoveStart()
          if EMT.HEAD == 'H22' then
             SimulMoveAxes( 'B2', EMT.R2, MCH_SIM_STEP.COLLROT, 'C2', EMT.R1, MCH_SIM_STEP.COLLROT)
          end
+         -- se ero a ZMAX, mi sposto in posizione a Z home. Ultimo movimento muove in Z
+         if EMT.ZMAX then
+            SimulMoveAxes( 'X2', EMT.L2, MCH_SIM_STEP.RAPID, 'B2', EMT.R2, MCH_SIM_STEP.COLLROT, 'C2', EMT.R1, MCH_SIM_STEP.COLLROT)
+         end
       -- altrimenti testa 3
       else 
          ; -- non devo fare alcunchè di speciale
@@ -1265,7 +1303,7 @@ function ExecAuxCmd( sCmd, bPathStart)
       ExecMoveHome( Cmd[2] == '1', EgtIf( bPathStart, false, EMT.MCHSPLIT))
    elseif Cmd[1] == '11' then
       local bClose = Cmd[2] ~= '0'
-      if bPathStart and EMT.MCHSPLIT and not EMT.FALL and GetPY2Light() then bClose = false end
+      if bPathStart and EMT.MCHSPLIT and not ( EMT.FALL or EMT.TO_FALL) and GetPY2Light() then bClose = false end
       ExecMovePY1( bClose)
    elseif Cmd[1] == '12' then
       ExecMovePY2( Cmd[2] ~= '0')
@@ -1876,7 +1914,7 @@ function LoadFirstTool( nHSet, sTcPosDef)
    if nHSet ~= 1 and nHSet ~= 2 then return end
    EgtUnloadTool( EgtIf( nHSet == 1, 'H11', 'H21'), 1)
    if GetHeadSetFromTcPos( sTcPosDef) ~= nHSet then return end
-   local sTool, sHead, sTcPos, sTTotLen, sBlockedAxis = FindFirstToolOnHeadSet( nHSet)
+   local sTool, sHead, sTcPos, sTTotLen, sTotDiam, sBlockedAxis = FindFirstToolOnHeadSet( nHSet)
    if not sTool then
       local vTools = EgtGetToolsInCurrSetupPos( sTcPosDef)
       if vTools and vTools[1] then
@@ -1888,7 +1926,7 @@ function LoadFirstTool( nHSet, sTcPosDef)
    if sTool then
       -- imposto correttamente i dati di testa
       local OrigEMC = EMC
-      EMC = { HEAD = sHead, TOOL = sTool, TCPOS = sTcPos, TOTLEN = sTTotLen, BLOCKEDAXIS = sBlockedAxis}
+      EMC = { HEAD = sHead, TOOL = sTool, TCPOS = sTcPos, TOTLEN = sTTotLen, TOTDIAM = sTotDiam, BLOCKEDAXIS = sBlockedAxis}
       OnSetHead()
       EMC = OrigEMC
       if sBlockedAxis then
@@ -2327,7 +2365,7 @@ function FindFirstToolOnHeadSet( nHSet)
    local CurrMachId = EgtGetCurrMachining()
    local CurrTool = EgtTdbGetCurrToolParam( MCH_TP.NAME)
    -- cerco lavorazione con utensile su gruppo testa indicato
-   local sTool, sHead, sTcPos, sTTotLen, sBlockedAxis
+   local sTool, sHead, sTcPos, sTTotLen, sTotDiam, sBlockedAxis
    local OpId = EgtGetFirstActiveOperation()
    while OpId do
       local nType = EgtGetOperationType( OpId)
@@ -2345,6 +2383,7 @@ function FindFirstToolOnHeadSet( nHSet)
                   end
                   sTool = sTest
                   sTTotLen = EgtTdbGetCurrToolParam( MCH_TP.TOTLEN)
+                  sTotDiam = EgtTdbGetCurrToolParam( MCH_TP.TOTDIAM)
                   sBlockedAxis = EgtGetMachiningParam( MCH_MP.BLOCKEDAXIS)
                   break
                end
@@ -2357,7 +2396,7 @@ function FindFirstToolOnHeadSet( nHSet)
    EgtSetCurrMachining( CurrMachId or GDB_ID.NULL)
    EgtTdbSetCurrTool( CurrTool or '')
    -- restituisco risultato
-   return sTool, sHead, sTcPos, sTTotLen, sBlockedAxis
+   return sTool, sHead, sTcPos, sTTotLen, sTotDiam, sBlockedAxis
 end
 
 ---------------------------------------------------------------------

Common-PF1250.mlse

@@ -574,7 +574,11 @@ function OnPostApplyMachining()
 
    -- Verifico flag di separazione e fase di scarico
    local sNotes = EgtGetMachiningParam( MCH_MP.USERNOTES)
-   local bPreSplit = ( false and sNotes:find( 'Presplit', 1, true) ~= nil)
+
+   -- bPreSplit sempre a falso per obbligare a pinzare il pezzo con 1 morsa anche se iniziato il taglio che dividerà grezzo e finito (in genere per sezioni grandi con 2 tagli di lama)
+   -- Tra un taglio e l'altro infatti c'e' inversione del braccio e quindi un'apertura delle rulliere. Se pinzano entrambe le pinze, potrebbero esserci problemi di collisone rulli-morse
+   local bPreSplit = false --( sNotes:find( 'Presplit', 1, true) ~= nil)
+
    local bSplitting = ( sNotes:find( 'Split', 1, true) ~= nil)
    local bPreCut = ( sNotes:find( 'Precut', 1, true) ~= nil)
    local bCutting = ( sNotes:find( 'Cut', 1, true) ~= nil)
@@ -991,7 +995,11 @@ function SpecCalcLoad( dPosT, dDistFront, dDistBack)
    local dNewY1min = max( EMC.LB - dDistBack, MinOther + AggLoad + EMC.HCING + EMC.HOVM)
    local dNewY1max = min( ( MaxY1 - MinY1) - 5, EMC.LB - MinJoin)
    if dNewY1min > dNewY1max then return nil end
-   local dNewY1Delta = EgtClamp( BD.CHAR_LOAD_DIST or 3000, 0.75 * dNewY1min + 0.25 * dNewY1max, 0.25 * dNewY1min + 0.75 * dNewY1max)
+    -- minimo posizionamento pinza 1 per permettere scarico del restante
+   local dMinLengthRestToUnload = abs( MinY1) + abs( MinV1) + abs( MaxV2) + abs( MaxY2) + MinJoin + AggLoad + EMC.LT + 10
+   -- calcolo posizionamento con i coefficienti, ma verifico che sia tra il minimo e il massimo pinzabile
+   local dNewY1DeltaMax = EgtClamp( 0.25 * dNewY1min + 0.75 * dNewY1max, dMinLengthRestToUnload, dNewY1max)
+   local dNewY1Delta = EgtClamp( BD.CHAR_LOAD_DIST or 3000, 0.75 * dNewY1min + 0.25 * dNewY1max, dNewY1DeltaMax)
    local dNewY2Delta = nil
    local dNewY1 = dPosT + dNewY1Delta
    local vCmd = {}
@@ -1069,11 +1077,21 @@ function SpecCalcCarriages( dDistFront, dDistBack, dRollFront, dRollBack, dY1Del
       WorkTab.dY1DeltaMaxF = min( EMC.LB - MinJoin, MaxY1 + dDistFront + dRollFront + AGG_V)
       WorkTab.dY2DeltaMinF = nil
       WorkTab.dY2DeltaMaxF = nil
+      if dY1DeltaMaxSP then WorkTab.dY1DeltaMaxF = min( WorkTab.dY1DeltaMaxF, dY1DeltaMaxSP) end
       WorkTab.dV1PosF = dRollBack
       WorkTab.bV1CloseF = false
       WorkTab.dV2PosF = -dRollFront
       WorkTab.bV2CloseF = false
 
+      -- aggiuntivo per non avere problemi con pezzi a caduta
+      if WorkTab.dY1DeltaMaxF - WorkTab.dY1DeltaMinF > 5 * BD.CHAR_EXTRA_DIST then
+         WorkTab.dY1DeltaMinF = WorkTab.dY1DeltaMinF + 4 * BD.CHAR_EXTRA_DIST
+      elseif WorkTab.dY1DeltaMaxF - WorkTab.dY1DeltaMinF > 2.5 * BD.CHAR_EXTRA_DIST then
+         WorkTab.dY1DeltaMinF = WorkTab.dY1DeltaMinF + 2 * BD.CHAR_EXTRA_DIST
+      elseif WorkTab.dY1DeltaMaxF - WorkTab.dY1DeltaMinF > 1.5 * BD.CHAR_EXTRA_DIST then
+         WorkTab.dY1DeltaMinF = WorkTab.dY1DeltaMinF + BD.CHAR_EXTRA_DIST
+      end
+
       -- verifico validità intervallo ammesso per Y1
       if WorkTab.dY1DeltaMinF > WorkTab.dY1DeltaMaxF + 10 * GEO.EPS_SMALL then
          EMC.ERR = 18
@@ -1110,6 +1128,15 @@ function SpecCalcCarriages( dDistFront, dDistBack, dRollFront, dRollBack, dY1Del
       WorkTab.dV2PosF = -dRollFront
       WorkTab.bV2CloseF = false
 
+      -- aggiuntivo per minimizzare scambi carrelli
+      if WorkTab.dY1DeltaMaxF - WorkTab.dY1DeltaMinF > 5 * BD.CHAR_EXTRA_DIST then
+         WorkTab.dY1DeltaMinF = WorkTab.dY1DeltaMinF + 4 * BD.CHAR_EXTRA_DIST
+      elseif WorkTab.dY1DeltaMaxF - WorkTab.dY1DeltaMinF > 2.5 * BD.CHAR_EXTRA_DIST then
+         WorkTab.dY1DeltaMinF = WorkTab.dY1DeltaMinF + 2 * BD.CHAR_EXTRA_DIST
+      elseif WorkTab.dY1DeltaMaxF - WorkTab.dY1DeltaMinF > 1.5 * BD.CHAR_EXTRA_DIST then
+         WorkTab.dY1DeltaMinF = WorkTab.dY1DeltaMinF + BD.CHAR_EXTRA_DIST
+      end
+
       -- verifico validità intervallo ammesso per Y1
       if WorkTab.dY1DeltaMinF > WorkTab.dY1DeltaMaxF + 10 * GEO.EPS_SMALL then
          EMC.ERR = 18
@@ -1988,7 +2015,7 @@ local function PosY2Y1B( TabI, vCmd)
          if TabI.dY2PosI > MinY2 and
             TabI.dY2PosI > TabI.dTPosI + MinJoin + EMC.HOVM + EMC.HCING - 10 * GEO.EPS_SMALL then
          -- allontanamento morse, trascinamento trave con Y2
-            MaxDispl( TabI, vCmd, 'M2')  
+            MaxDispl( TabI, vCmd, 'M2')
          else 
          -- accentramento morse, trascinamento trave con Y1
             MaxDispl( TabI, vCmd, 'M3')

Essetre-PF1250MAX.mlde

@@ -49,12 +49,22 @@
 --                      Corretta posizione griglia sotto CU margherita nel modello 3D
 -- 2024/05/23 ver 2.6e5 Allineamento con common ver. 2.6e5
 -- 2024/05/28 ver 2.6e6 Allineamento con common ver. 2.6e6
+-- 2024/06/03 ver 2.6f1 Aggiunta funzione GetSetupInfo a BeamData per nuovo automatismo
+--                      Allineamento con common ver. 2.6f1
+-- 2024/06/06 ver 2.6f2 Allineamento con common ver. 2.6f2
+-- 2024/07/08 ver 2.6g1 Allineamento con common ver. 2.6g1
+-- 2024/07/12 ver 2.6g2 Allineamento con common ver. 2.6g2
+-- 2024/07/22 ver 2.6g3 Allineamento con common ver. 2.6g3
+-- 2024/07/23 ver 2.6g4 Allineamento con common ver. 2.6g4
+--                      Aggiunti file per note utensile e lavorazione
+-- 2024/07/24 ver 2.6g5 Allineamento con common ver. 2.6g5
+--                      Gestione limite corsa asse B2 se lama su H21
 
 -- Intestazioni
 require( 'EmtGenerator')
 EgtEnableDebug( false)
 
-PP_VER = '2.6e6'
+PP_VER = '2.6g5'
 MIN_MACH_VER = '2.5k1'
 MACH_NAME = 'Essetre-PF1250MAX'
 
@@ -240,6 +250,8 @@ if EgtExistsFile( sDataBeam) then
          if Machine.Offsets.C2_POS then MaxC2 = Machine.Offsets.C2_POS end
          if Machine.Offsets.B2_NEG then MinB2 = Machine.Offsets.B2_NEG end
          if Machine.Offsets.B2_POS then MaxB2 = Machine.Offsets.B2_POS end
+         if Machine.Offsets.B2_NEG1 then MinB2b = Machine.Offsets.B2_NEG1 end
+         if Machine.Offsets.B2_POS1 then MaxB2b = Machine.Offsets.B2_POS1 end
          if Machine.Offsets.MIN_Y1 then MinMchY1 = Machine.Offsets.MIN_Y1 end
          if Machine.Offsets.MAX_Y1 then MaxMchY1 = Machine.Offsets.MAX_Y1 end
          if Machine.Offsets.PARK_Y1 then ParkMchY1 = Machine.Offsets.PARK_Y1 end
@@ -1041,6 +1053,11 @@ function OnSetHead()
       EmtModifyAxisDirection( 'B1', Vector3d( cos( Saw2C1Offs), sin( Saw2C1Offs), 0))
    -- se testa H21 (fresa sotto)
    elseif EMC.HEAD == 'H21' then
+      if not EMC.TOTDIAM or EMC.TOTDIAM > 300 then
+         EmtModifyAxisStroke( 'B2', {MinB2b, MaxB2b})
+      else
+         EmtModifyAxisStroke( 'B2', {MinB2, MaxB2})
+      end
       EmtModifyAxisHome( 'C2', ParkC2)
       EmtModifyAxisDirection( 'B2', X_AX())
    -- se testa H22 (lama su aggregato sotto)

MachNotes.ini

@@ -0,0 +1,50 @@
+; Commento per evitare BOM con UTF-8
+;Index = Type, Description, Default Value
+; Type : b=boolean, d=double, l=lenght, s=string
+
+[Drilling]
+
+[Sawing]
+
+[Milling]
+0=d,MaxElev,0
+1=d,OutRaw,0
+2=d,SideElev,0
+3=d,TrimExt,0
+4=sr,VtFaceUse,0,0,0
+
+[Pocketing]
+0=d,MaxElev,0
+1=b,Open,0
+2=d,OpenMinSave,0
+3=d,OpenOutRaw,0
+4=d,MaxOptSize,0
+
+[Mortising]
+0=d,MaxElev,0
+
+[Chiseling]
+
+[SawRoughing]
+
+[SawFinishing]
+
+[GenMachining]
+0=l,LinTol,0.1
+1=l,MaxLen,2
+2=s,Type,ZigZag
+3=d,SideAng,90
+4=l,Step,10
+5=l,OffsProj,0
+6=l,LiTang,0
+7=l,LiOrth,0
+8=l,LiElev,0
+9=l,LoTang,0
+10=l,LoOrth,0
+11=l,LoElev,0
+12=b,DirFromGuide,1
+
+[SurfRoughing]
+
+[SurfFinishing]
+0=b,SkipMaxDown,1

ToolNotes.ini

@@ -0,0 +1,41 @@
+; Commento per evitare BOM con UTF-8
+; Index, Type, Description, Value
+; Index = 0,1,..,n
+; Type : d=double, l=lenght, s=string, b=boolean, dr=double recalc, sr= string recalc, lr=lenght recalc, br=boolean recalc, th=toolholder
+; Description : STEP, SIDESTEP, ...
+
+[DRILL_STD]
+0=th,TH,
+1=d,STEP
+2=s,DOUBLE
+
+[SAW_STD]
+0=th,TH,
+1=d,STEP
+2=d,SIDESTEP
+3=b,LONGCUT
+
+[SAW_FLAT]
+0=th,TH,
+1=d,STEP
+2=d,SIDESTEP
+3=b,LONGCUT
+
+[MILL_STD]
+0=th,TH,
+1=d,STEP
+2=d,SIDESTEP
+3=d,SIDEDEPTH
+4=s,DOUBLE
+
+[MILL_NOTIP]
+0=th,TH,
+1=d,STEP
+2=d,SIDESTEP
+3=d,SIDEDEPTH
+4=s,DOUBLE
+
+[MORTISE_STD]
+0=b,MORTISE
+1=d,STEP
+2=d,SIDESTEP

UpdateLog.txt

@@ -1,5 +1,27 @@
            ==== Common_PF1250 Update Log ====
 
+Versione 2.6g5 (24/07/2024)
+- (SIM) Per OnSetHead chiamata da simulazione, aggiunta lettura TOTDIAM. Serve per limitare corse assi testa sotto. Ticket#1946
+
+Versione 2.6g4 (23/07/2024)
+- (SIM) Corretta ultima modifica per controllo collisioni testa non utilizzata. Trovava collisioni in lavorazioni in doppio.
+
+Versione 2.6g3 (22/07/2024)
+- (SIM) Si aggiunge al controllo collisioni anche Tool e ToolHolder della testa non utilizzata. Ticket#1937
+- (SIM-GEN) In caso di grezzo piuttosto piccolo, concesso pinzaggio fino al massimo possibile, oltre al calcolo con coefficienti. Ticket#1942
+
+Versione 2.6g2 (12/07/2024)
+- (SIM-GEN) Corretto movimento testa sotto che andava in collisione tra una lavorazione e la successiva se tra le due c'era un riposizionamento pinze. Ticket#1925
+
+Versione 2.6g1 (08/07/2024)
+- (SIM-GEN) Corretto movimento che pinzava nel vuoto durante riposizionamento. Ticket#1836
+
+Versione 2.6f2 (06/06/2024)
+- (GEN) Quando si va a ZMAX, si azzerano tutte le coordinate ".pp". Scriveva una Z bassa quando era a Z massima. Ticket#1839
+
+Versione 2.6f1 (03/06/2024)
+- (SIM-GEN) Migliorata gestione approccio al pezzo con lama aggregato da sotto. Va al minimo in X solo se necessario.
+
 Versione 2.6e6 (28/05/2024)
 - (GEN) Aggiunta possibilità di scrivere nome utensile doppio anche in lavorazione con parametro "TOOLDOUBLE". Note sulla lavorazione hanno precedenza su note utensile.
 - (GEN) Ripristinato controllo extra-corsa per testa 2 in caso di lavorazioni in doppio in Y (si era perso in un vecchio commit)

Version.lua

@@ -3,7 +3,7 @@
 
 local InfoCommon_STD_PP = {
    NAME = 'Common_PF1250',            -- nome script PP standard
-   VERSION = '2.6e6',                 -- versione script
+   VERSION = '2.6g5',                 -- versione script
    MIN_MACH_VER_PP_COMMON = '2.5k1'   -- versione minima kernel
 }