#critical# Allineamento con common 2.7c3

- Modifica NGE per collisioni con traversa

.gitlab-ci.yml

@@ -2,19 +2,27 @@ 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'
- DEST_MACHINES_PATH_R: 'R:\EgtData\Machines\zTestYAML'
+ 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
@@ -38,12 +46,29 @@ variables:
       echo "-----------------------"
       echo "   Copia macchina su R"
       echo "-----------------------"
-      ROBOCOPY /MIR "$env:SRC_PATH" "$env:DEST_MACHINES_PATH_R\$env:MACH_NAME\" /XD "bin"
-      ROBOCOPY "$env:TEST_PATH" "$env:DEST_MACHINES_PATH_R\$env:MACH_NAME_TEST\" /E /XD "bin"
-      ROBOCOPY /MIR "$env:BASE_PATH" "$env:DEST_MACHINES_PATH_R\Deploy\$env:MACH_NAME\$env:MACH_VERS\" /XD "bin" /XD "$env:MACH_NAME_TEST"
+      $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
    - |
@@ -53,7 +78,8 @@ variables:
       echo "-----------------------"
       echo "   Copia macchina su R - DEV"
       echo "-----------------------"
-      ROBOCOPY /MIR "$env:BASE_PATH" "$env:DEST_MACHINES_PATH_R\Deploy\$env:MACH_NAME\_DEV\$env:MACH_VERS\" /XD "bin" /XD "$env:MACH_NAME_TEST"
+      $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
 
@@ -66,8 +92,15 @@ variables:
       echo "-----------------------"
       echo "   Recupero file non git da R e copia su macchina virtuale"
       echo "-----------------------"
-      ROBOCOPY "$env:LAST_MACHINE_PATH" "$env:SRC_PATH" /E /XF "*.bat" /XF "*.yml" /XF ".gitignore" /XD ".git" /XF "UpdateLog.txt" /XD ".vscode"
-      ROBOCOPY "$env:LAST_MACHINE_PATH" "$env:SRC_PATH\bin\$env:MACH_NAME\" /E /XF "*.bat" /XF "*.yml" /XF ".gitignore" /XD ".git" /XF "UpdateLog.txt" /XD ".vscode"
+      # test se la cartella con gli utensili esiste per questa macchina
+      if (!(Test-Path -Path $env:TOOLS_MACHINE_PATH)) {
+      echo "-----------------------"
+      echo "CANNOT FIND TOOLS FOR THIS MACHINE!!"
+      echo "-----------------------"
+      Exit 1}
+      ROBOCOPY "$env:TOOLS_MACHINE_PATH" "$env:SRC_PATH" /E /XF "*.bat" /XF "*.yml" /XF ".gitignore" /XD ".git" /XF "UpdateLog.txt" /XD ".vscode"
+      ROBOCOPY "$env:TOOLS_MACHINE_PATH" "$env:TEST_PATH" /E /XF "*.bat" /XF "*.yml" /XF ".gitignore" /XD ".git" /XF "UpdateLog.txt" /XD ".vscode"
+      ROBOCOPY "$env:TOOLS_MACHINE_PATH" "$env:SRC_PATH\bin\$env:MACH_NAME\" /E /XF "*.bat" /XF "*.yml" /XF ".gitignore" /XD ".git" /XF "UpdateLog.txt" /XD ".vscode"
       SLEEP 2
       net use R: /delete
 
@@ -84,27 +117,27 @@ variables:
      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 di Common_*"
+     echo "   Compilazione file *.lua 32/64bit"
      echo "-----------------------"
-     $FileList = Get-ChildItem("Common_*")
+     $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"
      }
-     echo "-----------------------"
-     echo "   FINE Compilazione"
-     echo "-----------------------"
 
-# helper recupero nome macchina
+# helper recupero nome macchina e costruttore
 .machName-fix: &machName-fix
    - |
       echo "-----------------------"
-      echo "   Recupero nome macchina"
+      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
@@ -112,12 +145,22 @@ variables:
       echo "-----------------------"
       echo "   Calcolo versione"
       echo "-----------------------"
+
+      # calcolo versione formato stringa
       $fPath = "$env:MACH_NAME.mlde";
-      $vLine = Select-String -path $fPath -Pattern 'PP_VER';
+      $vLine = Select-String -path $fPath -Pattern '^PP_VER';
       $comp = $vLine -split "=";
       $env:MACH_VERS = $comp[1].Replace("'","").Trim()
-      # display versione
-      Write-Output $env:MACH_VERS;
+      # 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
@@ -129,7 +172,7 @@ variables:
       $commitAuthor = $commitAuthor[0].Trim()
       $env:MACH_VERS = $commitAuthor
       # display versione
-      Write-Output $env:MACH_VERS;
+      Write-Output $env:MACH_VERS
 
 # helper creazione folders 
 .folder-fix: &folder-fix
@@ -137,8 +180,8 @@ variables:
       echo "-----------------------"
       echo "   Creazione cartelle su macchina virtuale"
       echo "-----------------------"
-      $env:LAST_MACHINE_PATH = "$env:MACHINES_PATH_R\$env:MACH_NAME";
-      Write-Output  $env:LAST_MACHINE_PATH;
+      $env:TOOLS_MACHINE_PATH = "$env:MACHINES_PATH_R\$env:MANUFACTURER\_DefaultMachineSetup\$env:MACH_NAME"
+      Write-Output  $env:TOOLS_MACHINE_PATH
       $env:SRC_PATH = "$env:TEMP_PATH\$env:MACH_NAME\$env:MACH_VERS\$env:MACH_NAME";
       $env:BASE_PATH = "$env:TEMP_PATH\$env:MACH_NAME\$env:MACH_VERS";
       $env:TEST_PATH = "$env:TEMP_PATH\$env:MACH_NAME\$env:MACH_VERS\$env:MACH_NAME_TEST";
@@ -161,6 +204,39 @@ variables:
       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
@@ -189,6 +265,8 @@ LuaCompile:build:
    - *LuaCompile
    - *ZipClean
    - *ReplicaR
+   - *ReplicaStor01
+   - *SendToVersionsLog
 
 LuaCompileDev:build:
  stage: build
@@ -236,4 +314,5 @@ LuaCompileDev:build:
 #  script:    
 #    - *LuaCompile
 #    - *ZipClean
-#    - *ReplicaR
+#    - *ReplicaR
+

Beam/BeamData.lua

@@ -8,6 +8,7 @@ local BeamData = {
    RIGHT_LOAD = false,                        -- flag carico da destra
    SIMUL_VIEW_DIR = 2,                        -- 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
@@ -72,6 +73,8 @@ local BeamData = {
    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 +99,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
@@ -211,30 +216,41 @@ local function GetSetupInfo( sHead)
    local SetupInfo = {}
 
    -- dati comuni
-   SetupInfo.bIsCSymmetric = true
+   SetupInfo.bIsCSymmetrical = true
    SetupInfo.dCAxisEncumbrance = 180
    SetupInfo.bToolOnAggregate = false
+   SetupInfo.Head = {}
 
-   -- testa 5 assi da sopra
-   if sHead == 'H11' or sHead == 'H21' then
-      SetupInfo.bIsTopHead = true
-      SetupInfo.bIsBottomHead = not SetupInfo.bIsTopHead
-      SetupInfo.dMaxNegativeAngle = sin( -45)
-   -- lama su testa 5 assi da sopra
-   elseif sHead == 'H12' or sHead == 'H22' then
-      SetupInfo.bIsTopHead = true
-      SetupInfo.bIsBottomHead = not SetupInfo.bIsTopHead
-      SetupInfo.dMaxNegativeAngle = sin( -45)
+   -- 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)
+   -- 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)
    -- motosega 1
    elseif sHead == 'H13' or sHead == 'H23' then
-      SetupInfo.bIsTopHead = true
-      SetupInfo.bIsBottomHead = not SetupInfo.bIsTopHead
-      SetupInfo.dMaxNegativeAngle = 0
+      SetupInfo.HeadType = { bTop = true, bBottom = false}
+      SetupInfo.PreferredSide = {}
+      SetupInfo.dMinNz = 0
    -- motosega 2
    elseif sHead == 'H15' then
-      SetupInfo.bIsBottomHead = true
-      SetupInfo.bIsTopHead = not SetupInfo.bIsBottomHead
-      SetupInfo.dMaxPositiveAngle = 0
+      SetupInfo.HeadType = { bTop = false, bBottom = true}
+      SetupInfo.PreferredSide = {}
+      SetupInfo.dMaxNz = 0
    end
 
    return SetupInfo

Common_ONE-PF.NUM.mlpe

@@ -56,6 +56,7 @@ function OnProgramStart()
    end
    EmtOutput( sPrefixCommentLine..'('.. CSP_INFO..')')
    EmtOutput( sPrefixCommentLine..'('.. MACHINE_INFO..')\n')
+   EmtOutput( '(HEADER)')
    -- Se modalità test, aggiungo linee per muovere tappeto e alzare la testa (in automatico viene fatto dal main residente)
    if TEST_USE then
       EmitTestProgramStart()
@@ -103,6 +104,7 @@ function OnProgramEnd()
    EMT.SPECSPLIT = nil
    EMT.RELOAD = nil
    EMT.RELOAD2 = nil
+   EmtOutput( '(FOOTER)')
    -- Se modalità test, termino il programma
    if TEST_USE then
       EmtOutput( 'M02')
@@ -614,11 +616,15 @@ function OnMachiningEnd()
       EMT.PREVHEAD_H1 = EMT.HEAD
       EMT.PREVTCPOS_H1 = EMT.TCPOS
       EMT.PREVHOMEX_H1 = EgtGetAxisHomePos( 'X1')
+      EMT.PREVHOMEB_H1 = EgtGetAxisHomePos( 'B1')
+      EMT.PREVHOMEC_H1 = EgtGetAxisHomePos( 'C1')
    elseif nHSet == 2 then
       EMT.PREVTOOL_H2 = EMT.TOOL
       EMT.PREVHEAD_H2 = EMT.HEAD
       EMT.PREVTCPOS_H2 = EMT.TCPOS
       EMT.PREVHOMEX_H2 = EgtGetAxisHomePos( 'X2')
+      EMT.PREVHOMEB_H2 = EgtGetAxisHomePos( 'B2')
+      EMT.PREVHOMEC_H2 = EgtGetAxisHomePos( 'C2')
    end
 
    if EMT.DOU_TYPE and not EMT.ZMAX then EMT.DOU_TO_ZMAX = true end
@@ -684,6 +690,10 @@ function OnPathEnd()
    if not EMT.ZMAX then
       EmitResetMachining()
    end
+
+   -- salvo dati precedenti
+   EMT.L2pp = EMT.L2o
+
    EMT.AUXTYPE = nil
    EMT.UNL = nil
    EMT.PREROT = nil
@@ -868,14 +878,20 @@ function OnRapid()
                   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
                   EmitMoveDataHead( 1, { X=dXref, Z=MyMaxZ1, B=ParkB1, C=ParkC1, S=Speed})
+                  dZref = max( EMT.L3, dSafeZ1 + GetZExtra( EMT.HEAD, EMT.R2))
+                  dMoveXtoFinalPosition = true
                elseif not bMoveZbeforeX then
                   EmitMoveDataHead( 1, { X=dXref, Z=MyMaxZ1, B=ParkB1, C=ParkC1, S=Speed})
                else
                   EmitMoveDataHead( 1, { X=-LimX1PlRotSaw, Z=MyMaxZ1, B=ParkB1, C=ParkC1, S=Speed})
+                  dZref = max( EMT.L3, dSafeZ1 + GetZExtra( EMT.HEAD, EMT.R2))
+                  dMoveXtoFinalPosition = true
                end
    
                -- caso speciale per trave alta con rotazione lama pericolosa (tolto "and EMT.SB > 379")
@@ -886,6 +902,9 @@ function OnRapid()
                   if bMoveZbeforeX then
                      EmitMoveDataHead( 1, { Z=EMT.L3, S=Speed})
                   end
+                  if dMoveXtoFinalPosition then
+                     EmitMoveDataHead( 1, { X=EMT.L2, S=Speed})
+                  end
                -- caso standard
                else
                   EmitMoveDataHead( 1, { X=dXref, Z=dZref, B=ParkB1, C=ParkC1, S=Speed})
@@ -970,8 +989,8 @@ function OnRapid()
                   -- altrimenti caso standard
                   else
                      EmitMoveDataHead( 1, { Z=dZref, S=Speed})
-                     EmitMoveDataHead( 1, { B=EMT.R2, S=Speed})
                      EmitMoveDataHead( 1, { C=EMT.R1, S=Speed})
+                     EmitMoveDataHead( 1, { B=EMT.R2, S=Speed})
                   end
                -- altrimenti sega a catena
                else
@@ -1014,7 +1033,7 @@ function OnRapid()
                   EmitMoveWaitChars( EgtIf( bOnlyCharY, 1, 3))
                   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 = min( dSafeZ2 + GetZExtra( EMT.HEAD, EMT.R2) - 100, MyMaxZ2)
                   end
 
@@ -1029,18 +1048,23 @@ function OnRapid()
                   end
 
                   -- caso speciale per trave alta con rotazione lama pericolosa (tolto "and EMT.SB > 379")
-                  if EMT.HEAD == 'H22' and abs( PrevR1 - EMT.R1) > 1 and ( abs( HomeC2 - EMT.R1) > 30.1 or abs( HomeB2 - EMT.R2) > 30.1) then
-                     EmitMoveDataHead( 2, { B=0, S=Speed})
-                     EmitMoveDataHead( 2, { C=EMT.R1, S=Speed})
-                     EmitMoveDataHead( 2, { Z=dZref, B=EMT.R2, S=Speed})
-                     if bMoveZbeforeX then
-                        EmitMoveDataHead( 2, { Z=EMT.L3, S=Speed})
+                  if abs( PrevR1 - EMT.R1) > 1 and ( abs( HomeC2 - EMT.R1) > 30.1 or abs( HomeB2 - EMT.R2) > 30.1) then
+                     if EMT.HEAD == 'H22' then
+                        EmitMoveDataHead( 2, { B=0, S=Speed})
+                        EmitMoveDataHead( 2, { C=EMT.R1, S=Speed})
+                        EmitMoveDataHead( 2, { Z=dZref, B=EMT.R2, S=Speed})
+                        if bMoveZbeforeX then
+                           EmitMoveDataHead( 2, { Z=EMT.L3, S=Speed})
+                        end
+                     -- altrimenti caso standard
+                     else
+                        EmitMoveDataHead( 2, { Z=dZref, S=Speed})
+                        EmitMoveDataHead( 2, { B=EMT.R2, S=Speed})
+                        EmitMoveDataHead( 2, { C=EMT.R1, S=Speed})
+                        if bMoveZbeforeX then
+                           EmitMoveDataHead( 2, { Z=EMT.L3, S=Speed})
+                        end
                      end
-                  -- altrimenti caso standard
-                  else
-                     EmitMoveDataHead( 2, { Z=dZref, S=Speed})
-                     EmitMoveDataHead( 2, { B=EMT.R2, S=Speed})
-                     EmitMoveDataHead( 2, { C=EMT.R1, S=Speed})
                   end
                -- altrimenti sega a catena
                else
@@ -1121,7 +1145,7 @@ function OnRapid()
             end
             bToPresel = false
             -- risalita a Zmax
-            EmitZmax( false, false, EMT.TO_XHOME, PrevR1, PrevR2)
+            EmitZmax( false, false, EMT.TO_XHOME, PrevR1, PrevR2, nil, true)
             EMT.ZMAX = true
             EMT.TO_ZMAX = nil
             EMT.TO_XHOME = nil
@@ -1137,38 +1161,32 @@ function OnRapid()
          EMT.AUXCMD = {}
          -- se necessario posizionamento in home (sono sicuramente già a Zmax)
          if EMT.TO_XHOME then
-            local nHSet = GetHeadSet( EMT.HEAD)
-            local nPrevHSet = GetHeadSet( EMT.PREVHEAD)
-
-            -- se successivo non è sega a catena e la testa è la stessa, vado in home con utensile succesivo
-            if not HeadIsChainSaw( EMT.HEAD) and nHSet == nPrevHSet then
-               if nHSet == 1 then
-                  local HomeX1 = EgtGetAxisHomePos( 'X1')
-                  EmitMoveDataHead( 1, { X=-HomeX1, Z=MaxZ1, B=ParkB1, C=ParkC1})
-                  EmitMoveStartHead( 1, 'EA1')
-               else
-                  local HomeX2 = EgtGetAxisHomePos( 'X2')
-                  EmitMoveDataHead( 2, { X=-HomeX2, Z=MaxZ2, B=ParkB2, C=ParkC2})
-                  EmitMoveStartHead( 2, 'EA1')
-               end
-            else
+            -- se devo andare in home, ma lo sono già, non faccio nulla
+            if not EMT.XHOME then
+               local nHSet = GetHeadSet( EMT.HEAD)
+               local nPrevHSet = GetHeadSet( EMT.PREVHEAD)
+               -- vado in parcheggio sempre con utensile precedente
                if not HeadIsChainSaw( EMT.PREVHEAD) then
                   if nPrevHSet == 1 then
                      local HomeX1 = EgtGetAxisHomePos( 'X1')
-                     EmitMoveDataHead( 1, { X=-EMT.PREVHOMEX_H1, Z=MaxZ1, B=ParkB1, C=ParkC1, TPos=AdjustTcPos( false, EMT.PREVTCPOS_H1)})
+                     EmitMoveDataHead( 1, { X=-EMT.PREVHOMEX_H1, Z=MaxZ1, B=EMT.PREVHOMEB_H1, C=EMT.PREVHOMEC_H1, TPos=AdjustTcPos( false, EMT.PREVTCPOS_H1)})
                      EmitMoveStartHead( 1, 'EA1')
+                     EmitMoveWaitHead( 1)
                   else
                      local HomeX2 = EgtGetAxisHomePos( 'X2')
-                     EmitMoveDataHead( 2, { X=-EMT.PREVHOMEX_H2, Z=MaxZ2, B=ParkB2, C=ParkC2, TPos=AdjustTcPos( false, EMT.PREVTCPOS_H2)})
+                     EmitMoveDataHead( 2, { X=-EMT.PREVHOMEX_H2, Z=MaxZ2, B=EMT.PREVHOMEB_H2, C=EMT.PREVHOMEC_H2, TPos=AdjustTcPos( false, EMT.PREVTCPOS_H2)})
                      EmitMoveStartHead( 2, 'EA1')
+                     EmitMoveWaitHead( 2)
                   end
                else
                   if GetHeadTCSet( EMT.PREVHEAD, EMT.PREVTCPOS) == 'Head1_TC1' or GetHeadTCSet( EMT.PREVHEAD, EMT.PREVTCPOS) == 'Head1_TC2' then
                      EmitMoveDataHead( 1, { X=-ParkCSawX1S, Z=MaxZ1, B=HomeR2, C=HomeR1, TPos='50'})
                      EmitMoveStartHead( 1, 'EA1')
+                     --EmitMoveWaitHead( 1)
                   else
                      EmitMoveDataHead( 2, { X=-ParkCSawX2S, Z=MaxZ2, B=HomeR2, C=HomeR1, TPos='50'})
                      EmitMoveStartHead( 2, 'EA1')
+                     --EmitMoveWaitHead( 2)
                   end
                end
             end
@@ -1234,14 +1252,20 @@ function OnRapid()
                      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
                      EmitMoveDataHead( 1, { X=dXref, Z=CurrZ1, B=CurrB1, C=CurrC1, TRad=dTRad, TLen=dTLen, S=Speed})
+                     dZref = max( EMT.L3, dSafeZ1 + GetZExtra( EMT.HEAD, EMT.R2))
+                     dMoveXtoFinalPosition = true
                   elseif not bMoveZbeforeX then
                      EmitMoveDataHead( 1, { X=dXref, Z=CurrZ1, B=CurrB1, C=CurrC1, TRad=dTRad, TLen=dTLen, S=Speed})
                   else
                      EmitMoveDataHead( 1, { X=CurrX1, Z=CurrZ1, B=CurrB1, C=CurrC1, TRad=dTRad, TLen=dTLen, S=Speed})
+                     dZref = max( EMT.L3, dSafeZ1 + GetZExtra( EMT.HEAD, EMT.R2))
+                     dMoveXtoFinalPosition = true
                   end
 
                   -- caso speciale per trave alta con rotazione lama pericolosa (tolto "and EMT.SB > 379")
@@ -1252,6 +1276,9 @@ function OnRapid()
                      if bMoveZbeforeX then
                         EmitMoveDataHead( 1, { Z=EMT.L3, S=Speed})
                      end
+                     if dMoveXtoFinalPosition then
+                        EmitMoveDataHead( 1, { X=EMT.L2, S=Speed})
+                     end
                   -- altrimenti caso standard
                   else
                      EmitMoveDataHead( 1, { Z=dZref, S=Speed})
@@ -1341,8 +1368,8 @@ function OnRapid()
                         -- altrimenti caso standard
                      else
                         EmitMoveDataHead( 1, { Z=dZref, S=Speed})
-                        EmitMoveDataHead( 1, { B=EMT.R2, S=Speed})
                         EmitMoveDataHead( 1, { C=EMT.R1, S=Speed})
+                        EmitMoveDataHead( 1, { B=EMT.R2, S=Speed})
                      end
                   -- altrimenti sega a catena
                   else
@@ -1380,7 +1407,7 @@ function OnRapid()
 
                      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 > -LimX2RotSaw, EMT.L2 > -LimX2RotSaw) or EMT.R2 < -91) then
                         dZref = min( dSafeZ2 + GetZExtra( EMT.HEAD, EMT.R2) - 100, MyMaxZ2)
                      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
@@ -1395,18 +1422,23 @@ function OnRapid()
                      end
 
                      -- caso speciale per trave alta con rotazione lama pericolosa (tolto "and EMT.SB > 379")
-                     if EMT.HEAD == 'H22' and abs( PrevR1 - EMT.R1) > 1 and ( abs( HomeC2 - EMT.R1) > 30.1 or abs( HomeB2 - EMT.R2) > 30.1) then
-                        EmitMoveDataHead( 2, { B=0, S=Speed})
-                        EmitMoveDataHead( 2, { C=EMT.R1, S=Speed})
-                        EmitMoveDataHead( 2, { Z=dZref, B=EMT.R2, S=Speed})
-                        if bMoveZbeforeX then
-                           EmitMoveDataHead( 2, { Z=EMT.L3, S=Speed})
+                     if abs( PrevR1 - EMT.R1) > 1 and ( abs( HomeC2 - EMT.R1) > 30.1 or abs( HomeB2 - EMT.R2) > 30.1) then
+                        if EMT.HEAD == 'H22' then
+                           EmitMoveDataHead( 2, { B=0, S=Speed})
+                           EmitMoveDataHead( 2, { C=EMT.R1, S=Speed})
+                           EmitMoveDataHead( 2, { Z=dZref, B=EMT.R2, S=Speed})
+                           if bMoveZbeforeX then
+                              EmitMoveDataHead( 2, { Z=EMT.L3, S=Speed})
+                           end
+                        -- altrimenti caso standard
+                        else
+                           EmitMoveDataHead( 2, { Z=dZref, S=Speed})
+                           EmitMoveDataHead( 2, { B=EMT.R2, S=Speed})
+                           EmitMoveDataHead( 2, { C=EMT.R1, S=Speed})
+                           if bMoveZbeforeX then
+                              EmitMoveDataHead( 2, { Z=EMT.L3, S=Speed})
+                           end
                         end
-                     -- altrimenti caso standard
-                     else
-                        EmitMoveDataHead( 2, { Z=dZref, S=Speed})
-                        EmitMoveDataHead( 2, { B=EMT.R2, S=Speed})
-                        EmitMoveDataHead( 2, { C=EMT.R1, S=Speed})
                      end
                   -- altrimenti sega a catena
                   else
@@ -1943,6 +1975,9 @@ function PrepareMoveChar( sCmd, nInd)
          table.insert( EMT.MDCHAR, MDChar)
          EMT.Y1POS = MoveY1 or EMT.Y1POS
          EMT.TPOS = GetCmdAxMove( Cmd, 'T') or EMT.TPOS
+         if EMT.V1POS < 400 and ( EMT.HEAD == 'H12' or EMT.HEAD == 'H22') and EMT.ZMAX and not EMT.XHOME then
+            EMT.TO_XHOME = true
+         end
       end
    elseif Cmd[1] == '2' then
       local MDChar = { IniStatY1=EMT.ISY1, FinStatY1=EMT.FSY1, IniStatY2=EMT.ISY2, FinStatY2=EMT.FSY2, BeamVise=EMT.BV}
@@ -1970,6 +2005,9 @@ function PrepareMoveChar( sCmd, nInd)
       end
       table.insert( EMT.MDCHAR, MDChar)
       EMT.TPOS = GetCmdAxMove( Cmd, 'T') or EMT.TPOS
+      if EMT.V1POS < 400 and ( EMT.HEAD == 'H12' or EMT.HEAD == 'H22') and EMT.ZMAX and not EMT.XHOME then
+         EMT.TO_XHOME = true
+      end
    elseif Cmd[1] == '3' then
       local MDChar = { IniStatY1=EMT.ISY1, FinStatY1=EMT.FSY1, IniStatY2=EMT.ISY2, FinStatY2=EMT.FSY2, BeamVise=EMT.BV}
       local MoveY1 = GetCmdAxMove( Cmd, 'Y1')
@@ -1996,6 +2034,9 @@ function PrepareMoveChar( sCmd, nInd)
       end
       table.insert( EMT.MDCHAR, MDChar)
       EMT.TPOS = GetCmdAxMove( Cmd, 'T') or EMT.TPOS
+      if EMT.V1POS < 400 and ( EMT.HEAD == 'H12' or EMT.HEAD == 'H22') and EMT.ZMAX and not EMT.XHOME then
+         EMT.TO_XHOME = true
+      end
    elseif Cmd[1] == '4' then
       -- richiesta movimento a ZMAX già gestita
       if Cmd[2] == '1' then
@@ -2234,7 +2275,7 @@ function PreparePreRotation( sCmd, nInd)
             MDChar = { Y2=ParkY2, V2=ParkV2, IniStatY2=1, FinStatY2=1, BeamVise=0}
             table.insert( EMT.MDCHAR, MDChar)
             MDChar = { [Cmd[2]]=tonumber(Cmd[3]), IniStatY1=86, FinStatY1=87, BeamVise=0}
-         elseif EMT.SPECSPLIT then
+         elseif EMT.SPECSPLIT or EMT.SPLITROT then
             MDChar = { [Cmd[2]]=tonumber(Cmd[3]), V1=ParkV1, IniStatY1=EMT.ISY1, FinStatY1=EMT.FSY1, IniStatY2=EMT.ISY2, FinStatY2=EMT.FSY2, IniStatV1=3, BeamVise=EMT.BV}
             EMT.V1POS = MDChar.V1
          else
@@ -2677,6 +2718,9 @@ function EmitZmax( bReset, bEnd, bXhome, PrevR1, PrevR2, bSplitCut, bUsePrevDelt
    end
    -- gruppo della testa
    local nHSet = GetHeadSet( EMT.HEAD)
+   local dXPos = EgtIf( bUsePrevDelta, EMT.L2pp or EMT.L2o, EMT.L2o)
+   -- reset stato di testa in home
+   EMT.XHOME = nil
    -- se testa 1
    if nHSet == 1 then
       -- posizioni sicure
@@ -2695,13 +2739,13 @@ function EmitZmax( bReset, bEnd, bXhome, PrevR1, PrevR2, bSplitCut, bUsePrevDelt
          if not HeadIsChainSaw( EMT.HEAD) then
             -- eseguo la salita a Z1max (oriento solo se assi rotanti non già a posto)
             if abs( dSafeC1 - PrevR1) > 0.1 or abs( dSafeB1 - PrevR2) > 0.1 then
-               local dZref = dSafeZ1 + GetZExtra( EMT.HEAD, PrevR2)
-               if EgtIf( BD.RIGHT_LOAD, -EMT.L2o < -LimX1RotSaw, -EMT.L2o > -LimX1RotSaw) then
+               local dZref = dSafeZ1 + GetZExtra( EMT.HEAD, EgtClamp( PrevR2, -90, 90))
+               if EgtIf( BD.RIGHT_LOAD, -dXPos < -LimX1RotSaw, -dXPos > -LimX1RotSaw) then
                   dZref = dZref - EgtIf( not Mortiser, 100, 370)
                end
                dZref = min( dZref, dMaxZ1)
                local MovH = { Z = EgtIf( dZref > EMT.L3o, dZref, EMT.L3o)}
-               MovH.X = -EMT.L2o ; MovH.B = EgtClamp( PrevR2, -90, 90) ;  MovH.C = PrevR1 ;
+               MovH.X = -dXPos ; MovH.B = EgtClamp( PrevR2, -90, 90) ;  MovH.C = PrevR1 ;
                EmitMoveDataHead( 1, MovH)
                if EMT.HEAD == 'H12' and ( abs( dSafeC1 - PrevR1) > 30.1 or abs( dSafeB1 - PrevR2) > 30.1) then
                   EmitMoveDataHead( 1, { Z=dMaxZ1, B=0})
@@ -2711,10 +2755,13 @@ function EmitZmax( bReset, bEnd, bXhome, PrevR1, PrevR2, bSplitCut, bUsePrevDelt
                EmitMoveDataHead( 1, { Z=dMaxZ1})
             else
                local MovH = { Z = dMaxZ1}
-               MovH.X = -EMT.L2o ; MovH.B = PrevR2 ; MovH.C = PrevR1 ;
+               MovH.X = -dXPos ; MovH.B = PrevR2 ; MovH.C = PrevR1 ;
                EmitMoveDataHead( 1, MovH)
             end
-            if bXhome then EmitMoveDataHead( 1, { X=-dSafeX1}) end
+            if bXhome then 
+               EMT.XHOME = true
+               EmitMoveDataHead( 1, { X=-dSafeX1})
+            end
             EmitMoveStartHead( 1)
             -- se lavorazione in doppio
             if EMT.DOU_TYPE == 2 then
@@ -2724,14 +2771,15 @@ function EmitZmax( bReset, bEnd, bXhome, PrevR1, PrevR2, bSplitCut, bUsePrevDelt
          -- altrimenti sega a catena
          else
             -- ribadisco movimento perchè in G141 si aspetta sempre tutti i valori
-            local MovH = { X = -EMT.L2o, Z = EMT.L3o, B = PrevR2, C = PrevR1}
+            local MovH = { X = -dXPos, Z = EMT.L3o, B = PrevR2, C = PrevR1}
             EmitMoveDataHead( 1, MovH)
             EmitMoveDataHead( 1, { Z=dSafeZ1, B=dSafeB1})
-            if EMT.SB > 650 and abs( EMT.R3) < 0.1 then
+            if EMT.R3 and abs( EMT.R3) < 0.1 then
                EmitMoveDataHead( 1, { Z=ParkCSawZ1})
             end
             EmitMoveDataHead( 1, { X=-dSafeX1, C=dSafeC1})
             if bXhome then
+               EMT.XHOME = true
                EmitMoveDataHead( 1, { X=-ParkX1, Z=ParkCSawZ1, B=ParkB1, C=ParkC1, TPos=50})
             end
             EmitMoveStartHead( 1)
@@ -2746,9 +2794,9 @@ function EmitZmax( bReset, bEnd, bXhome, PrevR1, PrevR2, bSplitCut, bUsePrevDelt
                local dZref = dSafeZ1 + GetZExtra( EMT.HEAD, PrevR2)
                dZref = min( dZref, dMaxZ1)
                local MovH = { Z = EgtIf( dZref > EMT.L3o, dZref, EMT.L3o)}
-               MovH.X = -EMT.L2o ; MovH.B = EgtClamp( PrevR2, -90, 90) ; MovH.C = PrevR1 ;
+               MovH.X = -dXPos ; MovH.B = EgtClamp( PrevR2, -90, 90) ; MovH.C = PrevR1 ;
                EmitMoveDataHead( 1, MovH)
-               if EMT.HEAD == 'H12' and ( abs( dSafeC1 - PrevR1) > 30.1 or abs( dSafeB1 - PrevR2) > 30.1) then
+               if EMT.HEAD == 'H12' and ( abs( dSafeC1 - PrevR1) > 30.1 or abs( dSafeB1 - PrevR2) > 30.1) or not( bProgress) then
                   EmitMoveDataHead( 1, { Z=dMaxZ1, B=0})
                end
                EmitMoveDataHead( 1, { C=dSafeC1})
@@ -2756,23 +2804,27 @@ function EmitZmax( bReset, bEnd, bXhome, PrevR1, PrevR2, bSplitCut, bUsePrevDelt
                EmitMoveDataHead( 1, { Z=dMaxZ1})
             else
                local MovH = { Z = dMaxZ1}
-               MovH.X = -EMT.L2o ; MovH.B = PrevR2 ; MovH.C = PrevR1 ;
+               MovH.X = -dXPos ; MovH.B = PrevR2 ; MovH.C = PrevR1 ;
                EmitMoveDataHead( 1, MovH)
             end
-            if bXhome then EmitMoveDataHead( 1, { X=-dSafeX1}) end
+            if bXhome then
+               EMT.XHOME = true
+               EmitMoveDataHead( 1, { X=-dSafeX1})
+            end
             EmitMoveStartHead( 1)
             EmitMoveWaitHead( 1)
          -- altrimenti sega a catena
          else
             -- ribadisco movimento perchè in G141 si aspetta sempre tutti i valori
-            local MovH = { X = -EMT.L2o, Z = EMT.L3o, B = PrevR2, C = PrevR1}
+            local MovH = { X = -dXPos, Z = EMT.L3o, B = PrevR2, C = PrevR1}
             EmitMoveDataHead( 1, MovH)
             EmitMoveDataHead( 1, { Z=dSafeZ1, B=dSafeB1})
-            if EMT.SB > 650 and abs( EMT.R3) < 0.1 then
+            if EMT.R3 and abs( EMT.R3) < 0.1 then
                EmitMoveDataHead( 1, { Z=ParkCSawZ1})
             end
             EmitMoveDataHead( 1, { X=-dSafeX1, C=dSafeC1})
             if bXhome then
+               EMT.XHOME = true
                EmitMoveDataHead( 1, { X=-ParkX1, Z=ParkCSawZ1, B=ParkB1, C=ParkC1, TPos=50})
             end
             EmitMoveStartHead( 1)
@@ -2799,7 +2851,7 @@ function EmitZmax( bReset, bEnd, bXhome, PrevR1, PrevR2, bSplitCut, bUsePrevDelt
             local dZref = dSafeZ2 + GetZExtra( EMT.HEAD, PrevR2)
             dZref = min( dZref, dMaxZ2)
             local MovH = { Z = EgtIf( dZref > EMT.L3o, dZref, EMT.L3o)}
-            MovH.X = -EMT.L2o ; MovH.B = EgtClamp( PrevR2, -90, 90) ; MovH.C = PrevR1 ;
+            MovH.X = -dXPos ; MovH.B = EgtClamp( PrevR2, -90, 90) ; MovH.C = PrevR1 ;
             EmitMoveDataHead( 2, MovH)
             if EMT.HEAD == 'H22' and ( abs( dSafeC2 - PrevR1) > 30.1 or abs( dSafeB2 - PrevR2) > 30.1) then
                EmitMoveDataHead( 2, { Z=dMaxZ2, B=0})
@@ -2809,23 +2861,27 @@ function EmitZmax( bReset, bEnd, bXhome, PrevR1, PrevR2, bSplitCut, bUsePrevDelt
             EmitMoveDataHead( 2, { Z=dMaxZ2})
          else
             local MovH = { Z = dMaxZ2}
-            MovH.X = -EMT.L2o ; MovH.B = PrevR2 ; MovH.C = PrevR1 ;
+            MovH.X = -dXPos ; MovH.B = PrevR2 ; MovH.C = PrevR1 ;
             EmitMoveDataHead( 2, MovH)
          end
-         if bXhome then EmitMoveDataHead( 2, { X=-dSafeX2}) end
+         if bXhome then
+            EMT.XHOME = true
+            EmitMoveDataHead( 2, { X=-dSafeX2})
+         end
          EmitMoveStartHead( 2)
          EmitMoveWaitHead( 2)
       -- altrimenti sega a catena
       else
          -- ribadisco movimento perchè in G141 si aspetta sempre tutti i valori
-         local MovH = { X = -EMT.L2o, Z = EMT.L3o, B = PrevR2, C = PrevR1}
+         local MovH = { X = -dXPos, Z = EMT.L3o, B = PrevR2, C = PrevR1}
          EmitMoveDataHead( 2, MovH)
          EmitMoveDataHead( 2, { Z=dSafeZ2, B=dSafeB2})
-         if EMT.SB > 650 and abs( EMT.R3) < 0.1 then
+         if EMT.R3 and abs( EMT.R3) < 0.1 then
             EmitMoveDataHead( 2, { Z=ParkCSawZ2})
          end
          EmitMoveDataHead( 2, { X=-dSafeX2, C=dSafeC2})
          if bXhome then
+            EMT.XHOME = true
             EmitMoveDataHead( 2, { X=-ParkX2, Z=ParkCSawZ2, B=ParkB2, C=ParkC2, TPos=50})
          end
          EmitMoveStartHead( 2)
@@ -2922,17 +2978,27 @@ function EmitParkRoller( dPosT, bSplitCut, bUsePrevDelta)
       local DiffY2 = MyParkY2 - dPosY2
       --EmtOutput( string.format( 'PosT=%.3f DiffY1=%.3f DiffY2=%.3f', dPosT, DiffY1, DiffY2))
       if bSplitCut then
+         local bYNoMove, bVNoMove
          if DiffY1 > 0.1  then
+            bYNoMove = false
             MDChar.Y1 = dPosY1 + DiffY1
          else
+            bYNoMove = true
             MDChar.Y1 = dPosY1
          end
          if DiffY2 < -0.1 then
+            bVNoMove = false
             MDChar.Y2 = dPosY2 + DiffY2
             dPosT = dPosT + DiffY2
          else
+            bVNoMove = true
             MDChar.Y2 = dPosY2
          end
+         -- se anche solo una morsa è restata in posizione, le sposto comunque entrambe di 5mm per distanziare i pezzi separati
+         if bYNoMove or bVNoMove then
+            MDChar.Y1 = MDChar.Y1 + 5
+            MDChar.Y2 = MDChar.Y2 - 5
+         end
       elseif DiffY1 > 0.1 and DiffY2 < -0.1 then
          EmtSetLastError( 1201, 'Error Collision in ParkRoller')
       elseif DiffY1 > 0.1  then

Common_ONE-PF.mlpe

@@ -121,7 +121,13 @@ function OnSimulStart()
                      { Grp = 'Base', Sub = 'COLLISION', Name = 'COL2'},
                      { Grp = 'Base', Sub = 'COLLISION', Name = 'TC1'},
                      { Grp = 'Base', Sub = 'COLLISION', Name = 'TC2'},
-                     { Grp = 'Base', Sub = 'BELT', Name = 'COLLISION'}}
+                     { Grp = 'Base', Sub = 'BELT', Name = 'COLLISION'},
+                     { Grp = 'X1', Sub = 'COLLISION', Name = 'STM'}}
+   
+   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
       table.insert( McdData, { Grp = 'Base', Sub = 'COLLISION', Name = 'CHSAW'})
@@ -351,6 +357,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()
@@ -960,6 +968,7 @@ function OnSimulMoveStart()
    VerifyY2Stroke( EMT.A2)
    VerifyV1Stroke( EMT.A3)
    VerifyV2Stroke( EMT.A4)
+   
    -- se devo subito parcheggiare i rulli
    local nRes = 0
    if bParkV then
@@ -1001,15 +1010,21 @@ function OnSimulMoveStart()
                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
 
                -- caso speciale per trave alta con rotazione lama pericolosa (tolto "and EMT.SB > 379")
@@ -1020,6 +1035,9 @@ function OnSimulMoveStart()
                   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)
@@ -1089,8 +1107,8 @@ function OnSimulMoveStart()
                   -- 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)
@@ -1137,9 +1155,9 @@ function OnSimulMoveStart()
                   --EgtOutBox( 'Flag 2,1', 'Info 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                  
+                  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
@@ -1150,18 +1168,23 @@ function OnSimulMoveStart()
                      SimulMoveAxis( 'X2', LimX2RotSaw, MCH_SIM_STEP.RAPID)
                   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)
-                     if bMoveZbeforeX then
-                        SimulMoveAxis( 'Z2', EMT.L3, MCH_SIM_STEP.RAPID)
+                  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
-                  -- 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)
                   end
                end
             -- altrimenti sega a catena
@@ -1261,6 +1284,7 @@ function OnSimulMoveStart()
       EMT.A4 = EgtIf( GetV2ToClose(), EMT.V2NEXTPOS, ParkV2)
    end
    EMT.ZMAX = nil
+   EMT.XHOME = nil
 end
 
 ---------------------------------------------------------------------
@@ -1369,6 +1393,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)
@@ -1391,6 +1419,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,
@@ -1414,6 +1446,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,
@@ -1594,7 +1630,7 @@ function ExecMoveZmax( bMchSplit, btoXHome)
       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)
+               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
@@ -1607,6 +1643,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
@@ -1618,6 +1655,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
@@ -1625,7 +1663,7 @@ 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
+            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)
@@ -1636,7 +1674,7 @@ function ExecMoveZmax( bMchSplit, btoXHome)
             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
+               if EMT.HEAD == 'H12' and ( abs( HomeC - CurrC) > 30.1 or abs( HomeB - CurrB) > 30.1) or not( bProgress) then
                   SimulMoveAxes( 'Z1', MaxZ1, MCH_SIM_STEP.RAPID, 'B1', 0, MCH_SIM_STEP.COLLROT)
                end
                SimulMoveAxis( 'C1', HomeC, MCH_SIM_STEP.COLLROT)
@@ -1644,12 +1682,13 @@ 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
          -- 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
+            if EMT.R3 and abs( EMT.R3) < 0.1 then
                SimulMoveAxis( 'Z1', ParkCSawZ1, MCH_SIM_STEP.RAPID)
             end
             if btoXHome then
@@ -1659,6 +1698,7 @@ function ExecMoveZmax( bMchSplit, btoXHome)
                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
@@ -1679,12 +1719,13 @@ 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
       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
+         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)
@@ -1814,8 +1855,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 5mm ulteriori
+         else
+            dAddMove = 5
+         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

Common_ONE-PF.mlse

@@ -73,7 +73,7 @@ function OnSpecialGetMaxZ()
          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
+      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 +95,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 +124,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
@@ -1423,7 +1423,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

Essetre-PF.mlde

@@ -24,59 +24,16 @@
 -- 2023/02/02 ver 2.5b1 Aggiunte lavorazioni in doppio e 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.
--- 2023/03/20 ver 2.5c2 Abbassato a 379 limite trave alta per discesa passando da B0.
--- 2023/03/23 ver 2.5c3 Corretti valori risalita a Zsafe per frese e lame (mlse).
--- 2023/04/05 ver 2.5d1 Riportate modifiche da PFrl compresa eliminazione H14. Migliorata gestione Pinza5 e aggiunto DeltaW.
--- 2023/04/05 ver 2.5d2 In generazione CN corretta verifica movimenti pinze o rulli per necessità G151/G152.
--- 2023/04/20 ver 2.5d3 Aggiunta gestione AggLoad da sommare a V1 quando movimento causato da Y1 per AuxCmd (flag * da mlse).
--- 2023/04/21 ver 2.5d4 Migliorato riposizionamento testa trave dopo scambio carrelli (ExtraParkV a 100).
--- 2023/05/05 ver 2.5e1 Corretta deselezione utensile sega a catena in simulazione.
--- 2023/05/09 ver 2.5e2 Corretto riposizionamento carrelli su split con pezzi a caduta. In generazione CN corretto controllo conservazione piano impostato.
--- 2023/06/09 ver 2.5f1 In genera CN corretta risalita in Z come in simulazione (riportata da PFrl).
--- 2023/06/12 ver 2.5f2 Corretta distanza Back per aggiuntivo al carico prima di scambi carrelli.
--- 2023/06/15 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.5j1 In BeamData e mlde aggiunta la lettura di alcuni parametri da Ts3Data.
--- 2023/10/24 ver 2.5j2 Allo scarico pezzo, se necessario si apre paratia 3 (V2) prima dello scarico effettivo perchè questo senza attesa termine esecuzione.
--- 2023/11/07 ver 2.5k1 Corretto comportamento in simulazione se motosega come prima lavorazione della fase.
--- 2023/11/28 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
--- 2024/01/23 ver 2.6a4 Allineamento con common ver 2.6a4
---                      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/29 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/05 ver 2.6c3 Allineamento con common ver. 2.6c3
---                      In mlde aggiunto parametro EstimationRapidMultiplier per correggere la stima tempi su macchine vecchie. Letto anche da TS3v7 come COEFF_STIMATEMPI.
--- 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
--- 2024/04/30 ver 2.6e1 Allineamento con common ver. 2.6e1
---                      Aggiunta variabile WoodDensity per gestione WOOD_DENSITY
--- 2024/06/03 ver 2.6f1 Aggiunta funzione GetSetupInfo a BeamData per nuovo automatismo
---                      Allineamento con common ver. 2.6f1
--- 2024/07/10 ver 2.6g1 Allineamento con common ver. 2.6g1
--- 2024/07/16 ver 2.6g2 Allineamento con common ver. 2.6g2
--- 2024/07/17 ver 2.6g3 Allineamento con common ver. 2.6g3
--- 2024/07/22 ver 2.6g4 Gestione pezzi fino a 30 metri
---                      Allineamento con common ver. 2.6g4
--- 2024/07/31 ver 2.6g5 Allineamento con common ver. 2.6g5
---                      Aggiunta file note tool e machining
--- 2024/08/01 ver 2.6h1 Allineamento con common ver. 2.6h1
--- 2024/08/07 ver 2.6h2 Allineamento con common ver. 2.6h2
--- 2024/09/02 ver 2.6i1 Allineamento con common ver. 2.6i1
--- 2024/09/13 ver 2.6i2 Allineamento con common ver. 2.6i2
---                      Inseriti in NGE solidi collisione TC, Aggiunta avriabile LimX1RotSawTC2
+-------------------------------------
+-- NOTE VERSIONI SUCCESSIVE IN GIT --
+-------------------------------------
 
 -- Intestazioni
 require( 'EmtGenerator')
 EgtEnableDebug( false)
 
-PP_VER = '2.6i2'
+PP_VER = '2.7c3'
+PP_NVER = '2.7.3.3'
 MIN_MACH_VER = '2.5k1'
 MACH_NAME = 'Essetre-PF'
 
@@ -342,7 +299,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',
@@ -416,7 +373,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',
@@ -452,6 +409,7 @@ local B2Id = EmtAxis {
       Aux = {'B2_AXIS/SOLID', 'B2_AXIS/COLLISION'}}
 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)
@@ -835,7 +793,9 @@ if Mortiser then
    EgtMove( EgtGetFirstNameInGroup( BaseId, 'TC4') 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 - 1550.0), ( DeltaTabZ + 1010.0))
@@ -921,7 +881,7 @@ end
 
 ---------------------------------------------------------------------
 function GetHeadSet( sHead)
-   if sHead == 'H11' or sHead == 'H12' then
+   if sHead == 'H11' or sHead == 'H12' or sHead == 'H13' or sHead == 'H15' then
       return 1
    elseif sHead == 'H21' or sHead == 'H22' or sHead == 'H23' then
       return 2
@@ -1007,7 +967,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
@@ -1019,7 +979,9 @@ 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

UpdateLog.txt

@@ -1,5 +1,48 @@
            ==== Common_ONE-PF Update Log ====
 
+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

Version.lua

@@ -3,7 +3,7 @@
 
 local InfoCommon_STD_PP = {
    NAME = 'Common_ONE-PF',            -- nome script PP standard
-   VERSION = '2.6i2',                 -- versione script
+   VERSION = '2.7c3',                 -- versione script
    MIN_MACH_VER_PP_COMMON = '2.5k1'   -- versione minima kernel
 }