Allineamento con Common ver. 2.6j7

- Tolti i commenti iniziali da quando è stato creato progetto GIT

.gitlab-ci.yml

@@ -21,6 +21,7 @@ variables:
  URL_VERSIONS_LOG: "https://liman.egalware.com/ELM.API/api/release/save"
  MACH_VERS_NUM: '0.0.0.0'
  CRITICAL_STRING: "#critical#"
+ TOOLS_MACHINE_PATH: ""
 
 
 #Note compilazione LUA:
@@ -47,8 +48,8 @@ variables:
       echo "-----------------------"
       $customerPathR = $env:MACHINES_PATH_R + "\" + $env:MANUFACTURER
       ROBOCOPY /MIR "$env:SRC_PATH" "$customerPathR\$env:MACH_NAME\" /XD "bin"
-      ROBOCOPY "$env:TEST_PATH" "$customerPathR\$env:MACH_NAME_TEST\" /E /XD "bin"
-      ROBOCOPY /MIR "$env:BASE_PATH" "$customerPathR\Deploy\$env:MACH_NAME\$env:MACH_VERS\" /XD "bin" /XD "$env:MACH_NAME_TEST"
+      ROBOCOPY "$env:TEST_PATH" "$customerPathR\_TestMachines\$env:MACH_NAME_TEST\" /E /XD "bin"
+      ROBOCOPY /MIR "$env:BASE_PATH" "$customerPathR\_Deploy\$env:MACH_NAME\$env:MACH_VERS\" /XD "bin" /XD "$env:MACH_NAME_TEST"
       SLEEP 2
       net use R: /delete
 
@@ -78,7 +79,7 @@ variables:
       echo "   Copia macchina su R - DEV"
       echo "-----------------------"
       $customerPathR = $env:MACHINES_PATH_R + "\" + $env:MANUFACTURER
-      ROBOCOPY /MIR "$env:BASE_PATH" "$customerPathR\Deploy\$env:MACH_NAME\_DEV\$env:MACH_VERS\" /XD "bin" /XD "$env:MACH_NAME_TEST"
+      ROBOCOPY /MIR "$env:BASE_PATH" "$customerPathR\_Deploy\$env:MACH_NAME\_DEV\$env:MACH_VERS\" /XD "bin" /XD "$env:MACH_NAME_TEST"
       SLEEP 2
       net use R: /delete
 
@@ -91,8 +92,15 @@ variables:
       echo "-----------------------"
       echo "   Recupero file non git da R e copia su macchina virtuale"
       echo "-----------------------"
-      ROBOCOPY "$env:LAST_MACHINE_PATH" "$env:SRC_PATH" /E /XF "*.bat" /XF "*.yml" /XF ".gitignore" /XD ".git" /XF "UpdateLog.txt" /XD ".vscode"
-      ROBOCOPY "$env:LAST_MACHINE_PATH" "$env:SRC_PATH\bin\$env:MACH_NAME\" /E /XF "*.bat" /XF "*.yml" /XF ".gitignore" /XD ".git" /XF "UpdateLog.txt" /XD ".vscode"
+      # test se la cartella con gli utensili esiste per questa macchina
+      if (!(Test-Path -Path $env:TOOLS_MACHINE_PATH)) {
+      echo "-----------------------"
+      echo "CANNOT FIND TOOLS FOR THIS MACHINE!!"
+      echo "-----------------------"
+      Exit 1}
+      ROBOCOPY "$env:TOOLS_MACHINE_PATH" "$env:SRC_PATH" /E /XF "*.bat" /XF "*.yml" /XF ".gitignore" /XD ".git" /XF "UpdateLog.txt" /XD ".vscode"
+      ROBOCOPY "$env:TOOLS_MACHINE_PATH" "$env:TEST_PATH" /E /XF "*.bat" /XF "*.yml" /XF ".gitignore" /XD ".git" /XF "UpdateLog.txt" /XD ".vscode"
+      ROBOCOPY "$env:TOOLS_MACHINE_PATH" "$env:SRC_PATH\bin\$env:MACH_NAME\" /E /XF "*.bat" /XF "*.yml" /XF ".gitignore" /XD ".git" /XF "UpdateLog.txt" /XD ".vscode"
       SLEEP 2
       net use R: /delete
 
@@ -172,8 +180,8 @@ variables:
       echo "-----------------------"
       echo "   Creazione cartelle su macchina virtuale"
       echo "-----------------------"
-      $env:LAST_MACHINE_PATH = "$env:MACHINES_PATH_R\$env:MACH_NAME";
-      Write-Output  $env:LAST_MACHINE_PATH;
+      $env:TOOLS_MACHINE_PATH = "$env:MACHINES_PATH_R\$env:MANUFACTURER\_DefaultMachineSetup\$env:MACH_NAME"
+      Write-Output  $env:TOOLS_MACHINE_PATH
       $env:SRC_PATH = "$env:TEMP_PATH\$env:MACH_NAME\$env:MACH_VERS\$env:MACH_NAME";
       $env:BASE_PATH = "$env:TEMP_PATH\$env:MACH_NAME\$env:MACH_VERS";
       $env:TEST_PATH = "$env:TEMP_PATH\$env:MACH_NAME\$env:MACH_VERS\$env:MACH_NAME_TEST";
@@ -203,9 +211,15 @@ variables:
       echo "   Invio versione a log online"
       echo "-----------------------"
       $tags = ""
+      $date = ""
       # se critico scrive tag
       if ( $CI_COMMIT_MESSAGE | Select-String -Pattern $env:CRITICAL_STRING) {
-      $tags = "CRITICAL"
+         $tags = "CRITICAL"
+         $date = (Get-Date).AddDays(1).toString("yyyy-MM-ddTHH:mm:ss.fffZ")
+      }
+      else
+      {
+         $date = (Get-Date).AddDays(3).toString("yyyy-MM-ddTHH:mm:ss.fffZ")
       }
       $body =
       @{
@@ -216,7 +230,7 @@ variables:
             tipo = "Machine"
             versNum = $env:MACH_VERS_NUM
             versText = $env:MACH_VERS
-            releaseDate = (Get-Date).toString("yyyy-MM-ddTHH:mm:ss.fffZ")
+            releaseDate = $date
             relTags = $tags
       }
       $jsonBody = ConvertTo-Json -InputObject $body

Beam/BeamData.lua

@@ -8,6 +8,8 @@ local BeamData = {
    GO_FAST = 0,                             -- flag abilitazione modalità veloce (0=no, 1=carrelli, 2=anche cambio utensili)
    RIGHT_LOAD = false,                      -- flag carico da destra
    ROT90 = false,                           -- flag abilitazione rotazione 90 gradi
+   NEWCLAMPING = false,                     -- flag abilitazione nuovo metodo riposizionamento carrelli
+   FASTCLAMPING= true,                      -- flag abilitazione riduzione numero riposizionamenti al carico e durante grande trascinamento
    MIN_WIDTH = 40,                          -- larghezza minima del grezzo
    MIN_HEIGHT = 40,                         -- altezza minima del grezzo
    MAX_WIDTH = 240,                         -- larghezza massima del grezzo
@@ -72,6 +74,7 @@ local BeamData = {
    PRECUT_HEAD = true,                      -- flag abilitazione pretaglio grezzo a zero in testa
    PRECUT_TAIL = true,                      -- flag abilitazione pretaglio grezzo a zero in coda
    MIN_HEIGHT_ADDED_CUTS = 400,             -- altezza minima pezzo per effettuare tagli orizzontali aggiuntivi in testa e coda
+   GAIN_RECLAMPING = 1000                   -- in caso di scarso pinzaggio, mm da recuperare con pinzaggio ulteriore prima di spostare
 }
 
 -- Aggiornamento con dati da TechnoEssetre7
@@ -87,18 +90,25 @@ if EgtExistsFile( sData) then
    local Machine = dofile( sData)
    if Machine then
       if Machine.Offsets then
-        BeamData.ANG_TRASM = ( Machine.Offsets.SECSUP and Machine.Offsets.SECSUP >= 3)
-        BeamData.BH_MACHINE = ( Machine.Offsets.BLOCKHAUS == 1)
-        BeamData.MINRAW_S = max( BeamData.MINRAW_S, Machine.Offsets.MINRAW_S or BeamData.MINRAW_S)
-        BeamData.MINRAW_L = max( BeamData.MINRAW_L, Machine.Offsets.MINRAW_L or BeamData.MINRAW_L)
-        BeamData.CUT_EXTRA = Machine.Offsets.CUT_EXTRA or BeamData.CUT_EXTRA
-        BeamData.CUT_EXTRA_MIN = Machine.Offsets.CUT_EXTRA_MIN or BeamData.CUT_EXTRA_MIN
-        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
-        if Machine.Offsets.MIN_HEIGHT_ADDED_CUTS then BeamData.MIN_HEIGHT_ADDED_CUTS = min( Machine.Offsets.MIN_HEIGHT_ADDED_CUTS, BeamData.MIN_HEIGHT_ADDED_CUTS) end
+         BeamData.ANG_TRASM = ( Machine.Offsets.SECSUP and Machine.Offsets.SECSUP >= 3)
+         BeamData.BH_MACHINE = ( Machine.Offsets.BLOCKHAUS == 1)
+         BeamData.MINRAW_S = max( BeamData.MINRAW_S, Machine.Offsets.MINRAW_S or BeamData.MINRAW_S)
+         BeamData.MINRAW_L = max( BeamData.MINRAW_L, Machine.Offsets.MINRAW_L or BeamData.MINRAW_L)
+         BeamData.CUT_EXTRA = Machine.Offsets.CUT_EXTRA or BeamData.CUT_EXTRA
+         BeamData.CUT_EXTRA_MIN = Machine.Offsets.CUT_EXTRA_MIN or BeamData.CUT_EXTRA_MIN
+         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
+         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
+         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
+         if Machine.Offsets.MIN_HEIGHT_ADDED_CUTS then BeamData.MIN_HEIGHT_ADDED_CUTS = min( Machine.Offsets.MIN_HEIGHT_ADDED_CUTS, BeamData.MIN_HEIGHT_ADDED_CUTS) end
+         if Machine.Offsets.NEWCLAMPING ~= nil then BeamData.NEWCLAMPING = ( Machine.Offsets.NEWCLAMPING == 1) end
+         if Machine.Offsets.FASTCLAMPING ~= nil then BeamData.FASTCLAMPING = ( Machine.Offsets.FASTCLAMPING == 1) end
+         if Machine.Offsets.ROT90 ~= nil then BeamData.ROT90 = ( Machine.Offsets.ROT90 == 1) end
       end
       if Machine.Trave then
          BeamData.MIN_WIDTH = Machine.Trave.XMIN or BeamData.MIN_WIDTH
@@ -162,11 +172,11 @@ end
 BeamData.GetBlockedAxis = GetBlockedAxis
 
 ---------------------------------------------------------------------
-local function GetChainSawInitAngs( vtN, vtO)
-   if vtN:getY() > 0 and vtO:getX() > 0 then
-      return 'C=0'
-   else
+local function GetChainSawInitAngs( vtN, vtO, nInd)
+   if nInd == 1 then
       return ''
+   else
+      return EgtIf( vtN:getY() > 0, 'C=180', 'C=-180')
    end
 end
 BeamData.GetChainSawInitAngs = GetChainSawInitAngs
@@ -207,5 +217,32 @@ local function GetSetupInfo( sHead)
 end
 BeamData.GetSetupInfo = GetSetupInfo
 
+---------------------------------------------------------------------
+local function GetMaxMatReductionBladeCut( sHead, vtDir)
+   local MaxMatReductionBladeCut = 0
+   -- la lama è montata solo su H2, non si controllano altre teste
+   if sHead == 'H2' then
+      if BeamData.NEWTOPC == nil or BeamData.NEWTOPC then
+         MaxMatReductionBladeCut = -65
+      end
+      if AreSameVectorApprox( vtDir, X_AX()) then
+         MaxMatReductionBladeCut = MaxMatReductionBladeCut + 175
+      elseif AreSameVectorApprox( vtDir, -X_AX()) then
+         MaxMatReductionBladeCut = MaxMatReductionBladeCut + 175
+      elseif AreSameVectorApprox( vtDir, Y_AX()) then
+         MaxMatReductionBladeCut = MaxMatReductionBladeCut + 175
+      elseif AreSameVectorApprox( vtDir, -Y_AX()) then
+         MaxMatReductionBladeCut = MaxMatReductionBladeCut + 175
+      elseif AreSameVectorApprox( vtDir, Z_AX()) then
+         MaxMatReductionBladeCut = 80
+      elseif AreSameVectorApprox( vtDir, -Z_AX()) then
+         MaxMatReductionBladeCut = 80
+      end
+      MaxMatReductionBladeCut = MaxMatReductionBladeCut + BeamData.COLL_SIC
+   end
+   return MaxMatReductionBladeCut + BeamData.COLL_SIC
+end
+BeamData.GetMaxMatReductionBladeCut = GetMaxMatReductionBladeCut
+
 ---------------------------------------------------------------------
 return BeamData

Common_FAST.NUM.mlpe

@@ -3,6 +3,7 @@
 
 -- carico librerie
 local INFO_STD_PP = require( 'Version')
+local BD = require( 'BeamData')
 
 -- Variabili di modulo
 local CSP_INFO =     INFO_STD_PP.NAME..'  ver.'..INFO_STD_PP.VERSION..' by EgalWare s.r.l.'
@@ -602,6 +603,8 @@ end
 
 ---------------------------------------------------------------------
 function OnRapid()
+   -- recupero prossimo utensile
+   EMT.NEXTTOOL, EMT.NEXTHEAD, EMT.NEXTTCPOS = FindNextTool()
    MyBackupAxes()
    -- se primo movimento della lavorazione, gestione speciale
    if EMT.MCHFIRST and not EMT.OPEISDISP then
@@ -627,7 +630,7 @@ function OnRapid()
       local MyZHome = EgtGetAxisHomePos( 'Z')
       local bZmax = ( #EMT.AUXSTR > 0  or  EMT.TOOL ~= EMT.PREVTOOL  or  EMT.L3 > -1)
       -- se avevo motosega, torno in zona sicura senza ruotare assi rotanti
-      if ( EMT.PREVHEAD == 'H3' or EMT.TTOTLEN > 200) and EMT.ST > BeamHeightForFixRot and EMT.FLAG2 == 1 then
+      if EMT.PREVHEAD == 'H3' and EMT.ST > BeamHeightForFixRot and EMT.FLAG2 == 1 then
          local sOutPreMove = 'G101' .. ' X' .. EmtLenToString( -SafeXRotAxes, 3) .. ' Z' .. EmtLenToString( MyZHome, 3) ..
                                        ' B' .. EmtLenToString( EMT.R2pp, 3) .. ' C' .. EmtLenToString( EMT.R1pp, 3) .. 
                                        ' EE' .. EgtIf( bZmax, '3', '4') .. EMT.PREVsEL .. EMT.PREVsER .. EMT.PREVsET .. EMT.PREVsES
@@ -649,7 +652,7 @@ function OnRapid()
       local sES = ' ES'..EgtNumToString( EMT.S, 0)
 
       -- se carico motosega, ruoto in zona sicura prima di approcciare la lavorazione
-      if ( EMT.HEAD == 'H3' or EMT.TTOTLEN > 200) and EMT.ST > BeamHeightForFixRot and EMT.FLAG2 == 1 then
+      if ( EMT.HEAD == 'H3' or ( bZmax and EMT.TTOTLEN > 200)) and EMT.ST > BeamHeightForFixRot and EMT.FLAG2 == 1 then
          local sEEPreMove = ' EE' .. EgtIf( bZmax, '3', '4')
          local sOutPreMove = 'G101' .. ' X' .. EmtLenToString( -SafeXRotAxes, 3) .. ' Z' .. EmtLenToString( MyZHome, 3) ..
                                        EmtGetAxis( 'R2') .. EmtGetAxis( 'R1') .. sEE .. sEL .. sER .. sET .. sES
@@ -833,12 +836,47 @@ function OnRapid()
       EmtAdjustRotaryAxes()
       EmitZmax()
       EMT.ZMAX = true
+      -- se pezzi alti e devo cambiare utensile su testa con CU, porto la testa vicino al cambio utensile
+      if EMT.ST > BeamHeightForFixRot  and  EMT.HEAD == 'H1' and  EMT.TOOL ~= EMT.NEXTTOOL  and  EMT.NEXTHEAD ~= 'H2' then
+         local dBAxis = 90
+         local dCAxis = EgtIf( BD.RIGHT_LOAD, 90, -90)         
+         local sEE = ' EE3'
+         local sEL = ' EL' .. EmtLenToString( EgtIf( EMT.HEAD ~= 'H3', EMT.TLEN, ( EMT.TDIST or ChSawLen)), 3)
+         local sER = ' ER' .. EmtLenToString( EgtIf( EMT.HEAD ~= 'H3', EMT.TDIAM / 2, EMT.TLEN), 3)
+         local sET = GetET( EMT.HEAD, EMT.TCPOS, EMT.R3)
+         local sES = ' ES'..EgtNumToString( EMT.S, 0)
+         local sOut = 'G101' .. EmtGetAxis( 'L2') .. EmtGetAxis( 'L3') ..' B=' .. EgtNumToString( dBAxis, 3) ..
+                      ' C=' .. EgtNumToString( dCAxis, 3) .. sEE .. sEL .. sER .. sET .. sES
+         EmtOutput( sOut)
+         EmtOutput( 'G101 ET1001')
+         EmtOutput( 'G101 ET2001')
+         sOut = 'G101' .. ' X' .. EmtLenToString( -SafeXRotAxes, 3) .. EmtGetAxis( 'L3') ..' B=' .. EgtNumToString( dBAxis, 3) ..
+                ' C=' .. EgtNumToString( dCAxis, 3) .. sEE .. sEL .. sER .. sET .. sES
+         EmtOutput( sOut)
+         EmtOutput( 'G101 ET1001')
+         EmtOutput( 'G101 ET2001')
+      end
    -- se altrimenti movimento in Home
    elseif EMT.FLAG == 4 then
       -- non previsto
-   -- se altrimenti rotazione a Z max
+   -- se altrimenti rotazione a Z max per lavorazione successiva
    elseif EMT.FLAG == 5 then
-      -- viene gestito all'inizio della lavorazione successiva
+      EMT.REFLOC = nil
+      EMT.IPLGL = false
+      MyAdjustLinearAxes()
+      EmtAdjustRotaryAxes()
+      EmtResetPrev()
+      -- ricavo i dati per la lavorazione
+      local sEE = ' EE3'
+      local sEL = ' EL' .. EmtLenToString( EgtIf( EMT.HEAD ~= 'H3', EMT.TLEN, ( EMT.TDIST or ChSawLen)), 3)
+      local sER = ' ER' .. EmtLenToString( EgtIf( EMT.HEAD ~= 'H3', EMT.TDIAM / 2, EMT.TLEN), 3)
+      local sET = GetET( EMT.HEAD, EMT.TCPOS, EMT.R3)
+      local sES = ' ES'..EgtNumToString( EMT.S, 0)
+      local sOut = 'G101' .. EmtGetAxis( 'L2') .. EmtGetAxis( 'L3') ..
+                             EmtGetAxis( 'R2') .. EmtGetAxis( 'R1') .. sEE .. sEL .. sER .. sET .. sES
+      EmtOutput( sOut)
+      EmtOutput( 'G101 ET1001')
+      EmtOutput( 'G101 ET2001')
    -- altrimenti errore
    else
       EmtSetLastError( 1212, "Unknown Rapid flag")
@@ -941,6 +979,35 @@ function OnArc()
    EmtUpdatePrev()
 end
 
+---------------------------------------------------------------------
+function FindNextTool()
+   -- salvo stato iniziale
+   local CurrMachId = EgtGetCurrMachining()
+   local CurrTool = EgtTdbGetCurrToolParam( MCH_TP.NAME)
+   -- cerco lavorazione con utensile su gruppo testa indicato
+   local sTool, sHead, sTcPos
+   local OpId = EgtGetNextActiveOperation( CurrMachId or EMT.MCHID)
+   while OpId do
+      local nType = EgtGetOperationType( OpId)
+      if nType ~= MCH_OY.NONE  and  nType ~= MCH_OY.DISP then
+         if EgtSetCurrMachining( OpId) then
+            sTool = EgtGetMachiningParam( MCH_MP.TOOL)
+            if EgtTdbSetCurrTool( sTool) then
+               sHead = EgtTdbGetCurrToolParam( MCH_TP.HEAD)
+               sTcPos = EgtTdbGetCurrToolParam( MCH_TP.TCPOS)
+               break
+            end
+         end
+      end
+      OpId = EgtGetNextActiveOperation( OpId)
+   end
+   -- ripristino stato iniziale
+   EgtSetCurrMachining( CurrMachId or GDB_ID.NULL)
+   EgtTdbSetCurrTool( CurrTool or '')
+   -- restituisco risultato
+   return sTool, sHead, sTcPos
+end
+
 ---------------------------------------------------------------------
 function CalcCharStatus( sCmd, bSkipPress)
    -- aperto

Common_FAST.NUM_PLUS.mlpe

@@ -3,6 +3,7 @@
 
 -- carico librerie
 local INFO_STD_PP = require( 'Version')
+local BD = require( 'BeamData')
 
 -- Variabili di modulo
 local CSP_INFO =     INFO_STD_PP.NAME..'  ver.'..INFO_STD_PP.VERSION..' by EgalWare s.r.l.'
@@ -642,6 +643,8 @@ end
 
 ---------------------------------------------------------------------
 function OnRapid()
+   -- recupero prossimo utensile
+   EMT.NEXTTOOL, EMT.NEXTHEAD, EMT.NEXTTCPOS = FindNextTool()
    MyBackupAxes()
    -- se primo movimento della lavorazione, gestione speciale
    if EMT.MCHFIRST and not EMT.OPEISDISP then
@@ -668,7 +671,7 @@ function OnRapid()
       local MyZHome = EgtGetAxisHomePos( 'Z')
       local bZmax = ( #EMT.AUXSTR > 0  or  EMT.TOOL ~= EMT.PREVTOOL  or  EMT.L3 > -1)
       -- se avevo motosega, torno in zona sicura senza ruotare assi rotanti
-      if ( EMT.PREVHEAD == 'H3' or EMT.TTOTLEN > 200) and EMT.ST > BeamHeightForFixRot and EMT.FLAG2 == 1 then
+      if EMT.PREVHEAD == 'H3' and EMT.ST > BeamHeightForFixRot and EMT.FLAG2 == 1 then
          local sOutPreMove = 'G101' .. ' X' .. EmtLenToString( -SafeXRotAxes, 3) .. ' Z' .. EmtLenToString( MyZHome, 3) ..
                                        ' B' .. EmtLenToString( EMT.R2pp, 3) .. ' C' .. EmtLenToString( EMT.R1pp, 3) .. 
                                        ' EE' .. EgtIf( bZmax, '3', '4') .. EMT.PREVsEL .. EMT.PREVsER .. EMT.PREVsET .. EMT.PREVsES
@@ -713,7 +716,7 @@ function OnRapid()
       local sES = ' ES'..EgtNumToString( EMT.S, 0)
 
       -- se carico motosega, ruoto in zona sicura prima di approcciare la lavorazione
-      if ( EMT.HEAD == 'H3' or EMT.TTOTLEN > 200) and EMT.ST > BeamHeightForFixRot and EMT.FLAG2 == 1 then
+      if ( EMT.HEAD == 'H3' or ( bZmax and EMT.TTOTLEN > 200)) and EMT.ST > BeamHeightForFixRot and EMT.FLAG2 == 1 then
          local sEEPreMove = ' EE' .. EgtIf( bZmax, '3', '4')
          local sOutPreMove = 'G101' .. ' X' .. EmtLenToString( -SafeXRotAxes, 3) .. ' Z' .. EmtLenToString( MyZHome, 3) ..
                                        EmtGetAxis( 'R2') .. EmtGetAxis( 'R1') .. sEE .. sEL .. sER .. sET .. sES
@@ -907,12 +910,47 @@ function OnRapid()
       EmtAdjustRotaryAxes()
       EmitZmax( false)
       EMT.ZMAX = true
+      -- se pezzi alti e devo cambiare utensile su testa con CU, porto la testa vicino al cambio utensile
+      if EMT.ST > BeamHeightForFixRot  and  EMT.HEAD == 'H1' and  EMT.TOOL ~= EMT.NEXTTOOL  and  EMT.NEXTHEAD ~= 'H2' then
+         local dBAxis = 90
+         local dCAxis = EgtIf( BD.RIGHT_LOAD, 90, -90)         
+         local sEE = ' EE3'
+         local sEL = ' EL' .. EmtLenToString( EgtIf( EMT.HEAD ~= 'H3', EMT.TLEN, ( EMT.TDIST or ChSawLen)), 3)
+         local sER = ' ER' .. EmtLenToString( EgtIf( EMT.HEAD ~= 'H3', EMT.TDIAM / 2, EMT.TLEN), 3)
+         local sET = GetET( EMT.HEAD, EMT.TCPOS, EMT.R3)
+         local sES = ' ES'..EgtNumToString( EMT.S, 0)
+         local sOut = 'G101' .. EmtGetAxis( 'L2') .. EmtGetAxis( 'L3') ..' B=' .. EgtNumToString( dBAxis, 3) ..
+                      ' C=' .. EgtNumToString( dCAxis, 3) .. sEE .. sEL .. sER .. sET .. sES
+         EmtOutput( sOut)
+         EmtOutput( 'G101 ET1001')
+         EmtOutput( 'G101 ET2001')
+         sOut = 'G101' .. ' X' .. EmtLenToString( -SafeXRotAxes, 3) .. EmtGetAxis( 'L3') ..' B=' .. EgtNumToString( dBAxis, 3) ..
+                ' C=' .. EgtNumToString( dCAxis, 3) .. sEE .. sEL .. sER .. sET .. sES
+         EmtOutput( sOut)
+         EmtOutput( 'G101 ET1001')
+         EmtOutput( 'G101 ET2001')
+         end
    -- se altrimenti movimento in Home
    elseif EMT.FLAG == 4 then
       -- non previsto
-   -- se altrimenti rotazione a Z max
+   -- se altrimenti rotazione a Z max per lavorazione successiva
    elseif EMT.FLAG == 5 then
-      -- viene gestito all'inizio della lavorazione successiva
+      EMT.REFLOC = nil
+      EMT.IPLGL = false
+      MyAdjustLinearAxes()
+      EmtAdjustRotaryAxes()
+      EmtResetPrev()
+      -- ricavo i dati per la lavorazione
+      local sEE = ' EE3'
+      local sEL = ' EL' .. EmtLenToString( EgtIf( EMT.HEAD ~= 'H3', EMT.TLEN, ( EMT.TDIST or ChSawLen)), 3)
+      local sER = ' ER' .. EmtLenToString( EgtIf( EMT.HEAD ~= 'H3', EMT.TDIAM / 2, EMT.TLEN), 3)
+      local sET = GetET( EMT.HEAD, EMT.TCPOS, EMT.R3)
+      local sES = ' ES'..EgtNumToString( EMT.S, 0)
+      local sOut = 'G101' .. EmtGetAxis( 'L2') .. EmtGetAxis( 'L3') ..
+                             EmtGetAxis( 'R2') .. EmtGetAxis( 'R1') .. sEE .. sEL .. sER .. sET .. sES
+      EmtOutput( sOut)
+      EmtOutput( 'G101 ET1001')
+      EmtOutput( 'G101 ET2001')
    -- altrimenti errore
    else
       EmtSetLastError( 1212, "Unknown Rapid flag")
@@ -1020,6 +1058,35 @@ function OnArc()
    EmtUpdatePrev()
 end
 
+---------------------------------------------------------------------
+function FindNextTool()
+   -- salvo stato iniziale
+   local CurrMachId = EgtGetCurrMachining()
+   local CurrTool = EgtTdbGetCurrToolParam( MCH_TP.NAME)
+   -- cerco lavorazione con utensile su gruppo testa indicato
+   local sTool, sHead, sTcPos
+   local OpId = EgtGetNextActiveOperation( CurrMachId or EMT.MCHID)
+   while OpId do
+      local nType = EgtGetOperationType( OpId)
+      if nType ~= MCH_OY.NONE  and  nType ~= MCH_OY.DISP then
+         if EgtSetCurrMachining( OpId) then
+            sTool = EgtGetMachiningParam( MCH_MP.TOOL)
+            if EgtTdbSetCurrTool( sTool) then
+               sHead = EgtTdbGetCurrToolParam( MCH_TP.HEAD)
+               sTcPos = EgtTdbGetCurrToolParam( MCH_TP.TCPOS)
+               break
+            end
+         end
+      end
+      OpId = EgtGetNextActiveOperation( OpId)
+   end
+   -- ripristino stato iniziale
+   EgtSetCurrMachining( CurrMachId or GDB_ID.NULL)
+   EgtTdbSetCurrTool( CurrTool or '')
+   -- restituisco risultato
+   return sTool, sHead, sTcPos
+end
+
 ---------------------------------------------------------------------
 function CalcDinamicaPinze( dH, dS, dL)
    local MinTempoAcc = 0.3                         -- [s]

Common_FAST.TPA.mlpe

@@ -3,6 +3,7 @@
 
 -- carico librerie
 local INFO_STD_PP = require( 'Version')
+local BD = require( 'BeamData')
 
 -- Variabili di modulo
 local CSP_INFO =     INFO_STD_PP.NAME..'  ver.'..INFO_STD_PP.VERSION..' by EgalWare s.r.l.'
@@ -625,6 +626,8 @@ end
 
 ---------------------------------------------------------------------
 function OnRapid()
+   -- recupero prossimo utensile
+   EMT.NEXTTOOL, EMT.NEXTHEAD, EMT.NEXTTCPOS = FindNextTool()
    MyBackupAxes()
    -- se primo movimento della lavorazione, gestione speciale
    if EMT.MCHFIRST and not EMT.OPEISDISP then
@@ -647,7 +650,7 @@ function OnRapid()
       local MyZHome = EgtGetAxisHomePos( 'Z')
       local bZmax = ( #EMT.AUXSTR > 0  or  EMT.TOOL ~= EMT.PREVTOOL  or EMT.L3 > -1)
       -- se avevo motosega, torno in zona sicura senza ruotare assi rotanti
-      if ( EMT.PREVHEAD == 'H3' or EMT.TTOTLEN > 200) and EMT.ST > BeamHeightForFixRot and EMT.FLAG2 == 1 then
+      if EMT.PREVHEAD == 'H3' and EMT.ST > BeamHeightForFixRot and EMT.FLAG2 == 1 then
          local sOutPreMove = 'M101 P1=1' .. ' P2=' .. EmtLenToString( -SafeXRotAxes, 3) .. ' P3=' .. EmtLenToString( MyZHome, 3) ..
                                  ' P4=' .. EgtNumToString( EMT.R2pp, 3) .. ' P5=' .. EgtNumToString( EMT.R1pp, 3) .. 
                                  ' P6=' .. EgtNumToString( EMT.PREVTCPOS, 3) .. ' P7=' .. EgtNumToString( EMT.PREVS, 0) ..
@@ -663,7 +666,7 @@ function OnRapid()
       end
 
       -- se carico motosega, ruoto in zona sicura prima di approcciare la lavorazione
-      if ( EMT.HEAD == 'H3' or EMT.TTOTLEN > 200) and EMT.ST > BeamHeightForFixRot and EMT.FLAG2 == 1 then
+      if ( EMT.HEAD == 'H3' or ( bZmax and EMT.TTOTLEN > 200)) and EMT.ST > BeamHeightForFixRot and EMT.FLAG2 == 1 then
          local sOutPreMove = 'M101 P1=1' .. ' P2=' .. EmtLenToString( -SafeXRotAxes, 3) .. ' P3=' .. EmtLenToString( MyZHome, 3) ..
                                  ' P4=' .. EgtNumToString( EMT.R2, 3) .. ' P5=' .. EgtNumToString( EMT.R1, 3) .. 
                                  ' P6=' .. AdjustTcPos( false) .. ' P7=' .. EgtNumToString( EMT.S, 0) ..
@@ -849,12 +852,42 @@ function OnRapid()
       EmtAdjustRotaryAxes()
       EmitZmax( true)
       EMT.ZMAX = true
+      -- se pezzi alti e devo cambiare utensile su testa con CU, porto la testa vicino al cambio utensile
+      if EMT.ST > BeamHeightForFixRot  and  EMT.HEAD == 'H1' and  EMT.TOOL ~= EMT.NEXTTOOL  and  EMT.NEXTHEAD ~= 'H2' then
+         local dBAxis = 90
+         local dCAxis = EgtIf( BD.RIGHT_LOAD, 90, -90)
+         local sOut = 'M101 P1=1' .. ' P2=' .. EmtLenToString( EMT.L2, 3) .. ' P3=' .. EmtLenToString( EMT.L3, 3) ..
+                      ' P4=' .. EgtNumToString( dBAxis, 3) .. ' P5=' .. EgtNumToString( dCAxis, 3) .. 
+                      ' P6=' .. AdjustTcPos( false) .. ' P7=' .. EgtNumToString( EMT.S, 0) ..
+                      ' P8=0' .. ' P9=0' .. ' P10=3'
+         EmtOutput( sOut)
+         EmtOutput( 'M101 P1=2')
+         EmtOutput( 'M101 P1=3')
+         sOut = 'M101 P1=1' .. ' P2=' .. EmtLenToString( -SafeXRotAxes, 3) .. ' P3=' .. EmtLenToString( EMT.L3, 3) ..
+                      ' P4=' .. EgtNumToString( dBAxis, 3) .. ' P5=' .. EgtNumToString( dCAxis, 3) .. 
+                      ' P6=' .. AdjustTcPos( false) .. ' P7=' .. EgtNumToString( EMT.S, 0) ..
+                      ' P8=0' .. ' P9=0' .. ' P10=3'
+         EmtOutput( sOut)
+         EmtOutput( 'M101 P1=2')
+         EmtOutput( 'M101 P1=3')
+      end
    -- se altrimenti movimento in Home
    elseif EMT.FLAG == 4 then
       -- non previsto
-   -- se altrimenti rotazione a Z max
+   -- se altrimenti rotazione a Z max per lavorazione successiva
    elseif EMT.FLAG == 5 then
-      -- viene gestito all'inizio della lavorazione successiva
+      EMT.REFLOC = nil
+      EMT.IPLGL = false
+      MyAdjustLinearAxes()
+      EmtAdjustRotaryAxes()
+      EmtResetPrev()
+      local sOut = 'M101 P1=1' .. ' P2=' .. EmtLenToString( EMT.L2, 3) .. ' P3=' .. EmtLenToString( EMT.L3, 3) ..
+                   ' P4=' .. EgtNumToString( EMT.R2, 3) .. ' P5=' .. EgtNumToString( EMT.R1, 3) .. 
+                   ' P6=' .. AdjustTcPos( false) .. ' P7=' .. EgtNumToString( EMT.S, 0) ..
+                   ' P8=0' .. ' P9=0' .. ' P10=3'
+      EmtOutput( sOut)
+      EmtOutput( 'M101 P1=2')
+      EmtOutput( 'M101 P1=3')
    -- altrimenti errore
    else
       error( "Unknown Rapid flag")
@@ -981,6 +1014,35 @@ function OnArc()
    EmtUpdatePrev()
 end
 
+---------------------------------------------------------------------
+function FindNextTool()
+   -- salvo stato iniziale
+   local CurrMachId = EgtGetCurrMachining()
+   local CurrTool = EgtTdbGetCurrToolParam( MCH_TP.NAME)
+   -- cerco lavorazione con utensile su gruppo testa indicato
+   local sTool, sHead, sTcPos
+   local OpId = EgtGetNextActiveOperation( CurrMachId or EMT.MCHID)
+   while OpId do
+      local nType = EgtGetOperationType( OpId)
+      if nType ~= MCH_OY.NONE  and  nType ~= MCH_OY.DISP then
+         if EgtSetCurrMachining( OpId) then
+            sTool = EgtGetMachiningParam( MCH_MP.TOOL)
+            if EgtTdbSetCurrTool( sTool) then
+               sHead = EgtTdbGetCurrToolParam( MCH_TP.HEAD)
+               sTcPos = EgtTdbGetCurrToolParam( MCH_TP.TCPOS)
+               break
+            end
+         end
+      end
+      OpId = EgtGetNextActiveOperation( OpId)
+   end
+   -- ripristino stato iniziale
+   EgtSetCurrMachining( CurrMachId or GDB_ID.NULL)
+   EgtTdbSetCurrTool( CurrTool or '')
+   -- restituisco risultato
+   return sTool, sHead, sTcPos
+end
+
 ---------------------------------------------------------------------
 function CalcDinamicaPinze( dH, dS, dL)
    local MinTempoAcc = 0.3                         -- [s]

Common_FAST.mlpe

@@ -662,6 +662,7 @@ function OnSimulMachiningEnd()
       EMT.FALL = false
    end
    EMT.PREVHEAD = EMT.HEAD
+   EMT.PREVTOOL = EMT.TOOL
    EMT.PREVEXIT = EMT.EXIT
 end
 
@@ -749,10 +750,12 @@ function OnSimulMoveStart()
    if EMT.MCHFIRST then
       EgtOutText( '')
       EMT.MCHFIRST = false
+      local bZmax = ( EMT.TOOL ~= EMT.PREVTOOL  or EMT.L3 > -1)
+
       -- con pezzi alti aggiorno gli assi rotanti prima di muovermi sopra il pezzo
       if not EMT.LOAD and EMT.MOVE == 0 and EMT.HB > BeamHeightForFixRot and EMT.FLAG2 == 1 then
          -- se motosega mi muovo a X di sicurezza per ruotare
-         if EMT.HEAD == 'H3' or EMT.TOTLEN > 200 then
+         if ( EMT.HEAD == 'H3' or ( bZmax and EMT.TOTLEN > 200)) then
             SimulMoveAxes( 'X', SafeXRotAxes, MCH_SIM_STEP.RAPID, 'C', EMT.R1, MCH_SIM_STEP.COLLROT, 'B', EMT.R2, MCH_SIM_STEP.COLLROT)
          end
       end

Common_FAST.mlse

@@ -1111,7 +1111,7 @@ function SpecCalcLoad( dPosT, dDistFront, dDistBack)
          EgtOutLog( '  *[L2]', 1)
       end
    else
-   -- si pinza sempre a 1000mm massimo
+   -- altrimenti si pinza sempre a massimo 1000mm
       dNewYDelta = min( dNewYDelta, 1000)
    end
 
@@ -1214,6 +1214,9 @@ function SpecCalcCarriages( dDistFront, dDistBack, bFixedDelta, bFixedPos)
    end
    local dDistBackEff = min( dDistBack, EMC.LB - MyMinOther - EMC.HCING - EMC.HOVM)
 
+   -- se primo scambio
+   local MyMinY = EgtIf( EMC.CNT == 1, MinY + AGG_LOAD, MinY)
+
    EgtOutLog( '  Dist/Min : Back=' .. EgtNumToString( dDistBackEff, 1) .. '/' .. EgtNumToString( MinBackJoin, 1) ..
               ' Front=' .. EgtNumToString( dDistFrontEff, 1) .. '/' .. EgtNumToString( MinFrontJoin, 1) ..
               '  Fixed : Delta=' .. EgtIf( bFixedDelta, 'T', 'F') .. ' Pos=' .. EgtIf( bFixedPos, 'T', 'F'), 3)
@@ -1233,7 +1236,7 @@ function SpecCalcCarriages( dDistFront, dDistBack, bFixedDelta, bFixedPos)
    if dDistFrontEff < MinFrontJoin  and  dDistBackEff > MinBackJoin - GEO.EPS_SMALL then
       -- se Y non era in presa, mi ricalcolo la posizione
       if not dYDelta then
-         dYDelta = dVDelta + ( MinY - MaxV)
+         dYDelta = dVDelta + ( MyMinY - MaxV)
       end
       dNewYDelta = EMC.LB - dDistBackEff
       -- verifico se posso lasciare la morsa in posizione
@@ -1250,11 +1253,11 @@ function SpecCalcCarriages( dDistFront, dDistBack, bFixedDelta, bFixedPos)
    elseif dDistBackEff > MinBackJoin - GEO.EPS_SMALL  and dDistFrontEff > MinFrontJoin - GEO.EPS_SMALL then
       -- se Y non era in presa, mi ricalcolo la posizione
       if not dYDelta then
-         dYDelta = dVDelta + ( MinY - MaxV)
+         dYDelta = dVDelta + ( MyMinY - MaxV)
       end
       -- se V non era in presa, mi ricalcolo la posizione
       if not dVDelta then
-         dVDelta = dYDelta - ( MinY - MaxV)
+         dVDelta = dYDelta - ( MyMinY - MaxV)
       end
       
       dNewYDelta = EMC.LB - dDistBackEff
@@ -1284,12 +1287,17 @@ function SpecCalcCarriages( dDistFront, dDistBack, bFixedDelta, bFixedPos)
    elseif dDistBackEff < MinBackJoin  and  dDistFrontEff > MinFrontJoin - GEO.EPS_SMALL then
       -- se V non era in presa, mi ricalcolo la posizione
       if not dVDelta then
-         dVDelta = dYDelta - ( MinY - MaxV)
+         dVDelta = dYDelta - ( MyMinY - MaxV)
       end
       dNewVDelta = dDistFrontEff
       -- verifico se posso lasciare la morsa in posizione
       local dVDeltaTol = GetDeltaTol( dNewVDelta, EMC.TCING, EMC.HCING, EMC.HOVM, 'V', bFixedDelta)
-      local bVDeltaS = ( dNewVDelta > dVDelta + dVDeltaTol or  dNewVDelta < dVDelta - DELTA_SIC)
+      local bVDeltaS
+      if EMC.YDELTA == nil and EMC.YDELTANEXT == nil then
+         bVDeltaS = (( dNewVDelta > dVDelta + dVDeltaTol and not bFixedPos) or  dNewVDelta < dVDelta - DELTA_SIC)
+      else
+         bVDeltaS = ( dNewVDelta > dVDelta + dVDeltaTol or  dNewVDelta < dVDelta - DELTA_SIC)
+      end
       -- reimposto i delta finali in caso di spostamenti richiesti significativi, tenuto conto delle tolleranze
       if bVDeltaS then 
          dNewVDelta = dNewVDelta - dVDeltaTol/2
@@ -1489,25 +1497,37 @@ function SpecCalcPreRot()
    return vCmd
 end
 
+---------------------------------------------------------------------
+local function CalcCharStatus( sType, dDelta)
+   -- se per carrello Y
+   if sType == 'Y' then
+      return EgtIf( EMC.LB - dDelta < LenToPress, 1, 2)
+   -- altrimenti per carrello V
+   else
+      return EgtIf( dDelta < LenToPress, 1, 2)
+   end
+end
+
 ---------------------------------------------------------------------
 function SpecAdjustCarriages( vCmd, dTPosI, dYDeltaI, dVDeltaI, dTPosF, dYDeltaF, dVDeltaF, bFixedDelta, bFixedPos)
    local dYPosA, dVPosA, dTPosA
+   local dGainOnReclamping = BD.GAIN_RECLAMPING or 1000
 
    -- se primo scambio
    local MyMinY = EgtIf( EMC.CNT == 1, MinY + AGG_LOAD, MinY)
 
    -- se pinza non in presa, setto offset minimo in base all'altra che sta pinzando
    if not dYDeltaI then
-      dYDeltaI = dVDeltaI + ( MyMinY - MaxV)
+      dYDeltaI = dVDeltaI + ( MyMinY - MaxV) + 100 * GEO.EPS_SMALL
    end
    if not dVDeltaI then
-      dVDeltaI = dYDeltaI - ( MyMinY - MaxV)
+      dVDeltaI = dYDeltaI - ( MyMinY - MaxV) - 100 * GEO.EPS_SMALL
    end
    if not dYDeltaF then
-      dYDeltaF = dVDeltaF + ( MyMinY - MaxV)
+      dYDeltaF = dVDeltaF + ( MyMinY - MaxV) + 100 * GEO.EPS_SMALL
    end
    if not dVDeltaF then
-      dVDeltaF = dYDeltaF - ( MyMinY - MaxV)
+      dVDeltaF = dYDeltaF - ( MyMinY - MaxV) - 100 * GEO.EPS_SMALL
    end
 
    -- se non c'è posizione finale, è lo scarico. Allora setto al minimo della morsa allo scarico.
@@ -1555,7 +1575,7 @@ function SpecAdjustCarriages( vCmd, dTPosI, dYDeltaI, dVDeltaI, dTPosF, dYDeltaF
       --    * deve effettivamente spostarsi
       --    * non si arriva da gestione passo del pellegrino
       --    * se riesce a raggiungere la posizione con le corse a disposizione per come sono posizionate le morse attualmente
-      if ( dYDeltaI - dVDeltaF) >= MyMinY - MaxV and abs( dVDeltaF - dVDeltaI) > 10 * GEO.EPS_SMALL and  not EMC.PILGRIMSTEP and
+      if ( dYDeltaI - dVDeltaF) - 10 * GEO.EPS_SMALL >= MyMinY - MaxV and abs( dVDeltaF - dVDeltaI) > 10 * GEO.EPS_SMALL and  not EMC.PILGRIMSTEP and
          ( dVDeltaF - dVDeltaI > MinV - dVPosI + MyMinY - dYPosI) then
          table.insert( vCmd, { 0, 'Direct-V-Y'})
          -- se l'altra morsa non era in presa, vado a pinzare il pezzo
@@ -1568,6 +1588,7 @@ function SpecAdjustCarriages( vCmd, dTPosI, dYDeltaI, dVDeltaI, dTPosF, dYDeltaF
             dVPosI = dVPosA
             table.insert( vCmd, { 11, 1})
          end
+
          -- se spostando morsa diretto esco dalle corse, calcolo di quanto devo muovere la trave (cioè l'altra morsa) come minimo
          -- se non era ingaggiata, vado al suo minimo
          if not EMC.VDELTA then
@@ -1580,6 +1601,27 @@ function SpecAdjustCarriages( vCmd, dTPosI, dYDeltaI, dVDeltaI, dTPosF, dYDeltaF
             dBeamMove =  dVPosI + ( dVDeltaF - dVDeltaI) - MaxV
          end
 
+         -- se serve un grande spostamento e si sta pinzando poco. Y trascinatore pinza poco e V si sposta per prima per recuperare
+         if not BD.FASTCLAMPING and abs( dBeamMove) > 2000 and dDeltaBeam < 0 and EMC.LB - dYDeltaI < max( 550, (MinJoin * 2)) then
+            table.insert( vCmd, { 12, 0})
+            dVPosA = dVPosI - dGainOnReclamping
+            -- sposto il carrello V di 1000mm
+            table.insert( vCmd, { 1, 'V', dVPosA})
+            table.insert( vCmd, { 12, 1})
+            -- apro morsa Y e recupero i 1000mm
+            table.insert( vCmd, { 11, 0})
+            dVPosA = dVPosI
+            dYPosA = dYPosI 
+            dTPosA = dTPosI + dGainOnReclamping
+            table.insert( vCmd, { 3, 'Y', dYPosA , 'T', dTPosA, 'V', dVPosA})
+            dTPosI = dTPosA
+            dVPosI = dVPosA
+            dVDeltaI = dVDeltaI - dGainOnReclamping
+            dYDeltaI = dYDeltaI - dGainOnReclamping
+            table.insert( vCmd, { 11, 1})
+            dBeamMove = dBeamMove + dGainOnReclamping
+         end
+
          table.insert( vCmd, { 12, 0})
 
          dTPosA = dTPosI - dBeamMove
@@ -1592,7 +1634,7 @@ function SpecAdjustCarriages( vCmd, dTPosI, dYDeltaI, dVDeltaI, dTPosF, dYDeltaF
          dTPosI = dTPosA
 
         -- blocco la morsa
-         table.insert( vCmd, { 12, 1})
+         table.insert( vCmd, { 12, CalcCharStatus( 'V', dVDeltaF)})
 
          -- imposto i nuovi parametri di aggancio
          if EMC.YDELTANEXT and EMC.VDELTANEXT  then
@@ -1603,7 +1645,7 @@ function SpecAdjustCarriages( vCmd, dTPosI, dYDeltaI, dVDeltaI, dTPosF, dYDeltaF
                dYPosA = dTPosF + dYDeltaF
                dVPosA = dTPosF + dVDeltaF
                table.insert( vCmd, { 3, 'Y', dYPosA , 'T', dTPosA, 'V', dVPosA})
-               table.insert( vCmd, { 11, 1})
+               table.insert( vCmd, { 11, CalcCharStatus( 'Y', dYDeltaF)})
                -- la morsa al carico è adesso in posizione
                dYDeltaI = dYDeltaF
             end
@@ -1615,7 +1657,7 @@ function SpecAdjustCarriages( vCmd, dTPosI, dYDeltaI, dVDeltaI, dTPosF, dYDeltaF
                dTPosA = -( dYPosA + dVDeltaF)
                dVPosA = dTPosA + dVDeltaF
                table.insert( vCmd, { 3, 'Y', dYPosA , 'T', dTPosA, 'V', dVPosA})
-               table.insert( vCmd, { 11, 1})
+               table.insert( vCmd, { 11, CalcCharStatus( 'Y', dYDeltaF)})
                -- la morsa al carico è adesso in posizione
                dYDeltaI = dYDeltaF
             end
@@ -1638,7 +1680,7 @@ function SpecAdjustCarriages( vCmd, dTPosI, dYDeltaI, dVDeltaI, dTPosF, dYDeltaF
       --    * deve effettivamente spostarsi
       --    * non si arriva da gestione passo del pellegrino
       --    * se riesce a raggiungere la posizione con le corse a disposizione per come sono posizionate le morse attualmente
-      elseif ( dYDeltaF - dVDeltaI) >= MyMinY - MaxV and abs( dYDeltaF - dYDeltaI) > 10 * GEO.EPS_SMALL and  not EMC.PILGRIMSTEP and
+      elseif ( dYDeltaF - dVDeltaI) - 10 * GEO.EPS_SMALL >= MyMinY - MaxV and abs( dYDeltaF - dYDeltaI) > 10 * GEO.EPS_SMALL and  not EMC.PILGRIMSTEP and
              ( dYDeltaF - dYDeltaI < MaxY - dYPosI + MaxV - dVPosI) then
          table.insert( vCmd, { 0, 'Direct-Y-V'})
          -- se l'altra morsa non era in presa, vado a pinzare il pezzo
@@ -1664,7 +1706,28 @@ function SpecAdjustCarriages( vCmd, dTPosI, dYDeltaI, dVDeltaI, dTPosF, dYDeltaF
             dBeamMove = -( dYPosI + ( dYDeltaF - dYDeltaI) - MyMinY)
          -- se spostamento verso il carico
          elseif ( dYPosI + ( dYDeltaF - dYDeltaI)) > MaxY then
-            dBeamMove =  dYPosI + ( dYDeltaF - dYDeltaI) - MaxY
+            dBeamMove =  -( dYPosI + ( dYDeltaF - dYDeltaI) - MaxY)
+         end
+
+         -- se serve un grande spostamento e si sta pinzando poco. V trascinatore pinza poco e Y si sposta per prima per recuperare
+         if not BD.FASTCLAMPING and abs( dBeamMove) > 2000 and dDeltaBeam > 0 and dVDeltaI < max( 550, (MinJoin * 2)) then
+            table.insert( vCmd, { 11, 0})
+            dYPosA = dYPosI + dGainOnReclamping
+            -- sposto il carrello V di 1000mm
+            table.insert( vCmd, { 1, 'Y', dYPosA})
+            table.insert( vCmd, { 11, 1})
+            -- apro morsa Y e recupero i 1000mm
+            table.insert( vCmd, { 12, 0})
+            dVPosA = dVPosI
+            dYPosA = dYPosI 
+            dTPosA = dTPosI - dGainOnReclamping
+            table.insert( vCmd, { 3, 'Y', dYPosA , 'T', dTPosA, 'V', dVPosA})
+            dTPosI = dTPosA
+            dVPosI = dVPosA
+            dVDeltaI = dVDeltaI + dGainOnReclamping
+            dYDeltaI = dYDeltaI + dGainOnReclamping
+            table.insert( vCmd, { 12, 1})
+            dBeamMove = dBeamMove - dGainOnReclamping
          end
 
          table.insert( vCmd, { 11, 0})
@@ -1679,7 +1742,7 @@ function SpecAdjustCarriages( vCmd, dTPosI, dYDeltaI, dVDeltaI, dTPosF, dYDeltaF
          dTPosI = dTPosA
 
         -- blocco la morsa
-         table.insert( vCmd, { 11, 1})
+         table.insert( vCmd, { 11, CalcCharStatus( 'Y', dYDeltaF)})
 
          -- imposto i nuovi parametri di aggancio
          if EMC.YDELTANEXT and EMC.VDELTANEXT  then
@@ -1689,7 +1752,7 @@ function SpecAdjustCarriages( vCmd, dTPosI, dYDeltaI, dVDeltaI, dTPosF, dYDeltaF
                dYPosA = dTPosF + dYDeltaF
                dVPosA = dTPosF + dVDeltaF
                table.insert( vCmd, { 3, 'Y', dYPosA , 'T', dTPosA, 'V', dVPosA})
-               table.insert( vCmd, { 12, 1})
+               table.insert( vCmd, { 12, CalcCharStatus( 'V', dVDeltaF)})
                -- la morsa al carico è adesso in posizione
                dVDeltaI = dVDeltaF
             end
@@ -1701,7 +1764,7 @@ function SpecAdjustCarriages( vCmd, dTPosI, dYDeltaI, dVDeltaI, dTPosF, dYDeltaF
                dTPosA = dVPosA - dVDeltaF
                dYPosA = dTPosA + dYDeltaF
                table.insert( vCmd, { 3, 'Y', dYPosA , 'T', dTPosA, 'V', dVPosA})
-               table.insert( vCmd, { 12, 1})
+               table.insert( vCmd, { 12, CalcCharStatus( 'V', dVDeltaF)})
                -- la morsa al carico è adesso in posizione
                dVDeltaI = dVDeltaF
             end
@@ -1728,6 +1791,7 @@ function SpecAdjustCarriages( vCmd, dTPosI, dYDeltaI, dVDeltaI, dTPosF, dYDeltaF
          -- compatto al centro
          if not EMC.YDELTA then
             table.insert( vCmd, { 0, 'Compact Y'})
+            table.insert( vCmd, { 12, 1})
             table.insert( vCmd, { 11, 0})
             dTPosA = MaxV - dVDeltaI
             dVPosA = MaxV
@@ -1740,6 +1804,7 @@ function SpecAdjustCarriages( vCmd, dTPosI, dYDeltaI, dVDeltaI, dTPosF, dYDeltaF
          end
          if not EMC.VDELTA then
             table.insert( vCmd, { 0, 'Compact V'})
+            table.insert( vCmd, { 11, 1})
             table.insert( vCmd, { 12, 0})
             dTPosA = MyMinY - dYDeltaI
             dVPosA = MaxV
@@ -1768,6 +1833,26 @@ function SpecAdjustCarriages( vCmd, dTPosI, dYDeltaI, dVDeltaI, dTPosF, dYDeltaF
          -- Il trascinatore si decide in base alla direzione di movimento trave
          -- trascino con morsa allo scarico. Obiettivo mandare Y in posizione per prima
          if dDeltaBeam > 0 then
+            -- se serve un grande spostamento e si sta pinzando poco. Y trascinatore pinza poco e V si sposta per prima per recuperare
+            if not BD.FASTCLAMPING and abs( dDeltaBeam) > 2000 and dVDeltaI < max( 550, (MinJoin * 2)) then
+               table.insert( vCmd, { 11, 0})
+               dYPosA = dYPosI + dGainOnReclamping
+               -- sposto il carrello V di 1000mm
+               table.insert( vCmd, { 1, 'Y', dYPosA})
+               table.insert( vCmd, { 11, 1})
+               -- apro morsa Y e recupero i 1000mm
+               table.insert( vCmd, { 12, 0})
+               dVPosA = dVPosI
+               dYPosA = dYPosI 
+               dTPosA = dTPosI - dGainOnReclamping
+               table.insert( vCmd, { 3, 'Y', dYPosA , 'T', dTPosA, 'V', dVPosA})
+               dTPosI = dTPosA
+               dVPosI = dVPosA
+               dVDeltaI = dVDeltaI + dGainOnReclamping
+               dYDeltaI = dYDeltaI + dGainOnReclamping
+               table.insert( vCmd, { 12, 1})
+            end
+
             -- apro morsa al carico
             table.insert( vCmd, { 11, 0})
             -- devo recuperare più delle corse disponibili di entrambi i carrelli
@@ -1791,10 +1876,10 @@ function SpecAdjustCarriages( vCmd, dTPosI, dYDeltaI, dVDeltaI, dTPosF, dYDeltaF
                -- morsa Y arriva in posizione finale
                dYDeltaI = dYDeltaF
                dVPosA = MinV
-               dTPosA = dTPosI - MaxV + MinV
+               dTPosA = dTPosI - dVPosI + MinV
                dYPosA = dYDeltaF + dTPosA
                table.insert( vCmd, { 3, 'Y', dYPosA , 'T', dTPosA, 'V', dVPosA})
-               table.insert( vCmd, { 11, 1})
+               table.insert( vCmd, { 11, CalcCharStatus( 'Y', dYDeltaF)})
                table.insert( vCmd, { 12, 0})
                dTPosI = dTPosA
                EMC.YDELTA = dYDeltaF
@@ -1811,7 +1896,7 @@ function SpecAdjustCarriages( vCmd, dTPosI, dYDeltaI, dVDeltaI, dTPosF, dYDeltaF
                   dVPosA = dTPosI + dVDeltaI - dTotMove
                   dTPosA = dTPosI - dTotMove
                   table.insert( vCmd, { 3, 'Y', dYPosA , 'T', dTPosA, 'V', dVPosA})
-                  table.insert( vCmd, { 11, 1})
+                  table.insert( vCmd, { 11, CalcCharStatus( 'Y', dYDeltaF)})
                   table.insert( vCmd, { 12, 0})
 
                   -- aggiorno nuova posizione della morsa al carico dopo riposizionamento
@@ -1839,12 +1924,12 @@ function SpecAdjustCarriages( vCmd, dTPosI, dYDeltaI, dVDeltaI, dTPosF, dYDeltaF
 
                -- imposto i nuovi parametri di aggancio
                if EMC.YDELTANEXT and EMC.VDELTANEXT  then
-                  table.insert( vCmd, { 12, 1})
+                  table.insert( vCmd, { 12, CalcCharStatus( 'V', dVDeltaF)})
                   table.insert( vCmd, { 21, dYDeltaF, dVDeltaF})
                elseif EMC.YDELTANEXT then
                   table.insert( vCmd, { 21, dYDeltaF, 0})
                else
-                  table.insert( vCmd, { 12, 1})
+                  table.insert( vCmd, { 12, CalcCharStatus( 'V', dVDeltaF)})
                   table.insert( vCmd, { 11, 0})
                   -- sposto il carrello Y in parcheggio
                   table.insert( vCmd, { 1, 'Y', ParkY})
@@ -1853,6 +1938,26 @@ function SpecAdjustCarriages( vCmd, dTPosI, dYDeltaI, dVDeltaI, dTPosF, dYDeltaF
             end
          -- trave si muove dallo scarico verso il carico. Obiettivo mandare V in posizione per prima
          else
+            -- se serve un grande spostamento e si sta pinzando poco. Y trascinatore pinza poco e V si sposta per prima per recuperare
+            if not BD.FASTCLAMPING and abs( dDeltaBeam) > 2000 and EMC.LB - dYDeltaI < max( 550, (MinJoin * 2)) then
+               table.insert( vCmd, { 12, 0})
+               dVPosA = dVPosI - dGainOnReclamping
+               -- sposto il carrello V di 1000mm
+               table.insert( vCmd, { 1, 'V', dVPosA})
+               table.insert( vCmd, { 12, 1})
+               -- apro morsa Y e recupero i 1000mm
+               table.insert( vCmd, { 11, 0})
+               dVPosA = dVPosI
+               dYPosA = dYPosI 
+               dTPosA = dTPosI + dGainOnReclamping
+               table.insert( vCmd, { 3, 'Y', dYPosA , 'T', dTPosA, 'V', dVPosA})
+               dTPosI = dTPosA
+               dVPosI = dVPosA
+               dVDeltaI = dVDeltaI - dGainOnReclamping
+               dYDeltaI = dYDeltaI - dGainOnReclamping
+               table.insert( vCmd, { 11, 1})
+            end
+
             -- apro morsa allo scarico
             table.insert( vCmd, { 12, 0})
             -- devo recuperare più del doppio delle corse
@@ -1875,13 +1980,12 @@ function SpecAdjustCarriages( vCmd, dTPosI, dYDeltaI, dVDeltaI, dTPosF, dYDeltaF
             -- recupero una corsa massima e l'altra solo di quello che serve
             elseif abs( dVDeltaI - dVDeltaF) > dMaxMovePilgrimStepSingleClampV then
                -- aggiorno nuova posizione della morsa al carico dopo riposizionamento
-               local dTotMove = MaxY - dTPosI - dYDeltaI
                dVDeltaI = dVDeltaF
                dYPosA = MaxY
-               dTPosA = dTPosI + dTotMove
+               dTPosA = dTPosI + ( MaxY - dYPosI)
                dVPosA = dVDeltaF + dTPosA
                table.insert( vCmd, { 3, 'Y', dYPosA , 'T', dTPosA, 'V', dVPosA})
-               table.insert( vCmd, { 12, 1})
+               table.insert( vCmd, { 12, CalcCharStatus( 'V', dVDeltaF)})
                table.insert( vCmd, { 11, 0})
                dTPosI = dTPosA
                EMC.YDELTA = dYDeltaI
@@ -1898,7 +2002,7 @@ function SpecAdjustCarriages( vCmd, dTPosI, dYDeltaI, dVDeltaI, dTPosF, dYDeltaF
                   dVPosA = dTPosI + dVDeltaI - dTotMove
                   dTPosA = dTPosI + dTotMove
                   table.insert( vCmd, { 3, 'Y', dYPosA , 'T', dTPosA, 'V', dVPosA})
-                  table.insert( vCmd, { 12, 1})
+                  table.insert( vCmd, { 12, CalcCharStatus( 'V', dVDeltaF)})
                   table.insert( vCmd, { 11, 0})
 
                   -- aggiorno nuova posizione della morsa allo scarico dopo riposizionamento
@@ -1924,22 +2028,12 @@ function SpecAdjustCarriages( vCmd, dTPosI, dYDeltaI, dVDeltaI, dTPosF, dYDeltaF
                   dYDeltaI = dYDeltaF
                end
 
-              -- sistemo apertura morse
-               if EMC.YDELTANEXT then
-                  table.insert( vCmd, { 11, 1})
-               end
-               if not EMC.VDELTANEXT then
-                  table.insert( vCmd, { 12, 0})
-                  -- sposto il carrello Y in parcheggio
-                  table.insert( vCmd, { 1, 'V', ParkV})
-               end
-
                -- imposto i nuovi parametri di aggancio
                if EMC.YDELTANEXT and EMC.VDELTANEXT  then
-                  table.insert( vCmd, { 11, 1})
+                  table.insert( vCmd, { 11, CalcCharStatus( 'Y', dYDeltaF)})
                   table.insert( vCmd, { 21, dYDeltaF, dVDeltaF})
                elseif EMC.YDELTANEXT then
-                  table.insert( vCmd, { 11, 1})
+                  table.insert( vCmd, { 11, CalcCharStatus( 'Y', dYDeltaF)})
                   -- sposto il carrello Y in parcheggio
                   table.insert( vCmd, { 12, 0})
                   table.insert( vCmd, { 1, 'V', ParkV})
@@ -2194,17 +2288,6 @@ function SpecAdjustCarriagesOLD( dTPosI, dYDeltaI, dVDeltaI, dTPosF, dYDeltaF, d
    end
 end
 
----------------------------------------------------------------------
-local function CalcCharStatus( sType, dDelta)
-   -- se per carrello Y
-   if sType == 'Y' then
-      return EgtIf( EMC.LB - dDelta < LenToPress, 1, 2)
-   -- altrimenti per carrello V
-   else
-      return EgtIf( dDelta < LenToPress, 1, 2)
-   end
-end
-
 ---------------------------------------------------------------------
 local function GetCorseDisp( dCorsaYfc, dCorsaVfc, dDistN, sSide)
    local dRecTotn = min( dDistN, dCorsaYfc+ dCorsaVfc) -- recupero possibile al netto di dCorsa..TrA)

Essetre-FAST.mlde

@@ -17,61 +17,15 @@
 -- 2022/12/05 DS ver 2.4l1 In OnLinear di genera CN per Num e NumPlus eliminato recupero sovramateriale di testa EMT.X_OFF dopo riutilizzo EMT.L1o. 
 -- 2023/01/23 DS Ver.2.5a2 In simulazione corretta visualizzazione Sega a catena.
 -- 2023/02/09 DS Ver.2.5b1 Correzioni NumPlus per parametri G115 e EG2/EG3 al cambio orientazione sega a catena.
--- 2023/03/20 DS Ver.2.5c1 Inserita gestione fresa BH al posto della lama.
--- 2023/07/26 DS ver.2.5g1 Per NUM e NUM_PLUS aggiunta gestione rotazione in alto su pezzi alti (G101 EH1) come per TPA in versione 2.3f2.
--- 2023/07/26 DS ver.2.5g2 Per NUM e NUM_PLUS tolta segnalazione errore rotazione a Zmax per pezzi alti non gestita (era su EMT.FLAG == 5).
--- 2023/07/27 DS ver.2.5g3 Il parametro di cui alle modifiche precedenti ora viene emesso solo se anche EMT.FLAG2==1.
--- 2023/08/17 DS ver 2.5h2 Possibilità di nuova gestione SawCOffs e SawBOffs con flag NewBCOffs.
--- 2023/08/22 DS ver 2.5h3 Eliminata nuova gestione di 2.5h2 perchè inclinando la direzione utensile rispetto al primo rotante limitava le direzioni raggiungibili.
--- 2023/09/29 ver 2.5i1 In BeamData e mlde aggiunta la lettura di alcuni parametri da Ts3Data.
--- 2023/10/18 DS ver 2.5j1 Con SpliRot ora si assegna da primo movimento di M111/G111 a EE/P8 il corretto valore 2.
--- 2023/10/19 DS ver 2.5j2 Per NUM_PLUS correzione per scarico con pezzo dopo oppure passando da Y a V per eliminare ET2 e scommentare ET2004.
--- 2023/10/21 DS ver 2.5j3 Gestione caso speciale di rotazione dopo separazione senza lavorazioni sul posizionamento finale.
--- 2023/11/04 DS ver 2.5k1 Eliminata testa H4. Aggiunta visualizzazione rinvio su TC.Aggiunta gestione MIN_MACH_VER per simulazione e generazione.
--- 2023/12/13 AV ver.2.5l1 Piccola correzione per errore digitazione variabile in calcolo riposizionamento carrelli (SpecAdjustCarrB3)
---                         Corretto segno di una variabile in calcolo posizionamento carrelli
--- 2023/12/15 AV ver.2.5l2 Migliorato calcolo stima tempi di lavorazione
--- 2024/01/19 DS ver 2.6a1 Piccola modifica per direzione preferenziale rinvio da sotto (per evitare di accedere dal lato della barra).
--- 2024/01/29 DS ver 2.6a2 In portautensili per mortasa e sega a catena aggiunti ingombri dello stesso.
--- 2024/02/09 LM ver 2.6b1 In BeamData aggiunta funzione GetBlockedAxis che sostituisce la GetChainSawBlockedAxis.
--- 2024/02/23 AV ver 2.6c1 Prima versione con post-processore common
---                         Allineamento con common ver. 2.6c1
--- 2024/02/23 AV ver 2.6c2 Rimossa chiamata funzione EgtGetSourceDir
---                         Allineamento con common ver. 2.6c2
--- 2024/02/23 AV ver 2.6c3 Allineamento con common ver. 2.6c3
--- 2024/02/27 AV ver 2.6c4 Allineamento con common ver. 2.6c4. Aggiunto parametro 'SafeXRotAxes' per rotazione motosega con pezzi alti
--- 2024/02/29 AV ver 2.6c5 Allineamento con common ver. 2.6c5
--- 2024/03/04 AV ver 2.6c6 Modificato log con nome macchina
---                         Allineamento con common ver. 2.6c6
--- 2024/03/09 DS ver 2.6c7 Migliorie alla geometria macchina e suo caricamento.
--- 2024/03/12 AV ver 2.6c8 Allineamento con common ver. 2.6c7.
--- 2024/03/28 DS ver 2.6c9 Modificata posizione supporto rinvio.
--- 2024/03/28 AV ver 2.6d1 Allineamento con common ver. 2.6c8
--- 2024/04/15 AV ver 2.6d2 Allineamento con common ver. 2.6d1
--- 2024/04/18 AV ver 2.6d3 Allineamento con common ver. 2.6d2
--- 2024/04/30 AV ver 2.6e1 Allineamento con common ver. 2.6e1
---                         Aggiunta variabile WoodDensity per gestione WOOD_DENSITY
--- 2024/05/06 AV ver 2.6e2 Allineamento con common ver. 2.6e2
--- 2024/05/06 AV ver 2.6e3 Allineamento con common ver. 2.6e3
---                         Aggiunte variabili MinJoin(xx) per gestione MIN_JOIN_(xx) 
--- 2024/06/03 AV ver 2.6f1 Aggiunta funzione GetSetupInfo a BeamData per nuovo automatismo
--- 2024/06/13 LM ver 2.6f2 Aggiunta lettura NewTopC da offset Ts3
--- 2024/06/13 AV ver 2.6f3_Dev Per controllo NUM, se arco maggiore di 99999mm, si approssima con una retta.
--- 2024/07/03 AV ver 2.6g1 Allineamento con common ver. 2.6g1
--- 2024/07/04 LM ver 2.6g2 In MachData.ini aggiunto MIN_JOIN_SS
--- 2024/09/02 AV ver 2.6i1 Allineamento con common ver. 2.6i1, Rimossi file "Common-"
--- 2024/09/02 AV ver 2.6i2 Corretto file YML per compilare file "Common_"
--- 2024/09/05 LM ver 2.6i3 In BeamData aggiunte costanti MIN_HEIGHT_ADDED_CUTS, PRECUT_HEAD, PRECUT_TAIL
--- 2024/09/06 LM ver 2.6i4 In BeamData le costanti sopra sono configurabili anche da offsets Ts3v7
--- 2024/09/16 AV ver 2.6i5 Allineamento con common ver. 2.6i2
--- 2024/09/18 LM ver 2.6i6 Modificato YAML per comunicazione versioni a LiMan. Aggiunta PP_NVER, versione in formato numerico.
--- 2024/09/23 AV ver 2.6i7 Allineamento con common ver. 2.6i3
+-------------------------------------
+-- NOTE VERSIONI SUCCESSIVE IN GIT --
+-------------------------------------
 
 require( 'EmtGenerator')
 EgtEnableDebug( false)
 
-PP_VER = '2.6i7'
-PP_NVER = '2.6.9.7'
+PP_VER = '2.6j8'
+PP_NVER = '2.6.10.8'
 MIN_MACH_VER = '2.5k1'
 MACH_NAME = 'Essetre-FAST'
 

UpdateLog.txt

@@ -1,5 +1,38 @@
            ==== Common_FAST Update Log ====
 
+Versione 2.6j7 (18/10/2024)
+- (SIM-GEN) In nuova disposizione carrelli, aggiunta tolleranza di 100 EPS quando si calcola minimo posizionamento
+
+Versione 2.6j6 (17/10/2024)
+- (GEN) Si ribadisce che la pinza era in presa, prima di cominciare con lo scambio del passo del pellegrino. Ticket#2121
+
+Versione 2.6j5 (17/10/2024)
+- (SIM-GEN) Piccola correzione nuovo riposizionamento. Nel taglio dello scarto finale riposizionava nel vuoto. Ticket#2115
+
+Versione 2.6j4 (15/10/2024)
+- (SIM-GEN) Piccola correzione nuovo riposizionamento. Non considerava i 50mm di tolleranza su primo pinzaggio dopo ribaltamento
+- (SIM-GEN) Gestione attivazione pressore verticale in nuovo riposizionamento
+
+Versione 2.6j3 (11/10/2024)
+- (GEN) Corretta scrittura macro start/attesa movimenti per NUM. Veniva scritto codice per TPA.
+
+Versione 2.6j2 (03/10/2024)
+- (SIM-GEN) Piccola correzione calcolo posizione carrello durante riposizionamento, nuova gestione
+
+Versione 2.6j1 (01/10/2024)
+- (SIM-GEN) Sistemato calcolo in nuova disposzione carrelli
+
+Versione 2.6i6 (25/09/2024)
+- (GEN) Migliorata gestione movimenti per portare testa vicino a cambio utensile se trave alta. Ticket#2066
+
+Versione 2.6i5 (24/09/2024)
+- (SIM-GEN) Tolto controllo su lunghezza maggiore di 200mm introdotto con 2.6i2 perchè non completamente funzionante
+- (GEN) Gestione in OnRapid() di EMT.FLAG=5 (rotazione a Z max per lavorazione successiva). Ora allineata alla simulazione
+
+Versione 2.6i4 (24/09/2024)
+- (SIM-GEN) Aggiunto ripinzaggio extra in caso servisse un grande spostamento e si sta pinzando poco.
+            L'aggiunta del ripinzaggio dipende da FASTCLAMPING (che deve essere disattiva). Viene aggiunta GAIN_RECLAMPING per decidere il guadagno in mm del ripinzaggio.
+
 Versione 2.6i3 (23/09/2024)
 - (SIM-GEN) Aggiunta nuova strategia riposizionamento morse
 - (SIM-GEN) Aggiunta lettura flag NEWCLAMPING in BeamData, per abilitare nuova strategia riposizionamento. Se false o nil, funziona con metodo vecchio.

Version.lua

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