Merge remote-tracking branch 'origin/master' into ProbingWithTool

#critical# Allineamento con common ver. 2.7j2
Merge branch 'master' into ProbingWithTool
2025-10-21 10:52:35 +02:00 · 2025-10-21 10:51:45 +02:00 · 2025-10-08 13:18:56 +02:00 · 2025-10-08 13:17:42 +02:00 · 2025-09-10 12:13:38 +02:00 · 2025-09-10 12:13:11 +02:00
18 changed files with 2134 additions and 474 deletions
@@ -0,0 +1,318 @@
+variables:
+ VERS_MAIN: '1.0'
+ MACH_NAME: ''
+ MACH_NAME_TEST: ''
+ MANUFACTURER: ''
+ NEW_REL: ''
+ NET_SHARE_X: '\\10.74.82.201\EgwTech'
+ NET_SHARE_Z: '\\10.74.82.201\Artifacts'
+ NET_SHARE_S: '\\10.74.82.201\Scambio'
+ NET_SHARE_R: '\\10.74.82.201\EgwTech'
+ NET_SHARE_H: '\\10.74.82.252\team drives'
+ NET_USERQ: 'steamw\egalware'
+ NET_USER_SERVICES: 'steamw\services'
+ MACH_VERS: '0.0.0.0'
+ TEMP_PATH: 'C:\MachinesDeploy'
+ MACHINES_PATH_R: 'R:\EgtData\Machines_GIT'
+ DEST_MACHINES_PATH_H: 'H:'
+ SRC_PATH: ''
+ BASE_PATH: ''
+ TEST_PATH: ''
+ 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:
+# lua54 -o bin\$FileName -s $FileName: -o = output, -s = NON include i debug symbols
+
+# helper copia script verso cartella di rete S:\ delle cartelle bin
+.ReplicaS: &ReplicaS
+   - |
+      net use S: /delete
+      SLEEP 2
+      net use S: $env:NET_SHARE_S /u:$env:NET_USERQ $SDRIVE_PASSWD
+      ROBOCOPY /MIR $env:BASE_PATH S:\LucaM\MachinesDeploy\$env:MACH_NAME\$env:MACH_VERS\ /XD "bin" /XD "$env:MACH_NAME_TEST"
+      SLEEP 2
+      net use S: /delete
+
+# helper copia script verso cartella di rete R:\
+.ReplicaR: &ReplicaR
+   - |
+      net use R: /delete
+      SLEEP 2
+      net use R: $env:NET_SHARE_R /u:$env:NET_USERQ $ZDRIVE_PASSWD
+      echo "-----------------------"
+      echo "   Copia macchina su R"
+      echo "-----------------------"
+      $customerPathR = $env:MACHINES_PATH_R + "\" + $env:MANUFACTURER
+      ROBOCOPY /MIR "$env:SRC_PATH" "$customerPathR\$env:MACH_NAME\" /XD "bin"
+      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
+
+# helper copia script verso drive condiviso
+.ReplicaStor01: &ReplicaStor01
+   - |
+      net use H: /delete
+      SLEEP 2
+      net use H: $env:NET_SHARE_H /u:$env:NET_USER_SERVICES $SRVCS_PASSWD
+      echo "-----------------------"
+      echo "   Copia macchina su stor01"
+      echo "-----------------------"
+      SLEEP 2
+      $customerPathH = $env:DEST_MACHINES_PATH_H + "\" + $env:MANUFACTURER + "\test"
+      $destinationPath = "$customerPathH\$env:MACH_NAME" + "\"
+      ROBOCOPY "$env:BASE_PATH" "$destinationPath\" *.zip
+      SLEEP 2
+      net use H: /delete
+
+# helper copia script verso cartella di rete R:\ per develop
+.ReplicaR_DEV: &ReplicaR_DEV
+   - |
+      net use R: /delete
+      SLEEP 2
+      net use R: $env:NET_SHARE_R /u:$env:NET_USERQ $ZDRIVE_PASSWD
+      echo "-----------------------"
+      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"
+      SLEEP 2
+      net use R: /delete
+
+#helper copia sorgenti da R a percorso temporaneo
+.CreateBaseFolder: &CreateBaseFolder
+   - |   
+      net use R: /delete
+      SLEEP 2
+      net use R: $env:NET_SHARE_R /u:$env:NET_USERQ $ZDRIVE_PASSWD
+      echo "-----------------------"
+      echo "   Recupero file non git da R e copia su macchina virtuale"
+      echo "-----------------------"
+      # 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
+
+# helper compilazione LUA a 32 e 64 bit
+.LuaCompile: &LuaCompile
+  - |
+     Set-Alias lua54  C:\Tools\Lua32\luac54
+     echo "-----------------------"
+     echo "   Copia file su macchina virtuale"
+     echo "-----------------------"
+     ROBOCOPY . "$env:SRC_PATH" /E /XF "*.bat" /XF "*.yml" /XF ".gitignore" /XD ".git" /XF "UpdateLog.txt" /XD ".vscode"
+     ROBOCOPY . "$env:TEST_PATH" /E /XF "*.bat" /XF "*.yml" /XF ".gitignore" /XD ".git" /XF "UpdateLog.txt" /XD ".vscode"
+     Rename-Item -Path "$env:TEST_PATH\$env:MACH_NAME.mlde" -NewName "$env:MACH_NAME_TEST.mlde"
+     Rename-Item -Path "$env:TEST_PATH\$env:MACH_NAME.ini" -NewName "$env:MACH_NAME_TEST.ini"
+     ROBOCOPY . "$env:SRC_PATH\bin\$env:MACH_NAME\" /E /XF "*.bat" /XF "*.yml" /XF ".gitignore" /XD ".git" /XF "UpdateLog.txt" /XD ".vscode"
+     echo "-----------------------"
+     echo "   Compilazione file *.lua 32/64bit"
+     echo "-----------------------"
+     $FileList = Get-ChildItem * -Include( "*.mlpe", "*.mlse")
+     ForEach ($File in $FileList) {
+       $FileName = Split-Path $File -leaf
+       lua54 -o $env:SRC_PATH\bin\$env:MACH_NAME\$FileName -s $FileName
+       echo "lua54 -o bin\$FileName -s $FileName"
+     }
+
+# helper recupero nome macchina e costruttore
+.machName-fix: &machName-fix
+   - |
+      echo "-----------------------"
+      echo "   Recupero nome macchina e costruttore"
+      echo "-----------------------"
+      $fileName = dir *.mlde
+      $env:MACH_NAME = $fileName.BaseName
+      $env:MACH_NAME_TEST = $env:MACH_NAME + ".TEST"
+      $comp = $fileName.BaseName -split "-"
+      $env:MANUFACTURER = $comp[0]
+      Write-Output $env:MANUFACTURER 
+
+# helper calcolo versione
+.version-fix: &version-fix
+   - |
+      echo "-----------------------"
+      echo "   Calcolo versione"
+      echo "-----------------------"
+
+      # calcolo versione formato stringa
+      $fPath = "$env:MACH_NAME.mlde";
+      $vLine = Select-String -path $fPath -Pattern '^PP_VER';
+      $comp = $vLine -split "=";
+      $env:MACH_VERS = $comp[1].Replace("'","").Trim()
+      # display versione formato stringa
+      Write-Output $env:MACH_VERS
+
+      # calcolo versione formato numerico
+      $fPath = "$env:MACH_NAME.mlde";
+      $vLine = Select-String -path $fPath -Pattern '^PP_NVER';
+      $comp = $vLine -split "=";
+      $env:MACH_VERS_NUM = $comp[1].Replace("'","").Trim()
+      # display versione formato numerico
+      Write-Output $env:MACH_VERS_NUM
+
+# helper calcolo versione se develop
+.version-fix_DEV: &version-fix_DEV
+   - |
+      echo "-----------------------"
+      echo "   Calcolo versione - DEV"
+      echo "-----------------------"
+      $commitAuthor = $CI_COMMIT_AUTHOR -split " "
+      $commitAuthor = $commitAuthor[0].Trim()
+      $env:MACH_VERS = $commitAuthor
+      # display versione
+      Write-Output $env:MACH_VERS
+
+# helper creazione folders 
+.folder-fix: &folder-fix
+   - |
+      echo "-----------------------"
+      echo "   Creazione cartelle su macchina virtuale"
+      echo "-----------------------"
+      $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";
+      Write-Output  $env:BASE_PATH;     
+      if (Test-Path $env:BASE_PATH) { Remove-Item -Path "$env:BASE_PATH\*" -R -Force };
+      Write-Output  $env:TEST_PATH;
+
+# helper compressione e pulizia folders 
+.ZipClean: &ZipClean
+   - |
+      "  Compressione file su macchina virtuale"
+      $7zipPath = $env:ProgramFiles+"\7-Zip\7z.exe";
+      if (-not (Test-Path -Path $7zipPath -PathType Leaf)) {
+          throw "7 zip file '$7zipPath' not found"
+      }
+      Set-Alias 7zip $7zipPath
+      $Target = "$env:BASE_PATH\$env:MACH_NAME.zip"
+      cd "$env:SRC_PATH\bin\"
+      $Source = "*"
+      7zip a -tzip $Target $Source  
+      Write-Output "called ZIP $Source --> $Target"
+
+# helper invio notifica a log versioni online (LiMan)
+.SendToVersionsLog: &SendToVersionsLog
+   - |
+      echo "-----------------------"
+      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"
+         $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 =
+      @{
+            codInst = "EgalWare"
+            codApp = $env:MACH_NAME
+            uplAppId = "UpdateManager"
+            masterKey = $LiMan_Key
+            tipo = "Machine"
+            versNum = $env:MACH_VERS_NUM
+            versText = $env:MACH_VERS
+            releaseDate = $date
+            relTags = $tags
+      }
+      $jsonBody = ConvertTo-Json -InputObject $body
+      echo $jsonBody
+      Invoke-WebRequest -Method Post -URI $env:URL_VERSIONS_LOG -ContentType "application/json" -Body $jsonBody -UseBasicParsing
+
+
+# helper esecuzione test 
+.RunTest: &RunTest
+   - |
+      Write-Output "Test done!"      
+
+
+stages:
+ - build
+#  - test
+#  - deploy
+
+LuaCompile:build:
+ stage: build
+ only:
+   - main
+   - master
+ tags:
+   - win
+ before_script:
+   - *machName-fix
+   - *version-fix
+   - *folder-fix
+ script:
+   - *CreateBaseFolder    
+   - *LuaCompile
+   - *ZipClean
+   - *ReplicaR
+   - *ReplicaStor01
+   - *SendToVersionsLog
+
+LuaCompileDev:build:
+ stage: build
+ only:
+   - develop
+ tags:
+   - win
+ before_script:
+   - *machName-fix
+   - *version-fix_DEV
+   - *folder-fix
+ script:
+   - *CreateBaseFolder    
+   - *LuaCompile
+   - *ZipClean
+   - *ReplicaR_DEV
+
+# LuaCompile:test:
+#  stage: test
+#  needs: ["LuaCompile:build"]
+#  only:
+#    - main
+#    - master
+#    - develop
+#  tags:
+#    - win
+#  before_script:
+#    - *version-fix
+#    - *folder-fix
+#  script:    
+#    - *LuaCompile
+#    - *RunTest
+   
+# LuaCompile:deploy:
+#  stage: deploy
+#  needs: ["LuaCompile:test"]
+#  only:
+#    - main
+#    - master
+#  tags:
+#    - win
+#  before_script:
+#    - *version-fix
+#    - *folder-fix
+#  script:    
+#    - *LuaCompile
+#    - *ZipClean
+#    - *ReplicaR
+
@@ -8,13 +8,14 @@ local BeamData = {
   RIGHT_LOAD = true,                         -- flag carico da destra
   SIMUL_VIEW_DIR = 1,                        -- direzione di vista predefinita per la simulazione (1=NW, 2=SW, 3=NE, 4=SE)
   ROT90 = false,                             -- flag abilitazione rotazione 90 gradi
+   ROT180 = true,                             -- flag abilitazione rotazione 180 gradi
   MIN_WIDTH = 50,                            -- larghezza minima del grezzo
   MIN_HEIGHT = 50,                           -- altezza minima del grezzo
   MAX_WIDTH = 400,                           -- larghezza massima del grezzo
   MAX_HEIGHT = 800,                          -- altezza massima del grezzo
   LEN_SHORT_PART = 1200,                     -- lunghezza massima pezzo piccolo
   LEN_VERY_SHORT_PART = 400,                 -- lunghezza massima pezzo molto corto (molto probabile lo scarico a caduta)
-   MAX_RAW = 20000,                           -- massima lunghezza grezzo (deve essere minore di LenTable - RAW_OFFSET)
+   MAX_RAW = 30000,                           -- massima lunghezza grezzo (deve essere minore di LenTable - RAW_OFFSET)
   STD_RAW = 14000,                           -- lunghezza standard della barra di grezzo
   OVM_HEAD = 10,                             -- sovramateriale testa
   OVM_MID = 5.0,                             -- sovramateriale intermedio (spessore lama)
@@ -67,11 +68,16 @@ local BeamData = {
   KIOTP = 5,                                 -- coefficiente moltiplicativo per attacco/uscita lama tangente anzichè perpendicolare
   MAXDIAM_POCK_CORNER = 31,                  -- diametro massimo utensile ammesso per tasche con angoli interni
   USE_LONGCUT = true,                        -- per i tagli longitudinali usare solo la lavorazione di lama LongCut
+   HEAD_DIM_FOR_BH = 125,                     -- dimensione di ingombro della testa per block haus
+   MAX_LEN_BH_FROM_BOTTOM = 210,              -- massima lunghezza lavorabile da un lato di block haus da sotto
+   MAX_DIST_BH_FROM_BOTTOM = 600,             -- massima distanza tra naso mandrino e sopra della trave senza collisione
   ADVANCE_TAIL_CUT = true,                   -- per spostare prima del taglio di separazione il taglio di coda su pezzi corti con robabile caduta
   ADVANCE_TAIL_OFFS = 10,                    -- accorciamento taglio di coda avanzato (minimo 1)
   DOUBLE_HEAD_DOVETAIL = false,              -- flag abilitazione lavorazione mortase a coda di rondine in doppio
   DOUBLE_HEAD_MORTISE = false,               -- flag abilitazione lavorazione mortase in doppio
   DOUBLE_HEAD_DRILLING = false,              -- flag abilitazione forature in doppio
+   PRECUT_HEAD = true,                        -- flag abilitazione pretaglio grezzo a zero in testa
+   PRECUT_TAIL = true,                        -- flag abilitazione pretaglio grezzo a zero in coda
   CLAMP5 = false                             -- presenza pinza speciale per pezzi piccoli
 }

@@ -96,6 +102,8 @@ if EgtExistsFile( sData) then
         if Machine.Offsets.DOUBLE_HEAD_DOVETAIL then BeamData.DOUBLE_HEAD_DOVETAIL = ( Machine.Offsets.DOUBLE_HEAD_DOVETAIL == 1) end
         if Machine.Offsets.DOUBLE_HEAD_MORTISE then BeamData.DOUBLE_HEAD_MORTISE = ( Machine.Offsets.DOUBLE_HEAD_MORTISE == 1) end
         if Machine.Offsets.DOUBLE_HEAD_DRILLING then BeamData.DOUBLE_HEAD_DRILLING = ( Machine.Offsets.DOUBLE_HEAD_DRILLING == 1) end
+         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.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
@@ -103,6 +111,13 @@ 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
+         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.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
@@ -206,5 +221,59 @@ local function GetChainSawInitAngs( vtN, vtO, nInd)
 end
 BeamData.GetChainSawInitAngs = GetChainSawInitAngs

+---------------------------------------------------------------------
+local function GetSetupInfo( sHead)
+   local SetupInfo = {}
+
+   -- dati comuni
+   SetupInfo.bIsCSymmetrical = true
+   SetupInfo.dCAxisEncumbrance = 180
+   SetupInfo.bToolOnAggregate = false
+   SetupInfo.Head = {}
+
+   -- testa 5 assi da sopra, dietro
+   if sHead == 'H11' then
+      SetupInfo.HeadType = { bTop = true, bBottom = false}
+      SetupInfo.PreferredSide = { bFront = false, bBack = true}
+      SetupInfo.dMinNz = sin( -45)
+   -- testa 5 assi da sopra, davanti
+   elseif sHead == 'H21' then
+      SetupInfo.HeadType = { bTop = true, bBottom = false}
+      SetupInfo.PreferredSide = { bFront = true, bBack = false}
+      SetupInfo.dMinNz = sin( -45)
+   -- lama su testa 5 assi da sopra, dietro
+   elseif sHead == 'H12' then
+      SetupInfo.HeadType = { bTop = true, bBottom = false}
+      SetupInfo.PreferredSide = { bFront = false, bBack = true}
+      SetupInfo.dMinNz = sin( -45)
+      -- se con aggregato si considera non simmetrico
+      SetupInfo.bIsCSymmetrical = false
+      -- riduzione massimo materiale se usato in tagli orizzontali con affondamento verticale
+      SetupInfo.dMaxMatDecrease = 20
+   -- lama su testa 5 assi da sopra, davanti
+   elseif sHead == 'H22' then
+      SetupInfo.HeadType = { bTop = true, bBottom = false}
+      SetupInfo.PreferredSide = { bFront = true, bBack = false}
+      SetupInfo.dMinNz = sin( -45)
+      -- se con aggregato si considera non simmetrico
+      SetupInfo.bIsCSymmetrical = false
+      -- riduzione massimo materiale se usato in tagli orizzontali con affondamento verticale
+      SetupInfo.dMaxMatDecrease = 20
+   -- motosega 1
+   elseif sHead == 'H13' or sHead == 'H23' then
+      SetupInfo.HeadType = { bTop = true, bBottom = false}
+      SetupInfo.PreferredSide = {}
+      SetupInfo.dMinNz = 0
+   -- motosega 2
+   elseif sHead == 'H15' then
+      SetupInfo.HeadType = { bTop = false, bBottom = true}
+      SetupInfo.PreferredSide = {}
+      SetupInfo.dMaxNz = 0
+   end
+
+   return SetupInfo
+end
+BeamData.GetSetupInfo = GetSetupInfo
+
 ---------------------------------------------------------------------
 return BeamData
@@ -8,6 +8,8 @@
 2=Drill_H2
 3=Pocket
 4=Pocket_H2
+5=Predrill
+6=Predrill_H2

 [Milling]
 1=Prof
@@ -34,6 +36,8 @@
 22=Long2CutSide
 23=SmallToolContour
 24=AntiSplintMillCut
+25=Prof_end
+26=SideMillAsBlade

 [Pocketing]
 1=Pocket
@@ -45,3 +49,6 @@

 [Sawing]
 1=Sawing
+
+[Probing]
+1=DTMortise
@@ -0,0 +1,11 @@
+-- Probingata.lua by Egaltech s.r.l.   20/06/2025
+-- Gestione dati lavorazioni per Travi
+
+-- Tabella per definizione modulo
+local ProbingData = {
+   { On = true, Name = 'Probing_H1', Type = 'DTMortise'},
+   { On = true, Name = 'Probing_H2', Type = 'DTMortise'}
+}
+
+---------------------------------------------------------------------
+return ProbingData
@@ -24,7 +24,7 @@ end
 ---------------------------------------------------------------------
 -- *** SIMULATION ***
 ---------------------------------------------------------------------
-local COLL_SAFE_DIST = 4
+local COLL_SAFE_DIST = 3

 ---------------------------------------------------------------------
 function OnSimulInit()
@@ -88,6 +88,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
@@ -119,9 +123,18 @@ function OnSimulStart()
                     { Grp = 'Base', Sub = 'COLLISION', Name = 'TRAV'},
                     { Grp = 'Base', Sub = 'COLLISION', Name = 'COL1'},
                     { Grp = 'Base', Sub = 'COLLISION', Name = 'COL2'},
-                     { Grp = 'Base', Sub = 'BELT', Name = 'COLLISION'}}
+                     { 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 = '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
@@ -132,6 +145,10 @@ function OnSimulStart()
   if Progress and EgtGetHeadId( 'H21') then
      table.insert( McdData, { Grp = 'Base', Sub = 'COLLISION', Name = 'SAW1'})
   end
+   -- se non è Progress ed è una ONE, aggiungo collisioni magazzino speciale
+   if not Progress and not EgtGetHeadId( 'H21') then
+      table.insert( McdData, { Grp = 'Base', Sub = 'COLLISION', Name = 'MTC'})
+   end

   if Clamp5 then
      table.insert( McdData, { Grp = 'W', Sub = 'COLLISION', Name = 'STM1'})
@@ -152,7 +169,7 @@ function OnSimulStart()
      local nId = EgtGetFirstNameInGroup( EgtGetFirstNameInGroup( nGrpId, McdData[i].Sub), McdData[i].Name)
      if nId then
         table.insert( EMT.MCODET, nId)
-         EgtOutLog( 'Element ' .. McdData[i].Grp .. '/' .. McdData[i].Sub .. '/' .. McdData[i].Name .. ' is ok', 4)
+         EgtOutLog( 'Element ' .. McdData[i].Grp .. '/' .. McdData[i].Sub .. '/' .. McdData[i].Name .. ' (' .. tostring( nId) .. ') is ok', 4)
      else
         nMcdNullCnt = nMcdNullCnt + 1
         EgtOutLog( 'Element ' .. McdData[i].Grp .. '/' .. McdData[i].Sub .. '/' .. McdData[i].Name .. ' is null', 4)
@@ -225,18 +242,24 @@ 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.51
-            if dArea < CoeffVM * 0.5e6 then
-               dTol = 1.01
-            elseif dArea < CoeffVM * 1.2e6 then
-               dTol = 1.51
-            elseif dArea < CoeffVM * 2.5e6 then
-               dTol = 1.97
-            elseif dArea < CoeffVM * 5.0e6 then
-               dTol = 2.81
-            elseif dArea < CoeffVM * 10.0e6 then
-               dTol = 3.77
+            local dTol = 4.71
+            if EmtGetVMillStep then
+               dTol = EmtGetVMillStep( b3Raw:getDimX(), b3Raw:getDimY(), b3Raw:getDimZ(), 4.71)
+            else
+               local dArea = b3Raw:getDimX() * b3Raw:getDimY() + b3Raw:getDimX() * b3Raw:getDimZ() + b3Raw:getDimY() * b3Raw:getDimZ()
+               if dArea < 0.075e6 then
+                  dTol = 0.71
+               elseif dArea < 0.15e6 then
+                  dTol = 1.01
+               elseif dArea < 0.3e6 then
+                  dTol = 1.51
+               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
            -- creo lo Zmap
            local VMillId = EgtVolZmapBox( nPartRawId, b3Raw:getMin(), b3Raw:getDimX(), b3Raw:getDimY(), b3Raw:getDimZ(), dTol, true, GDB_RT.GLOB)
@@ -345,6 +368,8 @@ function OnSimulDispositionStart()
         else
            EgtOutText( 'Barra non ruotata')
         end
+         -- forzo apertura rulli in caso fossero chiusi. Altrimenti all'apertura nell OnSimulMoveStart sposterebbe anche la trave
+         ExecParkRoller( nil, nil, nil, nil, nil, nil)
      end
      -- eseguo aggancio
      local nRawId = EgtGetFirstRawPart()
@@ -483,9 +508,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)
@@ -493,10 +520,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
-      if not Progress then
-         ExecParkRoller( nil, nil, nil, nil, false, IsStartPhase( EMT.PHASE))
-      end
+      -- apro le paratie
+      ExecParkRoller( nil, nil, nil, nil, false, IsStartPhase( EMT.PHASE))
      -- valore dell'asse virtuale
      dPosA = dPosA or GetNextChainSawingVirtualAxis( EMT.MCHID)
      -- imposto il valore di A
@@ -523,6 +548,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( '')
@@ -591,10 +685,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
@@ -603,7 +744,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
@@ -628,7 +769,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)
@@ -659,7 +800,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
@@ -690,18 +831,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
@@ -752,6 +893,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
@@ -822,6 +964,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
@@ -945,7 +1088,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
@@ -954,6 +1102,7 @@ function OnSimulMoveStart()
   VerifyY2Stroke( EMT.A2)
   VerifyV1Stroke( EMT.A3)
   VerifyV2Stroke( EMT.A4)
+   
   -- se devo subito parcheggiare i rulli
   local nRes = 0
   if bParkV then
@@ -965,6 +1114,12 @@ function OnSimulMoveStart()
   end
   -- se movimento in rapido ad inizio lavorazione
   if EMT.MOVE == 0 and EMT.MOVEIND <= 3 then
+      -- gestione speciale per pezzi molto alti. Se il movimento successivo è più alto del precedente, allora prendo il successivo
+      if EMT.L3s then
+         if EMT.L3s > EMT.L3 then
+            EMT.L3 = EMT.L3s
+         end
+      end
      -- Dati
      local B1Pos = EgtGetAxisPos( 'B1')
      local B1Home = EgtGetAxisHomePos( 'B1')
@@ -979,20 +1134,44 @@ function OnSimulMoveStart()
            -- se movimento iniziale da Zmax con lama o fresa
            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 ( 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
+               if EMT.L3 > dZref then
+                  bMoveZbeforeX = true
+               end
+
+               -- se vado in posizione speciale rotazione assi, poi devo ritornare alla X vera di lavoro
+               local dMoveXtoFinalPosition = false
               local dXref = EMT.L2
               if  EMT.HEAD == 'H12' and  -EMT.L2 < -LimX1PlRotSaw  then
                  dXref = LimX1PlRotSaw
+                  SimulMoveAxis( 'X1', dXref, MCH_SIM_STEP.RAPID)
+                  dZref = max( EMT.L3, Z1Home + GetZExtra( EMT.HEAD, EMT.R2))
+                  dMoveXtoFinalPosition = true
+               elseif not bMoveZbeforeX then
+                  SimulMoveAxis( 'X1', dXref, MCH_SIM_STEP.RAPID)
+               else
+                  SimulMoveAxis( 'X1', LimX1PlRotSaw, MCH_SIM_STEP.RAPID)
+                  dZref = max( EMT.L3, Z1Home + GetZExtra( EMT.HEAD, EMT.R2))
+                  dMoveXtoFinalPosition = true
               end
-               SimulMoveAxis( 'X1', dXref, MCH_SIM_STEP.RAPID)
-               local dZref = EMT.L3
-               if EMT.HEAD == 'H12' and ( EgtIf( not EgtGetHeadId( 'H21') or  BD.RIGHT_LOAD, -EMT.L2 < -LimX1RotSaw, -EMT.L2 > -LimX1RotSaw) or EMT.R2 < -91) then
-                  dZref = Z1Home + GetZExtra( EMT.HEAD, EMT.R2) - 100
-               end
+
               -- caso speciale per trave alta con rotazione lama pericolosa (tolto "and EMT.SB > 379")
               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)
+                  if bMoveZbeforeX then
+                     SimulMoveAxis( 'Z1', EMT.L3, MCH_SIM_STEP.RAPID)
+                  end
+                  if dMoveXtoFinalPosition then
+                     SimulMoveAxis( 'X1', EMT.L2, MCH_SIM_STEP.RAPID)
+                  end
               -- caso standard
               else
                  SimulMoveAxis( 'Z1', dZref, MCH_SIM_STEP.RAPID)
@@ -1002,9 +1181,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)
@@ -1033,31 +1212,44 @@ 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')
-                  SimulMoveAxis( 'X1', EMT.L2, MCH_SIM_STEP.RAPID)
+                  local bMoveZbeforeX = false
+
                  local dZref = EMT.L3
                  if EMT.HEAD == 'H12' and ( -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
+                  if EMT.L3 > dZref then
+                     bMoveZbeforeX = true
+                  end
+                  if not bMoveZbeforeX then
+                     SimulMoveAxis( 'X1', EMT.L2, MCH_SIM_STEP.RAPID)
+                  else
+                     SimulMoveAxis( 'X1', LimX1RotSawTC2, MCH_SIM_STEP.RAPID)
+                  end
                  -- caso speciale per trave alta con rotazione lama pericolosa (tolto "and EMT.SB > 400")
                  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)
+                     if bMoveZbeforeX then
+                        SimulMoveAxis( 'Z1', EMT.L3, MCH_SIM_STEP.RAPID)
+                     end
                  -- caso standard
                  else
                     SimulMoveAxis( 'Z1', dZref, MCH_SIM_STEP.RAPID)
-                     SimulMoveAxis( 'B1', EMT.R2, MCH_SIM_STEP.COLLROT)
                     SimulMoveAxis( 'C1', EMT.R1, MCH_SIM_STEP.COLLROT)
+                     SimulMoveAxis( 'B1', EMT.R2, MCH_SIM_STEP.COLLROT)
                  end
               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)
@@ -1095,28 +1287,45 @@ function OnSimulMoveStart()
               -- se movimento iniziale da Zmax con lama o fresa
               if EMT.ZMAX or EMT.FLAG == 1 or ( EMT.FLAG == 2 and EMT.FLAG2 == 1) then
                  --EgtOutBox( 'Flag 2,1', 'Info Rapid')
-                  SimulMoveAxis( 'X2', EMT.L2, MCH_SIM_STEP.RAPID)
+                  local bMoveZbeforeX = false
                  local dZref = EMT.L3
-                  if EMT.HEAD == 'H22' and ( EgtIf( BD.RIGHT_LOAD, EMT.L2 < -LimX2RotSaw, EMT.L2 > -LimX2RotSaw) or EMT.R2 > 91) then
+                  if EMT.HEAD == 'H22' and ( EgtIf( BD.RIGHT_LOAD, -EMT.L2 < -LimX1RotSaw, -EMT.L2 > -LimX1RotSaw) or EMT.R2 > 91) then
                     dZref = Z2Home + GetZExtra( EMT.HEAD, EMT.R2) - 100
                  end
-                  -- caso speciale per trave alta con rotazione lama pericolosa (tolto "and EMT.SB > 379")
-                  if EMT.HEAD == 'H22' and abs( C2Pos - EMT.R1) > 1 and ( abs( C2Home - EMT.R1) > 30.1 or abs(B2Home - EMT.R2) > 30.1) 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)
-                  -- caso standard
+                  -- 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
+                  if EMT.L3 > dZref then
+                     bMoveZbeforeX = true
+                  end
+                  if not bMoveZbeforeX then
+                     SimulMoveAxis( 'X2', EMT.L2, MCH_SIM_STEP.RAPID)
                  else
-                     SimulMoveAxis( 'Z2', dZref, MCH_SIM_STEP.RAPID)
-                     SimulMoveAxis( 'B2', EMT.R2, MCH_SIM_STEP.COLLROT)
-                     SimulMoveAxis( 'C2', EMT.R1, MCH_SIM_STEP.COLLROT)
+                     SimulMoveAxis( 'X2', LimX2RotSaw, MCH_SIM_STEP.RAPID)
+                  end
+                  -- caso speciale per trave alta con rotazione lama pericolosa (tolto "and EMT.SB > 379")
+                  if abs( C2Pos - EMT.R1) > 1 and ( abs( C2Home - EMT.R1) > 30.1 or abs( B2Home - EMT.R2) > 30.1) then
+                     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)
+                        if bMoveZbeforeX then
+                           SimulMoveAxis( 'Z2', EMT.L3, MCH_SIM_STEP.RAPID)
+                        end
+                     -- caso standard
+                     else
+                        SimulMoveAxis( 'Z2', dZref, MCH_SIM_STEP.RAPID)
+                        SimulMoveAxis( 'B2', EMT.R2, MCH_SIM_STEP.COLLROT)
+                        SimulMoveAxis( 'C2', EMT.R1, MCH_SIM_STEP.COLLROT)
+                        if bMoveZbeforeX then
+                           SimulMoveAxis( 'Z2', EMT.L3, MCH_SIM_STEP.RAPID)
+                        end
+                     end
                  end
               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)
@@ -1209,6 +1418,7 @@ function OnSimulMoveStart()
      EMT.A4 = EgtIf( GetV2ToClose(), EMT.V2NEXTPOS, ParkV2)
   end
   EMT.ZMAX = nil
+   EMT.XHOME = nil
 end

 ---------------------------------------------------------------------
@@ -1261,7 +1471,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
@@ -1317,6 +1527,10 @@ function ExecAuxCmd( sCmd, bPathStart)
         ExecOpenRoller( 1)
         ExecOpenRoller( 2)
         local sV1, MoveV1, sV2, MoveV2 = CalcMoveV1V2ForAuxCmd( Cmd)
+         -- se stringo i rulli e ho lama, verifico che sia in home
+         if MoveV1 and MoveV1 < 400 and ( EMT.HEAD == 'H12' or EMT.HEAD == 'H22') and EMT.ZMAX and not EMT.XHOME then
+            ExecMoveZmax( false, true)
+         end
         local bOk, bOk1, bOk2, bOk3 = SimulMoveAxes( Cmd[2], tonumber( Cmd[3]), MCH_SIM_STEP.RAPID,
                                                      sV1, MoveV1, MCH_SIM_STEP.RAPID,
                                                      sV2, MoveV2, MCH_SIM_STEP.RAPID)
@@ -1339,6 +1553,10 @@ function ExecAuxCmd( sCmd, bPathStart)
      ExecOpenRoller( 1)
      ExecOpenRoller( 2)
      local sV1, MoveV1, sV2, MoveV2 = CalcMoveV1V2ForAuxCmd( Cmd)
+      -- se stringo i rulli e ho lama, verifico che sia in home
+      if MoveV1 and MoveV1 < 400 and ( EMT.HEAD == 'H12' or EMT.HEAD == 'H22') and EMT.ZMAX and not EMT.XHOME then
+         ExecMoveZmax( false, true)
+      end
      local bOk, bOk1, bOk2, bOk3, bOk4 =  SimulMoveAxes( Cmd[2], tonumber( Cmd[3]), MCH_SIM_STEP.RAPID,
                                                          Cmd[4], tonumber( Cmd[5]), MCH_SIM_STEP.RAPID,
                                                          sV1, MoveV1, MCH_SIM_STEP.RAPID,
@@ -1362,6 +1580,10 @@ function ExecAuxCmd( sCmd, bPathStart)
      ExecOpenRoller( 1)
      ExecOpenRoller( 2)
      local sV1, MoveV1, sV2, MoveV2 = CalcMoveV1V2ForAuxCmd( Cmd)
+      -- se stringo i rulli e ho lama, verifico che sia in home
+      if MoveV1 and MoveV1 < 400 and ( EMT.HEAD == 'H12' or EMT.HEAD == 'H22') and EMT.ZMAX and not EMT.XHOME then
+         ExecMoveZmax( false, true)
+      end
      local bOk, bOk1, bOk2, bOk3, bOk4, bOk5 = SimulMoveAxes( Cmd[2], tonumber( Cmd[3]), MCH_SIM_STEP.RAPID,
                                                               Cmd[4], tonumber( Cmd[5]), MCH_SIM_STEP.RAPID,
                                                               Cmd[6], tonumber( Cmd[7]), MCH_SIM_STEP.RAPID,
@@ -1383,7 +1605,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')
@@ -1517,16 +1739,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 CurrZ = EgtGetAxisPos( EgtIf( nSetHead == 1, 'Z1', 'Z2'))
-   local CurrC = EgtGetAxisPos( EgtIf( nSetHead == 1, 'C1', 'C2'))
-   local CurrB = EgtGetAxisPos( EgtIf( nSetHead == 1, 'B1', 'B2'))
+   local CurrX = EgtGetAxisPos( EgtIf( bIsFirstHead, 'X1', 'X2'))
+   local CurrZ = EgtGetAxisPos( EgtIf( bIsFirstHead, 'Z1', 'Z2'))
+   local CurrC = EgtGetAxisPos( EgtIf( bIsFirstHead, 'C1', 'C2'))
+   local CurrB = EgtGetAxisPos( EgtIf( bIsFirstHead, 'B1', 'B2'))
   -- posizioni home degli assi testa
-   local HomeX = EgtGetAxisHomePos( EgtIf( nSetHead == 1, 'X1', 'X2'))
-   local HomeZ = EgtGetAxisHomePos( EgtIf( nSetHead == 1, 'Z1', 'Z2'))
-   local HomeC = EgtGetAxisHomePos( EgtIf( nSetHead == 1, 'C1', 'C2'))
-   local HomeB = EgtGetAxisHomePos( EgtIf( nSetHead == 1, 'B1', 'B2'))
+   local HomeX = EgtGetAxisHomePos( EgtIf( bIsFirstHead, 'X1', 'X2'))
+   local HomeZ = EgtGetAxisHomePos( EgtIf( bIsFirstHead, 'Z1', 'Z2'))
+   local HomeC = EgtGetAxisHomePos( EgtIf( bIsFirstHead, 'C1', 'C2'))
+   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
@@ -1537,13 +1793,13 @@ 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
            if abs( HomeC - CurrC) > 0.1 or abs( HomeB - CurrB) > 0.1 then
-               local dZref = HomeZ + GetZExtra( EMT.HEAD, CurrB)
-               if EgtIf( not EgtGetHeadId( 'H21') or  BD.RIGHT_LOAD, -CurrX < -LimX1RotSaw, -CurrX > -LimX1RotSaw) then
+               local dZref = HomeZ + GetZExtra( EMT.HEAD, EgtClamp( CurrB, -90, 90))
+               if EgtIf( BD.RIGHT_LOAD, -CurrX < -LimX1RotSaw, -CurrX > -LimX1RotSaw) then
                  dZref = dZref - EgtIf( not Mortiser, 100, 370)
               end
               SimulMoveAxes( 'Z1', EgtIf( dZref > CurrZ, dZref, CurrZ), MCH_SIM_STEP.RAPID, 'B1', EgtClamp( CurrB, -90, 90), MCH_SIM_STEP.COLLROT)
@@ -1555,6 +1811,7 @@ function ExecMoveZmax( bMchSplit, btoXHome)
            end
            SimulMoveAxis( 'Z1', MaxZ1, MCH_SIM_STEP.RAPID)
            if btoXHome then
+               EMT.XHOME = true
               SimulMoveAxis( 'X1', ParkX1, MCH_SIM_STEP.RAPID)
            end
            -- se lavorazione in doppio
@@ -1566,6 +1823,7 @@ function ExecMoveZmax( bMchSplit, btoXHome)
               SimulMoveAxes( 'B2', ParkB2, MCH_SIM_STEP.COLLROT, 'C2', ParkC2, MCH_SIM_STEP.COLLROT)
               SimulMoveAxis( 'Z2', MaxZ2, MCH_SIM_STEP.RAPID)
               if bToXHome then 
+                  EMT.XHOME = true
                  SimulMoveAxis( 'X2', ParkX2, MCH_SIM_STEP.RAPID)
               end
               EMT.DOU_TO_ZMAX = nil
@@ -1573,40 +1831,42 @@ function ExecMoveZmax( bMchSplit, btoXHome)
         -- altrimenti sega a catena
         else
            SimulMoveAxes( 'Z1', HomeZ, MCH_SIM_STEP.RAPID, 'B1', HomeB, MCH_SIM_STEP.COLLROT)
-            if EMT.SB > 650 and abs( EMT.R3) < 0.1 then
-               SimulMoveAxes( 'Z1', ParkCSawZ1, MCH_SIM_STEP.RAPID, 'B1', ParkB1, MCH_SIM_STEP.COLLROT)
+            if EMT.R3 and abs( EMT.R3) < 0.1 then
+               SimulMoveAxis( 'Z1', ParkCSawZ1, MCH_SIM_STEP.RAPID)
            end
            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) then
-                  SimulMoveAxes( 'Z1', MaxZ1, MCH_SIM_STEP.RAPID, 'B1', 0, MCH_SIM_STEP.COLLROT)
-               end
+               SimulMoveAxes( 'Z1', MaxZ1, MCH_SIM_STEP.RAPID, 'B1', 0, MCH_SIM_STEP.COLLROT)
               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)
            end
         -- altrimenti sega a catena
         else
            SimulMoveAxes( 'Z1', HomeZ, MCH_SIM_STEP.RAPID, 'B1', HomeB, MCH_SIM_STEP.COLLROT)
-            if EMT.SB > 650 and abs( EMT.R3) < 0.1 then
-               SimulMoveAxes( 'Z1', ParkCSawZ1, MCH_SIM_STEP.RAPID, 'B1', ParkB1, MCH_SIM_STEP.COLLROT)
+            if EMT.R3 and abs( EMT.R3) < 0.1 then
+               SimulMoveAxis( 'Z1', ParkCSawZ1, MCH_SIM_STEP.RAPID)
            end
            if btoXHome then
               EgtUnloadTool( EMT.HEAD, 1)
               ShowToolInTcPos( EMT.TCPOS, true)
+               -- nascondo l'utensile sulla testa
+               EgtSetMode( EgtGetHeadId( EMT.HEAD or '') or GDB_ID.NULL, GDB_MD.HIDDEN)
               EMT.PREVTOOL_H1 = nil
               EMT.PREVHEAD_H1 = nil
               EMT.PREVTCPOS_H1 = nil
               EMT.CHSAW_OUT = true
+               EMT.XHOME = true
            end
            SimulMoveAxes( 'X1', HomeX, MCH_SIM_STEP.RAPID, 'C1', HomeC, MCH_SIM_STEP.COLLROT)
         end
@@ -1627,15 +1887,16 @@ function ExecMoveZmax( bMchSplit, btoXHome)
         end
         SimulMoveAxis( 'Z2', MaxZ2, MCH_SIM_STEP.RAPID)
         if btoXHome then
+            EMT.XHOME = true
            SimulMoveAxis( 'X2', ParkX2, MCH_SIM_STEP.RAPID)
         end
-   -- altrimenti sega a catena
+      -- altrimenti sega a catena
      else
         SimulMoveAxes( 'Z2', HomeZ, MCH_SIM_STEP.RAPID, 'B2', HomeB, MCH_SIM_STEP.COLLROT)
-         if EMT.SB > 650 and abs( EMT.R3) < 0.1 then
-            SimulMoveAxes( 'Z2', ParkCSawZ2, MCH_SIM_STEP.RAPID, 'B2', ParkB2, 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
@@ -1762,8 +2023,20 @@ function ExecParkRoller( PosY1, PosY2, PosV1, PosV2, bSpliCut, bAgg)
      local DiffY2 = MyParkY2 - PosY2
      -- se appena eseguito taglio di separazione
      if bSpliCut then
+         local dAddMove
+         -- 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 30mm ulteriori
+         else
+            dAddMove = 30
+         end
         local MoveY1 = max( DiffY1, 0.0)
         local MoveY2 = min( DiffY2, 0.0)
+
+         MoveY1 = MoveY1 + dAddMove
+         MoveY2 = MoveY2 - dAddMove
+
         -- aggancio i pezzi rimanenti all'asse Y1
         LinkRemainingPartsToY1()
         -- eseguo i movimenti
@@ -1811,7 +2084,7 @@ function ExecParkRoller( PosY1, PosY2, PosV1, PosV2, bSpliCut, bAgg)
      local MoveV1 = ParkV1 - PosV1
      local DiffY1 = MyParkY1 - PosY1
      local MoveY1 = EgtIf( DiffY1 > 0.1, MoveV1, 0)
-      local TryMoveY1 = ParkV1 - PosT - EgtIf( bSpliCut or EMT.FALL, EMT.LT, 0) - EMT.HOVM
+      local TryMoveY1 = min( ParkV1 - PosT - EgtIf( bSpliCut or EMT.FALL, EMT.LT, 0) - EMT.HOVM, MaxY1 - PosY1 - 10)
      if ( PosT > ParkV2 - ExtraParkV and PosT < ParkV1 and PosY1 + TryMoveY1 < MaxY1 and not EMT.W2DELTA) then MoveY1 = max( MoveY1, TryMoveY1) end
      -- se appena eseguito taglio di separazione
      if bSpliCut then
@@ -1841,7 +2114,7 @@ function ExecParkRoller( PosY1, PosY2, PosV1, PosV2, bSpliCut, bAgg)
      local MoveV2 = ParkV2 - PosV2
      local DiffY2 = MyParkY2 - PosY2
      local MoveY2 = EgtIf( DiffY2 < -0.1, MoveV2, 0)
-      local TryMoveY2 = ParkV2 - PosT - EMT.LT - EMT.DELTA_LT - EMT.HOVM
+      local TryMoveY2 = max( ParkV2 - PosT - EMT.LT - EMT.DELTA_LT - EMT.HOVM, MinY2 - PosY2 + 10)
      if ( PosT + EMT.LT + EMT.DELTA_LT + EMT.HOVM < ParkV1 + ExtraParkV and PosT + EMT.LT + EMT.DELTA_LT + EMT.HOVM > ParkV2 and PosY2 + TryMoveY2 > MinY2) then MoveY2 = min( MoveY2, TryMoveY2) end
      if not SimulMoveAxes( 'T',  PosT + MoveY2, MCH_SIM_STEP.RAPID,
                            'V1', ParkV1, MCH_SIM_STEP.RAPID,
@@ -2095,6 +2368,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)
@@ -2109,11 +2385,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

 ---------------------------------------------------------------------
@@ -2134,7 +2416,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')
@@ -2171,6 +2453,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 ***
 ---------------------------------------------------------------------
@@ -2191,6 +2481,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

 ---------------------------------------------------------------------
@@ -2276,6 +2569,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
@@ -2332,6 +2634,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

 ---------------------------------------------------------------------
@@ -2457,11 +2765,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
@@ -2483,7 +2791,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
@@ -2577,7 +2885,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'}
@@ -2585,7 +2893,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
@@ -2704,7 +3012,7 @@ function GetNextChainSawingVirtualAxis( MchId)
 end

 ---------------------------------------------------------------------
-function GetNextTool( nMchId)
+function GetNextTool( nMchId, bResetOnStart)
   -- inizializzo prossimo utensile
   local sNextTool
   -- recupero lavorazione successiva
@@ -2712,7 +3020,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
@@ -2737,7 +3045,7 @@ 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))
   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))
@@ -2755,5 +3063,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,40 @@
 require( 'EmtGenerator')
 EgtEnableDebug( false)

+---------------------------------------------------------------------
+-- *** Generic Machinings ***
+---------------------------------------------------------------------
+require( 'EmtGenMachining')
+---------------------------------------------------------------------
+
 -- Carico libreria
 local BD = require( 'BeamData')

+---------------------------------------------------------------------
+-- *** Generic Machinings ***
+---------------------------------------------------------------------
+require( 'EmtGenMachining')
+
+---------------------------------------------------------------------
+-- *** Special GetPrevMachiningOffset ***
+---------------------------------------------------------------------
+-----------------------------------------------------------------------------------------
+function OnSpecialGetPrevMachiningOffset()
+   -- 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)
+         -- la X (L1) di questa corrisponde alla posizione iniziale della nuova trave, se ne deduce l'offset
+         EMC.PREVOFFSX = ParkV1 - vPrevAx[1]
+      end
+   end
+end
+
 ---------------------- OnSpecialGetMaxZ -----------------------------
 ---------------------------------------------------------------------
 local function CalcExtraZ( vtTp, vtT, vMZ)
@@ -72,8 +103,8 @@ 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
-      if vtTp:getX() > 0.3 and vtT:getX() > 0.3 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)
         elseif vtTp:getZ() > 0.707 or vtT:getZ() > 0.707 then
@@ -95,7 +126,7 @@ function OnSpecialGetMaxZ()
         EMC.MAXZ = ParkZ1 + CalcExtraZ( vtTpZm, vtT, vMZ)
      end
   elseif EMC.HEAD == 'H12' and sHead_TC == 'Head1_TC2' then
-      if vtTp:getX() > 0.3 and vtT:getX() > 0.3 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)
         elseif vtTp:getZ() > 0.707 or vtT:getZ() > 0.707 then
@@ -124,7 +155,7 @@ function OnSpecialGetMaxZ()
         EMC.MAXZ = ParkZ2 + CalcExtraZ( vtTpZm, vtT, vMZ)
      end
   elseif EMC.HEAD == 'H22' then
-      if vtTp:getX() > 0.3 and vtT:getX() > 0.3 then
+      if vtTp:getX() > 0.4 and vtT:getX() > 0.4 then
         if bBSameSign and abs( EMC.R1 - EMC.R1p) < 165 then
            EMC.MAXZ = MaxZ2 - EgtIf( abs( EMC.R2) < 90.1 and abs( EMC.R2p) < 90.1, 0, 130)
         elseif vtTp:getZ() > 0.707 or vtT:getZ() > 0.707 then
@@ -173,7 +204,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 +239,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 +261,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
@@ -659,9 +697,49 @@ function OnPostApplyMachining()

   -- 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
@@ -819,11 +897,17 @@ function OnPostApplyMachining()
      local vAxes = EmtGetAxesPos( nLastEntId)
      if #vAxes > 0 then EMC.TPOS = vAxes[1] end
   end
-
 end

 ---------------------------------------------------------------------
 function SpecApplyPath( bPreSplit, bSplitting, bPreCut, bCutting, bUnload, bPreRotMch)
+   -- mi salvo info lavorazione su una lista
+   local AuxInfoMach = {}
+   AuxInfoMach.bPreSplit = bPreSplit
+   AuxInfoMach.bSplitting = bSplitting
+   AuxInfoMach.bPreCut = bPreCut
+   AuxInfoMach.bCutting = bCutting
+   AuxInfoMach.bUnload = bUnload

   -- Assegno flag di pezzo separato dal resto del grezzo
   SPLIT = IsEndPhase( EMC.PHASE) or IsMid2Phase( EMC.PHASE) or IsEnd2Phase( EMC.PHASE)
@@ -921,7 +1005,7 @@ function SpecApplyPath( bPreSplit, bSplitting, bPreCut, bCutting, bUnload, bPreR
      local dPosT = LoadT
      if IsFirstMachiningAfterRotation( EMC.MCHID) then dPosT = dPosT + TurnerOffs end
      local vCmd = SpecCalcLoad( dPosT, dDistFront, max( dDistBack, MinJoin + EgtIf( SPLIT, EMC.TCING, 0), EMC.LB - ( MaxY1 - MinY1) + 6))
-      local vCmd2 = SpecCalcCarriages( dDistFront, dDistBack, dRollFront, dRollBack, dY1DeltaMaxSP, dY2DeltaMinUL, nChar)
+      local vCmd2 = SpecCalcCarriages( dDistFront, dDistBack, dRollFront, dRollBack, dY1DeltaMaxSP, dY2DeltaMinUL, nChar, AuxInfoMach)
      if bSplitting and EMC.ERR == 18 then
         table.insert( vCmd, { 22, dRollBack, -dRollFront})
      end
@@ -934,7 +1018,7 @@ function SpecApplyPath( bPreSplit, bSplitting, bPreCut, bCutting, bUnload, bPreR

   -- Se altrimenti carri entrambi diponibili, eseguo calcoli per carrelli
   elseif not IsEndPhase( EMC.PHASE) then
-      local vCmd = SpecCalcCarriages( dDistFront, dDistBack, dRollFront, dRollBack, dY1DeltaMaxSP, dY2DeltaMinUL, nChar)
+      local vCmd = SpecCalcCarriages( dDistFront, dDistBack, dRollFront, dRollBack, dY1DeltaMaxSP, dY2DeltaMinUL, nChar, AuxInfoMach)
      -- Se non ci sono spostamenti, confermo i parametri di aggancio e di posizione roller
      if SpecTestOnlyRemarkInCmds( vCmd) then
         table.insert( vCmd, { 21, EgtIf( EMC.Y1DELTA, EMC.Y1DELTA, 0), EgtIf( EMC.Y2DELTA, EMC.Y2DELTA, 0)})
@@ -1090,6 +1174,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)
@@ -1100,8 +1195,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
@@ -1135,6 +1230,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

@@ -1262,7 +1358,7 @@ function SpecCalcLoad( dPosT, dDistFront, dDistBack)
 end -- SpecAdjustLoad [L]

 ---------------------------------------------------------------------
-function SpecCalcCarriages( dDistFront, dDistBack, dRollFront, dRollBack, dY1DeltaMaxSP, dY2DeltaMinUL, nChar)
+function SpecCalcCarriages( dDistFront, dDistBack, dRollFront, dRollBack, dY1DeltaMaxSP, dY2DeltaMinUL, nChar, AuxInfoMach)

   local MinFrontJoin = MinJoin + EMC.HCING + EMC.HOVM
   local MyMinOther = MinOther + EgtIf( EMC.CNT == 1, AggLoad, 0) 
@@ -1301,13 +1397,11 @@ function SpecCalcCarriages( dDistFront, dDistBack, dRollFront, dRollBack, dY1Del
      WorkTab.dV2PosF = -dRollFront
      WorkTab.bV2CloseF = false

-      -- aggiuntivo per non avere problemi con pezzi a caduta
-      if WorkTab.dY1DeltaMaxF - WorkTab.dY1DeltaMinF > 5 * BD.CHAR_EXTRA_DIST then
-         WorkTab.dY1DeltaMinF = WorkTab.dY1DeltaMinF + 4 * BD.CHAR_EXTRA_DIST
-      elseif WorkTab.dY1DeltaMaxF - WorkTab.dY1DeltaMinF > 2.5 * BD.CHAR_EXTRA_DIST then
-         WorkTab.dY1DeltaMinF = WorkTab.dY1DeltaMinF + 2 * BD.CHAR_EXTRA_DIST
-      elseif WorkTab.dY1DeltaMaxF - WorkTab.dY1DeltaMinF > 1.5 * BD.CHAR_EXTRA_DIST then
-         WorkTab.dY1DeltaMinF = WorkTab.dY1DeltaMinF + BD.CHAR_EXTRA_DIST
+      -- dopo che si è calcolato il minimo e massimo dell'intervallo, verifico che in testa rimanga almeno il minimo per poter fare passaggio pinze e scaricare
+      if AuxInfoMach and ( AuxInfoMach.bSplitting or AuxInfoMach.bCutting) then
+         if WorkTab.dY1DeltaMaxF - WorkTab.dY1DeltaMinF > 1.5 * BD.CHAR_EXTRA_DIST and WorkTab.dY1DeltaMaxF > EMC.LT + BD.MINRAW_S + BD.CHAR_EXTRA_DIST then
+            WorkTab.dY1DeltaMinF = max( min( EMC.LT + BD.MINRAW_S, WorkTab.dY1DeltaMaxF - 1), WorkTab.dY1DeltaMinF)
+         end
      end

      -- verifico validità intervallo ammesso per Y1
@@ -1346,13 +1440,11 @@ function SpecCalcCarriages( dDistFront, dDistBack, dRollFront, dRollBack, dY1Del
      WorkTab.dV2PosF = -dRollFront
      WorkTab.bV2CloseF = false

-      -- aggiuntivo per minimizzare scambi carrelli
-      if WorkTab.dY1DeltaMaxF - WorkTab.dY1DeltaMinF > 5 * BD.CHAR_EXTRA_DIST then
-         WorkTab.dY1DeltaMinF = WorkTab.dY1DeltaMinF + 4 * BD.CHAR_EXTRA_DIST
-      elseif WorkTab.dY1DeltaMaxF - WorkTab.dY1DeltaMinF > 2.5 * BD.CHAR_EXTRA_DIST then
-         WorkTab.dY1DeltaMinF = WorkTab.dY1DeltaMinF + 2 * BD.CHAR_EXTRA_DIST
-      elseif WorkTab.dY1DeltaMaxF - WorkTab.dY1DeltaMinF > 1.5 * BD.CHAR_EXTRA_DIST then
-         WorkTab.dY1DeltaMinF = WorkTab.dY1DeltaMinF + BD.CHAR_EXTRA_DIST
+      -- dopo che si è calcolato il minimo e massimo dell'intervallo, verifico che in testa rimanga almeno il minimo per poter fare passaggio pinze e scaricare
+      if AuxInfoMach and ( AuxInfoMach.bSplitting or AuxInfoMach.bCutting) then
+         if WorkTab.dY1DeltaMaxF - WorkTab.dY1DeltaMinF > 1.5 * BD.CHAR_EXTRA_DIST and WorkTab.dY1DeltaMaxF > EMC.LT + BD.MINRAW_S + BD.CHAR_EXTRA_DIST then
+            WorkTab.dY1DeltaMinF = max( min( EMC.LT + BD.MINRAW_S, WorkTab.dY1DeltaMaxF - 1), WorkTab.dY1DeltaMinF)
+         end
      end

      -- verifico validità intervallo ammesso per Y1
@@ -1420,7 +1512,14 @@ function SpecCalcSplit( dLenRaw, dMaxLenLeft)
   local vCmd = {}
   EgtOutLog( '  *[S]', 1)
   local bSplit = ( EMC.Y2DELTA ~= nil or EMC.W2DELTA ~= nil)
-   local ParkT = EgtIf( bSplit and dMaxLenLeft > ParkV1 - 50, LoadT, ParkV1)
+   local ParkT = ParkV1
+   if bSplit then
+      if dMaxLenLeft + 100 > LoadT then
+         ParkT = dMaxLenLeft + 300
+      elseif dMaxLenLeft + 100 > ParkV1 then
+         ParkT = LoadT
+      end
+   end
   local sType = EgtIf( EMC.Y2DELTA, 'Split', EgtIf( EMC.W2DELTA, 'SpecSplit', 'Fall'))
   table.insert( vCmd, { 0, sType})
   if not bSplit then EnsureZmax( false, vCmd) end
@@ -1543,8 +1642,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
@@ -1552,11 +1654,15 @@ function SpecCalcUnload()
      table.insert( vCmd, { 11, 0})
      EMC.CNT = nil
   end
-   -- Sposto il pezzo in posizione di scarico
-   local dFinT = UnloadT - EMC.LB
-   local dFinY2 = dFinT + EMC.Y2DELTA
-   table.insert( vCmd, { 2, 'T', dFinT, 'Y2', dFinY2})
-   EgtOutLog( '  Y2PosF=' .. EgtNumToString( dFinY2), 1)
+   -- Se non supero la lunghezza massima di scarico, sposto il pezzo in posizione di scarico
+   if bStdUl then
+      local dFinT = UnloadT - EMC.LB
+      local dFinY2 = dFinT + EMC.Y2DELTA
+      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
@@ -1829,7 +1935,7 @@ local function MaxDispl( TabI, vCmd, sType)
     -- allontano (Y1+T) e (Y2)
      dY1a = MaxY1
      dY2a = MinY2
-      dTa = ( MaxY1 - TabI.dY1PosI) + dTa 
+      dTa = ( dY1a - TabI.dY1PosI) + dTa 
   -- **[M2]** = allontanamento dei trascinatori con Y2 in presa
   elseif sType == 'M2'   then
      EmitComment( vCmd, '[M2]')
@@ -1840,7 +1946,7 @@ local function MaxDispl( TabI, vCmd, sType)
      -- allontano (Y2+T) e (Y1)
      dY1a = MaxY1
      dY2a = MinY2
-      dTa = ( MinY2 - TabI.dY2PosI) + dTa 
+      dTa = ( dY2a - TabI.dY2PosI) + dTa 
   -- **[M3]** = accentramento dei trascinatori con Y1 in presa
   elseif sType == 'M3' then
      EmitComment( vCmd, '[M3]')
@@ -1850,7 +1956,7 @@ local function MaxDispl( TabI, vCmd, sType)
      -- accentro (Y1+T) e (Y2)
      dY1a = TabI.MyMinY1V1
      dY2a = TabI.MaxY2V2
-      dTa = ( TabI.MyMinY1V1 - TabI.dY1PosI) + dTa 
+      dTa = ( dY1a - TabI.dY1PosI) + dTa 
   -- **[M4]** = accentramento dei trascinatori con Y2 in presa
   elseif sType == 'M4' then
      EmitComment( vCmd, '[M4]')
@@ -1861,7 +1967,7 @@ local function MaxDispl( TabI, vCmd, sType)
      -- accentro (Y2+T) e (Y1)
      dY1a = TabI.MyMinY1V1
      dY2a = TabI.MaxY2V2
-      dTa = ( TabI.MaxY2V2 - TabI.dY2PosI) + dTa 
+      dTa = ( dY2a - TabI.dY2PosI) + dTa 
   end
   --
   table.insert( vCmd, { 3, 'Y1', dY1a,  'Y2', dY2a, 'T', dTa, EMC.CNT})
@@ -2187,7 +2293,7 @@ local function PosY1Y2B( TabI, vCmd)
         end 
      end
      nCnt = nCnt + 1
-      if nCnt > 5 then return end
+      if nCnt > 10 then return end
   until ( not bXW)
      -- chiusura/parcheggio dei trascinatori in funzioni chiamanti
   local dY1Delta = TabI.dY1PosI - TabI.dTPosI
@@ -2326,7 +2432,7 @@ local function PosY2Y1B( TabI, vCmd)
         end 
      end
      nCnt = nCnt + 1
-      if nCnt > 5 then return end
+      if nCnt > 10 then return end
   until ( not bXW)
   -- la chiusura delle morse è fatta sopra
   local dY1Delta = TabI.dY1PosI - TabI.dTPosI
@@ -2398,7 +2504,7 @@ function SpecAdjustCarrA( WorkTab)
         dY1DeltaF = PosY1Y2B( TabValI, vCmd)
      else
         --[A(1)A]  **ALLONTANAMENTO** (dall'origine) del trascinatore Y1
-         EmitComment( vCmd, '[AY1A]')
+         EmitComment( vCmd, '[A-Y1A]')
         dY1DeltaF = PosY1Y2A( TabValI, vCmd)
      end
      -- chiudo Y1
@@ -91,11 +91,13 @@ Language1=Italiano,Ita.txt
 Language2=English,Eng.txt

 [Tools]
+Probe=1
 Drillbit=1
 Sawblade=1
 Mill=1
 Mortise=1
 Chisel=0
+ProbeMaker=MakeProbe.lua
 DrillMaker=MakeWoodDrill.lua
 SawbladeMaker=MakeSawblade.lua
 MillMaker=MakeWoodCylMill.lua
@@ -108,11 +110,13 @@ H11.1=Standard.nge
 H11.1:MILL_NOTIP=MillNoTip.nge
 H12.1=Saw.nge
 H13.1=ChainSaw.nge
+H17.1=AngTransmBH.nge
 H21.1=Standard.nge
 H21.1:MILL_NOTIP=MillNoTip.nge
 H22.1=Saw.nge

 [Machinings]
+Probing=1
 Drilling=1
 Sawing=1
 Milling=1
@@ -125,6 +129,8 @@ SawFinishing=0
 [Machining]
 InitScript=InitMach.lua
 ExitScript=ExitMach.lua
+[Probing]
+PrbScript1=StdProbe

 [Disposition]
 ;InitScript=InitDisp.lua
@@ -136,10 +142,16 @@ H11=6608
 H12=6615
 ; Chainsaw
 H13=6616
+; Angular transmission
+H17=6617
+; Probe
+H19=6618
 ; Second 5 axis head
 H21=6620
 ; Second 5 axis saw
 H22=6623
+; Probe
+H29=6618

 [SetUp]
 Default=Standard
@@ -152,3 +164,5 @@ WinPlace=0,514,138,628,810
 Enable=1
 Save=0

+[ToolTrace]
+Enable=1
@@ -35,39 +35,19 @@
 -- 2023/02/01 ver 2.5b1 Aggiunta gestione eventuale mortasatrice.
 -- 2023/02/03 ver 2.5b2 Gestione controllo NUM (TIPO_CN = 0->Axium vecchio, 2->Flexium). Migliorata gestione Pinza5 (MAX_BACK_CLAMP_5).
 -- 2023/03/03 ver 2.5c1 Correzione per lav.ne in doppio dopo taglio con sega a catena. In PartProgram al nome lavorazione aggiunto Double.
-- 2023/03/29 ver 2.5c5 Modificato approccio lame sempre come per pezzi alti. Migliorata fedeltà simulazione a generazione.
-- 2023/04/03 ver 2.5d1 Eliminata testa dummy 'H14' ( EgtMachKernel minimo 2.5d1).
-- 2023/04/21 ver 2.5d3 Riportate modifiche PF : DeltaW per Pinza5, in generazione CN corretta verifica movimenti pinze o rulli per G151/G152, corretta gestione AggLoad (falg * da mlse).
-- 2023/04/21 ver 2.5d4 Migliorato riposizionamento testa trave dopo scambio carrelli (ExtraParkV a 100).
-- 2023/06/08 ver 2.5f1 Riportate correzioni da PF (riposizionamento carrelli su split con pezzi a caduta, in genera CN controllo conservazione piano impostato).
--                      In genera CN corretta risalita in Z come in simulazione (ticket #1294).
-- 2023/06/13 ver 2.5f2 Corretta distanza Back per aggiuntivo al carico prima di scambi carrelli.
-- 2023/06/26 ver 2.5f3 Tolte da teste per lame forzature risalite in Z. In generaz. CN aggiunto M05 su ultima lavorazione prima di SpecUnloading o Fall.
-- 2023/07/31 ver 2.5g1 Aggiunta apertura V1 allo scarico finale di barra con uso di entrambe Y1 e Y2 (#1399).
-- 2023/08/07 ver 2.5h1 In split prima di rotazione migliorato controllo spazio dietro per scambio carrelli. Ripristinata forzatura risalita in Z per lame se DeltaAng > 210 e HzPezzo > 610.
-- 2023/09/29 ver 2.5i1 In BeamData e mlde aggiunta la lettura di alcuni parametri da Ts3Data.
-- 2023/11/15 ver 2.5k1 In BeamData distanza sicurezza tagli CUT_SIC portata a 30.
-- 2023/12/05 ver 2.6a1 Prima versione con utilizzo post-processore standard per macchine ONE e PF
-- 2024/01/22 ver 2.6a2 Allineamento con common ver 2.6a2
-- 2024/01/23 ver 2.6a3 Allineamento con common ver 2.6a3
--                      In BeamData, parametro VICE_MINH portato a 1000
-- 2024/02/19 ver 2.6b1 In BeamData aggiunta funzione GetBlockedAxis che sostituisce la GetChainSawBlockedAxis.
-- 2024/02/23 ver 2.6b2 Allineamento con common ver. 2.6b2; in mlde aggiunte chiamate EgtAddToPackagePath
-- 2024/02/23 ver 2.6c1 Allineamento con common ver. 2.6c1
-- 2024/03/04 ver 2.6c2 Modificato log con nome macchina
--                      Allineamento con common ver. 2.6c2
-- 2024/03/11 ver 2.6c3 Allineamento con common ver. 2.6c7
-- 2024/03/28 ver 2.6d1 Allineamento con common ver. 2.6d1
-- 2024/04/12 ver 2.6d2 Allineamento con common ver. 2.6d2
--                      Aggiunto parametro ForceToCloseRollersGate
+-------------------------------------
+-- NOTE VERSIONI SUCCESSIVE IN GIT --
+-------------------------------------
+

 -- Intestazioni
 require( 'EmtGenerator')
-EgtEnableDebug( false)
+EgtEnableDebug( true)

-PP_VER = '2.6d2'
-MIN_MACH_VER = '2.5k1'
-MACH_NAME = 'Essetre-PFrl'
+PP_VER = '2.7j2_DEV2_B'
+PP_NVER = '2.7.10.2'
+MIN_MACH_VER = '2.7f3'
+MACH_NAME = string.match( EgtGetCurrMachineDir(), "[^\\]+$")  -- si ricava il nome della macchina dal direttorio

 -- Carico i dati globali
 local sMachDir = EgtGetCurrMachineDir()
@@ -150,7 +130,7 @@ ParkZ1 = -535
 ParkC1 = 90
 ParkB1 = 90
 LimX1RotSaw = 1900
-LimX1PlRotSaw = 1900
+LimX1PlRotSaw = 1970
 ParkCSawX1 = 1350
 ParkCSawX1S = ParkX1
 ParkCSawZ1 = -100
@@ -174,7 +154,9 @@ ParkC2 = -90
 ParkB2 = -90
 MinDeltaX1X2 = 650
 MinDistToolX1X2 = 40
-LimX2RotSaw = 1900
+LimX2RotSaw = 800
+AngTrBHOffs = 154.5
+AngTrBHLen = 90
 TurnerOffs = 120.0
 AggLoad = 50
 DeltaTabY = 1170.0
@@ -182,7 +164,7 @@ DeltaTabZ = -1010.0      -- per TPA la quota è dal centro di rotazione (va aggi
 DeltaRulliTraveZ = 980
 DeltaRulliTappetoZ = -485
 DimTabY = 500
-DimTabX = 24000
+DimTabX = 30000
 Delta2TabY = 1170.0
 Delta2TabZ = -1010.0     --  per TPA la quota è dal centro di rotazione (va aggiunto MillOffs)
 Head2X = 0
@@ -192,9 +174,12 @@ DefTcPos1 = 'T3'
 DefTcPos2 = 'T13'
 SecondSaw = false
 AutomaticRotation = true
+OptimizedLoadBeam = true
 AutoRotMinLen = 0
-CoeffVM = 0.5
+EstimationRapidMultiplier = 1
 ForceToCloseRollersGate = false
+Probe = nil
+AggreBlockHaus = false

 -- Aggiornamento con dati da TechnoEssetre7
 local sTs3Data = EgtGetStringFromIni( 'Beam', 'DATA_DIR', "C:\\TechnoEssetre7\\EgtData", EgtGetIniFile()).."\\Essetre-PFrl.data"
@@ -278,7 +263,21 @@ if EgtExistsFile( sData) then
         if Machine.Offsets.SAW2OFFSZ then Saw2OffsZ = Machine.Offsets.SAW2OFFSZ end
         if Machine.Offsets.DEFTCPOS1 then DefTcPos1 = ( 'T' .. Machine.Offsets.DEFTCPOS1) end
         if Machine.Offsets.DEFTCPOS2 then DefTcPos2 = ( 'T' .. Machine.Offsets.DEFTCPOS2) 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.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.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.PROBE then Probe = Machine.Offsets.PROBE end  -- Tastatore su entrembe le teste. 1 = solo testa 1, 2 = solo testa 2, 3 = entrambe le teste
+         if Machine.Offsets.AGGRE_BH then AggreBlockHaus = ( Machine.Offsets.AGGRE_BH == 1) end
+         AngTrBHOffs = Machine.Offsets.OFFSETZ_RINV_BH or AngTrBHOffs
+         AngTrBHLen = Machine.Offsets.OFFSETX_RINV_BH or AngTrBHLen
+         if Machine.Offsets.MAX_BACK_CLAMP_5 then MaxBackClamp5 = Machine.Offsets.MAX_BACK_CLAMP_5 end
         -- aggiustamenti
         MinY1 = MinV1 + MinDeltaYV
         MaxY1 = MaxMchY1
@@ -326,7 +325,7 @@ local X1Id = EmtAxis {
      Home = ParkX1,
      Invert = true,
      Geo = 'X1_AXIS/GEO',
-      Aux = 'X1_AXIS/SOLID'}
+      Aux = {'X1_AXIS/SOLID', 'X1_AXIS/COLLISION'}}
 --  *** Testa 1 ***
 EmtAxis {
      Name = 'Z1',
@@ -350,6 +349,13 @@ EmtAxis {
      Home = ParkC1,
      Geo = 'C1_AXIS/GEO',
      Aux = {'C1_AXIS/SOLID', 'C1_AXIS/COLLISION'}}
+-- se tastatore presente
+local sBAxisAuxGeom
+if Probe == 1 or Probe == 3 then
+   sBAxisAuxGeom = {'B1_AXIS/SOLID', 'B1_AXIS/COLLISION', 'PROBE_B1/SOLID_PROBE', 'PROBE_B1/COLLISION_PROBE'}
+else
+   sBAxisAuxGeom = {'B1_AXIS/SOLID', 'B1_AXIS/COLLISION'}
+end
 EmtAxis {
      Name = 'B1',
      Parent = 'C1',
@@ -360,7 +366,7 @@ EmtAxis {
      Stroke = {MinB1, MaxB1},
      Home = ParkB1,
      Geo = 'B1_AXIS/GEO',
-      Aux = {'B1_AXIS/SOLID', 'B1_AXIS/COLLISION'}}
+      Aux = sBAxisAuxGeom }
 -- Frese
 local H11Id = EmtHead {
      Name = 'H11',
@@ -388,6 +394,22 @@ local H12Id = EmtHead {
      OthColl = {'B1/SOLID', 'C1/SOLID'},
      Geo = 'H12_HEAD/GEO'}
 --EgtSetInfo( H12Id, 'ZMAXONROT', '1,190')
+-- Tastatore su testa 1
+local H19Id
+if Probe == 1 or Probe == 3 then
+   H19Id = EmtHead {
+         Name = 'H19',
+         Parent = 'B1',
+         HSet = 'H19',
+         Type = MCH_HT.STD,
+         Pos = Point3d( -60, -81, 0),
+         TDir = Z_AX(),
+         ADir = -Y_AX(),
+         Rot1W = 0.2,
+         Rot2Stroke = { MinB1, MaxB1},
+         OthColl = {'B1/SOLID', 'C1/SOLID'},
+         Geo = 'H19_HEAD/GEO'}
+end
 -- Sega a catena
 EmtAxis {
      Name = 'A',
@@ -414,6 +436,24 @@ local H13Id = EmtHead {
      Geo = 'H13_HEAD/GEO'}
 EgtSetInfo( H13Id, 'ZSAFEDELTA', '60')
 EgtSetInfo( H13Id, 'ZMAXONROT', '1,80')
+
+-- Eventuale aggregato per lavorazioni BlockHaus
+if AggreBlockHaus then
+   local H17Id = EmtHead {
+      Name = 'H17',
+      Parent = 'B1',
+      HSet = 'H11',
+      Type = MCH_HT.STD,
+      Pos = Point3d( -AngTrBHLen, 0, -AngTrBHOffs),
+      TDir = X_AX(),
+      ADir = Z_AX(),
+      Rot1W = 0.2,
+      SolCh = MCH_SCC.ADIR_NEAR,
+      OthColl = {'H2', 'B/SOLID', 'C/SOLID'},
+      Geo = 'H17_HEAD/GEO',
+      Aux = {'H17_HEAD/SOLID', 'H17_HEAD/COLLISION'}}
+end
+
 --  *** Testa 2 ***
 local X2Id = EmtAxis {
      Name = 'X2',
@@ -426,7 +466,7 @@ local X2Id = EmtAxis {
      Home = ParkX2,
      Invert = true,
      Geo = 'X2_AXIS/GEO',
-      Aux = 'X2_AXIS/SOLID'}
+      Aux = {'X2_AXIS/SOLID', 'X2_AXIS/COLLISION'}}
 local Z2Id = EmtAxis {
      Name = 'Z2',
      Parent = 'X2',
@@ -449,6 +489,12 @@ local C2Id = EmtAxis {
      Home = ParkC2,
      Geo = 'C2_AXIS/GEO',
      Aux = {'C2_AXIS/SOLID', 'C2_AXIS/COLLISION'}}
+-- se presente tastatore
+if Probe == 2 or Probe == 3 then
+   sBAxisAuxGeom = {'B2_AXIS/SOLID', 'B2_AXIS/COLLISION', 'PROBE_B2/SOLID_PROBE', 'PROBE_B2/COLLISION_PROBE'}
+else
+   sBAxisAuxGeom = {'B2_AXIS/SOLID', 'B2_AXIS/COLLISION'}
+end
 local B2Id = EmtAxis {
      Name = 'B2',
      Parent = 'C2',
@@ -459,15 +505,20 @@ local B2Id = EmtAxis {
      Stroke = {MinB2, MaxB2},
      Home = ParkB2,
      Geo = 'B2_AXIS/GEO',
-      Aux = {'B2_AXIS/SOLID', 'B2_AXIS/COLLISION'}}
+      Aux = sBAxisAuxGeom}
 local vtMove2 = Vector3d( 0, Head2Y, Head2Z)
 EgtMove( EgtGetFirstNameInGroup( X2Id, 'SOLID'), vtMove2, GDB_RT.GLOB)
+EgtMove( EgtGetFirstNameInGroup( X2Id, 'COLLISION'), vtMove2, GDB_RT.GLOB)
 EgtMove( EgtGetFirstNameInGroup( Z2Id, 'SOLID'), vtMove2, GDB_RT.GLOB)
 EgtMove( EgtGetFirstNameInGroup( Z2Id, 'COLLISION'), vtMove2, GDB_RT.GLOB)
 EgtMove( EgtGetFirstNameInGroup( C2Id, 'SOLID'), vtMove2, GDB_RT.GLOB)
 EgtMove( EgtGetFirstNameInGroup( C2Id, 'COLLISION'), vtMove2, GDB_RT.GLOB)
 EgtMove( EgtGetFirstNameInGroup( B2Id, 'SOLID'), vtMove2, GDB_RT.GLOB)
 EgtMove( EgtGetFirstNameInGroup( B2Id, 'COLLISION'), vtMove2, GDB_RT.GLOB)
+if Probe == 2 or Probe == 3 then
+   EgtMove( EgtGetFirstNameInGroup( B2Id, 'SOLID_PROBE'), vtMove2, GDB_RT.GLOB)
+   EgtMove( EgtGetFirstNameInGroup( B2Id, 'COLLISION_PROBE'), vtMove2, GDB_RT.GLOB)
+end
 -- Frese
 local H21Id = EmtHead {
      Name = 'H21',
@@ -496,6 +547,22 @@ if SecondSaw then
         Geo = 'H22_HEAD/GEO'}
   --EgtSetInfo( H22Id, 'ZMAXONROT', '1,190')
 end
+-- Tastatore su testa 2
+local H29Id
+if Probe == 2 or Probe == 3 then
+   H29Id = EmtHead {
+         Name = 'H29',
+         Parent = 'B2',
+         HSet = 'H29',
+         Type = MCH_HT.STD,
+         Pos = Point3d( Head2X - 60, Head2Y - 81, Head2Z + 0),
+         TDir = Z_AX(),
+         ADir = -Y_AX(),
+         Rot1W = 0.2,
+         Rot2Stroke = { MinB2, MaxB2},
+         OthColl = {'B2/SOLID', 'C2/SOLID'},
+         Geo = 'H29_HEAD/GEO'}
+end
 --  *** Carrelli ***
 -- Morse
 local Y1Id = EmtAxis {
@@ -640,7 +707,7 @@ EmtAxis {
      Type = MCH_AT.LINEAR,
      Dir = - X_AX(),
      Pos = Point3d(0.0,2450.0,-958.0),
-      Stroke = {-20000, 20000},
+      Stroke = {-30000, 30000},
      Home = LoadT,
      Geo = 'T_AXIS/GEO'}
 EmtTable {
@@ -648,6 +715,7 @@ EmtTable {
      Parent = 'T',
      Type = MCH_TT.FLAT,
      Ref1 = Point3d( -DimTabX, DeltaTabY, DeltaTabZ),
+      Coll = 'Base/BELT',
      Geo = 'TABLE/GEO',
      Aux = 'TABLE/SOLID'}
 -- *** ToolChanger ***
@@ -702,13 +770,24 @@ EmtTcPos {
      TDir = -Y_AX(),
      ADir = -X_AX(),
      Geo = 'BASE/T8'}
-EmtTcPos {
+if AggreBlockHaus then
+   local TcpSsId = EmtTcPos {
+         Name = 'T9',
+         Parent = 'Base',
+         Pos = ptTc1 + 8 * vtDt1 + Vector3d( -AngTrBHLen, AngTrBHOffs, 0),
+         TDir = X_AX(),
+         ADir = -Y_AX(),
+         Geo = 'BASE/T9_BH',
+         Aux = 'BASE/T9_HS'}
+else
+   EmtTcPos {
      Name = 'T9',
      Parent = 'Base',
      Pos = ptTc1 + 8 * vtDt1,
      TDir = -Y_AX(),
      ADir = -X_AX(),
      Geo = 'BASE/T9'}
+end
 EmtTcPos {
      Name = 'T10',
      Parent = 'Base',
@@ -818,8 +897,14 @@ EgtMove( EgtGetFirstNameInGroup( BaseId, 'TC3') or GDB_ID.NULL, vtMovB, GDB_RT.G
 if Mortiser then 
   EgtMove( EgtGetFirstNameInGroup( BaseId, 'TC4') or GDB_ID.NULL, vtMovB, GDB_RT.GLOB)
 end
+-- sposto geometria aggiuntiva agrgegato BlockHaus
+if AggreBlockHaus then
+   EgtMove( EgtGetFirstNameInGroup( EgtGetFirstNameInGroup( BaseId, 'T9'), 'T9_HS') or GDB_ID.NULL, vtMovB, GDB_RT.GLOB)
+end
 EgtMove( EgtGetFirstNameInGroup( X1Id, 'SOLID'), vtMovB, GDB_RT.GLOB)
+EgtMove( EgtGetFirstNameInGroup( X1Id, 'COLLISION'), vtMovB, GDB_RT.GLOB)
 EgtMove( EgtGetFirstNameInGroup( X2Id, 'SOLID'), vtMovB, GDB_RT.GLOB)
+EgtMove( EgtGetFirstNameInGroup( X2Id, 'COLLISION'), vtMovB, GDB_RT.GLOB)
 local vtMovC = Vector3d( 0, 0, ( DeltaTabZ + DeltaRulliTappetoZ + 1495))      -- -( -1010 - 485)
 EgtMove( EgtGetFirstNameInGroup( BaseId, 'BELT'), vtMovC, GDB_RT.GLOB)
 local vtMove = Vector3d( 0, ( DeltaTabY - 1170.0), ( DeltaTabZ + 1010.0))
@@ -863,7 +948,7 @@ function OnSetHead()
      EmtModifyAxisHome( 'B1', ParkB1)
      EmtModifyAxisDirection( 'B1', X_AX())
   -- se testa H12 (lama)
-   elseif EMC.HEAD == 'H12' then
+   elseif EMC.HEAD == 'H12' or EMC.HEAD == 'H17' then
      EmtModifyAxisHome( 'X1', ParkX1)
      EmtModifyAxisHome( 'Z1', ParkZ1)
      EmtModifyAxisHome( 'C1', ParkC1)
@@ -905,10 +990,14 @@ end

 ---------------------------------------------------------------------
 function GetHeadSet( sHead)
-   if sHead == 'H11' or sHead == 'H12' or sHead == 'H13' 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' then
      return 2
+   elseif sHead == 'H29' then
+      return 21
   else
      return 0
   end
@@ -919,7 +1008,7 @@ end
 function GetHeadTCSet( sHead, sTcPos)
   local nPos = tonumber( string.sub( sTcPos, 2)) or 0
   -- testa 1
-   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
      -- testa 1 su CU prossimo a testa 2
      if nPos > 10 then
         return 'Head1_TC2'
@@ -956,6 +1045,54 @@ function HeadIsChainSaw( sHead)
   return ( sHead == 'H13')
 end

+---------------------------------------------------------------------
+-- Funzione che riconosce testa per tastatore
+function HeadIsProbe( sHead)
+   return ( sHead == 'H19' or sHead == 'H29')
+end
+
+---------------------------------------------------------------------
+function IsToolCompatibleWithProbe( sToolName, sCurrTool)
+   local bToolIsCompatible = false
+   if sToolName then
+      EgtTdbSetCurrTool( sToolName)
+      local dToolDiam = EgtTdbGetCurrToolParam( MCH_TP.TOTDIAM)
+      local dToolLen = EgtTdbGetCurrToolParam( MCH_TP.TOTLEN)
+      if dToolDiam < 100 and dToolLen < 160 then
+         bToolIsCompatible = true
+      end
+      EgtTdbSetCurrTool( sCurrTool)
+   end
+   return bToolIsCompatible
+end
+
+---------------------------------------------------------------------
+function GetToolNameFromTcPos( sTcPos)
+   local sToolName
+   -- Carico gli utensili sulle barre portautensili
+   local vTcPos = EgtGetAllTcPosNames()
+   if vTcPos then
+      for i = 1, #vTcPos do
+         if vTcPos[i] == sTcPos then
+            local sToolsName = EgtGetToolsInCurrSetupPos( vTcPos[i])
+            sToolName = sToolsName[1]
+         end
+      end
+   end
+   return sToolName
+end
+
+---------------------------------------------------------------------
+function GetToolHead( sToolName)
+   local sHead
+   local sCurrTool = EgtTdbGetCurrToolParam( MCH_TP.NAME)
+   EgtTdbSetCurrTool( sToolName)
+   sHead = EgtTdbGetCurrToolParam( MCH_TP.HEAD)
+   sTcPos = EgtTdbGetCurrToolParam( MCH_TP.TCPOS)
+   EgtTdbSetCurrTool( sCurrTool)
+   return sHead, sTcPos
+end
+
 ---------------------------------------------------------------------
 -- Funzione che calcola la posizione Home di Z per la sega a catena dal valore dell'asse virtuale
 function GetChainSawZHomeFromVirtualAxis( dPosA)
@@ -983,7 +1120,7 @@ end
 ---------------------------------------------------------------------
 -- Funzione che ritorna ZExtra partendo dalla testa e dall'angolo verticale
 function GetZExtra( sHead, dAngV)
-   if sHead == 'H11' or sHead == 'H21' then
+   if sHead == 'H11' or sHead == 'H21' or sHead == 'H17' then
      if abs( dAngV) < 30.1 then
         return 400
      elseif abs( dAngV) < 45.1 then
@@ -991,7 +1128,7 @@ function GetZExtra( sHead, dAngV)
      elseif abs( dAngV) < 60.1 then
         return 200
      elseif abs( dAngV) < 90.1 then
-         return 10
+         return 1
      else
         return 0
      end
@@ -1003,11 +1140,14 @@ function GetZExtra( sHead, dAngV)
      elseif abs( dAngV) < 60.1 then
         return 200
      elseif abs( dAngV) < 90.1 then
-         return 10
+         return 1
+      elseif abs( dAngV) < 120 then
+         return -100
      else
         return 0
      end
   end
+   return 0
 end

 ---------------------------------------------------------------------
@@ -1048,7 +1188,6 @@ function GetPY2Light()
   return ( EgtGetInfo( PY2LightId, 'On') == '1')
 end

-
 ---------------------------------------------------------------------
 -- Funzione per resettare tutte le attivazioni della macchina
 function OnResetMachine()
@@ -0,0 +1,64 @@
+; Commento per evitare BOM con UTF-8
+;Index = Type, Description, Default Value
+; Type : b=boolean, d=double, l=lenght, s=string
+
+[Probing]
+0=s,Type,Head
+
+[Drilling]
+
+[Sawing]
+
+[Milling]
+0=l,MaxElev,0
+1=d,OutRaw,0
+2=l,SideElev,0
+3=d,TrimExt,0
+4=s,VtFaceUse,0,0,0
+5=s,EdgesFaceUse,0
+6=b,PROBE,0
+7=b,START-PROBE,0
+8=b,END-PROBE,0
+
+[Pocketing]
+0=l,MaxElev,0
+1=b,Open,0
+2=d,OpenMinSafe,0
+3=d,OpenOutRaw,0
+4=l,MaxOptSize,0
+
+[Mortising]
+0=d,MaxElev,0
+
+[Chiseling]
+
+[SawRoughing]
+
+[SawFinishing]
+
+[GenMachining]
+
+[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
+
@@ -30,6 +30,9 @@ local GS = {}
 -- Configurazione posizioni (con o senza TC2)
 local PositionTable = {}
 local SecondSaw = ( EgtGetHeadId( 'H22') ~= nil)
+local AggreBH = ( EgtGetHeadId( 'H17') ~= nil)
+local ProbeFirstHead = ( EgtGetHeadId( 'H19') ~= nil)
+local ProbeSecondHead = ( EgtGetHeadId( 'H29') ~= nil)
 if SecondSaw then
   PositionTable = {{Pos = "Pos1",  TcPos = "T1",  Head = "H12", Group = "G1"},
                    {Pos = "Pos2",  TcPos = "T3",  Head = "H11", Group = "G1"},
@@ -38,7 +41,7 @@ if SecondSaw then
                    {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 = "Pos8",  TcPos = "T9",  Head = EgtIf( AggreBH, "H17", "H11"), Group = "G1"},
                    {Pos = "Pos9",  TcPos = "T10", Head = "H11", Group = "G1"},
                    {Pos = "Pos10",  TcPos = "T11", Head = "H22", Group = "G3"},
                    {Pos = "Pos11",  TcPos = "T13", Head = "H21", Group = "G3"},
@@ -61,7 +64,7 @@ else
                    {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 = "Pos8",  TcPos = "T9",  Head = EgtIf( AggreBH, "H17", "H11"), Group = "G1"},
                    {Pos = "Pos9",  TcPos = "T10", Head = "H11", Group = "G1"},
                    {Pos = "Pos10",  TcPos = "T11", Head = "H21", Group = "G3"},
                    {Pos = "Pos11",  TcPos = "T12", Head = "H21", Group = "G3"},
@@ -78,6 +81,16 @@ else
      table.insert( PositionTable, {Pos = "Pos21", TcPos = "T201", Head = "H13", Group = "G2"})
   end
 end
+-- aggiunta tastatori
+if ProbeFirstHead then
+   local sIndex = EgtNumToString( #PositionTable + 1)
+   table.insert( PositionTable, {Pos = "Pos"..sIndex, TcPos = "T501", Head = "H19", Group = "G4"})
+end
+if ProbeSecondHead then
+   local sIndex = EgtNumToString( #PositionTable + 1)
+   table.insert( PositionTable, {Pos = "Pos"..sIndex, TcPos = "T502", Head = "H29", Group = "G4"})
+end
+
 local UsePositionHead = true

 local function IsInGeomSet( ToolHead, PosHead)
@@ -0,0 +1,42 @@
+; Commento per evitare BOM con UTF-8
+; Index, Type, Description, Value
+; Index = 0,1,..,n
+; Type : d=double, l=lenght, s=string, b=boolean, dr=double recalc, sr= string recalc, lr=lenght recalc, br=boolean recalc, th=toolholder
+; Description : STEP, SIDESTEP, ...
+
+[DRILL_STD]
+0=th,TH,
+1=d,STEP
+2=s,DOUBLE
+
+[SAW_STD]
+0=th,TH,
+1=d,STEP
+2=d,SIDESTEP
+3=b,LONGCUT
+
+[SAW_FLAT]
+0=th,TH,
+1=d,STEP
+2=d,SIDESTEP
+3=b,LONGCUT
+
+[MILL_STD]
+0=th,TH,
+1=d,STEP
+2=d,SIDESTEP
+3=d,SIDEDEPTH
+4=s,DOUBLE
+
+[MILL_NOTIP]
+0=th,TH,
+1=d,STEP
+2=d,SIDESTEP
+3=d,SIDEDEPTH
+4=s,DOUBLE
+
+[MORTISE_STD]
+0=th,TH,
+1=b,MORTISE
+2=d,STEP
+3=d,SIDESTEP
@@ -1,7 +1,140 @@
           ==== Common_ONE-PF Update Log ====

+Versione 2.7j (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) Prima versione gestione tastatore
+- (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.
+- (SIm-GEN) Migliorato movimento approccio al pezzo con lama. Allineamento simulazione-generazione che facevano due movimenti leggermente diversi. Ticket#2335
+
+Versione 2.7c1 (05/03/2025)
+- (GEN) Corretto movimento in home utensile precedente. Ticket#2324
+
+Versione 2.7b1 (07/02/2025)
+- (SIM-GEN) In caso di Progress, alla deselezione utensile testa 1 su TC2 si fa movimento Z raddrizzando asse B. Ticket#2247
+- (SIM-GEN) Estensione soluzione Ticket#2206. Ora si aprono di 5mm extra anche se solo una morsa resta in posizione. Ticket#2259
+- (SIM) Migliorato controllo collisioni con traversa. Ora si considera asse X. Serve modifica NGE! Ticket#2257
+
+Versione 2.7a2 (15/01/2024)
+- (SIM-GEN) In caso di testa 1 su TC2 (ONE), si ruota prima la C e poi la B. Ticket#2247
+
+Versione 2.7a1 (07/01/2024)
+- (GEN) In separazione, quando si porta indietro il restante, si aprono le paratie rulli subito. Ticket#2214
+- (SIM-GEN) Se entrambe le morse sono restate in posizione, le sposto comunque di 5mm per distanziare i pezzi separati. Ticket#2206
+
+Versione 2.6l2 (09/12/2024)
+- (SIM-GEN) Corretto problema introdotto in 2.6l1 per risolvere #2198. Ticket#2203
+- (SIM-GEN) In MLSE modificato controllo direzione utensile per determinare Z massima. Ticket#2204
+
+Versione 2.6l1 (02/12/2024)
+- (SIM) Dopo scarico pezzo per ribaltamento, si aprono sempre i rulli. Ticket#2192
+- (SIM-GEN) Nei movimenti si ricalcola la Z solo se la quota di lavoro è più in alta della posizione a ZHOME della testa. Ticket#2198
+- (GEN) Se bisogna andare in home, ma la testa lo è già, non si scrive nulla
+
+Versione 2.6j3 (21/10/2024)
+- (GEN) Se richiesto movimento in home, si scrive sempre parcheggio in home dell'utensile precedente. Prima si scriveva solo per lama.
+
+Versione 2.6j2 (17/10/2024)
+- (SIM-GEN) Se motosega prelevata con A=0, alla fine la si porta sempre alla quota ZMAX, indipendentemente dall'altezza trave che era fissata a 650mm. Ora lo fa sempre.
+
+Versione 2.6j1 (08/10/2024)
+- (SIM-GEN) Corretto primo movimento di approccio al pezzo. Ticket#2093
+- (SIM-GEN) Corretto movimento in Home in caso di lama e movimento rulliera di carico. Ticket#2054
+- (GEN) In caso di movimento in Home non si fa più preselezione ma si tiene utensile vecchio. Ticket#1926
+
+Versione 2.6i2 (13/09/2024)
+- (GEN) Migliorato calcolo chiusura paratia rulli con aggiornamento lunghezza della barra in caso di ultimo taglio e grezzo residuo in coda. Ticket#2017
+- (NGE-MLDE-GEN-SIM) Aggiunto solidi collisione TC.  Corretto movimento a Y di sicurezza con lama. Ticket#2042
+- (NGE-SIM) Aggiunta collisione magazzino motosega ONE
+
+Versione 2.6i1 (02/09/2024)
+- (SIM-GEN) Quando si aprono i rulli, se la trave non può seguire i rulli perchè la pinza andrebbe in extra-corsa, si sposta comunque la pinza fino al massimo della sua corsa. Ticket#1949
+- (GEN) In preselezione. Se lavorazione motosega, non mando a parcheggio altra testa con utensile precedente, perchè subito dopo viene chiamata preselezione. Ticket#1961 
+
+Versione 2.6h2 (07/08/2024)
+- (SIM) Allineata simulazione a generazione in primo movimento rapido approccio al pezzo.
+
+Versione 2.6h1 (01/08/2024)
+- (GEN) Corretto segno posizione X di sicurezza per rotazione assi rotanti.
+
+Versione 2.6g5 (31/07/2024)
+- (SIM-GEN) Se motosega allineata ad asse B per tagli di fianco, corretto movimento che manda testa a parcheggio. Pezzi più alti di 650 va solo in Zmax. Ticket#1943
+- (SIM-GEN) Gestione movimenti speciali per pezzi molto alti. Se HomeZ < primo punto lavorazione, allora vado al punto Z lavorazione prima di approcciare il pezzo in X. Ticket#1943
+- (GEN) Gestione creazione piano generico in caso il primo movimento della lavorazione sia un arco. Ticket#1891
+- (SIM-GEN) Modifica limite inferirore intervallo di pinzaggio per garantire, se possibile, il passaggio pezzo a pinza 2. Da Common-PF1250.
+- (GEN) Corretta scrittura ISO per parcheggiare morsa 3 dopo ribaltamento. Ticket#1922,#1733
+
+Versione 2.6g4 (19/07/2024)
+- (SIM-GEN) Aumentato numero iterazioni per scambio carrelli (da 5 a 10), per pezzi lunghi 30m.
+
+Versione 2.6g3 (17/07/2024)
+- (GEN) Correzione modifica precedente (2.6g2). Con lama precedente e motosega successiva, andava a parcheggio con lama alla quota della motosega. Ticket#1880
+
+Versione 2.6g2 (16/07/2024)
+- (GEN) Per preselezione o movimenti in home, non si scrive più 'ET0' perchè non è più supportato. Ticket#1926
+
+Versione 2.6g1 (10/07/2024)
+- (GEN) Se prima lavorazione con motosega, dopo G151 di attesa carrelli si ribadiscono tutti gli assi. Ticket#1924
+
+Versione 2.6f1 (03/06/2024)
+- (GEN) Aggiunta possibilità di scrivere nome utensile doppio anche in lavorazione con parametro "TOOLDOUBLE". Note sulla lavorazione hanno precedenza su note utensile.
+
+Versione 2.6e1 (30/04/2024)
+- (GEN) Chiamando la macchina con un nome che termini con '.TEST' si abilita come macchina per test interni, equivalente a settare 'IS_TEST_MACHINE' (che comunque rimane)
+- (SIM) In log collisioni, si scrive anche ID del gruppo per facilitare riconoscimento in caso di collisione
+- (MLDE-GEN) Gestione facoltativa parametro WOOD_DENSITY settabile in Ts3. In MLDE, mettere il valore di WOOD_DENSITY nella nostra variabile 'WoodDensity'.
+
 Versione 2.6d2 (12/04/2024)
- (MLDE-SIM-GEN) Aggiunta variabile FACOLTATIVA 'ForceToCloseRollersGate' ( che legge la variabile da TS3 'CHIUDI_RULLI_SCAMBIO') in mlde per forzare chiusura paratie rulli
+- (MLDE-SIM-GEN) Aggiunta variabile FACOLTATIVA 'ForceToCloseRollersGate' ( che legge la variabile da TS3 'CHIUDI_PINZE_2_3_SCAMBIO') in mlde per forzare chiusura paratie rulli
                 durante scambio pinze per facilitare passaggio pezzi molto storti. Se non presente chiude solo se necessario.

 Versione 2.6d1 (28/03/2024)
@@ -3,7 +3,7 @@

 local InfoCommon_STD_PP = {
   NAME = 'Common_ONE-PF',            -- nome script PP standard
-   VERSION = '2.6d2',                 -- versione script
+   VERSION = '2.7j2',                 -- versione script
   MIN_MACH_VER_PP_COMMON = '2.5k1'   -- versione minima kernel
 }
Author	SHA1	Message	Date
andrea.villa	a2c3e80b5b	Merge remote-tracking branch 'origin/master' into ProbingWithTool	2025-10-21 10:52:35 +02:00
andrea.villa	09baa44e02	#critical# Allineamento con common ver. 2.7j2	2025-10-21 10:51:45 +02:00
andrea.villa	a280c0ea3d	Merge branch 'master' into ProbingWithTool	2025-10-08 13:18:56 +02:00
andrea.villa	0dea456d13	Allineamento con common ver. 2.7j1	2025-10-08 13:17:42 +02:00
andrea.villa	9f3fbfe597	Merge branch 'master' into ProbingWithTool	2025-09-10 12:13:38 +02:00
andrea.villa	24d88cde41	Allineamento con common ver. 2.7i1, HOTFIX	2025-09-10 12:13:11 +02:00
andrea.villa	eeb9a93132	Aggiornato NGE con Aggregato BH	2025-09-10 11:21:07 +02:00
andrea.villa	76c52eecce	Merge branch 'master' into ProbingWithTool	2025-09-10 11:13:07 +02:00
andrea.villa	e5ee956c8e	Merge remote-tracking branch 'origin/develop'	2025-09-10 10:40:42 +02:00
andrea.villa	5e1c975ef7	- Allineamento common ver. 2.7i1 - Aggiunto solido collisione per tappeto	2025-09-10 10:40:28 +02:00
andrea.villa	842c491713	Merge branch 'NewAggregateBH' into develop	2025-09-10 10:38:33 +02:00
andrea.villa	09aacf8327	- Prima versione funzionante gestione motosega da sotto diretta verso l'alto - Aggiunto solido collisione a NGE	2025-08-29 15:58:05 +02:00
andrea.villa	9c7e546e47	Merge branch 'develop' into ProbingWithTool	2025-08-28 15:26:00 +02:00
andrea.villa	d49127232e	Merge branch 'develop' into NewAggregateBH	2025-08-28 15:21:27 +02:00
andrea.villa	6627aae2de	Merge branch 'master' into develop	2025-08-28 15:20:55 +02:00
andrea.villa	1b613a97a4	Allineamento con common ver. 2.7h2	2025-08-28 15:20:17 +02:00
andrea.villa	53e583b9d2	Merge branch 'master' into NewAggregateBH	2025-08-20 14:41:31 +02:00
andrea.villa	12e7ee1e0e	Allineamento con common ver. 2.7h1	2025-08-20 14:40:41 +02:00
andrea.villa	8c31dbcf51	Prima versione funzionante aggregato BH. Da testare in macchina!	2025-07-24 08:55:08 +02:00
andrea.villa	321a91ae5e	Merge remote-tracking branch 'origin/master' into ProbingWithTool	2025-07-23 12:29:53 +02:00
andrea.villa	4cc33e3b95	- Allineamento con common ver. 2.7g4 - Aggiunto parametro MaxBackClamp5	2025-07-23 12:25:52 +02:00
andrea.villa	a4b6a9c93f	Allineamento con common ver. 2.7g3	2025-07-22 11:22:06 +02:00
andrea.villa	dc4bf6f405	Aggiunta nuovo tipo di lavorazione	2025-07-21 09:00:48 +02:00
andrea.villa	fbea0da2dd	Allineamento con common ver. 2.7g2	2025-07-08 10:39:13 +02:00
andrea.villa	7284b417a9	Allineamento con common ver. 2.7g1	2025-07-01 10:41:34 +02:00
andrea.villa	449f03fb09	- IsToolCompatibleWithProbe spostata in MLDE - in OnPostApplyMachining si salta risalita se tastatura e utensile già precaricato. NB: serve CAM5 2.7f3	2025-06-30 16:02:09 +02:00
andrea.villa	7c91df35fc	- Spostate funzioni da MLPE a MLDE perchè servono anche a MLSE - In MLSE su lavorazione tastatura, si seleziona utensile di default sul mandrino per calcoli ingombri per paratie	2025-06-27 16:38:57 +02:00
andrea.villa	0d99310258	Cambiati limiti feed massima pinze	2025-06-25 09:58:27 +02:00
andrea.villa	0b49335c8e	Corretto calcolo accelerazioni massima/minima	2025-06-25 08:39:01 +02:00
andrea.villa	0d87a703ce	Corretto nome file	2025-06-23 17:58:31 +02:00
andrea.villa	475b0a7ebf	- Se si mantiene utensile vecchio, allora si ribadiscono i dati vecchi - Aggiunta lista lavorazioni probing	2025-06-23 15:06:38 +02:00
luca.mazzoleni	28c911ebe1	Merge branch 'master' of https://gitlab.steamware.net/egalware-machines/essetre/Essetre-PFrl	2025-06-23 15:03:33 +02:00
luca.mazzoleni	a613078e3f	update BeamData.GetSetupInfo per nuovo automatismo	2025-06-23 15:03:25 +02:00
andrea.villa	c54ddd02e9	Disattivazione tastatura spostata prima della risalita a Z massima	2025-06-20 11:39:26 +02:00
andrea.villa	fd9314ea5a	Aggiunto aggregato BIG per motosega	2025-06-20 10:27:07 +02:00
andrea.villa	d075af1a91	Corretta lettura posizione home testa 1	2025-06-18 18:20:59 +02:00
andrea.villa	f229fae4d3	Corretto segni movimento pre e post tastatura	2025-06-18 16:58:20 +02:00
andrea.villa	5219330a4d	Cambio versione per rilascio a Essetre	2025-06-18 15:26:14 +02:00
andrea.villa	fd85570cfd	Corretta disattivazione tastatura	2025-06-18 15:21:59 +02:00
andrea.villa	2adb157b28	- Corretto ingombro lavorazione in caso di tastatura - Migliorie generazione	2025-06-17 18:20:13 +02:00
andrea.villa	5e6121703c	- Se tastatura orizzontale, ci si alza sopra pezzo in sicurezza - Prima versione scrittura macro tastatura	2025-06-17 12:14:34 +02:00
andrea.villa	5316abecf4	In generazione, si seleziona utensile compatibile per tastatura	2025-06-17 10:34:02 +02:00
andrea.villa	f958dc8a0a	Simulazione con movimenti corretti.	2025-06-16 10:45:48 +02:00
andrea.villa	4989ae5d99	Prima versione funzionante in simulazione	2025-06-13 16:50:55 +02:00
andrea.villa	9ac0aafea0	Aggiunta lavorazione e primi test	2025-06-11 17:30:59 +02:00
andrea.villa	1c047b1890	Aggiunto testa in TC e varie info	2025-06-11 12:37:59 +02:00
andrea.villa	7eea1439c4	Prima versione gestione Probe con utensile dedicato	2025-06-11 11:00:25 +02:00
andrea.villa	7b35cccaf5	Corretto indice faccia e legato al tipo di macchina, carico desto o sinistro.	2025-06-11 10:02:37 +02:00
andrea.villa	da6d0bed2a	Movimento tastatura aumentato a 20mm. Poi bisognerà metterlo a configurazione	2025-06-11 09:29:08 +02:00
andrea.villa	75ff61f3dc	Cambio versione	2025-06-10 10:01:47 +02:00
andrea.villa	dba8997045	Quando fa tastatura, si scrivono comandi di start del movimento	2025-06-10 10:01:06 +02:00
andrea.villa	263758a422	Dopo tastatura ci si sposta nel punto delle lavorazione o in Z sopra al pezzo	2025-06-06 12:36:14 +02:00
andrea.villa	1e6bc44019	Tastatore portato a 170	2025-06-06 10:25:09 +02:00
andrea.villa	0909656a6c	Azzeramento tastatura con EF0	2025-06-06 10:23:08 +02:00
andrea.villa	23e17d9623	Prima della macro tastatura, si manda la testa nel punto dal quale azionare il tastatore. Per il momento si tasta sempre al centro della trave in altezza se facce verticali, o al centro in larghezza se faccia sopra. La posizione della trave invece è quella di lavorazione.	2025-06-06 09:17:32 +02:00
andrea.villa	7ba04b6e17	- Migliorata gestione presenza Probe - Probe settato false per default	2025-06-04 15:55:16 +02:00
andrea.villa	67401b8799	Piccola correzione calcolo accelerazioni	2025-06-04 15:46:54 +02:00
andrea.villa	8b9a77cdaf	- Allineamento con common ver. 2.7f1 - Gestione parametri accelerazioni pinze	2025-06-04 15:43:07 +02:00
andrea.villa	9662b22f03	Proma versione gestione PROBE	2025-06-04 11:48:35 +02:00
andrea.villa	9bbc62bea8	Allineamento con common ver.2.7e1	2025-05-28 15:24:17 +02:00
andrea.villa	20fd75ba0b	- Allineamento con common ver. 2.7d1 - Aggiornamento MachNotes - Lettura PRECUT per automatismo	2025-04-28 13:36:12 +02:00
andrea.villa	2632d4d9c6	#critical# Allineamento con common 2.7c3	2025-03-26 08:04:47 +01:00
andrea.villa	496ec40fdb	Allineamento con common ver. 2.7c2	2025-03-12 08:34:17 +01:00
andrea.villa	1bc286a92f	Allineamento con common ver. 2.7c1	2025-03-05 11:54:52 +01:00
luca.mazzoleni	6da804fe40	- modificata GetSetupInfo	2025-02-28 09:25:29 +01:00
luca.mazzoleni	fc157d1eba	- in BeamData GetSetupInfo modificate informazioni testa	2025-02-25 10:46:15 +01:00
luca.mazzoleni	039510e5e5	- in BeamData -> GetSetupInfo aggiunte informazioni testa davanti/dietro (bIsFrontHead, bIsBackHead)	2025-02-18 17:24:57 +01:00
andrea.villa	52c8944f0e	- Allineamento con common ver. 2.7b1 - Modifica NGE per collisioni con traversa	2025-02-07 13:01:41 +01:00
andrea.villa	1b1549498d	Allineamento con common ver. 2.7a1	2025-01-07 16:35:13 +01:00
andrea.villa	4e57b18cb9	- Allineamento con common ver. 2.6l2 - In GetZExtra contemplato anche casi sotto-squadra	2024-12-09 12:46:57 +01:00
andrea.villa	a545288258	- Allineamento common ver. 2.6l1 - Aggiunta variabile ROT180 per rotazioni nuovo automatismo	2024-12-02 08:43:36 +01:00
andrea.villa	61d0fa890f	Allineamento con common ver. 2.6j3	2024-10-21 17:00:20 +02:00
andrea.villa	8d6d329b6b	- Allineamento con common ver. 2.6j2 - Tolti i commenti iniziali da quando è stato creato progetto GIT	2024-10-17 12:34:40 +02:00
andrea.villa	47ac7ae18e	- Allineamento con common ver. 2.6j1	2024-10-08 11:51:02 +02:00
luca.mazzoleni	5e143cb4ce	update gitignore e YAML	2024-09-25 13:16:06 +02:00
luca.mazzoleni	5c7b8d6ebf	update gitignore e YAML	2024-09-24 14:59:28 +02:00
luca.mazzoleni	5d68fa58c8	- Modificato YAML per comunicazione versioni a LiMan. - Aggiunta PP_NVER, versione in formato numerico.	2024-09-18 17:22:19 +02:00
andrea.villa	caa0f04779	Piccole migliorie dopo test autmatici	2024-09-13 15:27:03 +02:00
andrea.villa	ee59374af0	- Allineamento con common ver. 2.6i2 - Inseriti in NGE solidi collisione TC	2024-09-13 11:59:31 +02:00
andrea.villa	b7986674f5	- Allineamento con common ver. 2.6i1 - File YML con prefisso di ricerca "Common_" per compilazione	2024-09-02 10:39:06 +02:00
andrea.villa	e651c59eca	- Allineamento con common ver. 2.6h2	2024-08-07 10:31:10 +02:00
andrea.villa	cfb08c7255	- Allineamento con common ver. 2.6h1	2024-08-01 12:58:36 +02:00
andrea.villa	c8b36bb31e	Tolto stato finale paratia carico	2024-07-31 17:29:41 +02:00
andrea.villa	766235ad22	Piccola correzione segni quote parcheggio	2024-07-31 15:24:40 +02:00
andrea.villa	e1035be99e	- Allineamento con common ver. 2.6g5	2024-07-31 11:11:18 +02:00
andrea.villa	ce76a9b50d	FixDeployAndCompile01	2024-07-23 09:26:22 +02:00
andrea.villa	7886853773	- Gestione pezzi fino a 30 metri - Allineamento con common ver. 2.6g4	2024-07-22 15:58:12 +02:00
andrea.villa	2532cc5e8e	Allineamento con common ver. 2.6g3	2024-07-17 16:03:25 +02:00
andrea.villa	a622a562f4	Allineamento con common ver. 2.6g2	2024-07-16 08:06:18 +02:00
andrea.villa	3c7a21df10	Allineamento con common ver. 2.6g1	2024-07-10 16:24:30 +02:00
andrea.villa	a94f892300	Modificato 'LimX1PlRotSaw' a 1970mm	2024-06-03 12:43:00 +02:00
andrea.villa	8d07babd5a	- Aggiunta funzione GetSetupInfo a BeamData per nuovo automatismo - Allineamento con common ver. 2.6f1	2024-06-03 12:34:22 +02:00
andrea.villa	adc6ec3df6	- Allineamento con common ver. 2.6e1 - Aggiunta variabile WoodDensity per gestione WOOD_DENSITY	2024-04-30 17:19:45 +02:00
luca.mazzoleni	ce8e591c2b	Merge branch 'develop'	2024-04-16 17:09:45 +02:00
luca.mazzoleni	8afb0c87f8	in yaml aggiunta copia in R anche per develop (senza versione)	2024-04-16 17:09:34 +02:00
luca.mazzoleni	50d3492c94	Merge branch 'develop'	2024-04-16 15:13:06 +02:00
luca.mazzoleni	083ff233d5	yaml lanciato solo per master	2024-04-16 15:12:42 +02:00
luca.mazzoleni	9d46048e57	aggiunto yaml per compilazione e copia su R	2024-04-16 13:23:55 +02:00