Aggiunta lettura quote parcheggio

HOTFIX problema simulazione
Allineamento a common 3.1f1
2026-06-03 12:15:44 +02:00 · 2026-06-03 11:54:12 +02:00 · 2026-06-03 09:47:59 +02:00 · 2026-03-17 15:16:56 +01:00 · 2026-03-17 15:16:43 +01:00 · 2026-03-09 08:29:05 +01:00
12 changed files with 1446 additions and 341 deletions
@@ -42,6 +42,7 @@ local BeamData = {
   DRILL_TOL = 0.2,                         -- tolleranza tra diametro foro e diametro punta
   DRILL_VZ_MIN = - 0.51,                   -- componente limite in Z del versore di un foro
   DRILL_VX_MAX = 0.867,                    -- componente limite in X del versore di un foro sulle facce laterali
   MAX_ANGLE_DRILL_CUT = 15,                -- delta angolo massimo tra foro e taglio che lo attraversa
   DRILL_OVERLAP = 5,                       -- sovrapposizione tra due mezze forature
   MILL_OVERLAP = 5,                        -- sovrapposizione tra due mezze fresature
   MAX_DIST_HTFEA = 50.0,                   -- massima distanza di feature da testa o coda per essere considerata tale
@@ -67,6 +68,8 @@ local BeamData = {
   KIOTP = 6,                               -- coefficiente moltiplicativo per attacco/uscita lama tangente anzichè perpendicolare
   MAXDIAM_POCK_CORNER = 31,                -- diametro massimo utensile ammesso per tasche con angoli interni
   USE_LONGCUT = false,                     -- per i tagli longitudinali usare solo la lavorazione di lama LongCut
   PRECUT_HEAD = true,                      -- flag abilitazione pretaglio grezzo a zero in testa
   PRECUT_TAIL = true,                      -- flag abilitazione pretaglio grezzo a zero in coda
   ADVANCE_TAIL_CUT = true,                 -- per spostare prima del taglio di separazione il taglio di coda su pezzi corti con robabile caduta
   ADVANCE_TAIL_OFFS = 1,                   -- accorciamento taglio di coda avanzato (minimo 1)
   CLAMP5 = false                           -- presenza pinza speciale per pezzi piccoli
@@ -96,6 +99,19 @@ if EgtExistsFile( sData) then
         BeamData.DIM_STRIP_SMALL = Machine.Offsets.DIM_STRIP_SMALL or BeamData.DIM_STRIP_SMALL
         BeamData.DIM_TO_CENTER_STRIP = Machine.Offsets.DIM_TO_CENTER_STRIP or BeamData.DIM_TO_CENTER_STRIP
         BeamData.MAXDIAM_POCK_CORNER = Machine.Offsets.MAXDIAM_POCK_CORNER or BeamData.MAXDIAM_POCK_CORNER
         if Machine.Offsets.PRECUT_HEAD_DISABLE then BeamData.PRECUT_HEAD = ( Machine.Offsets.PRECUT_HEAD_DISABLE == 0) end
         if Machine.Offsets.PRECUT_TAIL_DISABLE then BeamData.PRECUT_TAIL = ( Machine.Offsets.PRECUT_TAIL_DISABLE == 0) end
         BeamData.LONGCUT_ENDLEN = Machine.Offsets.LONGCUT_ENDLEN or BeamData.LONGCUT_ENDLEN
         BeamData.LONGCUT_MAXLEN = Machine.Offsets.LONGCUT_MAXLEN or BeamData.LONGCUT_MAXLEN
         BeamData.ADVANCE_TAIL_OFFS = Machine.Offsets.ADVANCE_TAIL_OFFS or BeamData.ADVANCE_TAIL_OFFS
         BeamData.LEN_VERY_SHORT_PART = Machine.Offsets.LEN_VERY_SHORT_PART or BeamData.LEN_VERY_SHORT_PART
         BeamData.LEN_SHORT_PART = Machine.Offsets.LEN_SHORT_PART or BeamData.LEN_SHORT_PART
         BeamData.OVM_MID = Machine.Offsets.OVM_MID or BeamData.OVM_MID
         if Machine.Offsets.MAX_ANGLE_DRILL_CUT then BeamData.MAX_ANGLE_DRILL_CUT = EgtClamp( Machine.Offsets.MAX_ANGLE_DRILL_CUT, 1, 89) end
         if Machine.Offsets.ROT90 ~= nil then BeamData.ROT90 = ( Machine.Offsets.ROT90 == 1) end
         if Machine.Offsets.CUT_SIC then BeamData.CUT_SIC = EgtClamp( Machine.Offsets.CUT_SIC, 15, 50) end
         if Machine.Offsets.MIN_JOIN_S then BeamData.MIN_JOIN_S = Machine.Offsets.MIN_JOIN_S end
         if Machine.Offsets.MIN_JOIN_L then BeamData.MIN_JOIN_L = Machine.Offsets.MIN_JOIN_L end
      end
      if Machine.Trave then
         BeamData.MIN_WIDTH = Machine.Trave.XMIN or BeamData.MIN_WIDTH
@@ -28,6 +28,8 @@
 17=ProfTCone
 18=SmallToolContour
 19=AntiSplintMillCut
 20=SideMillAsBlade
 21=Prof_end
 [Pocketing]
 1=Pocket
@@ -24,7 +24,7 @@ end
 ---------------------------------------------------------------------
 -- *** SIMULATION ***
 ---------------------------------------------------------------------
-local COLL_SAFE_DIST = 4
+local COLL_SAFE_DIST = 3
 ---------------------------------------------------------------------
 function OnSimulInit()
@@ -79,6 +79,14 @@ function OnSimulStart()
         if vTools and vTools[1] and #(vTools[1]) > 0 then
            EgtLoadTool( vTcPos[i], 1, vTools[1])
            ShowToolInTcPos( vTcPos[i], true)
            -- Aggiunto controllo lunghezza lama minima * 0.9 per ricavare la tolleranza del VMILL
            if EgtTdbSetCurrTool(vTools[1]) then -- set utensile corrente
               if EgtTdbGetCurrToolParam( MCH_TP.TYPE) == MCH_TY.SAW_STD or EgtTdbGetCurrToolParam( MCH_TP.TYPE) == MCH_TY.SAW_FLAT then -- controllo tipo utensile sega
                  local dCurrSawLen = EgtTdbGetCurrToolParam( MCH_TP.LEN) * 0.9
                  -- se non definito o minore del valore precedente aggiorna la tolleranza
                  EMT.VMILLTOL = EgtIf( not EMT.VMILLTOL or dCurrSawLen < EMT.VMILLTOL, dCurrSawLen, EMT.VMILLTOL) 
               end
            end
         end
      end
   end
@@ -88,6 +96,10 @@ function OnSimulStart()
   if DefTcPos2 then
      LoadFirstTool( 2, DefTcPos2)
   end
   -- se presenti, nascondo i tastatori
   DeactivateProbeTool()
   ExecStartHome()
   -- Se reset o home, esco
   if EMT.SIM1ST then return end
@@ -122,14 +134,15 @@ function OnSimulStart()
                     { Grp = 'Base', Sub = 'COLLISION', Name = 'TC1'},
                     { Grp = 'Base', Sub = 'COLLISION', Name = 'TC2'},
                     { Grp = 'Base', Sub = 'BELT', Name = 'COLLISION'},
-                     { Grp = 'X1', Sub = 'COLLISION', Name = 'STM'}}
+                     { Grp = 'X1', Sub = 'COLLISION', Name = 'STM'},
                     { Grp = 'X1', Sub = 'COLLISION', Name = 'STM2'}}
   if EgtGetHeadId( 'H21') then
      table.insert( McdData, { Grp = 'X2', Sub = 'COLLISION', Name = 'STM'})
   end
   -- gruppo CHSAW si attiva solo se progress, one con BIT mortiser o PF
-   if Progress or Mortiser or EgtGetHeadId( 'H21') then
+   if Progress or Mortiser or EgtGetHeadId( 'H21') or SecondToolChanger then
      table.insert( McdData, { Grp = 'Base', Sub = 'COLLISION', Name = 'CHSAW'})
   end
   -- gruppo MORTISER si attiva solo se PF con BIT mortiser attivo
@@ -237,19 +250,26 @@ function OnSimulDispositionStart()
               end
            end
            -- determino la risoluzione dello Zmap
-            local dArea = b3Raw:getDimX() * b3Raw:getDimY() + b3Raw:getDimX() * b3Raw:getDimZ() + b3Raw:getDimY() * b3Raw:getDimZ()
+            local dTol = 4.71
-            local dTol = 4.51
+            if EmtGetVMillStep then
-            if dArea < CoeffVM * 0.5e6 then
+               dTol = EmtGetVMillStep( b3Raw:getDimX(), b3Raw:getDimY(), b3Raw:getDimZ(), dTol)
-               dTol = 1.01
+            else
-            elseif dArea < CoeffVM * 1.2e6 then
+               local dArea = b3Raw:getDimX() * b3Raw:getDimY() + b3Raw:getDimX() * b3Raw:getDimZ() + b3Raw:getDimY() * b3Raw:getDimZ()
-               dTol = 1.51
+               if dArea < 0.075e6 then
-            elseif dArea < CoeffVM * 2.5e6 then
+                  dTol = 0.71
-               dTol = 1.97
+               elseif dArea < 0.15e6 then
-            elseif dArea < CoeffVM * 5.0e6 then
+                  dTol = 1.01
-               dTol = 2.81
+               elseif dArea < 0.3e6 then
-            elseif dArea < CoeffVM * 10.0e6 then
+                  dTol = 1.51
-               dTol = 3.77
+               elseif dArea < 0.6e6 then
                  dTol = 1.97
               elseif dArea < 1.2e6 then
                  dTol = 2.81
               elseif dArea < 2.4e6 then
                  dTol = 3.77
               end
            end
            dTol = min( dTol, EMT.VMILLTOL or dTol) -- imposto dTol al valore minore tra quello per volume e quello per spessore lama
            -- creo lo Zmap
            local VMillId = EgtVolZmapBox( nPartRawId, b3Raw:getMin(), b3Raw:getDimX(), b3Raw:getDimY(), b3Raw:getDimZ(), dTol, true, GDB_RT.GLOB)
            if VMillId then
@@ -466,6 +486,7 @@ function OnSimulDispositionEnd()
      EMT.UNLOADING = false
      EMT.FALL = false
      EMT.TO_FALL = false
      EMT.Y2DELTA = nil
   end
   -- se disposizione intermedia
   if IsMidPhase( EMT.PHASE) or IsEnd2Phase( EMT.PHASE) then
@@ -497,9 +518,11 @@ function OnSimulToolSelect( dPosA)
   EMT.TDIAM = EgtTdbGetCurrToolParam( MCH_TP.DIAM)
   EMT.TUSERNOTES = EgtTdbGetCurrToolParam( MCH_TP.USERNOTES)
   local nSetHead = GetHeadSet( EMT.HEAD)
   local bIsFirstHead = ( nSetHead == 1 or nSetHead == 11)
   EMT.ISPROBING = HeadIsProbe( EMT.HEAD)
   -- se ho due teste, verifico che l'altra sia dalla parte opposta
   if EgtGetHeadId( 'H21') then
-      if nSetHead == 1 then
+      if bIsFirstHead then
         EgtSetAxisPos( 'X2', MinX2)
      else
         EgtSetAxisPos( 'X1', MaxX1)
@@ -507,10 +530,8 @@ function OnSimulToolSelect( dPosA)
   end
   -- se sega a catena, imposto subito angolo scelto per asse virtuale A
   if HeadIsChainSaw( EMT.HEAD) then
-      -- se non Progress, apro le paratie
+      -- apro le paratie
-      if not Progress then
+      ExecParkRoller( nil, nil, nil, nil, false, IsStartPhase( EMT.PHASE))
         ExecParkRoller( nil, nil, nil, nil, false, IsStartPhase( EMT.PHASE))
      end
      -- valore dell'asse virtuale
      dPosA = dPosA or GetNextChainSawingVirtualAxis( EMT.MCHID)
      -- imposto il valore di A
@@ -537,6 +558,75 @@ function OnSimulToolSelect( dPosA)
      -- Imposto visualizzazione
      EgtSetMode( EgtGetHeadId( EMT.HEAD) or GDB_ID.NULL, GDB_MD.STD)
   end
   -- se tastatore
   if HeadIsProbe( EMT.HEAD) then
      local bChanged = true
      if bIsFirstHead then
         -- se prossimo utensile compatibile, lo prelevo
         if IsToolCompatibleWithProbe( EMT.PROBENEXTTOOL_H1, EMT.TOOL) then
            ShowToolInTcPos( EMT.PREVTCPOS_H1, true)
            EgtLoadTool( EMT.PROBENEXTHEAD_H1, 1, EMT.PROBENEXTTOOL_H1)
            EMT.TCPOS = EMT.PROBENEXTTCPOS_H1
            EMT.HEAD = EMT.PROBENEXTHEAD_H1
            EMT.TOOL = EMT.PROBENEXTTOOL_H1
         else
            -- se vecchio utensile compatibile, tengo quello caricato
            if IsToolCompatibleWithProbe( EMT.PREVTOOL_H1, EMT.TOOL) then
               bChanged = false
               EMT.TCPOS = EMT.PREVTCPOS_H1
               EMT.TOOL = EMT.PREVTOOL_H1
               EMT.HEAD = EMT.PREVHEAD_H1
            -- altrimenti si seleziona utensile di default
            else
               ExecMoveZmax( EMT.MCHSPLIT, true)
               EMT.TCPOS = DefTcPos1
               EMT.TOOL = GetToolNameFromTcPos( DefTcPos1)
               EMT.HEAD, _ = GetToolHead( EMT.TOOL)
               ShowToolInTcPos( EMT.PREVTCPOS_H1, true)
               EgtLoadTool( EMT.HEAD, 1, EMT.TOOL)
            end
         end
         -- se cambiato utensile, si setta subito nome precedente
         if bChanged then
            EMT.PREVTOOL_H1 = EMT.TOOL
            EMT.PREVHEAD_H1 = EMT.HEAD
            EMT.PREVTCPOS_H1 = EMT.TCPOS
         end
      else
         -- se prossimo utensile compatibile, lo prelevo
         if IsToolCompatibleWithProbe( EMT.PROBENEXTTOOL_H2, EMT.TOOL) then 
            ShowToolInTcPos( EMT.PREVTCPOS_H2, true)
            EgtLoadTool( EMT.PROBENEXTHEAD_H2, 1, EMT.PROBENEXTTOOL_H2)
            EMT.TCPOS = EMT.PROBENEXTTCPOS_H2
            EMT.HEAD = EMT.PROBENEXTHEAD_H2
            EMT.TOOL = EMT.PROBENEXTTOOL_H2
         else
            -- se vecchio utensile compatibile, tengo quello caricato
            if IsToolCompatibleWithProbe( EMT.PREVTOOL_H2, EMT.TOOL) then
               bChanged = false
               EMT.TCPOS = EMT.PREVTCPOS_H2
               EMT.TOOL = EMT.PREVTOOL_H2
               EMT.HEAD = EMT.PREVHEAD_H2
            -- altrimenti si seleziona utensile di default
            else
               ExecMoveZmax( EMT.MCHSPLIT, true)
               EMT.TCPOS = DefTcPos2
               EMT.TOOL = GetToolNameFromTcPos( DefTcPos2)
               EMT.HEAD, _ = GetToolHead( EMT.TOOL)
               ShowToolInTcPos( EMT.PREVTCPOS_H2, true)
               EgtLoadTool( EMT.HEAD, 1, EMT.TOOL)
            end
         end
         -- se cambiato utensile, si setta subito nome precedente
         if bChanged then
            EMT.PREVTOOL_H2 = EMT.TOOL
            EMT.PREVHEAD_H2 = EMT.HEAD
            EMT.PREVTCPOS_H2 = EMT.TCPOS
         end
      end
   end
   -- carico utensile, con breve pausa
   EgtPause( 100)
   EgtOutText( '')
@@ -605,10 +695,57 @@ function OnSimulToolDeselect( dPrevA)
         LoadNextTool( 2, DefTcPos2)
      end
   end
   -- se presenti, nascondo i tastatori
   DeactivateProbeTool()
   local bSkipToolChange = false
   -- se prossima lavorazione è tastatura, si controlla compatibilità con utensile successivo
   if HeadIsProbe( EMT.NEXTHEAD) then
      local idProbeMachining = EgtGetNextActiveOperation( EMT.MCHID)
      local bFound = false
      local nProbeHead = GetHeadSet( EMT.NEXTHEAD)
      local idProbeNextMachining = EgtGetNextActiveOperation( idProbeMachining)
      while not bFound do
         if idProbeNextMachining then
            EgtSetCurrMachining( idProbeNextMachining)
            local sToolNameNextProbe = EgtGetMachiningParam( MCH_MP.TOOL)
            if sToolNameNextProbe then
               local sToolHeadNextProbe, sToolTcPosNextProbe = GetToolHead( sToolNameNextProbe)
               local nToolHead = GetHeadSet( sToolHeadNextProbe)
               -- se sono sulla stessa testa
               if nToolHead == 1 and nProbeHead == 11 then
                  EMT.PROBENEXTTOOL_H1 = sToolNameNextProbe
                  EMT.PROBENEXTHEAD_H1 = sToolHeadNextProbe
                  EMT.PROBENEXTTCPOS_H1 = sToolTcPosNextProbe
                  bFound = true
               elseif nToolHead == 2 and nProbeHead == 21 then
                  EMT.PROBENEXTTOOL_H2 = sToolNameNextProbe
                  EMT.PROBENEXTHEAD_H2 = sToolHeadNextProbe
                  EMT.PROBENEXTTCPOS_H2 = sToolTcPosNextProbe
                  bFound = true
               end
            end
         else
            break
         end
         idProbeNextMachining = EgtGetNextActiveOperation( idProbeNextMachining)
      end
      -- ripristino lavorazione corrente
      EgtSetCurrMachining( EMT.MCHID)
      if nProbeHead == 11 and not( IsToolCompatibleWithProbe( EMT.PREVTOOL_H1, EMT.TOOL)) then
         ;
      elseif nProbeHead == 21 and not( IsToolCompatibleWithProbe( EMT.PREVTOOL_H2, EMT.TOOL)) then
         ; 
      else
         bSkipToolChange = true
      end
   end
   -- reset flag sega a catena già depositata
   EMT.CHSAW_OUT = nil
   -- se utensile non cambia e non è sega a catena, esco
-   if ( EMT.NEXTTOOL == EMT.PREVTOOL_H1 or EMT.NEXTTOOL == EMT.PREVTOOL_H2) and not HeadIsChainSaw( EMT.NEXTHEAD) then return end
+   if bSkipToolChange or ( ( EMT.NEXTTOOL == EMT.PREVTOOL_H1 or EMT.NEXTTOOL == EMT.PREVTOOL_H2) and not HeadIsChainSaw( EMT.NEXTHEAD)) then return end
   -- deposito utensile
   EgtOutText( 'Tool change in progress...')
   -- se prossimo utensile sega a catena, devo mettere in home testa 1 e depositare l'utensile sulla testa 2 o viceversa
@@ -617,7 +754,7 @@ function OnSimulToolDeselect( dPrevA)
      -- se ci sono due teste
      if EgtGetHeadId( 'H21') then
         local nSetHead = GetHeadSet( EMT.NEXTHEAD)
-         if nSetHead == 1 then
+         if nSetHead == 1 or nSetHead == 11 then
            -- porto in home testa 1
            SimulMoveAxis( 'X1', MaxX1, MCH_SIM_STEP.RAPID)
            -- deposito utensile fresa
@@ -642,7 +779,7 @@ function OnSimulToolDeselect( dPrevA)
               SimulMoveAxes( 'B1', ParkB1, MCH_SIM_STEP.RAPROT, 'C1', ParkC1, MCH_SIM_STEP.RAPROT)
               SimulMoveAxis( 'X1', ParkX1, MCH_SIM_STEP.RAPID)
            -- deposito utensile lama
-            elseif EMT.PREVHEAD_H1 == 'H12' then
+            elseif EMT.PREVHEAD_H1 == 'H12' or EMT.PREVHEAD_H1 == 'H17' then
               -- simulo movimento
               SimulMoveAxes( 'B1', ParkB1, MCH_SIM_STEP.RAPROT, 'C1', ParkC1, MCH_SIM_STEP.RAPROT)
               SimulMoveAxis( 'X1', ParkX1, MCH_SIM_STEP.RAPID)
@@ -673,7 +810,7 @@ function OnSimulToolDeselect( dPrevA)
      if nSetHead == 1 and EMT.PREVHEAD_H1 then
         local MyParkX1 = EgtIf( GetHeadTCSet( EMT.HEAD, EMT.TCPOS) == 'Head1_TC1', ParkX1, ParkFrnX1)
         SimulMoveAxis( 'X1', MyParkX1, MCH_SIM_STEP.RAPID)
-      elseif EMT.PREVHEAD_H2 then
+      elseif nSetHead == 2 and EMT.PREVHEAD_H2 then
         SimulMoveAxis( 'X2', ParkX2, MCH_SIM_STEP.RAPID)
      end
   end
@@ -704,18 +841,18 @@ function OnSimulToolDeselect( dPrevA)
         SimulMoveAxis( 'Z2', ParkCSawZ2, MCH_SIM_STEP.RAPID)
      end
   -- per prossima testa gruppo 1
-   else
+   elseif nNextSetHead == 1 then
      -- visualizzo utensile su TcPos
      ShowToolInTcPos( EMT.PREVTCPOS_H1, true)
      -- nascondo l'utensile sulla testa
      EgtSetMode( EgtGetHeadId( EMT.PREVHEAD_H1 or '') or GDB_ID.NULL, GDB_MD.HIDDEN)
      -- prendo utensile fresa o lama
-      if EMT.NEXTHEAD == 'H11' or EMT.NEXTHEAD == 'H12' then
+      if EMT.NEXTHEAD == 'H11' or EMT.NEXTHEAD == 'H12' or EMT.NEXTHEAD == 'H17' then
         local MyParkX1 = EgtIf( GetHeadTCSet( EMT.NEXTHEAD, EMT.NEXTTCPOS) == 'Head1_TC1', ParkX1, ParkFrnX1)
         local MyParkB1 = ParkB1
         local MyParkC1 = ParkC1
         -- se ho due teste oppure è progress, significa che ho CU verticale
-         if EgtGetHeadId('H21') or bProgress then
+         if EgtGetHeadId('H21') or Progress or SecondToolChanger then
            MyParkB1 = EgtIf( GetHeadTCSet( EMT.NEXTHEAD, EMT.NEXTTCPOS) == 'Head1_TC1', ParkB1, ParkFrnB1)
            MyParkC1 = EgtIf( GetHeadTCSet( EMT.NEXTHEAD, EMT.NEXTTCPOS) == 'Head1_TC1', ParkC1, ParkFrnC1)
         -- altrimenti su one CU speciale motosega-utensile lungo
@@ -766,6 +903,7 @@ function OnSimulMachiningStart()
   EMT.VMRS = ( EMT.MCHTYPE ~= MCH_MY.DRILLING and not EMT.MCHUSERNOTES:find( 'VMRS=0;', 1, true))
   EMT.MCHSPLIT = ( EMT.MCHUSERNOTES:find( 'Split;', 1, true) ~= nil)
   EMT.MCHPRECUT = ( EMT.MCHUSERNOTES:find( 'Precut;', 1, true) ~= nil)
   EMT.MCHCUT = ( EMT.MCHUSERNOTES:find( 'Cut;', 1, true) ~= nil)
   -- recupero TASKID della feature lavorata
   local vId = EgtGetMachiningGeometry()
   if vId and #vId > 0 and #vId[1] > 0 then
@@ -836,6 +974,7 @@ function OnSimulMachiningEnd()
   EMT.DOU_TOOL = nil
   -- salvo dati utensile
   local nSetHead = GetHeadSet( EMT.HEAD)
   -- se non ho già tolto la sega a catena, aggiorno valori
   if not EMT.CHSAW_OUT then
   -- per gruppo testa 1
@@ -959,7 +1098,12 @@ function OnSimulMoveStart()
   -- pinza 5
   if EMT.W2DELTA then
      EMT.A5n = 'W'
-      EMT.A5m = 'T'
+      local dPosQW = EgtGetAxisPos( 'QW') or 0
      if dPosQW < 1 then
         EMT.A5m = nil
      else
         EMT.A5m = 'T'
      end
      EMT.A5 = EMT.L1 + EMT.W2DELTA - EMT.A4
      VerifyWStroke( EMT.A5)
   end
@@ -1031,7 +1175,15 @@ function OnSimulMoveStart()
               if EMT.HEAD == 'H12' and abs( C1Pos - EMT.R1) > 1 and ( abs( C1Home - EMT.R1) > 30.1 or abs(B1Home - EMT.R2) > 30.1) then
                  SimulMoveAxis( 'B1', 0, MCH_SIM_STEP.COLLROT)
                  SimulMoveAxis( 'C1', EMT.R1, MCH_SIM_STEP.COLLROT)
-                  SimulMoveAxes( 'Z1', dZref, MCH_SIM_STEP.RAPID, 'B1', EMT.R2, MCH_SIM_STEP.COLLROT)
+                  -- se movimento di B > di 90°, spezza il movimento in 2 arrivando alla quota Z con B+-90 e poi muove l'ultimo segmento
                  -- evita collisione con carro X
                  if EMT.R2 > 91 or EMT.R2 < -91 then
                     local dBref = EgtClamp( EMT.R2, -91, 91)
                     SimulMoveAxes( 'Z1', dZref, MCH_SIM_STEP.RAPID, 'B1', dBref, MCH_SIM_STEP.COLLROT)
                     SimulMoveAxis( 'B1', EMT.R2, MCH_SIM_STEP.COLLROT)
                  else
                     SimulMoveAxes( 'Z1', dZref, MCH_SIM_STEP.RAPID, 'B1', EMT.R2, MCH_SIM_STEP.COLLROT)
                  end
                  if bMoveZbeforeX then
                     SimulMoveAxis( 'Z1', EMT.L3, MCH_SIM_STEP.RAPID)
                  end
@@ -1047,9 +1199,9 @@ function OnSimulMoveStart()
            end
         -- altrimenti sega a catena
         else
            local dPosA = GetCurrChainSawingVirtualAxis()
            -- se anche precedente con sega a catena ma depositata, devo riprenderla
            if EMT.CHSAW_OUT then
               local dPosA = GetCurrChainSawingVirtualAxis()
               EgtSetMode( EgtGetHeadId( EMT.HEAD), GDB_MD.HIDDEN)
               OnSimulToolDeselect()
               EgtLoadTool( EMT.HEAD, 1, EMT.TOOL)
@@ -1078,13 +1230,13 @@ function OnSimulMoveStart()
      else
         if GetHeadTCSet( EMT.HEAD, EMT.TCPOS) == 'Head1_TC2' then
            -- se movimento iniziale da Zmax con lama o fresa
-            if EMT.HEAD == 'H11' or EMT.HEAD == 'H12' then
+            if EMT.HEAD == 'H11' or EMT.HEAD == 'H12' or EMT.HEAD == 'H17' then
               if EMT.ZMAX or EMT.FLAG == 1 or ( EMT.FLAG == 2 and EMT.FLAG2 == 1) then
                  --EgtOutBox( 'Flag 2,1', 'Info Rapid')
                  local bMoveZbeforeX = false
                  local dZref = EMT.L3
-                  if EMT.HEAD == 'H12' and ( -EMT.L2 < -LimX1RotSaw or EMT.R2 > 91) then
+                  if EMT.HEAD == 'H12' and ( EgtIf( BD.RIGHT_LOAD, -EMT.L2 < -LimX1RotSaw, -EMT.L2 > -LimX1RotSaw) or EMT.R2 > 91) then
                     dZref = Z1Home + GetZExtra( EMT.HEAD, EMT.R2) - 100
                  end
                  -- se la quota di lavoro è più in alta della posizione a ZHOME della testa, prima si va alla Z di lavoro e poi si approccia il pezzo
@@ -1100,7 +1252,15 @@ function OnSimulMoveStart()
                  if EMT.HEAD == 'H12' and abs( C1Pos - EMT.R1) > 1 and ( abs( C1Home - EMT.R1) > 30.1 or abs(B1Home - EMT.R2) > 30.1) then
                     SimulMoveAxis( 'B1', 0, MCH_SIM_STEP.COLLROT)
                     SimulMoveAxis( 'C1', EMT.R1, MCH_SIM_STEP.COLLROT)
-                     SimulMoveAxes( 'Z1', dZref, MCH_SIM_STEP.RAPID, 'B1', EMT.R2, MCH_SIM_STEP.COLLROT)
+                     -- se movimento di B > di 90°, spezza il movimento in 2 arrivando alla quota Z con B+-90 e poi muove l'ultimo segmento
                     -- evita collisione con carro X
                     if EMT.R2 > 91 or EMT.R2 < -91 then
                        local dBref = EgtClamp( EMT.R2, -91, 91)
                        SimulMoveAxes( 'Z1', dZref, MCH_SIM_STEP.RAPID, 'B1', dBref, MCH_SIM_STEP.COLLROT)
                        SimulMoveAxis( 'B1', EMT.R2, MCH_SIM_STEP.COLLROT)
                     else
                        SimulMoveAxes( 'Z1', dZref, MCH_SIM_STEP.RAPID, 'B1', EMT.R2, MCH_SIM_STEP.COLLROT)
                     end
                     if bMoveZbeforeX then
                        SimulMoveAxis( 'Z1', EMT.L3, MCH_SIM_STEP.RAPID)
                     end
@@ -1113,9 +1273,9 @@ function OnSimulMoveStart()
               end
            -- altrimenti sega a catena (H13 o H15)
            else
               local dPosA = GetCurrChainSawingVirtualAxis()
               -- se anche precedente con sega a catena ma depositata, devo riprenderla
               if EMT.CHSAW_OUT then
                  local dPosA = GetCurrChainSawingVirtualAxis()
                  EgtSetMode( EgtGetHeadId( EMT.HEAD), GDB_MD.HIDDEN)
                  OnSimulToolDeselect()
                  EgtLoadTool( EMT.HEAD, 1, EMT.TOOL)
@@ -1172,7 +1332,15 @@ function OnSimulMoveStart()
                     if EMT.HEAD == 'H22' then
                        SimulMoveAxis( 'B2', 0, MCH_SIM_STEP.COLLROT)
                        SimulMoveAxis( 'C2', EMT.R1, MCH_SIM_STEP.COLLROT)
-                        SimulMoveAxes( 'Z2', dZref, MCH_SIM_STEP.RAPID, 'B2', EMT.R2, MCH_SIM_STEP.COLLROT)
+                        -- se movimento di B > di 90°, spezza il movimento in 2 arrivando alla quota Z con B+-90 e poi muove l'ultimo segmento
                        -- evita collisione con carro X
                        if EMT.R2 > 91 or EMT.R2 < -91 then
                           local dBref = EgtClamp( EMT.R2, -91, 91)
                           SimulMoveAxes( 'Z2', dZref, MCH_SIM_STEP.RAPID, 'B2', dBref, MCH_SIM_STEP.COLLROT)
                           SimulMoveAxis( 'B2', EMT.R2, MCH_SIM_STEP.COLLROT)
                        else
                           SimulMoveAxes( 'Z2', dZref, MCH_SIM_STEP.RAPID, 'B2', EMT.R2, MCH_SIM_STEP.COLLROT)
                        end
                        if bMoveZbeforeX then
                           SimulMoveAxis( 'Z2', EMT.L3, MCH_SIM_STEP.RAPID)
                        end
@@ -1189,9 +1357,9 @@ function OnSimulMoveStart()
               end
            -- altrimenti sega a catena
            else
               local dPosA = GetCurrChainSawingVirtualAxis()
               -- se anche precedente con sega a catena ma depositata, devo riprenderla
               if EMT.CHSAW_OUT then
                  local dPosA = GetCurrChainSawingVirtualAxis()
                  EgtSetMode( EgtGetHeadId( EMT.HEAD), GDB_MD.HIDDEN)
                  OnSimulToolDeselect()
                  EgtLoadTool( EMT.HEAD, 1, EMT.TOOL)
@@ -1337,7 +1505,7 @@ function OnSimulMoveEnd()
      -- eventuale rimozione sfridi
      ExecRemoveScraps()
      -- se Split o Presplit lascio agganciata solo la pinza Y2 alla fine dei movimenti
-      local sNextTool = GetNextTool( EMT.MCHID)
+      local sNextTool = GetNextTool( EMT.MCHID, true)
      -- vado in home se è ultimo movimento ed è ultima lavorazione, se sono con motosega e devo cambiare utensile, oppure se ho la lama
      local bToXhome = ( IsLastPath( EMT.PATHID) and not sNextTool) or ( EMT.HEAD == 'H23' and EMT.TOOL ~= sNextTool) or ( EMT.HEAD == 'H13' and EMT.TOOL ~= sNextTool) or
                       ( EMT.HEAD == 'H12' and EMT.TOOL ~= sNextTool ) or ( EMT.HEAD == 'H22' and EMT.TOOL ~= sNextTool) or EMT.MCHSPLIT
@@ -1471,7 +1639,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')
@@ -1589,7 +1757,15 @@ function ExecMoveHome( bNearV, bMchSplit)
         EMT.CHSAW_OUT = true
      end
      -- porto le teste in home
-      SimulMoveAxes( 'X1', ParkX1, MCH_SIM_STEP.RAPID, 'X2', ParkX2, MCH_SIM_STEP.RAPID)
+      if EgtGetHeadId( 'H21') then
         SimulMoveAxes( 'X1', ParkX1, MCH_SIM_STEP.RAPID, 'X2', ParkX2, MCH_SIM_STEP.RAPID)
      else
         if GetHeadTCSet( EMT.HEAD, EMT.TCPOS) == 'Head1_TC1' then
            SimulMoveAxes( 'X1', ParkX1, MCH_SIM_STEP.RAPID)
         else
            SimulMoveAxes( 'X1', ParkFrnX1, MCH_SIM_STEP.RAPID)
         end
      end
      -- sistemo i rulli
      ExecOpenRoller( 1)
      ExecOpenRoller( 2)
@@ -1605,16 +1781,50 @@ function ExecMoveZmax( bMchSplit, btoXHome)
   -- set della testa
   local nSetHead = GetHeadSet( EMT.HEAD)
   if nSetHead == 0 then return end
   local bIsFirstHead = ( nSetHead == 1 or nSetHead == 11)
   if EMT.ISPROBING then
      -- se lavorazione successiva con stessa testa non si va a Z massima
      local sToolNameNextProbe
      local idProbeNextMachining = EgtGetNextActiveOperation( EMT.MCHID)
      if idProbeNextMachining then
         EgtSetCurrMachining( idProbeNextMachining)
         sToolNameNextProbe = EgtGetMachiningParam( MCH_MP.TOOL)
         EgtSetCurrMachining( EMT.MCHID)
      end
      local bMoveToZMax = true
      if sToolNameNextProbe and bIsFirstHead and EMT.PREVTOOL_H1 == sToolNameNextProbe then
         bMoveToZMax = false
      elseif sToolNameNextProbe and not bIsFirstHead and EMT.PREVTOOL_H2 == sToolNameNextProbe then
         bMoveToZMax = false
      end
      -- se non serve alzarsi
      if not bMoveToZMax then
         local vtE = Vector3d( EMT.EXTR)
         local ProbePosZ
         -- 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
            if nSetHead == 1 then
               SimulMoveAxis( 'Z1', ProbePosZ, MCH_SIM_STEP.RAPID)
            else
               SimulMoveAxis( 'Z2', ProbePosZ, MCH_SIM_STEP.RAPID)
            end
         end
         return
      end
   end
   -- posizioni correnti degli assi testa
-   local CurrX = EgtGetAxisPos( EgtIf( nSetHead == 1, 'X1', 'X2'))
+   local CurrX = EgtGetAxisPos( EgtIf( bIsFirstHead, 'X1', 'X2'))
-   local CurrZ = EgtGetAxisPos( EgtIf( nSetHead == 1, 'Z1', 'Z2'))
+   local CurrZ = EgtGetAxisPos( EgtIf( bIsFirstHead, 'Z1', 'Z2'))
-   local CurrC = EgtGetAxisPos( EgtIf( nSetHead == 1, 'C1', 'C2'))
+   local CurrC = EgtGetAxisPos( EgtIf( bIsFirstHead, 'C1', 'C2'))
-   local CurrB = EgtGetAxisPos( EgtIf( nSetHead == 1, 'B1', 'B2'))
+   local CurrB = EgtGetAxisPos( EgtIf( bIsFirstHead, 'B1', 'B2'))
   -- posizioni home degli assi testa
-   local HomeX = EgtGetAxisHomePos( EgtIf( nSetHead == 1, 'X1', 'X2'))
+   local HomeX = EgtGetAxisHomePos( EgtIf( bIsFirstHead, 'X1', 'X2'))
-   local HomeZ = EgtGetAxisHomePos( EgtIf( nSetHead == 1, 'Z1', 'Z2'))
+   local HomeZ = EgtGetAxisHomePos( EgtIf( bIsFirstHead, 'Z1', 'Z2'))
-   local HomeC = EgtGetAxisHomePos( EgtIf( nSetHead == 1, 'C1', 'C2'))
+   local HomeC = EgtGetAxisHomePos( EgtIf( bIsFirstHead, 'C1', 'C2'))
-   local HomeB = EgtGetAxisHomePos( EgtIf( nSetHead == 1, 'B1', 'B2'))
+   local HomeB = EgtGetAxisHomePos( EgtIf( bIsFirstHead, 'B1', 'B2'))
   -- verifico se necessario ruotare la testa
   local bRot = ( abs( HomeC - CurrC) > 1 or abs( HomeB - CurrB) > 1)
   -- se necessario ruotare la testa, allargo i carrelli
@@ -1625,7 +1835,7 @@ function ExecMoveZmax( bMchSplit, btoXHome)
      ExecParkRoller( nil, nil, nil, nil, bMchSplit, bAgg)
   end
   -- se testa 1
-   if nSetHead == 1 then
+   if bIsFirstHead then
      -- se fresa o lama
      if GetHeadTCSet( EMT.HEAD, EMT.TCPOS) == 'Head1_TC1' then
         if not HeadIsChainSaw( EMT.HEAD) then
@@ -1669,24 +1879,40 @@ function ExecMoveZmax( bMchSplit, btoXHome)
            SimulMoveAxes( 'X1', HomeX, MCH_SIM_STEP.RAPID, 'C1', HomeC, MCH_SIM_STEP.COLLROT)
         end
      else
-         -- se sega a catena
+         -- se fresa o lama
         if not HeadIsChainSaw( EMT.HEAD) then
            if abs( HomeC - CurrC) > 0.1 or abs( HomeB - CurrB) > 0.1 then
               local dZref = HomeZ + GetZExtra( EMT.HEAD, CurrB)
               SimulMoveAxes( 'Z1', EgtIf( dZref > CurrZ, dZref, CurrZ), MCH_SIM_STEP.RAPID, 'B1', EgtClamp( CurrB, -90, 90), MCH_SIM_STEP.COLLROT)
-               if EMT.HEAD == 'H12' and ( abs( HomeC - CurrC) > 30.1 or abs( HomeB - CurrB) > 30.1) or not( bProgress) then
+               SimulMoveAxes( 'Z1', MaxZ1, MCH_SIM_STEP.RAPID, 'B1', 0, MCH_SIM_STEP.COLLROT)
                  SimulMoveAxes( 'Z1', MaxZ1, MCH_SIM_STEP.RAPID, 'B1', 0, MCH_SIM_STEP.COLLROT)
               end
               SimulMoveAxis( 'C1', HomeC, MCH_SIM_STEP.COLLROT)
               SimulMoveAxis( 'B1', HomeB, MCH_SIM_STEP.COLLROT)
            end
            SimulMoveAxis( 'Z1', MaxZ1, MCH_SIM_STEP.RAPID)
            if btoXHome then
               EMT.XHOME = true
-               SimulMoveAxis( 'X1', ParkX1, MCH_SIM_STEP.RAPID)
+               SimulMoveAxis( 'X1', HomeX, MCH_SIM_STEP.RAPID)
            end
         -- altrimenti sega a catena
         else
            -- controlla che l'ingombro della sega a catena non possa collidere durante il suo riposizionamento
            local dChSawEncumbrance = sqrt( pow( EgtTdbGetCurrToolParam( MCH_TP.TOTLEN), 2) + pow( ChSawLen + MillOffs, 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.L3p + MillOffs - dChSawEncumbrance - EMT.SB - 30
                  -- nuova quota Z intermedia
                  local dZUp = EMT.L3p + ( DeltaTabZ - dEncumbranceTot)
                  -- se la nuova quota è minore della quota di parcheggio
                  if dZUp <= ParkCSawZ1 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
                        SimulMoveAxis( 'Z1', dZUp, MCH_SIM_STEP.RAPID)
                     end
                  end
               end
            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)
@@ -1694,9 +1920,8 @@ function ExecMoveZmax( bMchSplit, btoXHome)
            if btoXHome then
               EgtUnloadTool( EMT.HEAD, 1)
               ShowToolInTcPos( EMT.TCPOS, true)
-               EMT.PREVTOOL_H1 = nil
+               -- nascondo l'utensile sulla testa
-               EMT.PREVHEAD_H1 = nil
+               EgtSetMode( EgtGetHeadId( EMT.HEAD or '') or GDB_ID.NULL, GDB_MD.HIDDEN)
               EMT.PREVTCPOS_H1 = nil
               EMT.CHSAW_OUT = true
               EMT.XHOME = true
            end
@@ -1722,13 +1947,31 @@ function ExecMoveZmax( bMchSplit, btoXHome)
            EMT.XHOME = true
            SimulMoveAxis( 'X2', ParkX2, MCH_SIM_STEP.RAPID)
         end
-   -- altrimenti sega a catena
+      -- altrimenti sega a catena
      else
         -- controlla che l'ingombro della sega a catena non possa collidere durante il suo riposizionamento
         local dChSawEncumbrance = sqrt( pow( EgtTdbGetCurrToolParam( MCH_TP.TOTLEN), 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.L3p + Mill2Offs - dChSawEncumbrance - EMT.SB - 30
               -- nuova quota Z intermedia
               local dZUp = EMT.L3p + ( 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
                     SimulMoveAxis( 'Z2', dZUp, MCH_SIM_STEP.RAPID)
                  end
               end
            end
         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)
         end
-         SimulMoveAxes( 'X2', HomeX, MCH_SIM_STEP.RAPID, 'C2', HomeC, MCH_SIM_STEP.COLLROT)
+         SimulMoveAxes( 'X2', ParkCSawX2, MCH_SIM_STEP.RAPID, 'C2', HomeC, MCH_SIM_STEP.COLLROT)
      end
   end
   EMT.ZMAX = true
@@ -1803,16 +2046,163 @@ function ExecUnloading()
   end
 end
 ---------------------------------------------------------------------
 function CheckClamping( sClampName)
   nIndexClamp = EgtGetAxisId( sClampName)
   local idClampPath = EgtGetFirstInGroup( EgtGetFirstNameInGroup( nIndexClamp, 'CLAMP_CHECK') or GDB_ID.NULL)
   local b3ClampingArea = EgtGetBBoxGlob( idClampPath or GDB_ID.NULL, GDB_BB.STANDARD)
   -- se non trovo percorso area di clamping, esco subito
   if not idClampPath or not EMT.VMILL or not ClampingCoeffMin then
      return
   end
   local function GetCurveListFromIntersection( sPosIntersPlane, sIntersPlane, dDepth)
      local idCurveList = {}
      local vtIntersPlane
      -- piano di interpolazione 
      if sIntersPlane == 'X' then
         vtIntersPlane = X_AX()
      elseif sIntersPlane == 'Y' then
         vtIntersPlane = Y_AX()
      elseif sIntersPlane == 'Z' then
         vtIntersPlane = Z_AX()
      end
      for i = 1, #EMT.VMILL do
         local b3VMill = EgtGetBBoxGlob( EMT.VMILL[i], GDB_BB.EXACT)
         local ptPosIntersPlane
         if sPosIntersPlane == 'MIN' then
            ptPosIntersPlane = b3VMill:getMin() + dDepth * vtIntersPlane
         elseif sPosIntersPlane == 'MAX' then
            ptPosIntersPlane = b3VMill:getMax() - dDepth * vtIntersPlane
         end
         local idLoop, nLoopCnt = EgtPlaneVolZmapInters( ptPosIntersPlane, vtIntersPlane, EMT.VMILL[i], CLAMP_CHECK_INTERS, GDB_RT.GLOB)
         -- se c'è almeno una curva
         if idLoop then
            for j = 1, nLoopCnt do
               local idLoopTemp = idLoop + j - 1
               table.insert( idCurveList, idLoopTemp)
            end
         end
      end
      return idCurveList
   end
   local function CalculateIntersectionArea( sPosIntersPlane, sIntersPlane, dDepth)
      -- test piano frontale
      local idCurveList = GetCurveListFromIntersection( sPosIntersPlane, sIntersPlane, dDepth)
      -- si copia curva intersezione e curva pinza in gruppo di confronto
      local idFlatSurf, nFlatSurfCnt = EgtSurfFlatRegion( CLAMP_CHECK_GROUP, idCurveList)
      local idClampSurf = EgtSurfFlatRegion( CLAMP_CHECK_GROUP, idClampPath)
      if idFlatSurf then
         local dTotalArea = 0
         local dTotalXLenght = 0
         for k = 1, nFlatSurfCnt do
            local idTempSurf = idFlatSurf + k - 1
            EgtSurfFrIntersect( idTempSurf, idClampSurf)
            if idTempSurf then
               dTotalArea = dTotalArea + ceil( EgtSurfArea( idTempSurf) or 0)
               local b3BoxIntersectionBox = EgtGetBBoxGlob( idTempSurf, GDB_BB.STANDARD)
               if b3BoxIntersectionBox then
                  dTotalXLenght = dTotalXLenght + ceil( b3BoxIntersectionBox:getDimX()) -- somma lunghezze (x) delle aree pinzate
               end
            end
         end
         return dTotalArea, dTotalXLenght
      end
      return 0
   end
   -- minima area considerata per un corretto pinzaggio
   DistZClampToTable = DistZClampToTable or 0
   local MinJoin = BD.GetMinJoin( EMT.HB, EMT.SB, EgtIf( EMT.SPLIT, EMT.LT, EMT.LB))
   local MinZClamping =  min( b3ClampingArea:getDimZ() + DistZClampToTable, EMT.SB) - DistZClampToTable
   -- si moltiplica per un coefficiente minimo sotto al quale si da l'errore di pinzaggio
   ClampingCoeffMin = EgtClamp( ClampingCoeffMin, 0.01, 1)
   local dMinClampingAreaWarn = ( MinJoin * MinZClamping) * ClampingCoeffMin
   local dMinClampingAreaErr = ( MinJoin * MinZClamping) * ( ClampingCoeffMin / 3)
   local bError = true
   local sWrn, sErr
   local bWriteWarnMessage = false
   local bWriteErrMessage = false
   -- controllo faccia frontale
   local dArea, dXClampedLenght = CalculateIntersectionArea( 'MIN', 'Y', 3)
   -- ERRORE: pinza troppo poco (meno di 1/3 del minimo richiesto)
   if dArea and dArea < dMinClampingAreaErr then
      -- solo se pinza almeno 1cm2, e la somma della lunghezza pinzata è maggiore della lunghezza minima pinzabile da Warning e non errore
      if dXClampedLenght >= MinJoin * ClampingCoeffMin and dArea > 1000 then 
         bError = false
      end
      -- pinzaggio non fattibile, errore
      if bError then
         sErr = 'ERROR CLAMPING ' .. sClampName .. ' : '..tostring( ceil( ( dArea / dMinClampingAreaWarn) * 100))..'% ( '.. tostring( dArea/1000)..'cm2)'
         bWriteErrMessage = true
      end
   end
   -- WARNING: pinza meno del minimo richiesto
   if dArea and dArea < dMinClampingAreaWarn and not bWriteErrMessage then
      sWrn = 'WARNING CLAMPING ' .. sClampName .. ' : '..tostring( ceil( ( dArea / dMinClampingAreaWarn) * 100))..'% ( '.. tostring( dArea/1000)..'cm2)'
      bWriteWarnMessage = true
   end
   EgtEmptyGroup( CLAMP_CHECK_GROUP)
   EgtEmptyGroup( CLAMP_CHECK_INTERS)
   -- controllo altro lato solo se non sono già in errore
   if not bWriteErrMessage then
      -- controllo faccia posteriore
      dArea = CalculateIntersectionArea( 'MAX', 'Y', 3)
      -- ERRORE: pinza troppo poco (meno di 1/3 del minimo richiesto)
      if dArea and dArea < dMinClampingAreaErr then   
         -- solo se pinza almeno 1cm2, e la somma della lunghezza pinzata è maggiore della lunghezza minima pinzabile da Warning e non errore
         if dXClampedLenght >= MinJoin * ClampingCoeffMin and dArea > 1000 then 
         bError = false
      end
         -- pinzaggio non fattibile, errore
         if bError then
            sErr = 'ERROR CLAMPING ' .. sClampName .. ' : '..tostring( ceil( ( dArea / dMinClampingAreaWarn) * 100))..'% ( '.. tostring( dArea/1000)..'cm2)'
            bWriteErrMessage = true
         end
      end
      -- WARNING: pinza meno del minimo richiesto
      if dArea and dArea < dMinClampingAreaWarn and not bWriteWarnMessage and not bWriteErrMessage then
         sWrn = 'WARNING CLAMPING ' .. sClampName .. ' : '..tostring( ceil( ( dArea / dMinClampingAreaWarn) * 100))..'% ( '.. tostring( dArea/1000)..'cm2)'
         bWriteWarnMessage = true
      end
      EgtEmptyGroup( CLAMP_CHECK_GROUP)
      EgtEmptyGroup( CLAMP_CHECK_INTERS)
   end
   if bWriteErrMessage then
      EmtSetLastError( 1213, sErr, EgtGetEnableUI())
      EgtOutBox( sErr, 'CLAMPING', 'ERROR', 'OK')
      EmtSetSimulPause()
   elseif bWriteWarnMessage then
      EgtOutLog( sWrn)
      EgtOutBox( sWrn, 'CLAMPING', 'WARNING', 'OK')
      EmtSetSimulPause()
   end
 end
 ---------------------------------------------------------------------
 function ExecMovePY1( bClose)
   SimulMoveAxis( 'PY1', EgtIf( not bClose, MaxHoOpen, EMT.HB), MCH_SIM_STEP.RAPID)
   SetPY1Light( bClose)
   if bClose then
      CheckClamping( 'PY1')
   end
 end
 ---------------------------------------------------------------------
 function ExecMovePY2( bClose)
   SimulMoveAxis( 'PY2', EgtIf( not bClose, MaxHoOpen, EMT.HB), MCH_SIM_STEP.RAPID)
   SetPY2Light( bClose)
   if bClose then
      CheckClamping( 'PY2')
   end
 end
 ---------------------------------------------------------------------
@@ -1859,9 +2249,9 @@ function ExecParkRoller( PosY1, PosY2, PosV1, PosV2, bSpliCut, bAgg)
         -- 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 5mm ulteriori
+         -- se almeno una è rimasta ferma in posizione, allontano comunque di 30mm ulteriori
         else
-            dAddMove = 5
+            dAddMove = 30
         end
         local MoveY1 = max( DiffY1, 0.0)
         local MoveY2 = min( DiffY2, 0.0)
@@ -2200,6 +2590,9 @@ end
 ---------------------------------------------------------------------
 function GetV1ToClose()
   if EMT.MCHPRECUT or EMT.MCHCUT then
      return false
   end
   --EgtOutLog( string.format( 'L1m=%.3f L1M=%.3f V2NP=%.3f LB=%.3f', EMT.MAXMIN[1], EMT.MAXMAX[1], EMT.V2NEXTPOS, EMT.LB))
   --EgtOutLog( string.format( 'LB=%.3f LT=%.3f', EMT.LB, EMT.LT or 0))
   return ( EMT.MAXMAX[1] <= EMT.V1NEXTPOS + RollCageMin and EMT.MAXMIN[1] + EMT.LB >= EMT.V1NEXTPOS + RollCageMax)
@@ -2214,11 +2607,17 @@ end
 ---------------------------------------------------------------------
 function ShowToolInTcPos( sTcPos, bShow)
   -- recupero identificativo della posizione sul TC
   local TcPosId = EgtGetTcPosId( sTcPos or '')
   if not TcPosId then return end
   -- recupero il gruppo dell'utensile
-   local TcExitId = EgtGetFirstNameInGroup( EgtGetTcPosId( sTcPos or '') or GDB_ID.NULL, 'T1')
+   local TcExitId = EgtGetFirstNameInGroup( TcPosId or GDB_ID.NULL, 'T1')
   if not TcExitId then return end
   -- imposto lo stato di visualizzazione
   EgtSetStatus( TcExitId, EgtIf( bShow, GDB_ST.ON, GDB_ST.OFF))
   -- recupero eventuale gruppo ausiliario da visualizzare/nascondere
   local TcHSId = EgtGetFirstNameInGroup( TcPosId, sTcPos .. '_HS')
   if TcHSId then EgtSetStatus( TcHSId, EgtIf( bShow, GDB_ST.ON, GDB_ST.OFF)) end
 end
 ---------------------------------------------------------------------
@@ -2239,7 +2638,7 @@ function LoadNextTool( nHSet, sTcPosDef, bFirst)
      if vTools and vTools[1] and #(vTools[1]) > 0 then
         sTool = vTools[1]
         sTcPos = sTcPosDef
-         if Progress then
+         if Progress or SecondToolChanger then
            sHead = EgtIf( sTcPos == 'T11', 'H12', 'H11')
         elseif nHSet == 1 then
            sHead = EgtIf( sTcPos == 'T1', 'H12', 'H11')
@@ -2276,6 +2675,14 @@ function LoadNextTool( nHSet, sTcPosDef, bFirst)
   return sTool
 end
 ---------------------------------------------------------------------
 function DeactivateProbeTool()
   if Probe then
      EgtSetMode( EgtGetHeadId( 'H19') or GDB_ID.NULL, GDB_MD.HIDDEN)
      EgtSetMode( EgtGetHeadId( 'H29') or GDB_ID.NULL, GDB_MD.HIDDEN)
   end
 end
 ---------------------------------------------------------------------
 --   *** ESTIMATION T&L ***
 ---------------------------------------------------------------------
@@ -2296,6 +2703,9 @@ local FALL_T = 2 * ESTIMATION_RAPID_COEFF              -- s
 ---------------------------------------------------------------------
 function OnEstimStart()
   EMT.INCHES = not EgtUiUnitsAreMM()      -- unità di misura mm/inches
   EMT.FMAXPINZE = EgtClamp( MaxFeedPinze or 102000, 20000, 102000)  -- feed massima pinze
   EMT.MAXACC = MaxAcc or ( EMT.FMAXPINZE / ( 60 * 0.3))  -- accelerazione massima pinze
   EMT.MINACC = MinAcc or ( EMT.FMAXPINZE / ( 60 * 4))    -- accelerazione minima pinze
 end
 ---------------------------------------------------------------------
@@ -2381,6 +2791,15 @@ function OnEstimDispositionEnd()
   EMT.OPEISDISP = false
 end
 ---------------------------------------------------------------------
 function OnEstimRawMoveData()
   -- se start del pezzo
   if IsStartOrRestPhase( EMT.PHASE) then
      EMT.SPLIT = false
   end
   OnRawMoveData()
 end
 ---------------------------------------------------------------------
 function OnEstimToolSelect()
   -- reset indice utensile in tabella lunghezze
@@ -2437,6 +2856,12 @@ function OnEstimMachiningEnd()
      EMT.TLE_NAME = nil
      EMT.TLE_TIME = nil
   end
   EMT.MCHUSERNOTES = EgtGetMachiningParam( MCH_MP.USERNOTES) or ''
   EMT.MCHSPLIT = ( EMT.MCHUSERNOTES:find( 'Split;', 1, true) ~= nil)
   if EMT.MCHSPLIT then
      EMT.SPLIT = true
   end
 end
 ---------------------------------------------------------------------
@@ -2562,11 +2987,11 @@ function OnEstimRapid()
   EMT.MCHEXTLEN = EMT.MCHEXTLEN + dLen
   -- calcolo tempo
   local dTime = RAPID_MIN_T
-   local dT1 = abs( dL1) / RAPID_X_FEED * 60
+   local dT1 = CalcMoveTime( abs( dL1), RAPID_X_FEED, EMT.SPLIT)
   if dT1 > dTime then dTime = dT1 end
-   local dT2 = abs( dL2) / RAPID_Y_FEED * 60
+   local dT2 = CalcMoveTime( abs( dL2), EMT.FMAXPINZE, EMT.SPLIT)
   if dT2 > dTime then dTime = dT2 end
-   local dT3 = abs( dL3) / RAPID_Z_FEED * 60
+   local dT3 = CalcMoveTime( abs( dL3), RAPID_Z_FEED, EMT.SPLIT)
   if dT3 > dTime then dTime = dT3 end
   local dT4 = abs( dR1) / RAPID_C_FEED * 60
   if dT4 > dTime then dTime = dT4 end
@@ -2588,7 +3013,7 @@ function OnEstimLinear()
   local dLen = sqrt( dL1 * dL1 + dL2 * dL2 + dL3 * dL3)
   EMT.MCHCUTLEN = EMT.MCHCUTLEN + dLen
   -- calcolo tempo
-   local dTime = dLen / EMT.F * 60
+   local dTime = CalcMoveTime( dLen, EMT.F, EMT.SPLIT)
   EMT.MCHCUTTIME = EMT.MCHCUTTIME + dTime
   EgtOutLog( string.format( '  G1 Len=%.0f Time=%.2f', dLen, dTime), 5)
   -- aggiorno valori come precedenti
@@ -2682,7 +3107,7 @@ function GetHeadSetFromTcPos( sTcPos)
   local TCPOS_2A = {}
   local TCPOS_2B = {}
   if EgtGetHeadId( 'H21') then
-      TCPOS_1A = { 'T1', 'T3', 'T4', 'T5', 'T6', 'T7', 'T8', 'T9', 'T10'}
+      TCPOS_1A = { 'T1', 'T3', 'T4', 'T5', 'T6', 'T7', 'T8', 'T9', 'T10', '501'}
      TCPOS_1B = { 'T101'}
      TCPOS_2A = { 'T11', 'T12', 'T13', 'T14', 'T15', 'T16', 'T17', 'T18', 'T19', 'T20'}
      TCPOS_2B = { 'T111'}
@@ -2690,7 +3115,7 @@ function GetHeadSetFromTcPos( sTcPos)
      TCPOS_1A = { 'T1', 'T2', 'T3', 'T4', 'T5', 'T6', 'T7', 'T8', 'T9', 'T10'}
      TCPOS_1B = { 'T101', 'T201'}
      TCPOS_1C = { 'T301'}
-      TCPOS_2A = { 'T11', 'T12', 'T13', 'T14', 'T15', 'T16', 'T17', 'T18', 'T19', 'T20'}
+      TCPOS_2A = { 'T11', 'T12', 'T13', 'T14', 'T15', 'T16', 'T17', 'T18', 'T19', 'T20', '502'}
   end
   for _, sVal in ipairs( TCPOS_1A) do
      if sVal == sTcPos then return 1, 1 end
@@ -2809,7 +3234,7 @@ function GetNextChainSawingVirtualAxis( MchId)
 end
 ---------------------------------------------------------------------
-function GetNextTool( nMchId)
+function GetNextTool( nMchId, bResetOnStart)
   -- inizializzo prossimo utensile
   local sNextTool
   -- recupero lavorazione successiva
@@ -2817,7 +3242,7 @@ function GetNextTool( nMchId)
   while nNextMchId do
      -- se la prossima lavorazione è lo start di un altro pezzo, faccio finta che cambia utensile in modo che vada in parcheggio con utensili speciali
      if EgtGetOperationType( nNextMchId) == MCH_OY.DISP then
-         if IsStartOrRestPhase( EMT.PHASE+1) then
+         if IsStartOrRestPhase( EMT.PHASE+1) and bResetOnStart then
            return nil
         end
      else
@@ -2842,10 +3267,10 @@ end
 ---------------------------------------------------------------------
 function RollerParkingNeeded( sHead, dAng1p, dAng2p, dAng1, dAng2)
-   if sHead == 'H11' or sHead == 'H12'  or HeadIsChainSaw( sHead) then
+   if sHead == 'H11' or sHead == 'H12'  or sHead == 'H17' or HeadIsChainSaw( sHead) then
-      return ( abs( dAng1 - dAng1p) > 1 or ( abs( dAng2 - dAng2p) > 1 and abs( dAng1 % 180.0) > 1))
+      return ( abs( dAng1 - dAng1p) > 1 or ( abs( dAng2 - dAng2p) > 1 and abs( dAng1) % 180.0 > 1))
   elseif sHead == 'H21' or sHead == 'H22' or HeadIsChainSaw( sHead) then
-      return ( abs( dAng1 - dAng1p) > 1 or ( abs( dAng2 - dAng2p) > 1 and abs( dAng1 % 180.0) > 1))
+      return ( abs( dAng1 - dAng1p) > 1 or ( abs( dAng2 - dAng2p) > 1 and abs( dAng1) % 180.0 > 1))
   end
 end
@@ -2860,5 +3285,40 @@ function GetCmdAxMove( Cmd, sAx)
   end
 end
 ---------------------------------------------------------------------
 function CalcDinamicaPinze( dH, dS, dL)
   local KgMtCubo= WoodDensity or 550              -- densità legno [Kg / metro cubo]
   local Massa = ( dH * dS * dL * KgMtCubo ) / 1e9 -- massa [Kg]
   local FMaxPinze = EMT.FMAXPINZE                 -- Feed massima pinze [mm/min]
   local ForzaAttrito = 350 * 9.8 * 0.2            -- Forza chiusura pinze [Kgf] * g * Coeff_Attrito -> [N]
   local TempoAcc = ( ( Massa * FMaxPinze) / ( 60 * ForzaAttrito) / 1000)
   local AccMaxPinze = EMT.MAXACC
   local AccPinze = EgtClamp( FMaxPinze / ( 60 * TempoAcc), EMT.MINACC, EMT.MAXACC)
   local RidFeed = 100 / Massa * 100
   if RidFeed > 100 then
      RidFeed = 100
   elseif RidFeed < 10 then
      RidFeed = 10
   end
   return AccPinze, AccMaxPinze, RidFeed
 end
 ---------------------------------------------------------------------
 function CalcMoveTime( dPathLen, dFeed, bIsSplitted)
   local dTime
   local dFeedInSec = dFeed / 60
   local dAcc, _, _ = CalcDinamicaPinze( EMT.HB, EMT.SB, EgtIf( bIsSplitted, EMT.LT, EMT.LB))
   -- Caso 1: dFeed raggiunta
   if dPathLen >= ( dFeedInSec ^ 2) / dAcc then
      dTime = ( dFeedInSec / dAcc) + ( dPathLen / dFeedInSec)
   -- Caso 2: dFeed non raggiunta
   else
      dTime = 2 * sqrt( dPathLen / dAcc)
   end
   return dTime
 end
 ---------------------------------------------------------------------
 -- *** END GENERAL ***
@@ -4,9 +4,74 @@
 require( 'EmtGenerator')
 EgtEnableDebug( false)
 ---------------------------------------------------------------------
 -- *** Generic Machinings ***
 ---------------------------------------------------------------------
 require( 'EmtGenMachining')
 ---------------------------------------------------------------------
 -- Carico libreria
 local BD = require( 'BeamData')
 ---------------------------------------------------------------------
 -- *** Generic Machinings ***
 ---------------------------------------------------------------------
 require( 'EmtGenMachining')
 ---------------------------------------------------------------------
 -- *** Special GetPrevMachiningOffset ***
 ---------------------------------------------------------------------
 -----------------------------------------------------------------------------------------
 function OnSpecialGetPrevMachiningOffset()
   -- Aggiorno posizione della testa della trave a seguito di movimenti delle pinze non previsti tra le fasi
   local function TPosUpdate()
      local nClId = EgtGetFirstNameInGroup( EMC.CURRMCHID, 'CL') -- recupero Id del gruppo CL della lavorazione corrente
      local nPathId = EgtGetFirstInGroup( nClId or GDB_ID.NULL) -- Id del primo gruppo nella lavorazione (P1)
      if not nPathId then
         EMC.ERR = 12
         EMC.MSG = '  Error : CL group path not found'
         return
      end
      local dAuxMoveCount = EgtGetInfo( nPathId, 'AS#', 'd') or 0 -- numero di movimenti ausiliari 
      local dTRepos = nil
      -- controlla ogni gruppo di movimenti ausiliari
      for i = 1, dAuxMoveCount do
         local aAuxMove = EgtGetInfo( nPathId, 'AS' .. tostring( i), 'vs') or {} -- array contenete i parametri di ogni gruppo
         -- controlla solo i movimenti della testa trave e salva l'ultimo
         if aAuxMove[1] == '2' or aAuxMove[1] == '3' then
            for j = 2, #aAuxMove do
               if aAuxMove[j] == 'T' then
                  dTRepos = aAuxMove[j+1]
                  break
               end
            end
         end
      end
      return dTRepos
   end
   -- default
   EMC.ERR = 0
   EMC.PREVOFFSX = 0
   -- se c'è cambio di fase tra le lavorazioni (quindi la precedente è l'ultima della sua fase e la corrente la prima)
   if EMC.PREVPHASE ~= EMC.CURRPHASE then
      -- se la fase corrente è di inizio lavorazione di nuova trave
      if IsStartOrRestPhase( EMC.CURRPHASE) then
         -- recupero la posizione finale della lavorazione precedente
         local vPrevAx = EmtGetFinalAxesPos( EMC.PREVMCHID)
         -- ricava se e quanto la trave viene spostata tra le due fasi dai movimenti ausiliari e corregge l'offset di fine fase
         local dNewTPos = TPosUpdate()
         -- se ci sono dei movimenti della testa trave tra le due fasi ricava il delta tra la vecchia e la nuova posizione
         if dNewTPos then
            EMC.PREVOFFSX = dNewTPos - vPrevAx[1]
         -- oppure la X (L1) di questa corrisponde alla posizione iniziale della nuova trave, se ne deduce l'offset
         else
            EMC.PREVOFFSX = ParkV1 - vPrevAx[1]
         end
      end
   end
 end
 ---------------------- OnSpecialGetMaxZ -----------------------------
 ---------------------------------------------------------------------
 local function CalcExtraZ( vtTp, vtT, vMZ)
@@ -72,7 +137,7 @@ function OnSpecialGetMaxZ()
         local vMZ = {{ Tz=0.85, Ez=390}, { Tz=0.5, Ez=280}, { Tz=-0.01, Ez=160}, { Tz=-0.5, Ez=1}, { Tz=-0.61, Ez=1}}
         EMC.MAXZ = ParkZ1 + CalcExtraZ( vtTpZm, vtT, vMZ)
      end
-   elseif EMC.HEAD == 'H12' and sHead_TC == 'Head1_TC1' then
+   elseif ( EMC.HEAD == 'H12' or EMC.HEAD == 'H17') and sHead_TC == 'Head1_TC1' then
      if vtTp:getX() > 0.4 and vtT:getX() > 0.4 then
         if bBSameSign and abs( EMC.R1 - EMC.R1p) < 165 then
            EMC.MAXZ = MaxZ1 - EgtIf( abs( EMC.R2) < 90.1 and abs( EMC.R2p) < 90.1, 0, 130)
@@ -173,7 +238,7 @@ function OnSpecialMoveZup()
   if EMC.HEAD == 'H11' or EMC.HEAD == 'H21' then
      ;
   -- se lama posizionata su CU prossimo a testa 1
-   elseif EMC.HEAD == 'H12' and sHead_TC == 'Head1_TC1' then
+   elseif ( EMC.HEAD == 'H12' or EMC.HEAD == 'H17') and sHead_TC == 'Head1_TC1' then
      -- se inclinata oltre 90 gradi e interferisce con la trave
      if ( EMC.R2 > 87.9 and ( EMC.R1 < 15.0 or EMC.R1 > 180.0)) or ( EMC.R2 < -87.9 and ( EMC.R1 > -15.0 and EMC.R1 < 180.0)) then
         local dZref = dZmax + min( 330 * vtT:getZ(), 0) + 260 * ( 1 - sqrt( 1- vtT:getZ() * vtT:getZ()))
@@ -208,6 +273,13 @@ function OnSpecialMoveZup()
            EMC.MODIF = true
         end
      end
   elseif HeadIsChainSaw( EMC.HEAD) then
      EMC.TTOTLEN = EgtTdbGetCurrToolParam( MCH_TP.TOTLEN)
      if EMC.TDIR[3] < -0.15 and EMC.L3 > - EMC.TTOTLEN then
         EMC.L3 = EMC.TTOTLEN * EMC.TDIR[3]
         -- dichiaro modificato
         EMC.MODIF = true
      end
   end
 end
@@ -223,7 +295,7 @@ local MIN_BACK_ENG_V = 115       -- ingombro asse Z a sinistra
 local AGG_V = MinDeltaYV         -- ingombro rulli pressori + sicurezza
 local MIN_CLAMP_5 = 150          -- minima presa con la pinza speciale (pinza 5)
 local SIC_CLAMP_5 = 50           -- sicurezza testa da pinza speciale
-local MAX_BACK_CLAMP_5 = 320     -- massima sporgenza posteriore del pezzo da pinza speciale
+local MAX_BACK_CLAMP_5 = EgtClamp( MaxBackClamp5 or 320, 200, 380)   -- massima sporgenza posteriore del pezzo da pinza speciale
 ----------------------- Variabili -----------------------------------
 local Test = false
@@ -654,14 +726,72 @@ end
 ---------------------------------------------------------------------
 function OnPostApplyMachining()
   -- Inizializzo codice di errore
   EMC.ERR = 0
   -- Verifico se ultima lavorazione della fase
   local nNextOpeId = EgtGetNextActiveOperation( EMC.MCHID)
   local bMchLast = ( not nNextOpeId  or  EgtGetOperationPhase( nNextOpeId) ~= EMC.PHASE)   -- Agisco sui diversi percorsi della lavorazione
   local nPathId = EgtGetFirstInGroup( EgtGetFirstNameInGroup( EMC.MCHID, 'CL') or GDB_ID.NULL)
   while nPathId do
      -- recupero id del successivo
      nPathId = EgtGetNext( nPathId)
      -- verifico se ultimo percorso di ultima lavorazione della fase
      local bLast = ( bMchLast and ( not nPathId))
      -- se ultimo, elimino ritorno in home
      if bLast then EgtRemoveOperationHome( EMC.MCHID) end
   end
 end
 ---------------------------------------------------------------------
 function OnSpecialApplyMachining()
   EgtOutLog( ' Lavorazione : ' .. EgtGetName( EMC.MCHID), 1)
   -- Inizializzo codice di errore
   EMC.ERR = 0
   -- Recupero la precedente operazione
   local nPrevOpeId = EgtGetPrevActiveOperation( EMC.MCHID)
   -- Se esiste lavorazione precedente ed è una tastatura
   if nPrevOpeId and EgtGetOperationType( nPrevOpeId) == MCH_OY.PROBING then
      -- se stessa testa e montato già utensile corretto
      -- recupero valori assi alla fine della lavorazione precedente e all'inizio della corrente
      local vPrevAxes = EmtGetFinalAxesPos( nPrevOpeId, true)
      local vCurrAxes = EmtGetInitialAxesPos( EMC.MCHID, true)
      -- info lavorazione precedente
      EgtSetCurrMachining( nPrevOpeId)
      local sPrevTool = EgtGetMachiningParam( MCH_MP.TOOL)
      local sPrevHead = EgtTdbGetCurrToolParam( MCH_TP.HEAD)
      local nSetHead = GetHeadSet( sPrevHead)
      local bPrevIsFirstHead = ( nSetHead == 1 or nSetHead == 11)
      -- info lavorazione corrente
      EgtSetCurrMachining( EMC.MCHID)
      local sCurrTool = EgtGetMachiningParam( MCH_MP.TOOL)
      local sCurrHead = EgtTdbGetCurrToolParam( MCH_TP.HEAD)
      nSetHead = GetHeadSet( sCurrHead)
      local bCurrIsFirstHead = ( nSetHead == 1 or nSetHead == 11)
      -- se utensile corrente è compatibile (significa che è già stato precaricato) se stessa testa e con stessa configurazioen assi rotanti, annullo risalita
      if IsToolCompatibleWithProbe( sCurrTool, sPrevTool) and bPrevIsFirstHead == bCurrIsFirstHead and abs( vCurrAxes[4] - vPrevAxes[4]) < 1 and abs( vCurrAxes[5] - vPrevAxes[5]) < 1 then
         -- in lavorazione precedente elimino eventuale retrazione a Zmax
         EmtRemoveRise( nPrevOpeId)
         -- in lavorazione corrente elimino eventuale approccio da Zmax
         EmtRemoveClimb( EMC.MCHID)
         -- prendo sempre la Z massima tra le due
         local vClimbPoint
         if vCurrAxes[3] - 1.0 < vPrevAxes[3] then
            vClimbPoint = vCurrAxes
            vCurrAxes[3] = vPrevAxes[3]
         elseif vPrevAxes[3] - 1.0 < vCurrAxes[3] then
            vClimbPoint = vPrevAxes
            vPrevAxes[3] = vCurrAxes[3]
         end
         EmtAddClimb( EMC.MCHID, vClimbPoint, 4, 1, 0)
      end
   end
   -- Recupero la posizione della trave e dei carrelli al termine della precedente operazione
   local nPrevOpeId = EgtGetPrevActiveOperation( EMC.MCHID)
   -- se precedente operazione non esiste, errore
   if not nPrevOpeId then
      EMC.ERR = 1
@@ -761,7 +891,7 @@ function OnPostApplyMachining()
      -- verifico se ultimo percorso di ultima lavorazione della fase
      local bLast = ( bMchLast and ( not nPathId))
      -- se ultimo, elimino ritorno in home
-      if bLast then EgtRemoveOperationHome( EMC.MCHID) end
+      -- if bLast then EgtRemoveOperationHome( EMC.MCHID) end
      -- salvo lo stato dei carrelli
      local OriTPos = EMC.TPOS
      local OriY1Delta = EMC.Y1DELTA
@@ -819,7 +949,6 @@ function OnPostApplyMachining()
      local vAxes = EmtGetAxesPos( nLastEntId)
      if #vAxes > 0 then EMC.TPOS = vAxes[1] end
   end
 end
 ---------------------------------------------------------------------
@@ -1097,6 +1226,17 @@ function SpecialCalcMachiningEncumbrance( nMchId, bPreCut)
   end
   -- Recupero testa
   local sHead = EgtTdbGetCurrToolParam( MCH_TP.HEAD)
   local sToolName = EgtTdbGetCurrToolParam( MCH_TP.NAME)
   local nSetHead = GetHeadSet( sHead)
   local bIsFirstHead = ( nSetHead == 1 or nSetHead == 11)
   -- se lavorazione di tastatura, si considera montato utensile di default
   if HeadIsProbe( sHead) then
      local sOtherToolName = GetToolNameFromTcPos( EgtIf( bIsFirstHead, DefTcPos1, DefTcPos2))
      local sOtherHeadTool, _ = GetToolHead( sOtherToolName)
      EgtLoadTool( sOtherHeadTool, 1, sOtherToolName)
   end
   -- Recupero valore assi macchina
   local nSecId = EgtGetNext( EgtGetFirstInGroup( nPathId))
   local vAxes = EmtGetAxesPos( nSecId)
@@ -1107,8 +1247,8 @@ function SpecialCalcMachiningEncumbrance( nMchId, bPreCut)
   end
   -- Calcolo dell'ingombro della testa rispetto allo Zero Macchina
   local b3Enc
-   
+
-   if sHead ~= 'H21' and sHead ~= 'H22' and sHead ~= 'H23' then
+   if bIsFirstHead then
      EgtSetAxisPos( 'C1', vAxes[4])
      EgtSetAxisPos( 'B1', vAxes[5])
      if sHead == 'H13' or sHead == 'H15' then
@@ -1142,6 +1282,7 @@ function SpecialCalcMachiningEncumbrance( nMchId, bPreCut)
   local dDistFront = - ptMax:getX() - LoadT - dHeadFront
   local dDistBack = ptMin:getX() + LoadT + EMC.LB - dHeadBack
   EgtOutLog( '  DistFront = ' .. EgtNumToString( dDistFront, 1) .. ' DistBack = ' .. EgtNumToString( dDistBack, 1), 3)
   return dDistFront, dDistBack, dRollFront, dRollBack
 end
@@ -1553,8 +1694,11 @@ function SpecCalcUnload()
      EgtOutLog( '  *[U1]', 1)
   end
   local vCmd = {}
   -- Tipo di scarico
   local bStdUl = ( not MaxUnloadLen or MaxUnloadLen < 1 or EMC.LB - EMC.HOVM < MaxUnloadLen + 1)
   -- Commento
-   table.insert( vCmd, { 0, 'Unloading'})
+   table.insert( vCmd, { 0, 'Unloading', EgtIf( bStdUl, 'Unloading', 'Manual Unloading')})
   -- posizionamento sicuro teste e rulli (non serve ?)
   --table.insert( vCmd, { 4, 0})
   -- Se pinza Y chiusa, la apro
@@ -1562,11 +1706,15 @@ function SpecCalcUnload()
      table.insert( vCmd, { 11, 0})
      EMC.CNT = nil
   end
-   -- Sposto il pezzo in posizione di scarico
+   -- Se non supero la lunghezza massima di scarico, sposto il pezzo in posizione di scarico
-   local dFinT = UnloadT - EMC.LB
+   if bStdUl then
-   local dFinY2 = dFinT + EMC.Y2DELTA
+      local dFinT = UnloadT - EMC.LB
-   table.insert( vCmd, { 2, 'T', dFinT, 'Y2', dFinY2})
+      local dFinY2 = dFinT + EMC.Y2DELTA
-   EgtOutLog( '  Y2PosF=' .. EgtNumToString( dFinY2), 1)
+      table.insert( vCmd, { 2, 'T', dFinT, 'Y2', dFinY2})
      EgtOutLog( '  Y2PosF=' .. EgtNumToString( dFinY2), 1)
   else
      table.insert( vCmd, { 1, 'Y2', MaxY2})
   end
   -- apro la morsa
   table.insert( vCmd, { 12, 0})
   -- riporto il carrello in home
@@ -32,10 +32,10 @@
 require( 'EmtGenerator')
 EgtEnableDebug( false)
-PP_VER = '2.7c2'
+PP_VER = '3.1f2'
-PP_NVER = '2.7.3.2'
+PP_NVER = '3.1.6.2'
 MIN_MACH_VER = '2.5k1'
-MACH_NAME = 'Essetre-ONE'
+MACH_NAME = EgtGetCurrMachineName()
 -- Carico i dati globali
 local sMachDir = EgtGetCurrMachineDir()
@@ -135,9 +135,11 @@ DimTabX = 30000
 AutomaticRotation = true
 AutoRotMinLen = 0
 DefTcPos1 = 'T3'
 CoeffVM = 0.5
 EstimationRapidMultiplier = 1
 ForceToCloseRollersGate = false
 SecondToolChanger = false
 DistZClampToTable = 5                             -- distanza tra la tavola e il punto più basso della morsa
 ClampingCoeffMin = nil                             -- coefficiente di fissaggio, se 0 o nil non fa controllo, per il momento da inizializzare da Ts3Data
 -- Aggiornamento con dati da TechnoEssetre7
 local sTs3Data = EgtGetStringFromIni( 'Beam', 'DATA_DIR', "C:\\TechnoEssetre7\\EgtData", EgtGetIniFile()).."\\Essetre-ONE.data"
@@ -161,7 +163,8 @@ if EgtExistsFile( sData) then
         end
         if Machine.Offsets.X1_POS then MinX1 = -Machine.Offsets.X1_POS end
         if Machine.Offsets.X1_NEG then MaxX1 = -Machine.Offsets.X1_NEG end
-         if Machine.Offsets.PARK_X1 then ParkX1 = -Machine.Offsets.PARK_X1 end
+         if Machine.Offsets.PARK_X1POS then ParkFrnX1 = -Machine.Offsets.PARK_X1POS end
         if Machine.Offsets.PARK_X1NEG then ParkX1 = -Machine.Offsets.PARK_X1NEG end
         if Machine.Offsets.Z1_NEG then MinZ1 = Machine.Offsets.Z1_NEG end
         if Machine.Offsets.Z1_POS then MaxZ1 = min( MaxZ1, Machine.Offsets.Z1_POS) end
         if Machine.Offsets.PARK_Z1 then ParkZ1 = Machine.Offsets.PARK_Z1 end
@@ -182,6 +185,8 @@ if EgtExistsFile( sData) then
         if Machine.Offsets.MIN_V2 then MinV2 = Machine.Offsets.MIN_V2 end
         if Machine.Offsets.MAX_V2 then MaxV2 = Machine.Offsets.MAX_V2 end
         if Machine.Offsets.CLAMP5 then Clamp5 = ( Machine.Offsets.CLAMP5 == 1) end
         if Machine.Offsets.MIN_W then MinW = Machine.Offsets.MIN_W end
         if Machine.Offsets.MAX_W then MaxW = Machine.Offsets.MAX_W end
         if Machine.Offsets.MINWOPEN then MinWOpen = Machine.Offsets.MINWOPEN end
         if Machine.Offsets.MAXWOPEN then MaxWOpen = Machine.Offsets.MAXWOPEN end
         if Machine.Offsets.MAXWHEIGHT then MaxWHeight = Machine.Offsets.MAXWHEIGHT end
@@ -202,22 +207,32 @@ if EgtExistsFile( sData) then
         if Machine.Offsets.SAWOFFSX then SawOffsX = Machine.Offsets.SAWOFFSX end
         if Machine.Offsets.SAWOFFSZ then SawOffsZ = Machine.Offsets.SAWOFFSZ end
         if Machine.Offsets.DEFTCPOS1 then DefTcPos1 = ( 'T' .. Machine.Offsets.DEFTCPOS1) end
         if Machine.Offsets.NOULOAD then MaxUnloadLen = Machine.Offsets.NOULOAD end
         if Machine.Offsets.MAXFEEDPINZE then MaxFeedPinze = Machine.Offsets.MAXFEEDPINZE end
         if Machine.Offsets.MAXACC then MaxAcc = Machine.Offsets.MAXACC end
         if Machine.Offsets.MINACC then MinAcc = Machine.Offsets.MINACC end
         if Machine.Offsets.COEFF_STIMATEMPI and Machine.Offsets.COEFF_STIMATEMPI > 0 then EstimationRapidMultiplier = Machine.Offsets.COEFF_STIMATEMPI end
         if Machine.Offsets.CHIUDI_PINZE_2_3_SCAMBIO then ForceToCloseRollersGate = Machine.Offsets.CHIUDI_PINZE_2_3_SCAMBIO == 1 end
         if Machine.Offsets.WOOD_DENSITY then WoodDensity = Machine.Offsets.WOOD_DENSITY end
         if Machine.Offsets.MAX_BACK_CLAMP_5 then MaxBackClamp5 = Machine.Offsets.MAX_BACK_CLAMP_5 end
         if Machine.Offsets.SEC_TC then SecondToolChanger = ( Machine.Offsets.SEC_TC == 1) end
         if Machine.Offsets.COEFF_CLAMP_CHECK then ClampingCoeffMin = Machine.Offsets.COEFF_CLAMP_CHECK end
         -- aggiustamenti
         MinY1 = MinV1 + MinDeltaYV
         MaxY1 = MaxMchY1
-         ParkV1 = MaxV1 
+         ParkV1 = MaxV1
         ParkY1 = ParkV1 + MinDeltaYV
         MinY2 = MinMchY2
         MaxY2 = MaxV2 - MinDeltaYV
         ParkV2 = MinV2
         ParkY2 = ParkV2 - MinDeltaYV
         ParkX1 = min( ParkX1, MaxX1)
         ParkFrnX1 = max( ParkFrnX1, MinX1)
         ParkCSawZ1 = min( ParkCSawZ1, MaxZ1)
         ParkCSaw0Z1 = min( ParkCSaw0Z1, MaxZ1)
         Mortiser = ( Mortiser and not Progress)
         SecondToolChanger = ( SecondToolChanger and not Progress)
      end
   end
 end
@@ -237,6 +252,10 @@ if Progress then
   table.insert( sBaseAux, 'BASE/TC1S')
   table.insert( sBaseAux, 'BASE/TC2')
   table.insert( sBaseAux, 'BASE/TC3')
 elseif SecondToolChanger then
   table.insert( sBaseAux, 'BASE/TC2')
   table.insert( sBaseAux, 'BASE/TC2S')
   table.insert( sBaseAux, 'BASE/TC3')
 else
   table.insert( sBaseAux, 'BASE/MTC')
   if Mortiser then table.insert( sBaseAux, 'BASE/TC3') end
@@ -330,7 +349,7 @@ EmtAxis {
      Home = 0,
      Geo = 'A1_AXIS/GEO'}
 local H13Id
-if Progress then
+if Progress or SecondToolChanger then
   H13Id = EmtHead {
         Name = 'H13',
         Parent = 'A',
@@ -361,9 +380,9 @@ else
 end
 EgtSetInfo( H13Id, 'ZSAFEDELTA', '60')
 EgtSetInfo( H13Id, 'ZMAXONROT', '1,80')
-- Mortasatrice sotto la traversa (solo per One)
+-- Mortasatrice sotto la traversa (solo per One base con un solo cambio utensile)
 local H15Id
-if not Progress and Mortiser then
+if not Progress and Mortiser and not SecondToolChanger then
   H15Id = EmtHead {
         Name = 'H15',
         Parent = 'A',
@@ -401,7 +420,7 @@ local PY1Id = EmtAxis {
      Stroke = {0, MaxHoOpen},
      Home = MaxHoOpen,
      Geo = 'PY1_AXIS/GEO',
-      Aux = 'PY1_AXIS/SOLID'}
+      Aux = {'PY1_AXIS/SOLID', 'PY1_AXIS/CLAMP_CHECK'}}
 local Y2Id = EmtAxis {
      Name = 'Y2',
      Parent = 'Base',
@@ -421,7 +440,7 @@ local PY2Id = EmtAxis {
      Stroke = {0, MaxHoOpen},
      Home = MaxHoOpen,
      Geo = 'PY2_AXIS/GEO',
-      Aux = 'PY2_AXIS/SOLID'}
+      Aux = {'PY2_AXIS/SOLID', 'PY2_AXIS/CLAMP_CHECK'}}
 -- Rulli
 local V1Id = EmtAxis {
      Name = 'V1',
@@ -532,6 +551,7 @@ EmtTable {
      Parent = 'T',
      Type = MCH_TT.FLAT,
      Ref1 = Point3d( - DimTabX, DeltaTabY - DimTabY, DeltaTabZ),
      Coll = 'Base/BELT',
      Geo = 'TABLE/GEO',
      Aux = 'TABLE/SOLID'}
 -- *** ToolChanger ***
@@ -617,16 +637,33 @@ EmtTcPos {
      TDir = -Y_AX(),
      ADir = -X_AX(),
      Geo = 'BASE/T10'}
-if Progress then
+if Progress or SecondToolChanger then
   local ptTc2 = Point3d( 150, -170, -217 + ( DeltaTabZ + DeltaRulliTraveZ + 29))
   local vtDt2 = Vector3d( 0, 0, - 102.5)
   if SecondToolChanger then
   EmtTcPos {
         Name = 'T11',
         Parent = 'Base',
-         Pos = ptTc2 + Vector3d( SawOffsX, SawOffsZ, 0),
+         Pos = ptTc2,
         TDir = Y_AX(),
         ADir = -X_AX(),
-         Geo = 'BASE/T11'}
+         Geo = 'BASE/T11b'}
   EmtTcPos {
         Name = 'T12',
         Parent = 'Base',
         Pos = ptTc2 + 1 * vtDt1,
         TDir = Y_AX(),
         ADir = -X_AX(),
         Geo = 'BASE/T12'}
   else
      EmtTcPos {
            Name = 'T11',
            Parent = 'Base',
            Pos = ptTc2 + Vector3d( SawOffsX, SawOffsZ, 0),
            TDir = Y_AX(),
            ADir = -X_AX(),
            Geo = 'BASE/T11'}
   end
   EmtTcPos {
         Name = 'T13',
         Parent = 'Base',
@@ -701,9 +738,9 @@ else
         ADir = X_AX(),
         Geo = 'BASE/T201'}
 end
-if Progress or Mortiser then 
+if Progress or Mortiser or SecondToolChanger then 
   local ptTc3 = Point3d( 480, 506.1, -200.8 + ( DeltaTabZ + DeltaRulliTraveZ + 29))
-   local sName = EgtIf( Progress, 'T101', 'T301')
+   local sName = EgtIf( Progress or SecondToolChanger, 'T101', 'T301')
   EmtTcPos {
         Name = sName,
         Parent = 'Base',
@@ -731,8 +768,10 @@ local vtMove = Vector3d( 0, ( DeltaTabY - 1550.0), ( DeltaTabZ + 1060.0))
 EgtMove( EgtGetFirstNameInGroup( BaseId, 'CONVOYER'), vtMove, GDB_RT.GLOB)
 EgtMove( EgtGetFirstNameInGroup( Y1Id, 'SOLID'), vtMove, GDB_RT.GLOB)
 EgtMove( EgtGetFirstNameInGroup( PY1Id, 'SOLID'), vtMove, GDB_RT.GLOB)
 EgtMove( EgtGetFirstNameInGroup( PY1Id, 'CLAMP_CHECK'), vtMove + Vector3d(0,0,DistZClampToTable), GDB_RT.GLOB)
 EgtMove( EgtGetFirstNameInGroup( Y2Id, 'SOLID'), vtMove, GDB_RT.GLOB)
 EgtMove( EgtGetFirstNameInGroup( PY2Id, 'SOLID'), vtMove, GDB_RT.GLOB)
 EgtMove( EgtGetFirstNameInGroup( PY2Id, 'CLAMP_CHECK'), vtMove + Vector3d(0,0,DistZClampToTable), GDB_RT.GLOB)
 EgtMove( EgtGetFirstNameInGroup( V1Id, 'SOLID'), vtMove, GDB_RT.GLOB)
 EgtMove( EgtGetFirstNameInGroup( PV1Id, 'SOLID'), vtMove, GDB_RT.GLOB)
 EgtMove( EgtGetFirstNameInGroup( QV1Id, 'SOLID'), vtMove, GDB_RT.GLOB)
@@ -777,7 +816,7 @@ function OnSetHead()
      else
         local MyHomeB1, MyHomeC1
         -- se cambio utensile verticale
-         if EgtGetHeadId('H21') or bProgress then
+         if EgtGetHeadId( 'H21') or Progress or SecondToolChanger then
            MyHomeB1 = ParkFrnB1
            MyHomeC1 = ParkFrnC1
         -- altrimenti su one CU speciale motosega-utensile lungo
@@ -815,10 +854,14 @@ end
 ---------------------------------------------------------------------
 -------------------------- Testa utilizzata -------------------------
 function GetHeadSet( sHead)
-   if sHead == 'H11' or sHead == 'H12' or sHead == 'H13' or sHead == 'H15' then
+   if sHead == 'H11' or sHead == 'H12' or sHead == 'H13' or sHead == 'H15' or sHead == 'H17' then
      return 1
   elseif sHead == 'H19' then
      return 11
   elseif sHead == 'H21' or sHead == 'H22' or sHead == 'H23' then
      return 2
   elseif sHead == 'H29' then
      return 21
   else
      return 0
   end
@@ -847,6 +890,7 @@ function GetHeadTCSet( sHead, sTcPos)
      return 0
   end
 end
 ---------------------------------------------------------------------
 -- Funzione che restituisce l'altezza del pezzo in lavorazione
   function GetRawHeight()
@@ -866,6 +910,12 @@ function HeadIsChainSaw( sHead)
   return ( sHead == 'H13' or sHead == 'H15')
 end
 ---------------------------------------------------------------------
 -- Funzione che riconosce testa per tastatore
 function HeadIsProbe( sHead)
   return ( sHead == 'H19' or sHead == 'H29')
 end
 ---------------------------------------------------------------------
 -- Funzione che calcola la posizione Home di Z per la sega a catena dal valore dell'asse virtuale
 function GetChainSawZHomeFromVirtualAxis( dPosA)
@@ -929,7 +979,7 @@ end
 -- Funzione per impostare spia stato morsa carrello Y1
 function SetPY1Light( bClosed)
   if not PY1LightId then return end
-   EgtSetColor( PY1LightId, EgtIf( bClosed, 'RED', 'LIME')) 
+   EgtSetColor( PY1LightId, EgtIf( bClosed, 'RED', 'LIME'))
   if bClosed then
      EgtSetInfo( PY1LightId, 'On', '1')
   else
@@ -7,18 +7,20 @@
 [Sawing]
 [Milling]
-0=d,MaxElev,0
+0=l,MaxElev,0
 1=d,OutRaw,0
-2=d,SideElev,0
+2=l,SideElev,0
 3=d,TrimExt,0
-4=sr,VtFaceUse,0,0,0
+4=s,VtFaceUse,0,0,0
 5=s,EdgesFaceUse,0
 [Pocketing]
-0=d,MaxElev,0
+0=l,MaxElev,0
 1=b,Open,0
-2=d,OpenMinSave,0
+2=d,OpenMinSafe,0
 3=d,OpenOutRaw,0
-4=d,MaxOptSize,0
+4=l,MaxOptSize,0
 5=b,AdjustFeed,1
 [Mortising]
 0=d,MaxElev,0
@@ -30,21 +32,28 @@
 [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]
 0=l,MaxElev,1000
 1=b,PlaneZ,0
 [SurfFinishing]
 0=b,SkipMaxDown,1
 [5AxMilling]
 0=l,LinTol,0.01
 1=l,MaxLen,10
 2=s,Type,ZigZag
 3=d,SideAng,90
 4=l,Step,10
 5=d,AngIni,-90
 6=d,AngFin,90
 7=l,LiTang,0
 8=l,LiOrth,0
 9=l,LiElev,0
 10=l,LoTang,0
 11=l,LoOrth,0
 12=l,LoElev,0
 13=b,DirFromGuide,0
 14=b,SurfAvoid,0
@@ -29,8 +29,30 @@ local GS = {}
 -- Configurazione posizioni (con o senza TC2)
 local PositionTable = {}
 -- se secondo toolchanger
 if EgtGetTcPosId( 'T12') then
   PositionTable = {{Pos = "Pos1",  TcPos = "T1",  Head = "H12", Group = "G1"},
                    {Pos = "Pos2",  TcPos = "T3",  Head = "H11", Group = "G1"},
                    {Pos = "Pos3",  TcPos = "T4",  Head = "H11", Group = "G1"},
                    {Pos = "Pos4",  TcPos = "T5",  Head = "H11", Group = "G1"},
                    {Pos = "Pos5",  TcPos = "T6",  Head = "H11", Group = "G1"},
                    {Pos = "Pos6",  TcPos = "T7",  Head = "H11", Group = "G1"},
                    {Pos = "Pos7",  TcPos = "T8",  Head = "H11", Group = "G1"},
                    {Pos = "Pos8",  TcPos = "T9",  Head = "H11", Group = "G1"},
                    {Pos = "Pos9",  TcPos = "T10", Head = "H11", Group = "G1"},
                    {Pos = "Pos10", TcPos = "T11", Head = "H11", Group = "G2"},
                    {Pos = "Pos11", TcPos = "T12",  Head = "H11", Group = "G2"},
                    {Pos = "Pos12", TcPos = "T13", Head = "H11", Group = "G2"},
                    {Pos = "Pos13", TcPos = "T14", Head = "H11", Group = "G2"},
                    {Pos = "Pos14", TcPos = "T15", Head = "H11", Group = "G2"},
                    {Pos = "Pos15", TcPos = "T16", Head = "H11", Group = "G2"},
                    {Pos = "Pos16", TcPos = "T17", Head = "H11", Group = "G2"},
                    {Pos = "Pos17", TcPos = "T18", Head = "H11", Group = "G2"},
                    {Pos = "Pos18", TcPos = "T19", Head = "H11", Group = "G2"},
                    {Pos = "Pos19", TcPos = "T20", Head = "H11", Group = "G2"},
                    {Pos = "Pos20", TcPos = "T101", Head = "H13", Group = "G3"}}
 -- se Progress
-if EgtGetTcPosId( 'T11') then
+elseif EgtGetTcPosId( 'T11') then
   PositionTable = {{Pos = "Pos1",  TcPos = "T1",  Head = "H11", Group = "G1"},
                    {Pos = "Pos2",  TcPos = "T2",  Head = "H11", Group = "G1"},
                    {Pos = "Pos3",  TcPos = "T3",  Head = "H11", Group = "G1"},
@@ -1,5 +1,93 @@
           ==== Common_ONE-PF Update Log ====
 Versione 3.1f1 (03/06/2026)
 - (NGE-MLDE-GEN-SIM) Versione unificata con predisposizione per gestione tastatori. Serve modificare anche la macchina, per ora gestione completa solo su PFrl.
 Versione 3.1c2 (17/03/2026)
 - (SIM-GEN) Aggiunta OnSpecialApplyMachining per calcolare i carrelli da subito
 -           Aggiungendo OnSpecialApplyMachining, ora la OnSpecialGetPrevMachiningOffset lavora correttamente. ATT: MIN_MACH -> 3.1b2
 Versione 3.1c1 (04/03/2026)
 - (GEN) Corretta chiamata di una variabile insesistente in caso di ONE
 - (SIM) Allineata simulazione a generazione
 Versione 3.1b1 (20/02/2026)
 - (GEN) Aggiunta funzione ToolPreSelection() per la preselezione utensile. Ticket#2789
 - (GEN) Funzione rinominata in ToolPreSelectionSingleHead(), ora utilizza funzione in MLDE per capire se è motosega
 Versione 3.1a1 (16/01/2026)
 - (SIM-GEN) Aggiunto controllo che evita collisioni durante lo svincolo in Z della sega a catena nelle funzioni ExecMoveZMax() e EmitZMax(). Ticket#2767
 - (SIM-GEN) Piccola correzione modifiche fatte in precedenza
 Versione 2.7l1 (18/12/2025)
 - (SIM-GEN) Aggiunto controllo post movimenti ausiliari dell' EMC.PREVOFFSX nella funzione OnSpecialGetPrevMachiningOffset(). Ticket#2727
 - (SIM-GEN) Divisione movimento B in approccio se > 90°. Ticket#2754
 - (SIM) Aggiunta funzione CheckClamping
 Versione 2.7k3 (28/11/2025)
 - (GEN) Prima di andare allo scarico, si aggiunge movimento intermedio dove si aspetta che rulli scarico siano arrivati in posizione. Ticket#2716
 Versione 2.7k2 (20/11/2025)
 - (SIM) Aggiornata risoluzione VMillTol in funzione dello spessore lama
 Versione 2.7k1 (05/11/2025)
 - (SIM-GEN) Corretto calcolo per decidere se serve aprire i rulli
 - (GEN) Aggiunta tolleranza in creazione piano di lavoro inclinato
 - (SIM) Allo scarico si resetta Y2DELTA. Ticket#2687
 Versione 2.7j3 (23/10/2025)
 - (SIM) Corretta posizione parcheggio in caso di testa 1 su magazzino 2. Ticket#2660
 Versione 2.7j2 (21/10/2025)
 - (GEN) Se SPLIT con pinza 5, corretto salvataggio posizione pinza 2. Ticket#2654
 Versione 2.7j1 (08/10/2025)
 - (GEN) Salvataggio posizione Z su lavorazione precedente, sbagliava in caso di separazione. Ticket#2637
 Versione 2.7i1 (10/09/2025)
 - (SIM-GEN) Piccole correzioni per gestire secondo TC su ONE. Ticket#2563
 - (SIM-GEN) Gestione aggregato BH completato. Ticket#2482
 - (EST) Stima tempi considerando accelerazioni
 - (SIM-GEN) Se fase start o restart, si aggiorna la posizione in X dell'asse per calcolare il link corretto
 - (GEN) Piccola correzione risalita ZMAX dopo RELOAD del pezzo. Generazione allineata a simulazione.
 Versione 2.7h2 (28/08/2025)
 - (GEN) Migliorata gestione spegnimento utensile e disattivazione piano
 - (SIM-GEN) Corretto nome variabile e altre piccole modifiche per Progress
 Versione 2.7h1 (20/08/2025)
 - (SIM-GEN) Non si chiudono i rulli se tagli o pretagli di testa e coda
 - (SIM) Corretto movimento pinza 5 in caso di riposizionamento pinza 1
 - (GEN) Corretta quota assoluta posizione testa trave in caso di pinza 5 e testa rimasta bassa
 - (GEN) Se ultima lavorazione pezzo precedente ha stesso utensile della prima lavorazione pezzo successivo, la speed resta accesa
 Versione 2.7g4 (23/07/2025)
 - (SIM-GEN) Aggiunto parametro configurabile da TS3 per massima sporgenza trave in coda per pinza 5. Ticket#2538
 Versione 2.7g3 (22/07/2025)
 - (SIM) Corretto lettura angolo di presa della motosega
 Versione 2.7g2 (08/07/2025)
 - (SIM) Corretto movimento a parcheggio sega a catena. Ticket#2517
 Versione 2.7g1 (01/07/2025)
 - (GEN) Rimossa gestione PROBE inserita per sbaglio
 - (GEN) Corretto gestione accelerazioni
 - (SIM-GEN) Aggiunta gestione massima lunghezza scarico
 Versione 2.7f1 (04/06/2025)
 - (SIM) Aggiunta gestione qualità VMILL da impostazioni macchina. Tolto parametro 'CoeffVM'.
 - (GEN) Aggiunti parametri FMAXPINZE, MAXACC, MINACC configurabili da TS3. Ticket#2052
 Versione 2.7e1 (28/05/2025)
 - (SIM-GEN) Alla separazione si spostano i carrelli di 30mm aprendo il taglio. Ticket#2259,Ticket#2328
 Versione 2.7d1 (16/04/2025)
 - (SIM) Distanza di collisione portata a 3mm, qualità VMILL ridotta a 4mm. Ticket#2395
 Versione 2.7c3 (25/03/2025)
 - (GEN) Corretto movimento approccio alla lavorazione se utensile lama montata su magazzino 2. Ticket#2361
 Versione 2.7c2 (12/03/2025)
 - (SIM-GEN) Migliorato calcolo posizione barra dopo split. Tiene in considerazione ingombro lavorazioni pezzo. Ticket#2321
 - (GEN) Aggiunta commenti HEADER e FOOTER per comunicazione con linea o altre macchine, da parte di Essetre.
@@ -3,8 +3,8 @@
 local InfoCommon_STD_PP = {
   NAME = 'Common_ONE-PF',            -- nome script PP standard
-   VERSION = '2.7c2',                 -- versione script
+   VERSION = '3.1f1',                 -- versione script
-   MIN_MACH_VER_PP_COMMON = '2.5k1'   -- versione minima kernel
+   MIN_MACH_VER_PP_COMMON = '3.1b2'   -- versione minima kernel
 }
 return InfoCommon_STD_PP
Author	SHA1	Message	Date
andrea.villa	87ebd3a20d	Aggiunta lettura quote parcheggio	2026-06-03 12:15:44 +02:00
andrea.villa	8e46749ecd	HOTFIX problema simulazione	2026-06-03 11:54:12 +02:00
andrea.villa	c083e04e59	Allineamento a common 3.1f1	2026-06-03 09:47:59 +02:00
andrea.villa	3092966bff	Merge remote-tracking branch 'origin/develop'	2026-03-17 15:16:56 +01:00
andrea.villa	e5715f3808	Allineamento a common ver. 3.1c2	2026-03-17 15:16:43 +01:00
daniele.nicoli	bd02e140d2	Aggiunto info "PreviewShow" per anteprima utensile/testa nel MACH	2026-03-09 08:29:05 +01:00
daniele.nicoli	777bda68ff	Aggiunti parametri di lettura da TS3Data.lua: MIN_JOIN_S, MIN_JOIN_L e MAX_ANGLE_DRILL_CUT	2026-03-05 14:44:08 +01:00
daniele.nicoli	fe6f9d4523	Merge remote-tracking branch 'origin/HEAD' into develop	2026-03-05 14:42:32 +01:00
andrea.villa	5fa0594754	Allineamento con common ver. 3.1c1	2026-03-04 10:32:16 +01:00
andrea.villa	8bc06dbb15	Merge remote-tracking branch 'origin/develop'	2026-02-20 09:00:35 +01:00
andrea.villa	d9308f4c7e	Allineamento con common ver. 3.1b1	2026-02-20 09:00:19 +01:00
daniele.nicoli	0262c1241f	Aggiunta la lettura da TS3Data.lua delle corse dell'asse W (MIN_W e MAX_W)	2026-02-03 10:48:53 +01:00
daniele.nicoli	dac8bb129d	Merge branch 'master' into develop	2026-02-03 10:47:24 +01:00
andrea.villa	3a67314ccd	Allineamento con common ver. 3.1a1	2026-01-16 15:40:06 +01:00
andrea.villa	b2ce5e69a0	Merge remote-tracking branch 'origin/develop'	2025-12-18 16:05:13 +01:00
andrea.villa	6a9b2b5f58	- Allineamento a common ver. 2.7l1 - Aggiunto parametro MAX_ANGLE_DRILL_CUT a BeamData - Recupero nome macchina da funzione EGT	2025-12-18 16:05:00 +01:00
andrea.villa	ed4a3db13b	Merge remote-tracking branch 'origin/TestCheckPinzaggioVMILL' into develop	2025-12-18 16:02:25 +01:00
daniele.nicoli	0825eb8227	Modificata versione in 2.7l1_DEV1	2025-12-15 09:50:42 +01:00
daniele.nicoli	51a27d960b	Versione con aggiornamento di test a Common.mlpe: - mlpe, aggiunta funzione ClampCheck - nge, aggiunta geometria - mlde, aggiunte variabili, geometria e spostamento. Il coefficente è impostato a nil e modificabile da TS3Data.	2025-12-15 09:49:07 +01:00
daniele.nicoli	5c27dca65c	Merge branch 'master' into develop	2025-12-15 09:00:04 +01:00
andrea.villa	8df0b7b47e	Corretto disegno porta utensile	2025-12-11 09:20:57 +01:00
andrea.villa	7d0f491909	- Nuovo ToolHolder - Allineamento con common ver. 2.7k3	2025-11-28 15:40:49 +01:00
andrea.villa	4165843cf9	Merge remote-tracking branch 'origin/develop'	2025-11-20 16:58:22 +01:00
andrea.villa	61bb0aa701	- Allineamento a common ver. 2.7k2 - Cambio versione per rilascio a cliente	2025-11-20 16:58:00 +01:00
daniele.nicoli	f3f9f38c84	Aggiunta gestione CUT_SIC impostabile da TS3Data.lua	2025-11-13 11:23:32 +01:00
daniele.nicoli	4b12300100	Merge branch 'master' into develop	2025-11-13 10:55:48 +01:00
andrea.villa	1f93f2f45a	Allineamento con common ver. 2.7k1	2025-11-05 13:22:45 +01:00
andrea.villa	718d2ceee3	Allineamento con common ver. 2.7j3	2025-10-23 07:48:09 +02:00
andrea.villa	d85a6e3ba3	#critical# Allineamento con common ver. 2.7j2	2025-10-21 10:47:03 +02:00
andrea.villa	605400d40c	Allineamento con common ver. 2.7j1	2025-10-08 13:12:51 +02:00
andrea.villa	3576c6ac11	Allineamento con common ver. 2.7i1, HOTFIX	2025-09-10 12:10:26 +02:00
andrea.villa	dc43388def	- Allineamento common ver. 2.71 - Aggiunto solido collisione per tappeto	2025-09-10 10:35:22 +02:00
andrea.villa	3102d381ed	Piccole correzioni per gestire secondo TC su ONE	2025-08-29 16:52:09 +02:00
andrea.villa	3e80505457	- Sistemato script per setup - Rimosso frame copiato per sbaglio	2025-08-28 14:50:25 +02:00
andrea.villa	7d1749c9ab	- Allinemento con common ver. 2.7h2 - Aggiunto secondo cambio utensile	2025-08-28 13:06:28 +02:00
andrea.villa	900cc65fb0	Merge remote-tracking branch 'origin/develop'	2025-08-20 14:31:12 +02:00
andrea.villa	7850144992	Allineamento con common ver. 2.7h1	2025-08-20 14:30:55 +02:00
andrea.villa	d6c384d159	Merge remote-tracking branch 'origin/V1OpenOnTailCut' into develop	2025-08-20 14:28:59 +02:00
luca.mazzoleni	b314c701fb	V1OpenOnTailCut	2025-08-06 10:30:40 +02:00
luca.mazzoleni	1c731d2f51	Merge branch 'master' into develop	2025-08-06 10:21:17 +02:00
andrea.villa	9da267149a	- Allineamento con common ver. 2.7g4 - Aggiunto parametro MaxBackClamp5	2025-07-23 12:15:47 +02:00
andrea.villa	ee7db694e6	Allineamento con common ver. 2.7g3	2025-07-22 11:17:55 +02:00
andrea.villa	b66f238ca5	Alineamento con common ver. 2.7g1	2025-07-01 10:07:32 +02:00
andrea.villa	edd07a5bc5	- Allineamento con Common ver. 2.7e1 - Aggiornamento versione	2025-05-28 12:39:28 +02:00
andrea.villa	5825c0f292	Merge commit '8307af3165c0a7129705f4c27387d0bfac7a1190'	2025-05-21 08:33:03 +02:00
andrea.villa	7e5738ffa9	Cambio versione	2025-04-28 13:38:47 +02:00
andrea.villa	947a2c27ae	- Allineamento con common ver. 2.7d1 - Aggiornamento MachNotes - Lettura PRECUT per automatismo	2025-04-16 13:43:07 +02:00
andrea.villa	b6f4304daa	#critical# Allineamento con common 2.7c3	2025-03-26 07:59:49 +01:00
andrea.villa	8307af3165	Alla separazione si aprono le pinze di 30mm per evitare che pezzo torni indietro dell'offset compensato con misurazione laser. E' un test, non siamo sicuri che sia questo il problema.	2025-03-10 12:30:03 +01:00
andrea.villa	3c31786eae	Merge remote-tracking branch 'origin/master' into develop	2025-03-10 12:26:50 +01:00