Merge branch 'develop'

- sistemato updatelog
- rimosse chiamate a EgtGetSourceDir e sostituite con EgtGetCurrMachineDir

Common_ONE-PF.NUM.mlpe

@@ -1,9 +1,8 @@
 -- Processore standard macchine ONE e PF by EgalWare s.r.l.   2023/11/24
 -- Con controllo numerico NUM
 
--- Carico i dati globali
-local sBaseDir = EgtGetSourceDir()
-local BD = dofile( sBaseDir .. 'Beam\\BeamData.lua')
+-- Carico libreria
+local BD = require( 'BeamData')
 
 -- Variabili di modulo
 local CSP_INFO =     INFO_STD_PP.NAME..'  ver.'..INFO_STD_PP.VERSION..' by EgalWare s.r.l.'
@@ -953,19 +952,19 @@ function OnRapid()
                   end
                -- altrimenti sega a catena
                else
-                  EmitMoveDataHead( 1, { X=-ParkCSawX1, Z=ParkCSawZ1, B=ParkCSawB1, C=ParkCSawC1, TRad=dTRad, TLen=dTLen, S=Speed})
-                  EmitMoveStartHead( 1)
-                  EmitMoveWaitHead( 1)
+                  EmitMoveDataHead( 2, { X=-ParkCSawX2, Z=ParkCSawZ2, B=ParkCSawB2, C=ParkCSawC2, TRad=dTRad, TLen=dTLen, S=Speed})
+                  EmitMoveStartHead( 2)
+                  EmitMoveWaitHead( 2)
                   EmitMoveWaitChars( EgtIf( bOnlyCharY, 1, 3))
 
                   -- se motosega configurata per lavorazioni di fianco o circa orizzontale
                   if dPosA == 0  or  abs( EMT.R2) < 10 then
-                     EmitMoveDataHead( 1, { X=EMT.L2, C=EMT.R1, S=Speed})
-                     EmitMoveDataHead( 1, { Z=EMT.L3, B=EMT.R2, S=Speed})
+                     EmitMoveDataHead( 2, { X=EMT.L2, C=EMT.R1, S=Speed})
+                     EmitMoveDataHead( 2, { Z=EMT.L3, B=EMT.R2, S=Speed})
                   -- se circa verticale
                   else
-                     EmitMoveDataHead( 1, { X=EMT.L2, C=EMT.R1, S=Speed})
-                     EmitMoveDataHead( 1, { Z=EMT.L3, B=EMT.R2, S=Speed})
+                     EmitMoveDataHead( 2, { X=EMT.L2, C=EMT.R1, S=Speed})
+                     EmitMoveDataHead( 2, { Z=EMT.L3, B=EMT.R2, S=Speed})
                   end
                end
                EmitMoveDataHead( 2, { X=EMT.L2, Z=EMT.L3, B=EMT.R2, C=EMT.R1, TRad=dTRad, TLen=dTLen, S=Speed})
@@ -1269,7 +1268,7 @@ function OnRapid()
                      end
                   -- altrimenti sega a catena
                   else
-                     EmitMoveDataHead( 2, { X=-ParkCSawX1, Z=ParkCSawZ1, B=ParkCSawB1, C=ParkCSawC1, TRad=dTRad, TLen=dTLen, S=Speed})
+                     EmitMoveDataHead( 2, { X=-ParkCSawX2, Z=ParkCSawZ2, B=ParkCSawB2, C=ParkCSawC2, TRad=dTRad, TLen=dTLen, S=Speed})
                      -- se motosega configurata per lavorazioni di fianco o circa orizzontale
                      if dPosA == 0  or  abs( EMT.R2) < 10 then
                         EmitMoveDataHead( 2, { X=EMT.L2, C=EMT.R1, S=Speed})
@@ -2226,7 +2225,7 @@ function GetMovesInAuxCmd( vAuxCmd)
       if Cmd[1] == '1' or Cmd[1] == '2' or Cmd[1] == '3' then
          return true
       elseif Cmd[1] == '22' then
-         local dV1NextPos = EgtIf( EMT.Y1DELTA, tonumber( Cmd[2]), ParkV1)
+         local dV1NextPos = tonumber( Cmd[2]) -- EgtIf( EMT.Y1DELTA, tonumber( Cmd[2]), ParkV1)
          if not GetV1ToCloseNum( dV1NextPos) then
             dV1NextPos = ParkV1
          end
@@ -2498,6 +2497,9 @@ function EmitZmax( bReset, bEnd, bXhome, PrevR1, PrevR2, bSplitCut, bUsePrevDelt
             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}
+            EmitMoveDataHead( 1, MovH)
             EmitMoveDataHead( 1, { Z=dSafeZ1, B=dSafeB1})
             if EMT.SB > 650 and abs( EMT.R3) < 0.1 then
                EmitMoveDataHead( 1, { Z=ParkCSawZ1, B=ParkB1})
@@ -2536,6 +2538,9 @@ function EmitZmax( bReset, bEnd, bXhome, PrevR1, PrevR2, bSplitCut, bUsePrevDelt
             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}
+            EmitMoveDataHead( 1, MovH)
             EmitMoveDataHead( 1, { Z=dSafeZ1, B=dSafeB1})
             if EMT.SB > 650 and abs( EMT.R3) < 0.1 then
                EmitMoveDataHead( 1, { Z=ParkCSawZ1, B=ParkB1})
@@ -2586,11 +2591,14 @@ function EmitZmax( bReset, bEnd, bXhome, PrevR1, PrevR2, bSplitCut, bUsePrevDelt
          EmitMoveWaitHead( 2)
       -- altrimenti sega a catena
       else
-         EmitMoveDataHead( 1, { Z=dSafeZ2, B=dSafeB2})
+         -- ribadisco movimento perchè in G141 si aspetta sempre tutti i valori
+         local MovH = { X = -EMT.L2o, 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
-            EmitMoveDataHead( 1, { Z=ParkCSawZ2, B=ParkB2})
+            EmitMoveDataHead( 2, { Z=ParkCSawZ2, B=ParkB2})
          end
-         EmitMoveDataHead( 1, { X=-dSafeX2, C=dSafeC2})
+         EmitMoveDataHead( 2, { X=-dSafeX2, C=dSafeC2})
          if bXhome then
             EmitMoveDataHead( 2, { X=-ParkX2, Z=ParkCSawZ2, B=ParkB2, C=ParkC2, TPos=50})
          end

Common_ONE-PF.mlpe

@@ -6,16 +6,15 @@
 require( 'EmtGenerator')
 EgtEnableDebug( false)
 
--- Carico i dati globali
-local sBaseDir = EgtGetSourceDir()
-local BD = dofile( sBaseDir .. 'Beam\\BeamData.lua')
+-- Carico libreria
+local BD = require( 'BeamData')
 
 ---------------------------------------------------------------------
 -- *** GENERATION ***
 ---------------------------------------------------------------------
-local sBaseDir = EgtGetSourceDir()
+local sBaseDir = EgtGetCurrMachineDir()
 if NumericalControl == 'NUM' or NumericalControl == 'NUM_FLEX' then
-   dofile( sBaseDir .. 'Common_ONE-PF.NUM.mlpe')
+   dofile( sBaseDir .. '\\Common_ONE-PF.NUM.mlpe')
 elseif NumericalControl == 'TPA' then
    error( 'Numerical Control error : TPA not yet managed')
 else
@@ -27,6 +26,45 @@ end
 ---------------------------------------------------------------------
 local COLL_SAFE_DIST = 4
 
+---------------------------------------------------------------------
+function OnSimulInit()
+   -- se macchina con carico destro, imposto offset direzioni di vista standard
+   if BD.RIGHT_LOAD then
+      local nOrigViewOffs = EgtGetViewOrizzOffsStep()
+      local dOrigViewAngV, dOrigViewAngH = EgtGetGenericView()
+      if nOrigViewOffs ~= 2 then
+         EgtSetViewOrizzOffsStep( 2)
+         if dOrigViewAngV < 0.1 then
+            EgtSetView( SCE_VD.TOP, false)
+         elseif dOrigViewAngV > 179.9 then
+            EgtSetView( SCE_VD.BOTTOM, false)
+         else
+            local dViewAngH = dOrigViewAngH + EgtIf( dOrigViewAngH > 180, 2 * 90, 0)
+            EgtSetGenericView( dOrigViewAngV, dViewAngH, false)
+         end
+      end
+   end
+end
+
+---------------------------------------------------------------------
+function OnSimulExit()
+   -- se macchina con carico destro, annullo offset direzioni di vista standard
+   if BD.RIGHT_LOAD then
+      local nOrigViewOffs = EgtGetViewOrizzOffsStep()
+      local dOrigViewAngV, dOrigViewAngH = EgtGetGenericView()
+      if nOrigViewOffs == 2 then
+         EgtSetViewOrizzOffsStep( 0)
+         if dOrigViewAngV < 0.1 then
+            EgtSetView( SCE_VD.TOP, false)
+         elseif dOrigViewAngV > 179.9 then
+            EgtSetView( SCE_VD.BOTTOM, false)
+         else
+            EgtSetGenericView( dOrigViewAngV, dOrigViewAngH - 2 * 90, false)
+         end
+      end
+   end
+end
+
 ---------------------------------------------------------------------
 function OnSimulStart()
    -- controllo versione programma
@@ -922,7 +960,7 @@ function OnSimulMoveStart()
                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
+               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")

Common_ONE-PF.mlse

@@ -4,9 +4,8 @@
 require( 'EmtGenerator')
 EgtEnableDebug( false)
 
--- Carico i dati globali
-local sBaseDir = EgtGetSourceDir()
-local BD = dofile( sBaseDir .. 'Beam\\BeamData.lua')
+-- Carico libreria
+local BD = require( 'BeamData')
 
 ---------------------- OnSpecialGetMaxZ -----------------------------
 ---------------------------------------------------------------------

UpdateLog.txt

@@ -1,5 +1,39 @@
            ==== Essetre_StdPF Update Log ====
 
+versione 2.6b2 (26/02/2024)
+- (MLDE-SIM-GEN) EgtAddToPackagePath spostato in mlde
+
+versione 2.6b1 (20/02/2024)
+- (SIM) Corretto controllo calcolo Z su primo movimento lama, allineato a generazione
+- (GEN) Corretto emissione movimenti per macchine con motosega su testa 2
+- (SIM) Aggiunta funzioni "OnSimulInit" e "OnSimulExit" per orientare vista corretta in caso di macchina con carico destro. N.B.= serve CAM5 2.6b4
+- (ALL) "BeamData" caricato come libreria con 'require' anziché come file con 'dofile'
+- (GEN) In "GetMovesInAuxCmd" si passa la posizione calcolata V1 indipendentemente dall'utilizzo di Y1
+
+versione 2.6a7 (12/02/2024)
+- (GEN) Per movimento con motosega, si ribadiscono tutti gli assi nella prima G141
+
+versione  2.6a6 (02/02/2024)
+- (SIM) Corretta simulazione movimento in X-Home, coerente con generazione
+- (GEN) Aggiunta lettura parametro 'Split'
+- (SIM) Se lavorazione è un taglio di separazione, se necessario, ripristino posizione di Y1DELTA prima di aprire i rulli
+- (SIM-GEN) Modificata gestione movimenti motosega, in aggiunta con caso particolare di pezzo alto più di 650mm
+- (ALL) Caricamento BeamData come local
+
+versione  2.6a5 (26/01/2024)
+- (SIM-GEN) Migliorato calcolo dimensioni grezzo per apertura rulli in caso di 'precut'
+
+versione 2.6a4 (24/01/2024)
+- (GEN) Se pezzo tenuto solo con pinza destra non si esclude la rulliera di sinistra, se pezzogrande, può venire in supporto
+- (SIM-GEN) Correzione gestione apertura/chiusura rulli sul fine barra e in generale (da PF1250)
+- (SIM) Aggiunto solido collisione lama sotto traversa (per PF-progress)
+
+Versione 2.6a3 (23/01/2024)
+- (GEN) Corretto gestione del movimento precedente all'ultimo che manda il pezzo alla posizione di scarico
+
+Versione 2.6a2 (09/01/2024)
+- Nuova versione. Prima versione stabile rilasciabile.
+
 Versione 2.6a1 (28/11/2023)
 - Prima versione post-proc comune tra macchine ONE e PF
 - (SIM) Corretta visualizzazione motosega in caso sia stata scaricata ( per paratie rulli compattate per passaggio pezzo)
@@ -9,25 +43,17 @@ Versione 2.6a1 (28/11/2023)
 - (GEN+MLDE) Inserita gestione macro con carico ottimizzato. Macro macchina presente come standard solo su macchine PF. Parametro "OptimizedLoadBeam"
 - (GEN+SIM) Migliorata gestione riposizionamento pinze, in caso testa debba andare in home
 - (GEN) Se a zeta massima con lama e utensile successivo diverso, mi sposto sempre verso X-HOME
-- (GEN) Corretto movimento in caso di testa 1 su TC-2. Utilizzava le quote della testa 2 anziché della 1. 
+- (GEN) Corretto movimento in caso di testa 1 su TC-2. Utilizzava le quote della testa 2 anziché della 1
+
+
+
+
+
+
+
+
 
-Versione 2.6a2 (09/01/2024)
-- Nuova versione. Prima versione stabile rilasciabile.
 
-Versione 2.6a3 (23/01/2024)
-- (GEN) Corretto gestione del movimento precedente all'ultimo che manda il pezzo alla posizione di scarico
 
-versione 2.6a4 (24/01/2024)
-- (GEN) Se pezzo tenuto solo con pinza destra non si esclude la rulliera di sinistra, se pezzogrande, può venire in supporto
-- (SIM-GEN) Correzione gestione apertura/chiusura rulli sul fine barra e in generale (da PF1250)
-- (SIM) Aggiunto solido collisione lama sotto traversa (per PF-progress)
 
-versione  2.6a5 (26/01/2024)
-- (SIM-GEN) Migliorato calcolo dimensioni grezzo per apertura rulli in caso di 'precut'
 
-versione  2.6a6 (02/02/2024)
-- (SIM) Corretta simulazione movimento in X-Home, coerente con generazione
-- (GEN) Aggiunta lettura parametro 'Split'
-- (SIM) Se lavorazione è un taglio di separazione, se necessario, ripristino posizione di Y1DELTA prima di aprire i rulli
-- (SIM-GEN) Modificata gestione movimenti motosega, in aggiunta con caso particolare di pezzo alto più di 650mm
-- (ALL) Caricamento BeamData come local

Version.lua

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