Piccole migliorie common 2.6c5

- disabilitato debug

Common_ONE-PF.NUM.mlpe

@@ -269,10 +269,34 @@ function OnDispositionEnd()
       local nPrevRot = GetPhaseRot( EMT.PHASE - 1)
       -- verifico se sono diverse
       if nRot ~= nPrevRot then
-         local nDeltaRot = nRot - nPrevRot
-         -- rotazione automatica o manuale (sempre con il medesimo comando)
-         local sOut = 'M180 L0=' .. tostring( nDeltaRot)
-         EmtOutput( sOut)
+         -- se ho la testa 2, quindi tipo PF
+         if  EgtGetHeadId( 'H21') then
+            local nDeltaRot = nRot - nPrevRot
+            -- rotazione automatica o manuale (sempre con il medesimo comando)
+            local sOut = 'M180 L0=' .. tostring( nDeltaRot)
+            EmtOutput( sOut)
+         -- altrimenti se ONE
+         else
+            if nRot > nPrevRot then nRot = nRot - 4 end
+            local nDeltaRot = nRot - nPrevRot
+            -- se rotazione automatica richiesta e possibile
+            if AutomaticRotation and EMT.LB >= AutoRotMinLen then
+               local sOut = 'M180 L0=' .. tostring( -nDeltaRot)
+               EmtOutput( sOut)
+            else
+               local sOut
+               if nDeltaRot == -1 then
+                  sOut = 'M151'
+               elseif nDeltaRot == -2 then
+                  sOut = 'M152'
+               elseif nDeltaRot == -3 then
+                  sOut = 'M153'
+               end
+               EmtOutput( sOut)
+               EmtOutput( 'M86')
+               EmtOutput( 'G4F.5')
+            end
+         end
          -- imposto stato post-rotazione
          EMT.POSTROT = true
          -- imposto recupero sovramateriale in X non più presente
@@ -1108,7 +1132,7 @@ function OnRapid()
          end
          EMT.MDCHAR = {}
          -- se necessario allargo le cabine
-         if RollerParkingNeeded( EMT.HEAD, PrevR1, PrevR2, EMT.R1, EMT.R2) or
+         if RollerParkingNeeded( EMT.HEAD, PrevR1, PrevR2, EMT.R1, EMT.R2) or EMT.TOOL ~= EMT.PREVTOOL or
             EMT.V1POS < EMT.V1NEXTPOS - 1 or EMT.V2POS > EMT.V2NEXTPOS + 1 then
             local dPosT = EMT.TPOS or EMT.L1op
             EmitParkRoller( dPosT, EMT.MCHSPLIT)

Common_ONE-PF.mlpe

@@ -727,17 +727,6 @@ function OnSimulMachiningStart()
    end
    -- salvo dati utensile
    local nSetHead = GetHeadSet( EMT.HEAD)
-   -- per gruppo testa 1
-   if nSetHead == 1 then
-      EMT.PREVTOOL_H1 = EMT.TOOL
-      EMT.PREVHEAD_H1 = EMT.HEAD
-      EMT.PREVTCPOS_H1 = EMT.TCPOS
-   -- per gruppo testa 2
-   elseif nSetHead == 2 then
-      EMT.PREVTOOL_H2 = EMT.TOOL
-      EMT.PREVHEAD_H2 = EMT.HEAD
-      EMT.PREVTCPOS_H2 = EMT.TCPOS
-   end
    -- recupero alcuni dati della lavorazione
    EMT.MCHNAME = EgtGetOperationName( EMT.MCHID)
    EMT.MCHTYPE = EgtGetMachiningParam( MCH_MP.TYPE)
@@ -813,6 +802,20 @@ function OnSimulMachiningEnd()
    if EMT.DOU_TYPE and not EMT.ZMAX then EMT.DOU_TO_ZMAX = true end
    EMT.DOU_TYPE = nil
    EMT.DOU_TOOL = nil
+   -- salvo dati utensile
+   local nSetHead = GetHeadSet( EMT.HEAD)
+   -- per gruppo testa 1
+   if nSetHead == 1 then
+      EMT.PREVTOOL_H1 = EMT.TOOL
+      EMT.PREVHEAD_H1 = EMT.HEAD
+      EMT.PREVTCPOS_H1 = EMT.TCPOS
+   -- per gruppo testa 2
+   elseif nSetHead == 2 then
+      EMT.PREVTOOL_H2 = EMT.TOOL
+      EMT.PREVHEAD_H2 = EMT.HEAD
+      EMT.PREVTCPOS_H2 = EMT.TCPOS
+   end
+
 end
 
 ---------------------------------------------------------------------
@@ -911,7 +914,8 @@ function OnSimulMoveStart()
    local bParkV = false
    if EMT.MCHFIRST then
       -- se rulli più chiusi del richiesto o cambio direzione utensile (tranne solo asse B con C0 o equivalenti) devo mettere i rulli in parcheggio
-      if V1Pos < EMT.V1NEXTPOS - 1 or V2Pos > EMT.V2NEXTPOS + 1 or RollerParkingNeeded( EMT.HEAD, EMT.R1p, EMT.R2p, EMT.R1, EMT.R2) then
+      if V1Pos < EMT.V1NEXTPOS - 1 or V2Pos > EMT.V2NEXTPOS + 1 or RollerParkingNeeded( EMT.HEAD, EMT.R1p, EMT.R2p, EMT.R1, EMT.R2) or 
+         ( EMT.TOOL ~= EMT.PREVTOOL_H1  and  EMT.TOOL ~= EMT.PREVTOOL_H2) then
          bParkV = true
          EMT.A3 = ParkV1
          EMT.A4 = ParkV2

Essetre-ONE.mlde

@@ -46,10 +46,11 @@
 -- 2024/03/04 ver 2.6c2 Modificato log con nome macchina
 --                      Allineamento con common ver. 2.6c2
 -- 2024/03/06 ver 2.6c3 Allineamento con common ver. 2.6c4
+-- 2024/03/06 ver 2.6c4 Allineamento con common ver. 2.6c5
 
 -- Intestazioni
 require( 'EmtGenerator')
-EgtEnableDebug( true)
+EgtEnableDebug( false)
 
 PP_VER = '2.6c4'
 MIN_MACH_VER = '2.5k1'

UpdateLog.txt

@@ -1,5 +1,10 @@
            ==== Essetre_StdPF Update Log ====
 
+Versione 2.6c5 (07/03/2024)
+- (GEN) Per ribaltamento, i comandi si differenziano per macchina. Sembra che ONE e PF abbiano comandi diversi. In attesa di conferma da parte di Essetre
+- (SIM-GEN) Se cambiato utensile, si aprono sempre paratie
+- (SIM) Spostato salvataggio dati utensile precedente in MachiningEnd, prima era in MachininsStart
+
 Versione 2.6c4 (06/03/2024)
 - (SIM-GEN) Alla fine del movimento a Z-MAX, in home con lama solo se si cambia utensile. Prima andava sempre in home se era lama, anche se non doveva cambiare utensile
 

Version.lua

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