From 47516ad3708ace0d8f26013f0a3ede0e0c944ea0 Mon Sep 17 00:00:00 2001 From: "andrea.villa" Date: Mon, 10 Mar 2025 08:25:20 +0100 Subject: [PATCH 1/3] - All'inizio del codice ISO si scrive nel commento anche il controllo numerico utilizzato per la generazione. - Aggiunta commenti HEADER e FOOTER per comunicazione con linea o altre macchine, da parte di Essetre. --- Common_FAST.NUM.mlpe | 4 +++- Common_FAST.NUM_PLUS.mlpe | 4 +++- Common_FAST.TPA.mlpe | 4 +++- UpdateLog.txt | 4 ++++ Version.lua | 2 +- 5 files changed, 14 insertions(+), 4 deletions(-) diff --git a/Common_FAST.NUM.mlpe b/Common_FAST.NUM.mlpe index e3b6053..3bad7d9 100644 --- a/Common_FAST.NUM.mlpe +++ b/Common_FAST.NUM.mlpe @@ -6,7 +6,7 @@ local INFO_STD_PP = require( 'Version') 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 CSP_INFO = INFO_STD_PP.NAME..'_'..NumericalControl..' ver.'..INFO_STD_PP.VERSION..' by EgalWare s.r.l.' local MACHINE_INFO = MACH_NAME..' ver.'..PP_VER local TEST_USE = false @@ -53,6 +53,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 EmtOutput( 'M28') @@ -104,6 +105,7 @@ function OnProgramEnd() EMT.FALL = nil EMT.RELOAD = nil EMT.RELOAD2 = nil + EmtOutput( '(FOOTER)') -- Se modalità test, termino il programma if TEST_USE then EmtOutput( 'M02') diff --git a/Common_FAST.NUM_PLUS.mlpe b/Common_FAST.NUM_PLUS.mlpe index 8a93fd9..7d12ec7 100644 --- a/Common_FAST.NUM_PLUS.mlpe +++ b/Common_FAST.NUM_PLUS.mlpe @@ -6,7 +6,7 @@ local INFO_STD_PP = require( 'Version') 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 CSP_INFO = INFO_STD_PP.NAME..'_'..NumericalControl..' ver.'..INFO_STD_PP.VERSION..' by EgalWare s.r.l.' local MACHINE_INFO = MACH_NAME..' ver.'..PP_VER local TEST_USE = false @@ -53,6 +53,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 EmtOutput( 'M28') @@ -108,6 +109,7 @@ function OnProgramEnd() EMT.FALL = nil EMT.RELOAD = nil EMT.RELOAD2 = nil + EmtOutput( '(FOOTER)') -- Se modalità test, termino il programma if TEST_USE then EmtOutput( 'M02') diff --git a/Common_FAST.TPA.mlpe b/Common_FAST.TPA.mlpe index 953a2ba..9dc6d6e 100644 --- a/Common_FAST.TPA.mlpe +++ b/Common_FAST.TPA.mlpe @@ -6,7 +6,7 @@ local INFO_STD_PP = require( 'Version') 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 CSP_INFO = INFO_STD_PP.NAME..'_'..NumericalControl..' ver.'..INFO_STD_PP.VERSION..' by EgalWare s.r.l.' local MACHINE_INFO = MACH_NAME..' ver.'..PP_VER local TEST_USE = false @@ -54,6 +54,7 @@ function OnProgramStart() end ParkLine( sPrefixCommentLine..'('.. CSP_INFO..')') ParkLine( sPrefixCommentLine..'('.. MACHINE_INFO..')') + ParkLine( '(HEADER)') -- Se modalità test, aggiungo linee per muovere tappeto e alzare la testa (in automatico viene fatto dal main residente) if TEST_USE then @@ -111,6 +112,7 @@ function OnProgramEnd() EMT.FALL = nil EMT.RELOAD = nil EMT.RELOAD2 = nil + EmtOutput( '(FOOTER)') -- Termino il programma EmtOutput( 'M02') end diff --git a/UpdateLog.txt b/UpdateLog.txt index 72aa28f..d121809 100644 --- a/UpdateLog.txt +++ b/UpdateLog.txt @@ -1,5 +1,9 @@ ==== Common_FAST Update Log ==== +Versione 2.7-- (--/--/2024) +- (GEN) All'inizio del codice ISO si scrive nel commento anche il controllo numerico utilizzato per la generazione. +- (GEN) Aggiunta commenti HEADER e FOOTER per comunicazione con linea o altre macchine, da parte di Essetre. + Versione 2.7b1 (20/02/2024) - (SIM-GEN) Aggiunta possibilità di settare HCING/TCING nelle note di ogni singola lavorazione per gestire parte non pinzabile del pezzo. Funziona solo con nuovo pinzaggio. - (SIM-GEN) Piccola correzione calcolo posizione carrelli con nuova strategia di pinzaggio. diff --git a/Version.lua b/Version.lua index c4a6682..e0a36b2 100644 --- a/Version.lua +++ b/Version.lua @@ -3,7 +3,7 @@ local InfoCommon_STD_PP = { NAME = 'Common_FAST', -- nome script PP standard - VERSION = '2.7b1', -- versione script + VERSION = '2.7--', -- versione script MIN_MACH_VER_PP_COMMON = '2.5k1' -- versione minima kernel } From a721fda29807ead707d2798c642d7e5b14477204 Mon Sep 17 00:00:00 2001 From: "andrea.villa" Date: Wed, 26 Mar 2025 09:18:38 +0100 Subject: [PATCH 2/3] =?UTF-8?q?In=20MyAdjustLinearAxes=20si=20utilizza=20T?= =?UTF-8?q?DIR=20per=20calcolarsi=20gli=20offset=20per=20compatibilit?= =?UTF-8?q?=C3=A0=20con=20lavorazioni=20a=205=20assi.?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Common_FAST.NUM.mlpe | 2 +- Common_FAST.NUM_PLUS.mlpe | 2 +- Common_FAST.TPA.mlpe | 6 +++--- UpdateLog.txt | 1 + 4 files changed, 6 insertions(+), 5 deletions(-) diff --git a/Common_FAST.NUM.mlpe b/Common_FAST.NUM.mlpe index 3bad7d9..3680871 100644 --- a/Common_FAST.NUM.mlpe +++ b/Common_FAST.NUM.mlpe @@ -1540,7 +1540,7 @@ function MyAdjustLinearAxes() elseif EMT.HEAD ~= 'H3' then local Len = EMT.TLEN + EgtIf( EMT.HEAD == 'H1', MillOffs, abs( SawOffs)) local LenRef = MillOffs - vtE = Vector3d( EMT.EXTR) * Len - Z_AX() * LenRef + vtE = Vector3d( EMT.TDIR) * Len - Z_AX() * LenRef else local LenAux = ( EMT.TDIST or ChSawLen) + MillOffs local LenRef = MillOffs diff --git a/Common_FAST.NUM_PLUS.mlpe b/Common_FAST.NUM_PLUS.mlpe index 7d12ec7..fc910bd 100644 --- a/Common_FAST.NUM_PLUS.mlpe +++ b/Common_FAST.NUM_PLUS.mlpe @@ -1642,7 +1642,7 @@ function MyAdjustLinearAxes() if EMT.HEAD == 'H1' or EMT.HEAD == 'H2' then local Len = EMT.TLEN + EgtIf( EMT.HEAD == 'H1', MillOffs, abs( SawOffs)) local LenRef = MillOffs - vtE = Vector3d( EMT.EXTR) * Len - Z_AX() * LenRef + vtE = Vector3d( EMT.TDIR) * Len - Z_AX() * LenRef elseif EMT.HEAD == 'H3' then local LenAux = ( EMT.TDIST or ChSawLen) + MillOffs local LenRef = MillOffs diff --git a/Common_FAST.TPA.mlpe b/Common_FAST.TPA.mlpe index 9dc6d6e..7f05ff6 100644 --- a/Common_FAST.TPA.mlpe +++ b/Common_FAST.TPA.mlpe @@ -1644,7 +1644,7 @@ function MyAdjustLinearAxes() if EMT.HEAD == 'H1' or EMT.HEAD == 'H2' then local Len = EMT.TLEN + EgtIf( EMT.HEAD == 'H1', MillOffs, abs( SawOffs)) local LenRef = MillOffs - vtE = Vector3d( EMT.EXTR) * Len - Z_AX() * LenRef + vtE = Vector3d( EMT.TDIR) * Len - Z_AX() * LenRef elseif EMT.HEAD == 'H3' then local LenAux = ( EMT.TDIST or ChSawLen) + MillOffs local LenRef = MillOffs @@ -1655,13 +1655,13 @@ function MyAdjustLinearAxes() local LenAux = MillOffs + AngTr1Offs local LenRef = MillOffs local vtAux = EgtGetCalcAuxDirFromAngles( EMT.R1, EMT.R2) - vtE = Vector3d( EMT.EXTR) * Len + vtAux * LenAux - Z_AX() * LenRef + vtE = Vector3d( EMT.TDIR) * Len + vtAux * LenAux - Z_AX() * LenRef elseif EMT.HEAD == 'H7' then local Len = EMT.TLEN + AngTrBHLen local LenAux = MillOffs + AngTrBHOffs local LenRef = MillOffs local vtAux = EgtGetCalcAuxDirFromAngles( EMT.R1, EMT.R2) - vtE = Vector3d( EMT.EXTR) * Len + vtAux * LenAux - Z_AX() * LenRef + vtE = Vector3d( EMT.TDIR) * Len + vtAux * LenAux - Z_AX() * LenRef else EmtSetLastError( 1211, 'Head not allowed ' .. EMT.HEAD) end diff --git a/UpdateLog.txt b/UpdateLog.txt index d121809..3c63969 100644 --- a/UpdateLog.txt +++ b/UpdateLog.txt @@ -3,6 +3,7 @@ Versione 2.7-- (--/--/2024) - (GEN) All'inizio del codice ISO si scrive nel commento anche il controllo numerico utilizzato per la generazione. - (GEN) Aggiunta commenti HEADER e FOOTER per comunicazione con linea o altre macchine, da parte di Essetre. +- (GEN) In MyAdjustLinearAxes si utilizza TDIR per calcolarsi gli offset per compatibilità con lavorazioni a 5 assi. Versione 2.7b1 (20/02/2024) - (SIM-GEN) Aggiunta possibilità di settare HCING/TCING nelle note di ogni singola lavorazione per gestire parte non pinzabile del pezzo. Funziona solo con nuovo pinzaggio. From bf0c9460c6cee32c74b20f9537eb3e83160e7467 Mon Sep 17 00:00:00 2001 From: "andrea.villa" Date: Wed, 26 Mar 2025 12:15:03 +0100 Subject: [PATCH 3/3] Commit per versione --- UpdateLog.txt | 2 +- Version.lua | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/UpdateLog.txt b/UpdateLog.txt index 3c63969..cb7218a 100644 --- a/UpdateLog.txt +++ b/UpdateLog.txt @@ -1,6 +1,6 @@ ==== Common_FAST Update Log ==== -Versione 2.7-- (--/--/2024) +Versione 2.7c1 (26/03/2024) - (GEN) All'inizio del codice ISO si scrive nel commento anche il controllo numerico utilizzato per la generazione. - (GEN) Aggiunta commenti HEADER e FOOTER per comunicazione con linea o altre macchine, da parte di Essetre. - (GEN) In MyAdjustLinearAxes si utilizza TDIR per calcolarsi gli offset per compatibilità con lavorazioni a 5 assi. diff --git a/Version.lua b/Version.lua index e0a36b2..beb0c0c 100644 --- a/Version.lua +++ b/Version.lua @@ -3,7 +3,7 @@ local InfoCommon_STD_PP = { NAME = 'Common_FAST', -- nome script PP standard - VERSION = '2.7--', -- versione script + VERSION = '2.7c1', -- versione script MIN_MACH_VER_PP_COMMON = '2.5k1' -- versione minima kernel }