Merge branch 'develop'

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

Common-PF1250.TPA.mlpe

@@ -1,9 +1,10 @@
 -- Processore macchina Essetre-PF1250 by Egalware s.r.l.   2024/01/22
 -- Con controllo numerico TPA
 
--- Variabili di modulo
-local MLE_INFO = 'Essetre-PF1250.TPA.mlpe ver.'..PP_VER..' by EgalTech s.r.l.'
+-- 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.'
 local MACHINE_INFO = 'PP_VER         ver.'..PP_VER
 
@@ -985,12 +986,11 @@ function OnRapid()
                local dB2 = EMT.R2
                if EMT.ZMAX or ( EMT.FLAG == 2 and EMT.FLAG2 == 1) then
                   local dSafeZ2 = EgtGetAxisHomePos( 'Z2')
-                  local dSafeX2 = EgtGetAxisHomePos( 'X2')
                   -- se bisogna scrivere tutti gli assi
                   if WriteAllCoordsOnFirstM101 then
-                     EmitMoveDataHead( 2, { X=dSafeX2, Z=MinZ2, B=ParkB2, C=ParkC2, TPos=EMT.DOU_TPOS, S=EMT.DOU_SPEED})
+                     EmitMoveDataHead( 2, { X=SafeX2, Z=MinZ2, B=ParkB2, C=ParkC2, TPos=EMT.DOU_TPOS, S=EMT.DOU_SPEED})
                   else
-                     EmitMoveDataHead( 2, { X=dSafeX2, TPos=EMT.DOU_TPOS, S=EMT.DOU_SPEED})
+                     EmitMoveDataHead( 2, { X=SafeX2, TPos=EMT.DOU_TPOS, S=EMT.DOU_SPEED})
                   end
 
                   EmitMoveDataHead( 2, { Z=-dSafeZ2, TPos=EMT.DOU_TPOS, S=EMT.DOU_SPEED})
@@ -1011,10 +1011,9 @@ function OnRapid()
                local dB2 = EMT.R2
                if EMT.ZMAX then
                   local dSafeZ2 = EgtGetAxisHomePos( 'Z2')
-                  local dSafeX2 = EgtGetAxisHomePos( 'X2')
                   -- se bisogna scrivere tutti gli assi
                   if WriteAllCoordsOnFirstM101 then
-                     EmitMoveDataHead( 2, { X=dSafeX2, Z=-dSafeZ2, B=ParkB2, C=ParkC2, TPos=EMT.DOU_TPOS, S=EMT.DOU_SPEED})
+                     EmitMoveDataHead( 2, { X=SafeX2, Z=-dSafeZ2, B=ParkB2, C=ParkC2, TPos=EMT.DOU_TPOS, S=EMT.DOU_SPEED})
                   else
                      EmitMoveDataHead( 2, { Z=-dSafeZ2, TPos=EMT.DOU_TPOS, S=EMT.DOU_SPEED})
                   end
@@ -1037,12 +1036,11 @@ function OnRapid()
             local CurrB2 = PrevR2
             local CurrC2 = PrevR1
             local dSafeZ2 = EgtGetAxisHomePos( 'Z2')
-            local dSafeX2 = EgtGetAxisHomePos( 'X2')
             local Speed = EMT.S
             if EMT.ZMAX then
                -- se bisogna scrivere tutti gli assi
                if WriteAllCoordsOnFirstM101 then
-                  EmitMoveDataHead( 2, { X=dSafeX2, Z=CurrZ2, B=CurrB2, C=CurrC2, S=Speed})
+                  EmitMoveDataHead( 2, { X=SafeX2, Z=CurrZ2, B=CurrB2, C=CurrC2, S=Speed})
                end
                EmitMoveDataHead( 2, { Z=-dSafeZ2, S=Speed})
                EmitMoveDataHead( 2, { X=EMT.L2, S=Speed})
@@ -2276,7 +2274,7 @@ function EmitDouZMax( nDouType)
    local dHomeC2 = EgtGetAxisHomePos( 'C2')
    -- se lavorazione in doppio in Y (prima mi allontano in Y)
    if nDouType == 2 then
-      EmitMoveDataHead( 2, { X=dHomeX2, TPos=EMT.DOU_TPOS, Fmt=1})
+      EmitMoveDataHead( 2, { X=SafeX2, TPos=EMT.DOU_TPOS, Fmt=1})
    end
    -- scendo in Z, sistemo B e C porto X in home
    EmitMoveDataHead( 2, { Z=-dHomeZ2, TPos=EMT.DOU_TPOS, Fmt=1})

Common-PF1250.mlpe

@@ -6,14 +6,17 @@
 require( 'EmtGenerator')
 EgtEnableDebug( false)
 
+-- Carico libreria
+local BD = require( 'BeamData')
+
 ---------------------------------------------------------------------
 -- *** GENERATION ***
 ---------------------------------------------------------------------
-local sBaseDir = EgtGetSourceDir()
+local sBaseDir = EgtGetCurrMachineDir()
 if NumericalControl == 'NUM' then
    error( 'Numerical Control error : NUM not yet managed')
 elseif NumericalControl == 'TPA' then
-   dofile( sBaseDir .. 'Common-PF1250.TPA.mlpe')
+   dofile( sBaseDir .. '\\Common-PF1250.TPA.mlpe')
 else
    error( 'Numerical Control error : unkwnown type')
 end
@@ -23,6 +26,45 @@ end
 ---------------------------------------------------------------------
 local COLL_SAFE_DIST = 3
 
+---------------------------------------------------------------------
+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
@@ -902,7 +944,7 @@ function OnSimulMoveStart()
          if EMT.ZMAX then
             -- se bisogna scrivere tutti gli assi
             if WriteAllCoordsOnFirstM101 then
-               SimulMoveAxes( 'X2', X2Home, MCH_SIM_STEP.RAPID, 'B2', B2Home, MCH_SIM_STEP.COLLROT, 'C2', C2Home, MCH_SIM_STEP.COLLROT)
+               SimulMoveAxes( 'X2', SafeX2, MCH_SIM_STEP.RAPID, 'B2', B2Home, MCH_SIM_STEP.COLLROT, 'C2', C2Home, MCH_SIM_STEP.COLLROT)
             end
             SimulMoveAxis( 'Z2', Z2Home, MCH_SIM_STEP.RAPID)
             SimulMoveAxis( 'X2', EMT.L2, MCH_SIM_STEP.RAPID)

Common-PF1250.mlse

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

UpdateLog.txt

@@ -1,11 +1,33 @@
            ==== Common_PF1250 Update Log ====
 
-Versione 2.6a1 (09/01/2024)
-- Prima versione post-proc comune tra macchine PF1250 e PF1500
-- (SIM-GEN) Corretto movimento testa 2 in ToolDesel e movimento controllo collisione
-- (GEN) Tolta testa H14 per utensili speciali. Si utilizza H11 per frese standard
-- (MLDE-GEN) Costanti 'MinForzaPinze' e 'MaxForzaPinze' portati in mlde/Ts3data (erano hardcoded)
-- (MLDE-SIM-GEN) Aggiunto parametro 'WriteAllCoordsOnFirstM101' per decidere se stampare tutti gli assi sulla prima M101
+Versione 2.6b4 (23/02/2024)
+- (MLDE-SIM-GEN) EgtAddToPackagePath spostato in mlde
+
+Versione 2.6b3 (20/02/2024)
+- (SIM) Aggiunta funzioni "OnSimulInit" e "OnSimulExit" per orientare vista corretta in caso di macchina con carico destro. N.B.= serve CAM5 2.6b4
+- (SIM-GEN) "BeamData" caricato come libreria con 'require' anziché come file con 'dofile'
+
+Versione 2.6b2 (15/02/2024)
+- (SIM-GEN) Primo movimento in X per testa 2 a SafeX2 anziché a ParkX2
+
+Versione 2.6b1 (07/02/2024)
+- (MLDE-SIM-GEN) Inserito parametro 'MinLengthLongCSaw' per gestione motosega molto lunga
+- (MLDE) funzione 'GetCurrChainSawingVirtualAxis' spostata in MLDE
+
+Versione 2.6a5 (31/01/2024)
+- (SIM) Migliorata simulazione apertura/chiusura morse in caso di separazione
+- (SIM-GEN) Migliorata gestione movimenti con motosega e adeguato simulazione
+- (GEN) Corretta scrittura assi in caso di 'WriteAllCoordsOnFirstM101' per testa 2
+- (SIM-GEN) Caricamento BeamData come local
+
+Versione 2.6a4 (25/01/2024)
+- (SIM-GEN) Corretto movimento in caso di cambio assi rotanti tra due lavorazioni
+- (GEN) Corretta emissione coordinate assi in caso di 'WriteAllCoordsOnFirstM101'
+
+Versione 2.6a3 (22/01/2024)
+- (SIM-GEN) Correzione gestione apertura/chiusura rulli sul fine barra (#1630) e in generale
+- (GEN) Modificato flag 'EmitRapidInG0' in 'EmitRapidInG1' per decidere se scrivere G1 anziché G0. Se flag a nil, scrive i rapidi in G0
+- (SIM) Correzione movimenti pinze prima di separazione
 
 Versione 2.6a2 (19/01/2024)
 - (GEN) Corretta inversione coordinata X per Lama su aggregato da sotto
@@ -14,21 +36,9 @@ Versione 2.6a2 (19/01/2024)
 - (GEN) Migliorata gestione preselezione utensile
 - (MLDE-GEN) Aggiunto flag 'EmitRapidInG0' per decidere se scrivere G0 anziché G1. Se flag a nil, scrive i rapidi in G1
 
-Versione 2.6a3 (22/01/2024)
-- (SIM-GEN) Correzione gestione apertura/chiusura rulli sul fine barra (#1630) e in generale
-- (GEN) Modificato flag 'EmitRapidInG0' in 'EmitRapidInG1' per decidere se scrivere G1 anziché G0. Se flag a nil, scrive i rapidi in G0
-- (SIM) Correzione movimenti pinze prima di separazione
-
-Versione 2.6a4 (25/01/2024)
-- (SIM-GEN) Corretto movimento in caso di cambio assi rotanti tra due lavorazioni
-- (GEN) Corretta emissione coordinate assi in caso di 'WriteAllCoordsOnFirstM101'
-
-Versione 2.6a5 (31/01/2024)
-- (SIM) Migliorata simulazione apertura/chiusura morse in caso di separazione
-- (SIM-GEN) Migliorata gestione movimenti con motosega e adeguato simulazione
-- (GEN) Corretta scrittura assi in caso di 'WriteAllCoordsOnFirstM101' per testa 2
-- (ALL) Caricamento BeamData come local
-
-Versione 2.6b1 (07/02/2024)
-- (MLDE-SIM-GEN) Inserito parametro 'MinLengthLongCSaw' per gestione motosega molto lunga
-- (MLDE) funzione 'GetCurrChainSawingVirtualAxis' spostata in MLDE
+Versione 2.6a1 (09/01/2024)
+- Prima versione post-proc comune tra macchine PF1250 e PF1500
+- (SIM-GEN) Corretto movimento testa 2 in ToolDesel e movimento controllo collisione
+- (GEN) Tolta testa H14 per utensili speciali. Si utilizza H11 per frese standard
+- (MLDE-GEN) Costanti 'MinForzaPinze' e 'MaxForzaPinze' portati in mlde/Ts3data (erano hardcoded)
+- (MLDE-SIM-GEN) Aggiunto parametro 'WriteAllCoordsOnFirstM101' per decidere se stampare tutti gli assi sulla prima M101

Version.lua

@@ -3,7 +3,7 @@
 
 local InfoCommon_STD_PP = {
    NAME = 'Common_PF1250',            -- nome script PP standard
-   VERSION = '2.6b1',                 -- versione script
+   VERSION = '2.6b3',                 -- versione script
    MIN_MACH_VER_PP_COMMON = '2.5k1'   -- versione minima kernel
 }