Merge remote-tracking branch 'origin/develop'

- Cambio versione per rilascio a cliente

Common_ONE-PF.NUM.mlpe

@@ -680,7 +680,7 @@ function OnPathStart()
    if EMT.TOOL == EMT.PREVTOOL and not EMT.ZMAX then
       EMT.L1pp = EMT.L1op
       EMT.L2pp = EMT.L2op
-      EMT.L3pp = EMT.L3op
+      EMT.L3pp = EMT.L3op or EMT.L3pp
       EMT.R1pp = EMT.R1p or EMT.R1pp
       EMT.R2pp = EMT.R2p or EMT.R2pp
    else
@@ -2270,7 +2270,7 @@ function PreparePreRotation( sCmd, nInd)
             MDChar = { [Cmd[2]]=tonumber(Cmd[3]), IniStatY1=86, FinStatY1=87, BeamVise=0}
          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
+            EMT.V1NEXTPOS = MDChar.V1
          else
             MDChar = { [Cmd[2]]=tonumber(Cmd[3]), IniStatY1=EMT.ISY1, FinStatY1=EMT.FSY1, IniStatY2=EMT.ISY2, FinStatY2=EMT.FSY2, BeamVise=EMT.BV}
          end
@@ -2648,7 +2648,7 @@ function CalcInterpPlane()
    local _, dAngV, dAngO = SphericalFromVector( vtE)
    local dAngO2 = EmtGetAngO2( EMT.IPLGLFR:getVersZ(), EMT.IPLGLFR:getVersX(), dAngV, dAngO)
    dAngO = dAngO + 90
-   while dAngO >= 360 do
+   while dAngO + 100 * GEO.EPS_SMALL > 360 do
       dAngO = dAngO - 360
    end   
    EMT.IPLGLSTR = ' EX0 EY'..EmtLenToString( xS)..' EZ0'..

Common_ONE-PF.mlpe

@@ -79,6 +79,14 @@ function OnSimulStart()
          if vTools and vTools[1] and #(vTools[1]) > 0 then
             EgtLoadTool( vTcPos[i], 1, vTools[1])
             ShowToolInTcPos( vTcPos[i], true)
+            -- Aggiunto controllo lunghezza lama minima * 0.9 per ricavare la tolleranza del VMILL
+            if EgtTdbSetCurrTool(vTools[1]) then -- set utensile corrente
+               if EgtTdbGetCurrToolParam( MCH_TP.TYPE) == MCH_TY.SAW_STD or EgtTdbGetCurrToolParam( MCH_TP.TYPE) == MCH_TY.SAW_FLAT then -- controllo tipo utensile sega
+                  local dCurrSawLen = EgtTdbGetCurrToolParam( MCH_TP.LEN) * 0.9
+                  -- se non definito o minore del valore precedente aggiorna la tolleranza
+                  EMT.VMILLTOL = EgtIf( not EMT.VMILLTOL or dCurrSawLen < EMT.VMILLTOL, dCurrSawLen, EMT.VMILLTOL) 
+               end
+            end
          end
       end
    end
@@ -239,7 +247,7 @@ function OnSimulDispositionStart()
             -- determino la risoluzione dello Zmap
             local dTol = 4.71
             if EmtGetVMillStep then
-               dTol = EmtGetVMillStep( b3Raw:getDimX(), b3Raw:getDimY(), b3Raw:getDimZ(), 4.71)
+               dTol = EmtGetVMillStep( b3Raw:getDimX(), b3Raw:getDimY(), b3Raw:getDimZ(), dTol)
             else
                local dArea = b3Raw:getDimX() * b3Raw:getDimY() + b3Raw:getDimX() * b3Raw:getDimZ() + b3Raw:getDimY() * b3Raw:getDimZ()
                if dArea < 0.075e6 then
@@ -256,6 +264,7 @@ function OnSimulDispositionStart()
                   dTol = 3.77
                end
             end
+            dTol = min( dTol, EMT.VMILLTOL or dTol) -- imposto dTol al valore minore tra quello per volume e quello per spessore lama
             -- creo lo Zmap
             local VMillId = EgtVolZmapBox( nPartRawId, b3Raw:getMin(), b3Raw:getDimX(), b3Raw:getDimY(), b3Raw:getDimZ(), dTol, true, GDB_RT.GLOB)
             if VMillId then
@@ -472,6 +481,7 @@ function OnSimulDispositionEnd()
       EMT.UNLOADING = false
       EMT.FALL = false
       EMT.TO_FALL = false
+      EMT.Y2DELTA = nil
    end
    -- se disposizione intermedia
    if IsMidPhase( EMT.PHASE) or IsEnd2Phase( EMT.PHASE) then
@@ -1599,7 +1609,15 @@ function ExecMoveHome( bNearV, bMchSplit)
          EMT.CHSAW_OUT = true
       end
       -- porto le teste in home
-      SimulMoveAxes( 'X1', ParkX1, MCH_SIM_STEP.RAPID, 'X2', ParkX2, MCH_SIM_STEP.RAPID)
+      if EgtGetHeadId( 'H21') then
+         SimulMoveAxes( 'X1', ParkX1, MCH_SIM_STEP.RAPID, 'X2', ParkX2, MCH_SIM_STEP.RAPID)
+      else
+         if GetHeadTCSet( EMT.HEAD, EMT.TCPOS) == 'Head1_TC1' then
+            SimulMoveAxes( 'X1', ParkX1, MCH_SIM_STEP.RAPID)
+         else
+            SimulMoveAxes( 'X1', ParkFrnX1, MCH_SIM_STEP.RAPID)
+         end
+      end
       -- sistemo i rulli
       ExecOpenRoller( 1)
       ExecOpenRoller( 2)
@@ -1691,7 +1709,7 @@ function ExecMoveZmax( bMchSplit, btoXHome)
             SimulMoveAxis( 'Z1', MaxZ1, MCH_SIM_STEP.RAPID)
             if btoXHome then
                EMT.XHOME = true
-               SimulMoveAxis( 'X1', ParkX1, MCH_SIM_STEP.RAPID)
+               SimulMoveAxis( 'X1', HomeX, MCH_SIM_STEP.RAPID)
             end
          -- altrimenti sega a catena
          else
@@ -2880,9 +2898,9 @@ end
 ---------------------------------------------------------------------
 function RollerParkingNeeded( sHead, dAng1p, dAng2p, dAng1, dAng2)
    if sHead == 'H11' or sHead == 'H12'  or sHead == 'H17' or HeadIsChainSaw( sHead) then
-      return ( abs( dAng1 - dAng1p) > 1 or ( abs( dAng2 - dAng2p) > 1 and abs( dAng1 % 180.0) > 1))
+      return ( abs( dAng1 - dAng1p) > 1 or ( abs( dAng2 - dAng2p) > 1 and abs( dAng1) % 180.0 > 1))
    elseif sHead == 'H21' or sHead == 'H22' or HeadIsChainSaw( sHead) then
-      return ( abs( dAng1 - dAng1p) > 1 or ( abs( dAng2 - dAng2p) > 1 and abs( dAng1 % 180.0) > 1))
+      return ( abs( dAng1 - dAng1p) > 1 or ( abs( dAng2 - dAng2p) > 1 and abs( dAng1) % 180.0 > 1))
    end
 end
 

UpdateLog.txt

@@ -1,5 +1,22 @@
            ==== Common_ONE-PF Update Log ====
 
+Versione 2.7k2 (20/11/2025)
+- (SIM) Aggiornata risoluzione VMillTol in funzione dello spessore lama
+
+Versione 2.7k1 (05/11/2025)
+- (SIM-GEN) Corretto calcolo per decidere se serve aprire i rulli
+- (GEN) Aggiunta tolleranza in creazione piano di lavoro inclinato
+- (SIM) Allo scarico si resetta Y2DELTA. Ticket#2687
+
+Versione 2.7j3 (23/10/2025)
+- (SIM) Corretta posizione parcheggio in caso di testa 1 su magazzino 2. Ticket#2660
+
+Versione 2.7j2 (21/10/2025)
+- (GEN) Se SPLIT con pinza 5, corretto salvataggio posizione pinza 2. Ticket#2654
+
+Versione 2.7j1 (08/10/2025)
+- (GEN) Salvataggio posizione Z su lavorazione precedente, sbagliava in caso di separazione. Ticket#2637
+
 Versione 2.7i1 (10/09/2025)
 - (SIM-GEN) Piccole correzioni per gestire secondo TC su ONE. Ticket#2563
 - (SIM-GEN) Gestione aggregato BH completato. Ticket#2482

Version.lua

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