2 Commits

Author SHA1 Message Date
NicolaP 5af515b74b Carico Digitale5SV 2021-10-28 13:02:43 +02:00
NicolaP f235391740 Aggiornamento Digitale5HsmSV 2021-10-28 12:55:28 +02:00
94 changed files with 5177 additions and 7 deletions
Binary file not shown.
Binary file not shown.
+2 -1
View File
@@ -65,7 +65,7 @@ VacuumOff=PLC,Application.GVL_HMI_OMAG.HMI_samr_vacuum_off
BypassState=PLC,Application.GVL_HMI_OMAG.HMI_samr_By_pass
[Table]
AdditionalTable=0
AdditionalTable=10
[Tools]
Drillbit=1
@@ -238,6 +238,7 @@ CurrSawSideFinishing=Finish_Saw600_Side
CurrSawSingle=
CurrWaterJet=
CurrWaterJetting=
CurrPocketing=
[Materials]
CurrMaterial=3
+3 -1
View File
@@ -272,7 +272,7 @@ end
---------------------------------------------------------------------
-- Funzione per resettare tutte le attivazioni della macchina
function OnResetMachine()
function OnResetMachine( bLeaveVMill)
EmtUnlinkAllRawPartsFromGroups()
ResetVacuum()
-- se esiste, disattivo la testa HSM
@@ -281,6 +281,7 @@ function OnResetMachine()
EgtSetAxisPos( 'B', 90)
end
-- nascondo Vmill
if not bLeaveVMill then
local nRawId = EgtGetFirstRawPart()
while nRawId do
local nVmId = EgtGetFirstNameInGroup( nRawId, 'VMill')
@@ -292,6 +293,7 @@ function OnResetMachine()
nRawId = EgtGetNextRawPart( nRawId)
end
end
end
-- Funzioni per attivare/disattivare le ventose
function ParseVacuumCmd(sVac)
-- recupero stato richiesto
+14 -5
View File
@@ -17,6 +17,8 @@
-- 2020/07/28 Ver 2.2g1 Corretta soffiatura ventose di lato (M224 e non M115).
-- 2021/07/07 Ver 2.3g1 Modifiche per gestione pausa.
-- 2021/07/07 Ver 2.3i2 Modifiche per gestione pausa.
-- 2021/10/14 Ver 2.3j1 Modifiche parametri M131 (assorbimento mandrino).
-- 2021/10/18 Ver 2.3j2 Migliorata simulazione per estensione corse dipendente da C.
-- Intestazioni
require( 'EmtGenerator')
@@ -29,6 +31,7 @@ local VacuumExtraZ = -10
local VacuumExtraY = -1
local SideAngAlongXOffs = 0.0
local EnableM227 = false
local NewM131 = true
local ProbeBaseInd = 120
local RedAcc = 5
@@ -65,8 +68,9 @@ function OnProgramStart()
EMT.VACTYPE = EgtGetInfo( EgtGetHeadId( 'H4') or GDB_ID.NULL, 'VacType', 'i') or 0
EmitVacuumType()
EmitMeasUnit()
-- Recupero se attiva gestione velocità ridotta a inizio/fine taglio
-- Path file Ini di macchina
local sMachIni = EgtGetCurrMachineDir() .. '\\' .. EMT.MACHNAME .. '.ini'
-- Recupero se attiva gestione velocità ridotta a inizio/fine taglio
EMT.CUTFSEV = ( tonumber( EgtGetStringFromIni( 'Nest', 'CutFsevLen', '0', sMachIni)) > 0.1)
-- Recupero se richiesta pausa dopo sgrossatura cornici
EMT.FRAME_PAUSE = ( tonumber( EgtGetStringFromIni( 'Frame', 'Pause', '1', sMachIni)) ~= 0)
@@ -429,7 +433,7 @@ function OnRapid()
end
end
-- se rapido sopra inizio e lavorazione oppure lavaggio, accensione acqua
if EMT.FLAG == 1 and ( not EMT.OPEISDISP or EMT.PATHISWASH) then
if ( EMT.FLAG == 1 or EMT.FLAG == 0) and ( not EMT.OPEISDISP or EMT.PATHISWASH) then
EmitCoolant()
end
-- se altrimenti risalita a Z max a fine lavorazione
@@ -660,8 +664,13 @@ function EmitSpeed()
-- avvio rotazione
EmtOutput( 'M153 S='..EgtNumToString(EMT.S,0))
-- assorbimento massimo e minima feed
EmtOutput( 'E30011='..EgtNumToString(EMT.MAXABSORPTION*100,0))
EmtOutput( 'E30014='..EgtNumToString(EMT.MINFEED,0))
if NewM131 then
EmtOutput( 'E30011='..EgtNumToString( EMT.MAXABSORPTION, 1))
EmtOutput( 'E30014='..EmtLenToString( EMT.MINFEED, 1))
else
EmtOutput( 'E30011='..EgtNumToString( EMT.MAXABSORPTION * 100, 0))
EmtOutput( 'E30014='..EgtNumToString( EMT.MINFEED, 0))
end
EmtOutput( 'M131')
-- dichiaro rotazione attiva
EMT.SPEEDON = 1
@@ -992,7 +1001,7 @@ end
---------------------------------------------------------------------
function OnSimulEnd()
OnResetMachine()
OnResetMachine( true)
end
---------------------------------------------------------------------
+27
View File
@@ -0,0 +1,27 @@
-- 2015/11/26 09:30:00
-- Comando modalità 3 assi
-- Intestazioni
require( 'EgtBase')
_ENV = EgtProtectGlobal()
EgtEnableDebug( false)
-- Tavola di passaggio valori
local CMD = {}
CMD.F=0
CMD.S=0
CMD.L1=0
CMD.L2=0
CMD.L3=0
CMD.R1=0
CMD.R2=0
CMD.CMDSTRING = ""
CMD.ERR = 0
_G.CMD = CMD
function CmdString()
CMD.CMDSTRING="G150 S0"
--CMD.CMDSTRING="G24-"
CMD.DOUBLESTART=true
end
_G.CmdString=CmdString
+27
View File
@@ -0,0 +1,27 @@
-- 2015/11/26 09:30:00
-- Comando modalità 5 assi
-- Intestazioni
require( 'EgtBase')
_ENV = EgtProtectGlobal()
EgtEnableDebug( false)
-- Tavola di passaggio valori
local CMD = {}
CMD.F=0
CMD.S=0
CMD.L1=0
CMD.L2=0
CMD.L3=0
CMD.R1=0
CMD.R2=0
CMD.CMDSTRING = ""
CMD.ERR = 0
_G.CMD = CMD
function CmdString()
CMD.CMDSTRING="G150 EU0 EV0 EW0 EA0 EB" .. EgtNumToString(-90+CMD.R2,3) .. " EC" .. EgtNumToString(CMD.R1,3)
--CMD.CMDSTRING = "G24+ XYZ P1/0/0 Q0/1/0 R0/0/1"
CMD.DOUBLESTART=true
end
_G.CmdString=CmdString
+25
View File
@@ -0,0 +1,25 @@
-- 2015/11/26 09:30:00
-- Comando accendi laser
-- Intestazioni
require( 'EgtBase')
_ENV = EgtProtectGlobal()
EgtEnableDebug( false)
-- Tavola di passaggio valori
local CMD = {}
CMD.F=0
CMD.S=0
CMD.L1=0
CMD.L2=0
CMD.L3=0
CMD.R1=0
CMD.R2=0
CMD.CMDSTRING = ""
CMD.ERR = 0
_G.CMD = CMD
function CmdString()
CMD.CMDSTRING="M115"
end
_G.CmdString=CmdString
+87
View File
@@ -0,0 +1,87 @@
-- 2016/03/14
-- Comando muovi un asse
-- Intestazioni
require( 'EgtBase')
_ENV = EgtProtectGlobal()
EgtEnableDebug( false)
-- Tavola di passaggio valori
local CMD = {}
CMD.CMDSTRING = ""
_G.CMD = CMD
function CmdString()
-- Modo di funzionamento
local bNewMode = true
-- Nuovo modo
if bNewMode then
local sMove
-- se movimento assi lineari
if CMD.AXISNAME == 'X' or CMD.AXISNAME == 'Y' or CMD.AXISNAME == 'Z' then
-- se modalità 3 assi
if not CMD.G24 then
-- movimento lungo l'asse indicato
local dMove = 0
if CMD.AXISNAME == 'X' then
dMove = CMD.L1o + CMD.AXISMOVE
elseif CMD.AXISNAME == 'Y' then
dMove = CMD.L2o + CMD.AXISMOVE
else -- 'Z'
dMove = CMD.L3o + CMD.AXISMOVE
end
sMove = CMD.AXISNAME..EgtNumToString(dMove,3)
-- altrimenti modalità 5 assi
else
-- vettore movimento
local vtMove
if CMD.AXISNAME == 'X' then
vtMove = Vector3d( CMD.AXISMOVE, 0, 0)
elseif CMD.AXISNAME == 'Y' then
vtMove = Vector3d( 0, CMD.AXISMOVE, 0)
else -- 'Z'
vtMove = Vector3d( 0, 0, CMD.AXISMOVE)
end
-- porto il movimento in riferimento macchina
vtMove:rotate( Y_AX(), CMD.R2 - 90)
vtMove:rotate( Z_AX(), CMD.R1)
sMove = 'X' .. EgtNumToString( CMD.L1o + vtMove:getX(), 3) ..
' Y' .. EgtNumToString( CMD.L2o + vtMove:getY(), 3) ..
' Z' .. EgtNumToString( CMD.L3o + vtMove:getZ(), 3)
end
-- altrimenti movimento assi rotanti
else
sMove = CMD.AXISNAME..EgtNumToString(CMD.AXISMOVE,3)
end
-- comando
if CMD.G0 then
CMD.CMDSTRING = "G24- G52 G0 G71 "..sMove
else
CMD.CMDSTRING = "G24- G52 G1 G71 "..sMove.." F"..EgtNumToString(CMD.F,0)
end
-- Vecchio modo
else
-- assegno pre-comando
local sPre = ""
-- assegno il valore dell'asse
local dVal = 0
-- gli assi lineari sono in incrementale : aggiungo il movimento al valore corrente
if CMD.AXISNAME == 'X' then
dVal = CMD.L1 + CMD.AXISMOVE
elseif CMD.AXISNAME == 'Y' then
dVal = CMD.L2 + CMD.AXISMOVE
elseif CMD.AXISNAME == 'Z' then
dVal = CMD.L3 + CMD.AXISMOVE
-- gli assi rotanti disabilitano il piano di lavoro generico e sono in assoluto rispetto a 0M
elseif CMD.AXISNAME == 'C' or CMD.AXISNAME == 'B' then
sPre = "G24- G52 "
end
-- comando
if CMD.G0 then
CMD.CMDSTRING = sPre.."G0 G71 "..CMD.AXISNAME..EgtNumToString(dVal,3)
else
CMD.CMDSTRING = sPre.."G1 G71 "..CMD.AXISNAME..EgtNumToString(dVal,3).." F"..EgtNumToString(CMD.F,0)
end
end
end
_G.CmdString=CmdString
+29
View File
@@ -0,0 +1,29 @@
-- 2015/11/26 09:30:00
-- Comando accendi laser
-- Intestazioni
require( 'EgtBase')
_ENV = EgtProtectGlobal()
EgtEnableDebug( false)
-- Tavola di passaggio valori
local CMD = {}
CMD.F=0
CMD.S=0
CMD.L1=0
CMD.L2=0
CMD.L3=0
CMD.R1=0
CMD.R2=0
CMD.CMDSTRING = ""
CMD.ERR = 0
_G.CMD = CMD
function CmdString()
CMD.EACTIVE=true
CMD.ENUMBER="Application.GVL_HMI_Omag.IPuls_B_Cut"
CMD.EVALUE="1"
CMD.ENUMBER2="Application.GVL_HMI_Omag.IPuls_C_Cut"
CMD.EVALUE2="0"
end
_G.CmdString=CmdString
+30
View File
@@ -0,0 +1,30 @@
-- 2015/11/26 09:30:00
-- Comando accendi acqua
-- Intestazioni
require( 'EgtBase')
_ENV = EgtProtectGlobal()
EgtEnableDebug( false)
-- Tavola di passaggio valori
local CMD = {}
CMD.F=0
CMD.S=0
CMD.L1=0
CMD.L2=0
CMD.L3=0
CMD.R1=0
CMD.R2=0
CMD.CMDSTRING = ""
CMD.ERR = 0
_G.CMD = CMD
function CmdString()
--CMD.CMDSTRING="M224"
CMD.EACTIVE=true
CMD.ENUMBER="Application.GVL_HMI_OMAG.ISam_air_on_Cut"
CMD.EVALUE="1"
CMD.ENUMBER2="Application.GVL_HMI_OMAG.ISam_air_on_Cut"
CMD.EVALUE2="0"
end
_G.CmdString=CmdString
+28
View File
@@ -0,0 +1,28 @@
-- 2021/03/18 09:30:00
-- Comando accendi acqua
-- Intestazioni
require( 'EgtBase')
_ENV = EgtProtectGlobal()
EgtEnableDebug( false)
-- Tavola di passaggio valori
local CMD = {}
CMD.F=0
CMD.S=0
CMD.L1=0
CMD.L2=0
CMD.L3=0
CMD.R1=0
CMD.R2=0
CMD.CMDSTRING = ""
CMD.ERR = 0
_G.CMD = CMD
function CmdString()
--CMD.CMDSTRING="E30131=0"
CMD.EACTIVE=true
CMD.ENUMBER="Application.GVL_HMI_OMAG.IBy_pass_Cut"
CMD.EVALUE="0"
end
_G.CmdString=CmdString
+28
View File
@@ -0,0 +1,28 @@
-- 2015/11/26 09:30:00
-- Comando accendi acqua
-- Intestazioni
require( 'EgtBase')
_ENV = EgtProtectGlobal()
EgtEnableDebug( false)
-- Tavola di passaggio valori
local CMD = {}
CMD.F=0
CMD.S=0
CMD.L1=0
CMD.L2=0
CMD.L3=0
CMD.R1=0
CMD.R2=0
CMD.CMDSTRING = ""
CMD.ERR = 0
_G.CMD = CMD
function CmdString()
--CMD.CMDSTRING="E30131=1"
CMD.EACTIVE=true
CMD.ENUMBER="Application.GVL_HMI_OMAG.IBy_pass_Cut"
CMD.EVALUE="1"
end
_G.CmdString=CmdString
+29
View File
@@ -0,0 +1,29 @@
-- 2015/11/26 09:30:00
-- Comando accendi laser
-- Intestazioni
require( 'EgtBase')
_ENV = EgtProtectGlobal()
EgtEnableDebug( false)
-- Tavola di passaggio valori
local CMD = {}
CMD.F=0
CMD.S=0
CMD.L1=0
CMD.L2=0
CMD.L3=0
CMD.R1=0
CMD.R2=0
CMD.CMDSTRING = ""
CMD.ERR = 0
_G.CMD = CMD
function CmdString()
CMD.EACTIVE=true
CMD.ENUMBER="Application.GVL_HMI_Omag.IPuls_C_Cut"
CMD.EVALUE="1"
CMD.ENUMBER2="Application.GVL_HMI_Omag.IPuls_B_Cut"
CMD.EVALUE2="0"
end
_G.CmdString=CmdString
+30
View File
@@ -0,0 +1,30 @@
-- 2015/11/26 09:30:00
-- Comando accendi acqua
-- Intestazioni
require( 'EgtBase')
_ENV = EgtProtectGlobal()
EgtEnableDebug( false)
-- Tavola di passaggio valori
local CMD = {}
CMD.F=0
CMD.S=0
CMD.L1=0
CMD.L2=0
CMD.L3=0
CMD.R1=0
CMD.R2=0
CMD.CMDSTRING = ""
CMD.ERR = 0
_G.CMD = CMD
function CmdString()
--CMD.CMDSTRING="M251"
CMD.EACTIVE=true
CMD.ENUMBER="Application.GVL_HMI_OMAG.ISam_123_off_Cut"
CMD.EVALUE="1"
CMD.ENUMBER2="Application.GVL_HMI_OMAG.ISam_123_off_Cut"
CMD.EVALUE2="0"
end
_G.CmdString=CmdString
+30
View File
@@ -0,0 +1,30 @@
-- 2015/11/26 09:30:00
-- Comando accendi acqua
-- Intestazioni
require( 'EgtBase')
_ENV = EgtProtectGlobal()
EgtEnableDebug( false)
-- Tavola di passaggio valori
local CMD = {}
CMD.F=0
CMD.S=0
CMD.L1=0
CMD.L2=0
CMD.L3=0
CMD.R1=0
CMD.R2=0
CMD.CMDSTRING = ""
CMD.ERR = 0
_G.CMD = CMD
function CmdString()
--CMD.CMDSTRING="M253"
CMD.EACTIVE=true
CMD.ENUMBER="Application.GVL_HMI_OMAG.ISam_456_off_Cut"
CMD.EVALUE="1"
CMD.ENUMBER2="Application.GVL_HMI_OMAG.ISam_456_off_Cut"
CMD.EVALUE2="0"
end
_G.CmdString=CmdString
+25
View File
@@ -0,0 +1,25 @@
-- 2015/11/26 09:30:00
-- Comando accendi laser
-- Intestazioni
require( 'EgtBase')
_ENV = EgtProtectGlobal()
EgtEnableDebug( false)
-- Tavola di passaggio valori
local CMD = {}
CMD.F=0
CMD.S=0
CMD.L1=0
CMD.L2=0
CMD.L3=0
CMD.R1=0
CMD.R2=0
CMD.CMDSTRING = ""
CMD.ERR = 0
_G.CMD = CMD
function CmdString()
CMD.CMDSTRING="E30130=1"
end
_G.CmdString=CmdString
@@ -0,0 +1,29 @@
-- 2015/11/26 09:30:00
-- Comando accendi laser
-- Intestazioni
require( 'EgtBase')
_ENV = EgtProtectGlobal()
EgtEnableDebug( false)
-- Tavola di passaggio valori
local CMD = {}
CMD.F=0
CMD.S=0
CMD.L1=0
CMD.L2=0
CMD.L3=0
CMD.R1=0
CMD.R2=0
CMD.CMDSTRING = ""
CMD.ERR = 0
_G.CMD = CMD
function CmdString()
CMD.EACTIVE=true
CMD.ENUMBER="Application.GVL_HMI_Omag.IConsenso_chiusura_porte_Cut"
CMD.EVALUE="1"
CMD.ENUMBER2="Application.GVL_HMI_Omag.IConsenso_chiusura_porte_Cut"
CMD.EVALUE2="0"
end
_G.CmdString=CmdString
@@ -0,0 +1,29 @@
-- 2015/11/26 09:30:00
-- Comando accendi laser
-- Intestazioni
require( 'EgtBase')
_ENV = EgtProtectGlobal()
EgtEnableDebug( false)
-- Tavola di passaggio valori
local CMD = {}
CMD.F=0
CMD.S=0
CMD.L1=0
CMD.L2=0
CMD.L3=0
CMD.R1=0
CMD.R2=0
CMD.CMDSTRING = ""
CMD.ERR = 0
_G.CMD = CMD
function CmdString()
CMD.EACTIVE=true
CMD.ENUMBER="Application.GVL_HMI_Omag.IConsenso_chiusura_porte_Cut"
CMD.EVALUE="1"
CMD.ENUMBER2="Application.GVL_HMI_Omag.IConsenso_chiusura_porte_Cut"
CMD.EVALUE2="0"
end
_G.CmdString=CmdString
+25
View File
@@ -0,0 +1,25 @@
-- 2015/11/26 09:30:00
-- Comando accendi laser
-- Intestazioni
require( 'EgtBase')
_ENV = EgtProtectGlobal()
EgtEnableDebug( false)
-- Tavola di passaggio valori
local CMD = {}
CMD.F=0
CMD.S=0
CMD.L1=0
CMD.L2=0
CMD.L3=0
CMD.R1=0
CMD.R2=0
CMD.CMDSTRING = ""
CMD.ERR = 0
_G.CMD = CMD
function CmdString()
CMD.CMDSTRING="E30129=1"
end
_G.CmdString=CmdString
@@ -0,0 +1,29 @@
-- 2015/11/26 09:30:00
-- Comando accendi laser
-- Intestazioni
require( 'EgtBase')
_ENV = EgtProtectGlobal()
EgtEnableDebug( false)
-- Tavola di passaggio valori
local CMD = {}
CMD.F=0
CMD.S=0
CMD.L1=0
CMD.L2=0
CMD.L3=0
CMD.R1=0
CMD.R2=0
CMD.CMDSTRING = ""
CMD.ERR = 0
_G.CMD = CMD
function CmdString()
CMD.EACTIVE=true
CMD.ENUMBER="Application.GVL_HMI_Omag.IConsenso_apertura_porte_Cut"
CMD.EVALUE="1"
CMD.ENUMBER2="Application.GVL_HMI_Omag.IConsenso_apertura_porte_Cut"
CMD.EVALUE2="0"
end
_G.CmdString=CmdString
+29
View File
@@ -0,0 +1,29 @@
-- 2015/11/26 09:30:00
-- Comando accendi laser
-- Intestazioni
require( 'EgtBase')
_ENV = EgtProtectGlobal()
EgtEnableDebug( false)
-- Tavola di passaggio valori
local CMD = {}
CMD.F=0
CMD.S=0
CMD.L1=0
CMD.L2=0
CMD.L3=0
CMD.R1=0
CMD.R2=0
CMD.CMDSTRING = ""
CMD.ERR = 0
_G.CMD = CMD
function CmdString()
CMD.EACTIVE=true
CMD.ENUMBER="Application.GVL_HMI_Omag.IConsenso_apertura_porte_Cut"
CMD.EVALUE="1"
CMD.ENUMBER2="Application.GVL_HMI_Omag.IConsenso_apertura_porte_Cut"
CMD.EVALUE2="0"
end
_G.CmdString=CmdString
@@ -0,0 +1,25 @@
-- 2015/11/26 09:30:00
-- Comando accendi acqua
-- Intestazioni
require( 'EgtBase')
_ENV = EgtProtectGlobal()
EgtEnableDebug( false)
-- Tavola di passaggio valori
local CMD = {}
CMD.F=0
CMD.S=0
CMD.L1=0
CMD.L2=0
CMD.L3=0
CMD.R1=0
CMD.R2=0
CMD.CMDSTRING = ""
CMD.ERR = 0
_G.CMD = CMD
function CmdString()
CMD.CMDSTRING="M9"
end
_G.CmdString=CmdString
+25
View File
@@ -0,0 +1,25 @@
-- 2015/11/26 09:30:00
-- Comando accendi acqua
-- Intestazioni
require( 'EgtBase')
_ENV = EgtProtectGlobal()
EgtEnableDebug( false)
-- Tavola di passaggio valori
local CMD = {}
CMD.F=0
CMD.S=0
CMD.L1=0
CMD.L2=0
CMD.L3=0
CMD.R1=0
CMD.R2=0
CMD.CMDSTRING = ""
CMD.ERR = 0
_G.CMD = CMD
function CmdString()
CMD.CMDSTRING="M7"
end
_G.CmdString=CmdString
+26
View File
@@ -0,0 +1,26 @@
-- 2015/11/26 09:30:00
-- Comando accendi laser
-- Intestazioni
require( 'EgtBase')
_ENV = EgtProtectGlobal()
EgtEnableDebug( false)
-- Tavola di passaggio valori
local CMD = {}
CMD.F=0
CMD.S=0
CMD.L1=0
CMD.L2=0
CMD.L3=0
CMD.R1=0
CMD.R2=0
CMD.CMDSTRING = ""
CMD.ERR = 0
_G.CMD = CMD
function CmdString()
CMD.CMDSTRING="M145"
CMD.DOUBLESTART=true
end
_G.CmdString=CmdString
@@ -0,0 +1,25 @@
-- 2015/11/26 09:30:00
-- Comando accendi acqua
-- Intestazioni
require( 'EgtBase')
_ENV = EgtProtectGlobal()
EgtEnableDebug( false)
-- Tavola di passaggio valori
local CMD = {}
CMD.F=0
CMD.S=0
CMD.L1=0
CMD.L2=0
CMD.L3=0
CMD.R1=0
CMD.R2=0
CMD.CMDSTRING = ""
CMD.ERR = 0
_G.CMD = CMD
function CmdString()
CMD.CMDSTRING="M9"
end
_G.CmdString=CmdString
+25
View File
@@ -0,0 +1,25 @@
-- 2015/11/26 09:30:00
-- Comando accendi acqua
-- Intestazioni
require( 'EgtBase')
_ENV = EgtProtectGlobal()
EgtEnableDebug( false)
-- Tavola di passaggio valori
local CMD = {}
CMD.F=0
CMD.S=0
CMD.L1=0
CMD.L2=0
CMD.L3=0
CMD.R1=0
CMD.R2=0
CMD.CMDSTRING = ""
CMD.ERR = 0
_G.CMD = CMD
function CmdString()
CMD.CMDSTRING="M8"
end
_G.CmdString=CmdString
+25
View File
@@ -0,0 +1,25 @@
-- 2015/11/26 09:30:00
-- Comando spegni laser
-- Intestazioni
require( 'EgtBase')
_ENV = EgtProtectGlobal()
EgtEnableDebug( false)
-- Tavola di passaggio valori
local CMD = {}
CMD.F=0
CMD.S=0
CMD.L1=0
CMD.L2=0
CMD.L3=0
CMD.R1=0
CMD.R2=0
CMD.CMDSTRING = ""
CMD.ERR = 0
_G.CMD = CMD
function CmdString()
CMD.CMDSTRING="M184"
end
_G.CmdString=CmdString
+25
View File
@@ -0,0 +1,25 @@
-- 2015/11/26 09:30:00
-- Comando accendi laser
-- Intestazioni
require( 'EgtBase')
_ENV = EgtProtectGlobal()
EgtEnableDebug( false)
-- Tavola di passaggio valori
local CMD = {}
CMD.F=0
CMD.S=0
CMD.L1=0
CMD.L2=0
CMD.L3=0
CMD.R1=0
CMD.R2=0
CMD.CMDSTRING = ""
CMD.ERR = 0
_G.CMD = CMD
function CmdString()
CMD.CMDSTRING="M183"
end
_G.CmdString=CmdString
@@ -0,0 +1,29 @@
-- 2015/11/26 09:30:00
-- Comando spegni laser
-- Intestazioni
require( 'EgtBase')
_ENV = EgtProtectGlobal()
EgtEnableDebug( false)
-- Tavola di passaggio valori
local CMD = {}
CMD.F=0
CMD.S=0
CMD.L1=0
CMD.L2=0
CMD.L3=0
CMD.R1=0
CMD.R2=0
CMD.CMDSTRING = ""
CMD.ERR = 0
_G.CMD = CMD
function CmdString()
CMD.EACTIVE=true
CMD.ENUMBER="Application.GVL_HMI_OMAG.IStart_Laser_Punto_Cut"
CMD.EVALUE="1"
CMD.ENUMBER2="Application.GVL_HMI_OMAG.IStart_Laser_Punto_Cut"
CMD.EVALUE2="0"
end
_G.CmdString=CmdString
@@ -0,0 +1,29 @@
-- 2015/11/26 09:30:00
-- Comando accendi laser
-- Intestazioni
require( 'EgtBase')
_ENV = EgtProtectGlobal()
EgtEnableDebug( false)
-- Tavola di passaggio valori
local CMD = {}
CMD.F=0
CMD.S=0
CMD.L1=0
CMD.L2=0
CMD.L3=0
CMD.R1=0
CMD.R2=0
CMD.CMDSTRING = ""
CMD.ERR = 0
_G.CMD = CMD
function CmdString()
CMD.EACTIVE=true
CMD.ENUMBER="Application.GVL_HMI_OMAG.IStart_Laser_Punto_Cut"
CMD.EVALUE="1"
CMD.ENUMBER2="Application.GVL_HMI_OMAG.IStart_Laser_Punto_Cut"
CMD.EVALUE2="0"
end
_G.CmdString=CmdString
@@ -0,0 +1,32 @@
-- 2021/08/03 16:12:00
-- Comando spegni laser
-- Intestazioni
require( 'EgtBase')
_ENV = EgtProtectGlobal()
EgtEnableDebug( false)
-- Tavola di passaggio valori
local CMD = {}
CMD.F=0
CMD.S=0
CMD.L1=0
CMD.L2=0
CMD.L3=0
CMD.R1=0
CMD.R2=0
CMD.CMDSTRING = ""
CMD.ERR = 0
_G.CMD = CMD
function CmdString()
CMD.CMDSTRING="M186"
-- NUOVA VERSIONE --
CMD.EACTIVE=true
CMD.ENUMBER="Application.GVL_HMI_OMAG.IStart_Laser_Tracc_Cut"
CMD.EVALUE="1"
CMD.ENUMBER2="Application.GVL_HMI_OMAG.IStart_Laser_Tracc_Cut"
CMD.EVALUE2="0"
--
end
_G.CmdString=CmdString
@@ -0,0 +1,32 @@
-- 2021/08/03 16:12:00
-- Comando accendi laser
-- Intestazioni
require( 'EgtBase')
_ENV = EgtProtectGlobal()
EgtEnableDebug( false)
-- Tavola di passaggio valori
local CMD = {}
CMD.F=0
CMD.S=0
CMD.L1=0
CMD.L2=0
CMD.L3=0
CMD.R1=0
CMD.R2=0
CMD.CMDSTRING = ""
CMD.ERR = 0
_G.CMD = CMD
function CmdString()
CMD.CMDSTRING="M185"
-- NUOVA VERSIONE --
CMD.EACTIVE=true
CMD.ENUMBER="Application.GVL_HMI_OMAG.IStart_Laser_Tracc_Cut"
CMD.EVALUE="1"
CMD.ENUMBER2="Application.GVL_HMI_OMAG.IStart_Laser_Tracc_Cut"
CMD.EVALUE2="0"
--
end
_G.CmdString=CmdString
+29
View File
@@ -0,0 +1,29 @@
-- 2015/11/26 09:30:00
-- Comando accendi laser
-- Intestazioni
require( 'EgtBase')
_ENV = EgtProtectGlobal()
EgtEnableDebug( false)
-- Tavola di passaggio valori
local CMD = {}
CMD.F=0
CMD.S=0
CMD.L1=0
CMD.L2=0
CMD.L3=0
CMD.R1=0
CMD.R2=0
CMD.CMDSTRING = ""
CMD.ERR = 0
_G.CMD = CMD
function CmdString()
CMD.EACTIVE=true
CMD.ENUMBER="Application.GVL_HMI_Omag.Ilimit_Z_on_Cut"
CMD.EVALUE="1"
CMD.ENUMBER2="Application.GVL_HMI_Omag.Ilimit_Z_on_Cut"
CMD.EVALUE2="0"
end
_G.CmdString=CmdString
+28
View File
@@ -0,0 +1,28 @@
-- 2015/11/26 09:30:00
-- Comando accendi laser
-- Intestazioni
require( 'EgtBase')
_ENV = EgtProtectGlobal()
EgtEnableDebug( false)
-- Tavola di passaggio valori
local CMD = {}
CMD.F=0
CMD.S=0
CMD.L1=0
CMD.L2=0
CMD.L3=0
CMD.R1=0
CMD.R2=0
CMD.CMDSTRING = ""
CMD.ERR = 0
_G.CMD = CMD
function CmdString()
CMD.EACTIVE=true
CMD.ENUMBER="Application.GVL_HMI_Omag.Ilimit_Z_on_Cut"
CMD.EVALUE="1"
CMD.ENUMBER2="Application.GVL_HMI_Omag.Ilimit_Z_on_Cut"
CMD.EVALUE2="0"
_G.CmdString=CmdString
+30
View File
@@ -0,0 +1,30 @@
-- 2015/11/26 09:30:00
-- Comando accendi acqua
-- Intestazioni
require( 'EgtBase')
_ENV = EgtProtectGlobal()
EgtEnableDebug( false)
-- Tavola di passaggio valori
local CMD = {}
CMD.F=0
CMD.S=0
CMD.L1=0
CMD.L2=0
CMD.L3=0
CMD.R1=0
CMD.R2=0
CMD.CMDSTRING = ""
CMD.ERR = 0
_G.CMD = CMD
function CmdString()
--CMD.CMDSTRING="M230"
CMD.EACTIVE=true
CMD.ENUMBER="Application.GVL_HMI_OMAG.ISam_1_on_Cut"
CMD.EVALUE="1"
CMD.ENUMBER2="Application.GVL_HMI_OMAG.ISam_1_on_Cut"
CMD.EVALUE2="0"
end
_G.CmdString=CmdString
+30
View File
@@ -0,0 +1,30 @@
-- 2015/11/26 09:30:00
-- Comando accendi acqua
-- Intestazioni
require( 'EgtBase')
_ENV = EgtProtectGlobal()
EgtEnableDebug( false)
-- Tavola di passaggio valori
local CMD = {}
CMD.F=0
CMD.S=0
CMD.L1=0
CMD.L2=0
CMD.L3=0
CMD.R1=0
CMD.R2=0
CMD.CMDSTRING = ""
CMD.ERR = 0
_G.CMD = CMD
function CmdString()
--CMD.CMDSTRING="M250"
CMD.EACTIVE=true
CMD.ENUMBER="Application.GVL_HMI_OMAG.ISam_123_on_Cut"
CMD.EVALUE="1"
CMD.ENUMBER2="Application.GVL_HMI_OMAG.ISam_123_on_Cut"
CMD.EVALUE2="0"
end
_G.CmdString=CmdString
+30
View File
@@ -0,0 +1,30 @@
-- 2015/11/26 09:30:00
-- Comando accendi acqua
-- Intestazioni
require( 'EgtBase')
_ENV = EgtProtectGlobal()
EgtEnableDebug( false)
-- Tavola di passaggio valori
local CMD = {}
CMD.F=0
CMD.S=0
CMD.L1=0
CMD.L2=0
CMD.L3=0
CMD.R1=0
CMD.R2=0
CMD.CMDSTRING = ""
CMD.ERR = 0
_G.CMD = CMD
function CmdString()
--CMD.CMDSTRING="M231"
CMD.EACTIVE=true
CMD.ENUMBER="Application.GVL_HMI_OMAG.ISam_2_on_Cut"
CMD.EVALUE="1"
CMD.ENUMBER2="Application.GVL_HMI_OMAG.ISam_2_on_Cut"
CMD.EVALUE2="0"
end
_G.CmdString=CmdString
+30
View File
@@ -0,0 +1,30 @@
-- 2015/11/26 09:30:00
-- Comando accendi acqua
-- Intestazioni
require( 'EgtBase')
_ENV = EgtProtectGlobal()
EgtEnableDebug( false)
-- Tavola di passaggio valori
local CMD = {}
CMD.F=0
CMD.S=0
CMD.L1=0
CMD.L2=0
CMD.L3=0
CMD.R1=0
CMD.R2=0
CMD.CMDSTRING = ""
CMD.ERR = 0
_G.CMD = CMD
function CmdString()
--CMD.CMDSTRING="M252"
CMD.EACTIVE=true
CMD.ENUMBER="Application.GVL_HMI_OMAG.ISam_456_on_Cut"
CMD.EVALUE="1"
CMD.ENUMBER2="Application.GVL_HMI_OMAG.ISam_456_on_Cut"
CMD.EVALUE2="0"
end
_G.CmdString=CmdString
+30
View File
@@ -0,0 +1,30 @@
-- 2015/11/26 09:30:00
-- Comando accendi acqua
-- Intestazioni
require( 'EgtBase')
_ENV = EgtProtectGlobal()
EgtEnableDebug( false)
-- Tavola di passaggio valori
local CMD = {}
CMD.F=0
CMD.S=0
CMD.L1=0
CMD.L2=0
CMD.L3=0
CMD.R1=0
CMD.R2=0
CMD.CMDSTRING = ""
CMD.ERR = 0
_G.CMD = CMD
function CmdString()
--CMD.CMDSTRING="M232"
CMD.EACTIVE=true
CMD.ENUMBER="Application.GVL_HMI_OMAG.ISam_3_on_Cut"
CMD.EVALUE="1"
CMD.ENUMBER2="Application.GVL_HMI_OMAG.ISam_3_on_Cut"
CMD.EVALUE2="0"
end
_G.CmdString=CmdString
+30
View File
@@ -0,0 +1,30 @@
-- 2015/11/26 09:30:00
-- Comando accendi acqua
-- Intestazioni
require( 'EgtBase')
_ENV = EgtProtectGlobal()
EgtEnableDebug( false)
-- Tavola di passaggio valori
local CMD = {}
CMD.F=0
CMD.S=0
CMD.L1=0
CMD.L2=0
CMD.L3=0
CMD.R1=0
CMD.R2=0
CMD.CMDSTRING = ""
CMD.ERR = 0
_G.CMD = CMD
function CmdString()
--CMD.CMDSTRING="M240"
CMD.EACTIVE=true
CMD.ENUMBER="Application.GVL_HMI_OMAG.ISam_4_on_Cut"
CMD.EVALUE="1"
CMD.ENUMBER2="Application.GVL_HMI_OMAG.ISam_4_on_Cut"
CMD.EVALUE2="0"
end
_G.CmdString=CmdString
+30
View File
@@ -0,0 +1,30 @@
-- 2015/11/26 09:30:00
-- Comando accendi acqua
-- Intestazioni
require( 'EgtBase')
_ENV = EgtProtectGlobal()
EgtEnableDebug( false)
-- Tavola di passaggio valori
local CMD = {}
CMD.F=0
CMD.S=0
CMD.L1=0
CMD.L2=0
CMD.L3=0
CMD.R1=0
CMD.R2=0
CMD.CMDSTRING = ""
CMD.ERR = 0
_G.CMD = CMD
function CmdString()
--CMD.CMDSTRING="M241"
CMD.EACTIVE=true
CMD.ENUMBER="Application.GVL_HMI_OMAG.ISam_5_on_Cut"
CMD.EVALUE="1"
CMD.ENUMBER2="Application.GVL_HMI_OMAG.ISam_5_on_Cut"
CMD.EVALUE2="0"
end
_G.CmdString=CmdString
+30
View File
@@ -0,0 +1,30 @@
-- 2015/11/26 09:30:00
-- Comando accendi acqua
-- Intestazioni
require( 'EgtBase')
_ENV = EgtProtectGlobal()
EgtEnableDebug( false)
-- Tavola di passaggio valori
local CMD = {}
CMD.F=0
CMD.S=0
CMD.L1=0
CMD.L2=0
CMD.L3=0
CMD.R1=0
CMD.R2=0
CMD.CMDSTRING = ""
CMD.ERR = 0
_G.CMD = CMD
function CmdString()
--CMD.CMDSTRING="M242"
CMD.EACTIVE=true
CMD.ENUMBER="Application.GVL_HMI_OMAG.ISam_6_on_Cut"
CMD.EVALUE="1"
CMD.ENUMBER2="Application.GVL_HMI_OMAG.ISam_6_on_Cut"
CMD.EVALUE2="0"
end
_G.CmdString=CmdString
+29
View File
@@ -0,0 +1,29 @@
-- 2015/11/26 09:30:00
-- Comando accendi laser
-- Intestazioni
require( 'EgtBase')
_ENV = EgtProtectGlobal()
EgtEnableDebug( false)
-- Tavola di passaggio valori
local CMD = {}
CMD.F=0
CMD.S=0
CMD.L1=0
CMD.L2=0
CMD.L3=0
CMD.R1=0
CMD.R2=0
CMD.CMDSTRING = ""
CMD.ERR = 0
_G.CMD = CMD
function CmdString()
CMD.EACTIVE=true
CMD.ENUMBER="Application.GVL_HMI_Omag.IPower_OFF"
CMD.EVALUE="1"
CMD.ENUMBER2="Application.GVL_HMI_Omag.IPower_OFF"
CMD.EVALUE2="0"
end
_G.CmdString=CmdString
+29
View File
@@ -0,0 +1,29 @@
-- 2015/11/26 09:30:00
-- Comando accendi laser
-- Intestazioni
require( 'EgtBase')
_ENV = EgtProtectGlobal()
EgtEnableDebug( false)
-- Tavola di passaggio valori
local CMD = {}
CMD.F=0
CMD.S=0
CMD.L1=0
CMD.L2=0
CMD.L3=0
CMD.R1=0
CMD.R2=0
CMD.CMDSTRING = ""
CMD.ERR = 0
_G.CMD = CMD
function CmdString()
CMD.EACTIVE=true
CMD.ENUMBER="Application.GVL_HMI_Omag.IPower_ON"
CMD.EVALUE="1"
CMD.ENUMBER2="Application.GVL_HMI_Omag.IPower_ON"
CMD.EVALUE2="0"
end
_G.CmdString=CmdString
+36
View File
@@ -0,0 +1,36 @@
-- 2016/02/10 09:30:00
-- Comando tastatura grezzo
-- Intestazioni
require( 'EgtBase')
_ENV = EgtProtectGlobal()
EgtEnableDebug( false)
-- Tavola di passaggio valori
local CMD = {}
CMD.MIDRAWX=0
CMD.MIDRAWY=0
CMD.THICK=0
CMD.TABLEX=0
CMD.TABLEY=0
CMD.TABLEZ=0
CMD.INCHES=nil
CMD.ERR = 0
_G.CMD = CMD
function CMD.CmdString()
local nDec = 3
local dCoeff = 1
if CMD.INCHES then
nDec = 4
dCoeff = 1 / GEO.ONE_INCH
end
CMD.CMDSTRING= "L100=" .. EgtNumToString(CMD.MIDRAWX*dCoeff,nDec ) .. "<br/>" ..
"L101=" .. EgtNumToString(CMD.MIDRAWY*dCoeff,nDec ) .. "<br/>" ..
"L102=" .. EgtNumToString(CMD.THICK*dCoeff,nDec ) .. "<br/>" ..
"L103=" .. EgtNumToString(CMD.TABLEX*dCoeff,nDec ) .. "<br/>" ..
"L104=" .. EgtNumToString(CMD.TABLEY*dCoeff,nDec ) .. "<br/>" ..
"L105=" .. EgtNumToString(CMD.TABLEZ*dCoeff,nDec ) .. "<br/>" ..
"L108=0 L109=1 <br/>" ..
"G77 H7810<br/>M02"
end
+29
View File
@@ -0,0 +1,29 @@
-- 2015/11/26 09:30:00
-- Comando modalità 3 assi
-- Intestazioni
require( 'EgtBase')
_ENV = EgtProtectGlobal()
EgtEnableDebug( false)
-- Tavola di passaggio valori
local CMD = {}
CMD.F=0
CMD.S=0
CMD.L1=0
CMD.L2=0
CMD.L3=0
CMD.R1=0
CMD.R2=0
CMD.CMDSTRING = ""
CMD.ERR = 0
_G.CMD = CMD
function CmdString()
CMD.EACTIVE=true
CMD.ENUMBER="Application.GVL_HMI_Omag.Handwheel_Enable"
CMD.EVALUE="0"
-- CMD.ENUMBER2="Application.GVL_HMI_Omag.Handwheel_Enable"
-- CMD.EVALUE2="0"
end
_G.CmdString=CmdString
+29
View File
@@ -0,0 +1,29 @@
-- 2015/11/26 09:30:00
-- Comando modalità 3 assi
-- Intestazioni
require( 'EgtBase')
_ENV = EgtProtectGlobal()
EgtEnableDebug( false)
-- Tavola di passaggio valori
local CMD = {}
CMD.F=0
CMD.S=0
CMD.L1=0
CMD.L2=0
CMD.L3=0
CMD.R1=0
CMD.R2=0
CMD.CMDSTRING = ""
CMD.ERR = 0
_G.CMD = CMD
function CmdString()
CMD.EACTIVE=true
CMD.ENUMBER="Application.GVL_HMI_Omag.Handwheel_Enable"
CMD.EVALUE="1"
-- CMD.ENUMBER2="Application.GVL_HMI_Omag.Handwheel_Enable"
-- CMD.EVALUE2="0"
end
_G.CmdString=CmdString
+27
View File
@@ -0,0 +1,27 @@
-- 2015/11/26 09:30:00
-- Comando spegni lama
-- Intestazioni
require( 'EgtBase')
_ENV = EgtProtectGlobal()
EgtEnableDebug( false)
-- Tavola di passaggio valori
local CMD = {}
CMD.F=0
CMD.S=0
CMD.L1=0
CMD.L2=0
CMD.L3=0
CMD.R1=0
CMD.R2=0
CMD.DOUBLESTART=false
CMD.CMDSTRING = ""
CMD.ERR = 0
_G.CMD = CMD
function CmdString()
CMD.CMDSTRING="M155"
CMD.DOUBLESTART=true
end
_G.CmdString=CmdString
+30
View File
@@ -0,0 +1,30 @@
-- 2015/11/26 09:30:00
-- Comando spegni lama
-- Intestazioni
require( 'EgtBase')
_ENV = EgtProtectGlobal()
EgtEnableDebug( false)
-- Tavola di passaggio valori
local CMD = {}
CMD.F=0
CMD.S=0
CMD.L1=0
CMD.L2=0
CMD.L3=0
CMD.R1=0
CMD.R2=0
CMD.DOUBLESTART=false
CMD.CMDSTRING = ""
CMD.ERR = 0
_G.CMD = CMD
function CmdString()
CMD.EACTIVE=true
CMD.ENUMBER="Application.GVL_HMI_OMAG.IStop_fresa_Cut"
CMD.EVALUE="1"
CMD.ENUMBER2="Application.GVL_HMI_OMAG.IStart_fresa_Cut"
CMD.EVALUE2="0"
end
_G.CmdString=CmdString
+30
View File
@@ -0,0 +1,30 @@
-- 2015/11/26 09:30:00
-- Comando accendi lama
-- Intestazioni
require( 'EgtBase')
_ENV = EgtProtectGlobal()
EgtEnableDebug( false)
-- Tavola di passaggio valori
local CMD = {}
CMD.F=0
CMD.S=0
CMD.L1=0
CMD.L2=0
CMD.L3=0
CMD.R1=0
CMD.R2=0
CMD.DOUBLESTART=false
CMD.CMDSTRING = ""
CMD.ERR = 0
_G.CMD = CMD
function CmdString()
-- Axium
--CMD.CMDSTRING="M153 E30003=" .. EgtNumToString(CMD.S,0)
-- Flexium
CMD.CMDSTRING="M153 S=" .. EgtNumToString(CMD.S,0)
CMD.DOUBLESTART=true
end
_G.CmdString=CmdString
+30
View File
@@ -0,0 +1,30 @@
-- 2015/11/26 09:30:00
-- Comando accendi lama
-- Intestazioni
require( 'EgtBase')
_ENV = EgtProtectGlobal()
EgtEnableDebug( false)
-- Tavola di passaggio valori
local CMD = {}
CMD.F=0
CMD.S=0
CMD.L1=0
CMD.L2=0
CMD.L3=0
CMD.R1=0
CMD.R2=0
CMD.DOUBLESTART=false
CMD.CMDSTRING = ""
CMD.ERR = 0
_G.CMD = CMD
function CmdString()
CMD.EACTIVE=true
CMD.ENUMBER="Application.GVL_HMI_OMAG.IStop_fresa_Cut"
CMD.EVALUE="0"
CMD.ENUMBER2="Application.GVL_HMI_OMAG.IStart_fresa_Cut"
CMD.EVALUE2="1"
end
_G.CmdString=CmdString
+34
View File
@@ -0,0 +1,34 @@
-- 2019/11/05 09:30:00
-- Comando tastatura lama
-- Intestazioni
require( 'EgtBase')
_ENV = EgtProtectGlobal()
EgtEnableDebug( false)
-- Tavola di passaggio valori
local CMD = {}
CMD.TCPOS=0
CMD.ISSAW=false
CMD.DIAM=0
CMD.THICK=0
CMD.LENGTH=0
CMD.INCHES=nil
CMD.ERR = 0
_G.CMD = CMD
function CMD.CmdString()
local dCoeff = 1
if CMD.INCHES then
dCoeff = 1 / GEO.ONE_INCH
end
-- le dimensioni della lama son già in micron
CMD.CMDSTRING= "E80005=100 <br/>" ..
"E80006=" .. EgtNumToString(CMD.DIAM*dCoeff,0) .. "<br/>" ..
"E80007=" .. EgtNumToString(CMD.THICK*dCoeff,0) .. "<br/>" ..
"E80008=" .. EgtNumToString(CMD.THICK*dCoeff,0) .. "<br/>" ..
"E80009=" .. EgtNumToString(CMD.LENGTH*dCoeff,0) .. "<br/>" ..
"L108=0 <br/>" ..
EgtIf( CMD.ISSAW, "G77 H8625", "G77 H8629") .. "<br/>" ..
"M02"
end
+27
View File
@@ -0,0 +1,27 @@
-- 2015/11/26 09:30:00
-- Comando ribaltamento tavolo
-- Intestazioni
require( 'EgtBase')
_ENV = EgtProtectGlobal()
EgtEnableDebug( false)
-- Tavola di passaggio valori
local CMD = {}
CMD.F=0
CMD.S=0
CMD.L1=0
CMD.L2=0
CMD.L3=0
CMD.R1=0
CMD.R2=0
CMD.DOUBLESTART=false
CMD.CMDSTRING = ""
CMD.ERR = 0
_G.CMD = CMD
function CmdString()
CMD.CMDSTRING="M145"
CMD.DOUBLESTART=true
end
_G.CmdString=CmdString
@@ -0,0 +1,28 @@
-- 2015/11/26 09:30:00
-- Comando ribaltamento tavolo
-- Intestazioni
require( 'EgtBase')
_ENV = EgtProtectGlobal()
EgtEnableDebug( false)
-- Tavola di passaggio valori
local CMD = {}
CMD.F=0
CMD.S=0
CMD.L1=0
CMD.L2=0
CMD.L3=0
CMD.R1=0
CMD.R2=0
CMD.DOUBLESTART=false
CMD.CMDSTRING = ""
CMD.ERR = 0
_G.CMD = CMD
function CmdString()
CMD.EACTIVE=true
CMD.ENUMBER="Application.GVL_HMI_Omag.IBanco_DOWN_Cut"
CMD.EVALUE="0"
end
_G.CmdString=CmdString
@@ -0,0 +1,29 @@
-- 2015/11/26 09:30:00
-- Comando ribaltamento tavolo
-- Intestazioni
require( 'EgtBase')
_ENV = EgtProtectGlobal()
EgtEnableDebug( false)
-- Tavola di passaggio valori
local CMD = {}
CMD.F=0
CMD.S=0
CMD.L1=0
CMD.L2=0
CMD.L3=0
CMD.R1=0
CMD.R2=0
CMD.DOUBLESTART=false
CMD.CMDSTRING = ""
CMD.ERR = 0
_G.CMD = CMD
function CmdString()
--CMD.CMDSTRING="E30128=1"
CMD.EACTIVE=true
CMD.ENUMBER="Application.GVL_HMI_Omag.IBanco_DOWN_Cut"
CMD.EVALUE="1"
end
_G.CmdString=CmdString
+29
View File
@@ -0,0 +1,29 @@
-- 2015/11/26 09:30:00
-- Comando ribaltamento tavolo
-- Intestazioni
require( 'EgtBase')
_ENV = EgtProtectGlobal()
EgtEnableDebug( false)
-- Tavola di passaggio valori
local CMD = {}
CMD.F=0
CMD.S=0
CMD.L1=0
CMD.L2=0
CMD.L3=0
CMD.R1=0
CMD.R2=0
CMD.DOUBLESTART=false
CMD.CMDSTRING = ""
CMD.ERR = 0
_G.CMD = CMD
function CmdString()
--CMD.CMDSTRING="E30127=0"
CMD.EACTIVE=true
CMD.ENUMBER="Application.GVL_HMI_Omag.IBanco_UP_Cut"
CMD.EVALUE="0"
end
_G.CmdString=CmdString
+28
View File
@@ -0,0 +1,28 @@
-- 2015/11/26 09:30:00
-- Comando ribaltamento tavolo
-- Intestazioni
require( 'EgtBase')
_ENV = EgtProtectGlobal()
EgtEnableDebug( false)
-- Tavola di passaggio valori
local CMD = {}
CMD.F=0
CMD.S=0
CMD.L1=0
CMD.L2=0
CMD.L3=0
CMD.R1=0
CMD.R2=0
CMD.DOUBLESTART=false
CMD.CMDSTRING = ""
CMD.ERR = 0
_G.CMD = CMD
function CmdString()
CMD.EACTIVE=true
CMD.ENUMBER="Application.GVL_HMI_Omag.IBanco_UP_Cut"
CMD.EVALUE="1"
end
_G.CmdString=CmdString
+29
View File
@@ -0,0 +1,29 @@
-- 2021/05/27
-- Comando muovi un asse
-- Intestazioni
require( 'EgtBase')
_ENV = EgtProtectGlobal()
EgtEnableDebug( false)
-- Tavola di passaggio valori
local CMD = {}
CMD.CMDSTRING = ""
_G.CMD = CMD
local SecureZ = 50
function CmdString()
local nDec = 3
local sMove
-- se movimento assi lineari
sMove = 'X' .. EgtNumToString( CMD.X_AXISMOVE, nDec) ..
' Y' .. EgtNumToString( CMD.Y_AXISMOVE, nDec) ..
' Z' .. EgtNumToString( CMD.Z_AXISMOVE + SecureZ, nDec) ..
' C' .. EgtNumToString( CMD.C_ANGMOVE, nDec) ..
' B' .. EgtNumToString( CMD.B_ANGMOVE, nDec) ..
'<br/>M02'
-- comando
CMD.CMDSTRING = "G0 G52 "..sMove
end
_G.CmdString=CmdString
@@ -0,0 +1,30 @@
-- 2015/11/26 09:30:00
-- Comando accendi acqua
-- Intestazioni
require( 'EgtBase')
_ENV = EgtProtectGlobal()
EgtEnableDebug( false)
-- Tavola di passaggio valori
local CMD = {}
CMD.F=0
CMD.S=0
CMD.L1=0
CMD.L2=0
CMD.L3=0
CMD.R1=0
CMD.R2=0
CMD.CMDSTRING = ""
CMD.ERR = 0
_G.CMD = CMD
function CmdString()
--CMD.CMDSTRING="M220"
CMD.EACTIVE=true
CMD.ENUMBER="Application.GVL_HMI_OMAG.ISam_dx_DOWN_Cut"
CMD.EVALUE="1"
CMD.ENUMBER2="Application.GVL_HMI_OMAG.ISam_dx_DOWN_Cut"
CMD.EVALUE2="0"
end
_G.CmdString=CmdString
+30
View File
@@ -0,0 +1,30 @@
-- 2015/11/26 09:30:00
-- Comando accendi acqua
-- Intestazioni
require( 'EgtBase')
_ENV = EgtProtectGlobal()
EgtEnableDebug( false)
-- Tavola di passaggio valori
local CMD = {}
CMD.F=0
CMD.S=0
CMD.L1=0
CMD.L2=0
CMD.L3=0
CMD.R1=0
CMD.R2=0
CMD.CMDSTRING = ""
CMD.ERR = 0
_G.CMD = CMD
function CmdString()
--CMD.CMDSTRING="M221"
CMD.EACTIVE=true
CMD.ENUMBER="Application.GVL_HMI_OMAG.ISam_dx_UP_Cut"
CMD.EVALUE="1"
CMD.ENUMBER2="Application.GVL_HMI_OMAG.ISam_dx_UP_Cut"
CMD.EVALUE2="0"
end
_G.CmdString=CmdString
@@ -0,0 +1,30 @@
-- 2015/11/26 09:30:00
-- Comando accendi acqua
-- Intestazioni
require( 'EgtBase')
_ENV = EgtProtectGlobal()
EgtEnableDebug( false)
-- Tavola di passaggio valori
local CMD = {}
CMD.F=0
CMD.S=0
CMD.L1=0
CMD.L2=0
CMD.L3=0
CMD.R1=0
CMD.R2=0
CMD.CMDSTRING = ""
CMD.ERR = 0
_G.CMD = CMD
function CmdString()
--CMD.CMDSTRING="M222"
CMD.EACTIVE=true
CMD.ENUMBER="Application.GVL_HMI_OMAG.ISam_sx_DOWN_Cut"
CMD.EVALUE="1"
CMD.ENUMBER2="Application.GVL_HMI_OMAG.ISam_sx_DOWN_Cut"
CMD.EVALUE2="0"
end
_G.CmdString=CmdString
+30
View File
@@ -0,0 +1,30 @@
-- 2015/11/26 09:30:00
-- Comando accendi acqua
-- Intestazioni
require( 'EgtBase')
_ENV = EgtProtectGlobal()
EgtEnableDebug( false)
-- Tavola di passaggio valori
local CMD = {}
CMD.F=0
CMD.S=0
CMD.L1=0
CMD.L2=0
CMD.L3=0
CMD.R1=0
CMD.R2=0
CMD.CMDSTRING = ""
CMD.ERR = 0
_G.CMD = CMD
function CmdString()
--CMD.CMDSTRING="M223"
CMD.EACTIVE=true
CMD.ENUMBER="Application.GVL_HMI_OMAG.ISam_sx_UP_Cut"
CMD.EVALUE="1"
CMD.ENUMBER2="Application.GVL_HMI_OMAG.ISam_sx_UP_Cut"
CMD.EVALUE2="0"
end
_G.CmdString=CmdString
+30
View File
@@ -0,0 +1,30 @@
-- 2015/11/26 09:30:00
-- Comando accendi acqua
-- Intestazioni
require( 'EgtBase')
_ENV = EgtProtectGlobal()
EgtEnableDebug( false)
-- Tavola di passaggio valori
local CMD = {}
CMD.F=0
CMD.S=0
CMD.L1=0
CMD.L2=0
CMD.L3=0
CMD.R1=0
CMD.R2=0
CMD.CMDSTRING = ""
CMD.ERR = 0
_G.CMD = CMD
function CmdString()
--CMD.CMDSTRING="M226"
CMD.EACTIVE=true
CMD.ENUMBER="Application.GVL_HMI_OMAG.ISam_vacuum_off_Cut"
CMD.EVALUE="1"
CMD.ENUMBER2="Application.GVL_HMI_OMAG.ISam_vacuum_off_Cut"
CMD.EVALUE2="0"
end
_G.CmdString=CmdString
+30
View File
@@ -0,0 +1,30 @@
-- 2015/11/26 09:30:00
-- Comando accendi acqua
-- Intestazioni
require( 'EgtBase')
_ENV = EgtProtectGlobal()
EgtEnableDebug( false)
-- Tavola di passaggio valori
local CMD = {}
CMD.F=0
CMD.S=0
CMD.L1=0
CMD.L2=0
CMD.L3=0
CMD.R1=0
CMD.R2=0
CMD.CMDSTRING = ""
CMD.ERR = 0
_G.CMD = CMD
function CmdString()
--CMD.CMDSTRING="M225"
CMD.EACTIVE=true
CMD.ENUMBER="Application.GVL_HMI_OMAG.ISam_vacuum_on_Cut"
CMD.EVALUE="1"
CMD.ENUMBER2="Application.GVL_HMI_OMAG.ISam_vacuum_on_Cut"
CMD.EVALUE2="0"
end
_G.CmdString=CmdString
+25
View File
@@ -0,0 +1,25 @@
-- 2015/11/26 09:30:00
-- Comando spegni acqua
-- Intestazioni
require( 'EgtBase')
_ENV = EgtProtectGlobal()
EgtEnableDebug( false)
-- Tavola di passaggio valori
local CMD = {}
CMD.F=0
CMD.S=0
CMD.L1=0
CMD.L2=0
CMD.L3=0
CMD.R1=0
CMD.R2=0
CMD.CMDSTRING = ""
CMD.ERR = 0
_G.CMD = CMD
function CmdString()
CMD.CMDSTRING="M9"
end
_G.CmdString=CmdString
@@ -0,0 +1,30 @@
-- 2015/11/26 09:30:00
-- Comando spegni acqua
-- Intestazioni
require( 'EgtBase')
_ENV = EgtProtectGlobal()
EgtEnableDebug( false)
-- Tavola di passaggio valori
local CMD = {}
CMD.F=0
CMD.S=0
CMD.L1=0
CMD.L2=0
CMD.L3=0
CMD.R1=0
CMD.R2=0
CMD.DOUBLESTART=false
CMD.CMDSTRING = ""
CMD.ERR = 0
_G.CMD = CMD
function CmdString()
CMD.EACTIVE=true
CMD.ENUMBER="Application.GVL_HMI_OMAG.IStop_H20_Cut"
CMD.EVALUE="1"
CMD.ENUMBER2="Application.GVL_HMI_OMAG.IStop_H20_Cut"
CMD.EVALUE2="0"
end
_G.CmdString=CmdString
+25
View File
@@ -0,0 +1,25 @@
-- 2015/11/26 09:30:00
-- Comando accendi acqua
-- Intestazioni
require( 'EgtBase')
_ENV = EgtProtectGlobal()
EgtEnableDebug( false)
-- Tavola di passaggio valori
local CMD = {}
CMD.F=0
CMD.S=0
CMD.L1=0
CMD.L2=0
CMD.L3=0
CMD.R1=0
CMD.R2=0
CMD.CMDSTRING = ""
CMD.ERR = 0
_G.CMD = CMD
function CmdString()
CMD.CMDSTRING="M7 M81"
end
_G.CmdString=CmdString
+30
View File
@@ -0,0 +1,30 @@
-- 2015/11/26 09:30:00
-- Comando accendi acqua
-- Intestazioni
require( 'EgtBase')
_ENV = EgtProtectGlobal()
EgtEnableDebug( false)
-- Tavola di passaggio valori
local CMD = {}
CMD.F=0
CMD.S=0
CMD.L1=0
CMD.L2=0
CMD.L3=0
CMD.R1=0
CMD.R2=0
CMD.DOUBLESTART=false
CMD.CMDSTRING = ""
CMD.ERR = 0
_G.CMD = CMD
function CmdString()
CMD.EACTIVE=true
CMD.ENUMBER="Application.GVL_HMI_OMAG.IStop_H20_Cut"
CMD.EVALUE="1"
CMD.ENUMBER2="Application.GVL_HMI_OMAG.IStop_H20_Cut"
CMD.EVALUE2="0"
end
_G.CmdString=CmdString
+29
View File
@@ -0,0 +1,29 @@
-- 2015/11/26 09:30:00
-- Comando modalità 3 assi
-- Intestazioni
require( 'EgtBase')
_ENV = EgtProtectGlobal()
EgtEnableDebug( false)
-- Tavola di passaggio valori
local CMD = {}
CMD.F=0
CMD.S=0
CMD.L1=0
CMD.L2=0
CMD.L3=0
CMD.R1=0
CMD.R2=0
CMD.CMDSTRING = ""
CMD.ERR = 0
_G.CMD = CMD
function CmdString()
CMD.EACTIVE=true
CMD.ENUMBER="Application.GVL_HMI_Omag.IPuls_Jog_X_Y"
CMD.EVALUE="1"
-- CMD.ENUMBER2="Application.GVL_HMI_Omag.IPuls_Jog_X_Y"
-- CMD.EVALUE2="0"
end
_G.CmdString=CmdString
+25
View File
@@ -0,0 +1,25 @@
-- 2015/11/26 09:30:00
-- Comando accendi laser
-- Intestazioni
require( 'EgtBase')
_ENV = EgtProtectGlobal()
EgtEnableDebug( false)
-- Tavola di passaggio valori
local CMD = {}
CMD.F=0
CMD.S=0
CMD.L1=0
CMD.L2=0
CMD.L3=0
CMD.R1=0
CMD.R2=0
CMD.CMDSTRING = ""
CMD.ERR = 0
_G.CMD = CMD
function CmdString()
CMD.CMDSTRING="M143"
end
_G.CmdString=CmdString
+29
View File
@@ -0,0 +1,29 @@
-- 2015/11/26 09:30:00
-- Comando modalità 3 assi
-- Intestazioni
require( 'EgtBase')
_ENV = EgtProtectGlobal()
EgtEnableDebug( false)
-- Tavola di passaggio valori
local CMD = {}
CMD.F=0
CMD.S=0
CMD.L1=0
CMD.L2=0
CMD.L3=0
CMD.R1=0
CMD.R2=0
CMD.CMDSTRING = ""
CMD.ERR = 0
_G.CMD = CMD
function CmdString()
CMD.EACTIVE=true
CMD.ENUMBER="Application.GVL_HMI_Omag.IPuls_Jog_B_C"
CMD.EVALUE="1"
--CMD.ENUMBER2="Application.GVL_HMI_Omag.IPuls_Jog_B_C"
--CMD.EVALUE2="0"
end
_G.CmdString=CmdString
+29
View File
@@ -0,0 +1,29 @@
-- 2015/11/26 09:30:00
-- Comando modalità 3 assi
-- Intestazioni
require( 'EgtBase')
_ENV = EgtProtectGlobal()
EgtEnableDebug( false)
-- Tavola di passaggio valori
local CMD = {}
CMD.F=0
CMD.S=0
CMD.L1=0
CMD.L2=0
CMD.L3=0
CMD.R1=0
CMD.R2=0
CMD.CMDSTRING = ""
CMD.ERR = 0
_G.CMD = CMD
function CmdString()
CMD.EACTIVE=true
CMD.ENUMBER="Application.GVL_HMI_Omag.IPuls_Jog_Z"
CMD.EVALUE="1"
--CMD.ENUMBER2="Application.GVL_HMI_Omag.IPuls_Jog_Z"
--CMD.EVALUE2="0"
end
_G.CmdString=CmdString
Binary file not shown.
Binary file not shown.
+301
View File
@@ -0,0 +1,301 @@
; Commento per evitare BOM con UTF-8
[NumericalControl]
; 1 = Num Axium, 2 = Num Flexium
Type=2
[PartProgram]
Extension=.xpi
[Axes]
AxesNum=5
L1Name=X
L1Id=0
L2Name=Y
L2Id=1
L3Name=Z
L3Id=2
R1Name=C
R1Id=8
R2Name=B
R2Id=7
DeltaC=+90.0 ; Incremento dell'asseC per avere con la lama la direzione dell'asse X+
InInches=0
[NcData]
NewVariable=1
NewConsole=1
FeedOvr=PLC,Application.IOCONFIG_GLOBALS.NCK.WCNC.Channel[1].FeedOveride
SpeedOvr=PLC,Application.IOCONFIG_GLOBALS.NCK.WCNC.Spindle[25].Override
Spindle=PLC,Application.GVL_HMI_OMAG.HMI_rotazione_lama
Laser=PLC,Application.GVL_HMI_OMAG.HMI_laser_punto
LaserTrac=PLC,Application.GVL_HMI_OMAG.HMI_laser_tracciatura
Coolant=PLC,Application.GVL_HMI_OMAG.HMI_H2O_lama
TableUp=PLC,Application.GVL_HMI_OMAG.HMI_table_up
TableDown=PLC,Application.GVL_HMI_OMAG.HMI_table_down
DoorClosed=PLC,Application.GVL_HMI_OMAG.HMI_door_open
LimitZ=PLC,Application.GVL_HMI_OMAG.HMI_limit_Z_on
CAxes=PLC,Application.GVL_HMI_OMAG.HMI_Puls_C
Power=PLC,Application.GVL_HMI_OMAG.HMI_LabAmper
Speed=PLC,Application.GVL_HMI_OMAG.HMI_LabRPM
Mode=PLC,Application.IOCONFIG_GLOBALS.NCK.RCNC.General.Mode
JogIncr=PLC,Application.IOCONFIG_GLOBALS.NCK.RCNC.General.JogIncrement
Feed=PLC,Application.GVL_HMI_OMAG.HMI_Vel_prog
InternalCoolant=PLC,Application.GVL_HMI_OMAG.HMI_H2O_int
ExternCoolant=PLC,Application.GVL_HMI_OMAG.HMI_H2O_ext
AirBlow=PLC,Application.GVL_HMI_OMAG.HMI_Pulizia_cono
Home=PLC,Application.GVL_HMI_OMAG.HMI_Home
Water=PLC,Application.GVL_HMI_OMAG.HMI_H2O_ON
PowerON=PLC,Application.GVL_HMI_Omag.HMI_Power_ON
XYJog=PLC,Application.GVL_HMI_Omag.HMI_Puls_Jog_X_Y
ZCJog=PLC,Application.GVL_HMI_Omag.HMI_Puls_Jog_Z
ZBJog=PLC,Application.GVL_HMI_Omag.HMI_Puls_Jog_B_C
Remote=PLC,Application.GVL_HMI_Omag.Handwheel_Enable
;---VENTOSE LATERALI---
PowerOvr=PLC,Application.GVL_HMI_OMAG.SetP_curr_ut
VacuumUp=PLC,Application.GVL_HMI_OMAG.HMI_sam_dx_UP
VacuumDown=PLC,Application.GVL_HMI_OMAG.HMI_sam_dx_DOWN
Vacuum2Up=PLC,Application.GVL_HMI_OMAG.HMI_sam_sx_UP
Vacuum2Down=PLC,Application.GVL_HMI_OMAG.HMI_sam_sx_DOWN
Vacuum1State=PLC,Application.GVL_HMI_OMAG.HMI_sam_1
Vacuum2State=PLC,Application.GVL_HMI_OMAG.HMI_sam_2
Vacuum3State=PLC,Application.GVL_HMI_OMAG.HMI_sam_3
Vacuum4State=PLC,Application.GVL_HMI_OMAG.HMI_sam_4
Vacuum5State=PLC,Application.GVL_HMI_OMAG.HMI_sam_5
Vacuum6State=PLC,Application.GVL_HMI_OMAG.HMI_sam_6
Open123State=PLC,Application.GVL_HMI_OMAG.HMI_sam_123_on
Close123State=PLC,Application.GVL_HMI_OMAG.HMI_sam_123_off
Open456State=PLC,Application.GVL_HMI_OMAG.HMI_sam_456_on
Close456State=PLC,Application.GVL_HMI_OMAG.HMI_sam_456_off
BlowState=PLC,Application.GVL_HMI_OMAG.HMI_samr_air_on
VacuumOn=PLC,Application.GVL_HMI_OMAG.HMI_samr_vacuum_on
VacuumOff=PLC,Application.GVL_HMI_OMAG.HMI_samr_vacuum_off
BypassState=PLC,Application.GVL_HMI_OMAG.HMI_samr_By_pass
[Table]
AdditionalTable=0
[Tools]
Drillbit=1
Sawblade=1
Mill=1
CupWheel=0
ShowToolChanger=0
; ShowHeadExit : if HSM set to 1 otherwise to 0
ShowHeadExit=0
DrillHolder=H2ToolHolder.nge
SawbladeHolder=
MillHolder=H2ToolHolder.nge
DrillMaker=MakeDrill.lua
SawbladeMaker=MakeSawblade.lua
MillMaker=MakeCylMill.lua
; MountedToolConfig : if HSM set to 2 otherwise to 1
MountedToolConfig=1
MaxSawDiamForVac=625
MaxSawDiamForProbe=625
[ToolChanger]
ManualNumber=2
ManualName1=T1
ManualName2=T2
ManualPos2=Mill 20 marmo
ManualPos1=Drill35
[Machinings]
Drilling=1
Sawing=1
Milling=1
SawRoughing=1
SawFinishing=1
Pocketing=0
SawingOnArcs=1
[Nest]
HolesOffset=2
HolesOverlap=2
HolesDiamToler=-20
OneHoleOnIntCorner=1
SafeLenOnCut=2
SafeLenOnIntCorner=4
ReducedCut=1
ReducedDepth=2
ExtArcMinRad=150
IntArcMaxSideAng=60
MillingOnCorners=0
MillingOnSinks=0
Aligned=1
Washing=1
SacProbe=0
EnableRestart=1
EnablePause=1
DrillMillC90=1
CutLongDxSx=1
MillingShortening=0
CutFsevEnable=1
CutFsevLen=200
CutFsevPerc=70
EngravingDepth=5
EngravingWidth=10
EngravingWithMill=0
Guillotine=0
PreCutExit=0
[RawMove]
Rotate=1
FinalMove=0
[DirectCuts]
FinalHome=0
AddSawThTo5AxMove=0
[MachineButtons]
Button1=2,PowerON.png,PowerON.lua,PowerON
Button2=2,PowerOFF.png,PowerOFF.lua,PowerOFF
[JogButtons]
Button1=2,X-YJog.png,XYJog.lua,XYJog
Button2=2,Z-CJog.png,ZCJog.lua,ZCJog
Button3=2,Z-BJog.png,ZBJog.lua,ZBJog
Button4=2,RemoteOn.png,RemoteOn.lua,Remote,RemoteOff.png,RemoteOff.lua
; elnco dei bottoni presenti nella pagina IN LAVORO (variabili PLC)
[MachButtons]
;Button1Y=X-YJog.png,XYJog.lua,XYJog
;Button2Y=Z-CJog.png,ZCJog.lua,ZCJog
;Button3Y=Z-BJog.png,ZBJog.lua,ZBJog
;Button4Y=RemoteOn.png,RemoteOn.lua,Remote
;Button4N=RemoteOff.png,RemoteOff.lua
Button1Y=SawOn.png,SawOnOld.lua,Spindle
Button1N=SawOff.png,SawOffOld.lua
Button2Y=WaterOn.png,WaterOnOld.lua,Coolant
Button2N=WaterOff.png,WaterOffOld.lua
Button3Y=LaserPuntoOn.png,LaserPuntoOn.lua,Laser
Button3N=LaserPuntoOff.png,LaserPuntoOff.lua
Button4Y=LaserTracciaturaOn.png,LaserTracciaturaOn.lua,LaserTrac
Button4N=LaserTracciaturaOff.png,LaserTracciaturaOff.lua
Button5Y=3Axes.png,3Axes.lua,ThreeAxis
Button5N=
Button6Y=5Axes.png,5Axes.lua,FiveAxis
Button6N=
Button7Y=Table.png,Table.lua,Nothing
Button7N=
Button8Y=DoorOpen.png,DoorOpenOn.lua,DoorOpened
Button8N=DoorOpen.png,DoorOpenOff
Button9Y=DoorClose.png,DoorCloseOn.lua,DoorClosed
Button9N=DoorClose.png,DoorCloseOff.lua
; elenco dei bottoni presenti nella pagina TAGLI DIRETTI
[ControlMachButtons]
Button1=0,Manual.png,Manual.lua,Manual
Button2=1,3Axes.png,3Axes.lua,ThreeAxes,3Axes.png,3Axes.lua
Button3=1,5Axes.png,5Axes.lua,FiveAxes,5Axes.png,5Axes.lua
Button4=3,LimitZ.png,LimitZOn.lua,LimitZ,LimitZ.png,LimitZOff.lua
Button5=1,SawOn.png,SawOn.lua,Spindle,SawOff.png,SawOff.lua
Button6=1,AirBlow.png,AirBlow.lua,AirBlow
Button7=1,WaterOn.png,WaterOn.lua,Coolant,WaterOff.png,WaterOff.lua
Button8=1,IntWaterOn.png,IntWaterOn.lua,InternalCoolant,IntWaterOff.png,IntWaterOff.lua
Button9=1,ExtWaterOn.png,ExtWaterOn.lua,ExternCoolant,ExtWaterOff.png,ExtWaterOff.lua
Button10=1,Home.png,Home.lua,Home
Button11=4,TableUp.png,TableUpOn.lua,TableUp,TableUp.png,TableUpOff.lua
Button12=4,TableDown.png,TableDownOn.lua,TableDown,TableDown.png,TableDownOff.lua
Button13=2,DoorOpen.png,DoorOpenOn.lua,DoorOpened,DoorOpen.png,DoorOpenOff.lua
Button14=2,DoorClose.png,DoorCloseOn.lua,DoorClosed,DoorClose.png,DoorCloseOff.lua
Button15=1,LaserPuntoOn.png,LaserPuntoOn.lua,Laser,LaserPuntoOff.png,LaserPuntoOff.lua
Button16=1,LaserTracciaturaOn.png,LaserTracciaturaOn.lua,LaserTrac,LaserTracciaturaOff.png,LaserTracciaturaOff.lua
--Button2=1,CAxisRot.png,CAxisRot.lua,CAxes
--Button3=1,BAxisRot.png,BAxisRot.lua,BAxes
--Button4=1,3Axes.png,3Axes.lua,ThreeAxes,3Axes.png,3Axes.lua
--Button5=1,5Axes.png,5Axes.lua,FiveAxes,5Axes.png,5Axes.lua
--Button6=3,LimitZ.png,LimitZOn.lua,LimitZ,LimitZ.png,LimitZOff.lua
--Button7=1,SawOn.png,SawOn.lua,Spindle,SawOff.png,SawOff.lua
--Button8=1,AirBlow.png,AirBlow.lua,AirBlow
--Button9=1,LaserPuntoOn.png,LaserPuntoOn.lua,Laser,LaserPuntoOff.png,LaserPuntoOff.lua
--Button10=1,WaterOn.png,WaterOn.lua,Coolant,WaterOff.png,WaterOff.lua
--Button11=1,IntWaterOn.png,IntWaterOn.lua,InternalCoolant,IntWaterOff.png,IntWaterOff.lua
--Button12=1,ExtWaterOn.png,ExtWaterOn.lua,ExternCoolant,ExtWaterOff.png,ExtWaterOff.lua
--Button13=1,Home.png,Home.lua,Home
--Button14=4,TableUp.png,TableUpOn.lua,TableUp,TableUp.png,TableUpOff.lua
--Button15=4,TableDown.png,TableDownOn.lua,TableDown,TableDown.png,TableDownOff.lua
--Button16=2,DoorOpen.png,DoorOpenOn.lua,DoorOpened,DoorOpen.png,DoorOpenOff.lua
--Button17=2,DoorClose.png,DoorCloseOn.lua,DoorClosed,DoorClose.png,DoorCloseOff.lua
--Button18=1,LaserTracciaturaOn.png,LaserTracciaturaOn.lua,LaserTrac,LaserTracciaturaOff.png,LaserTracciaturaOff.lua
[VacuumMachButtons]
;---VENTOSE LATERALI
Button1=1,VacuumUp.png,Vacuum2Up.lua,Vacuum2Up
Button2=1,VacuumOn.png,VacuumOn.lua,VacuumOn
Button3=1,VacuumUp.png,Vacuum1Up.lua,VacuumUp
Button4=1,VacuumDown.png,Vacuum2Down.lua,Vacuum2Down
Button5=1,VacuumOff.png,VacuumOff.lua,VacuumOff
Button6=1,VacuumDown.png,Vacuum1Down.lua,VacuumDown
Button7=1,OpenLeftAll.png,Open2All.lua,Open456State
Button8=1,Blow.png,Blow.lua,BlowState
Button9=1,OpenRightAll.png,Open1All.lua,Open123State
Button10=1,CloseLeft.png,Close2All.lua,Close456State
Button11=4,BypassOn.png,BypassOn.lua,BypassState,BypassOff.png,BypassOff.lua
Button12=1,CloseRight.png,Close1All.lua,Close123State
Button13=1,OpenLeft6.png,Open6.lua,Vacuum6State
Button14=0,qqq.png,qqq.lua,qqq
Button15=1,OpenRight3.png,Open3.lua,Vacuum3State
Button16=1,OpenLeft5.png,Open5.lua,Vacuum5State
Button17=0,qqq.png,qqq.lua,qqq
Button18=1,OpenRight2.png,Open2.lua,Vacuum2State
Button19=1,OpenLeft4.png,Open4.lua,Vacuum4State
Button20=0,qqq.png,qqq.lua,qqq
Button21=1,OpenRight1.png,Open1.lua,Vacuum1State
[InProgress]
PhaseVar=E80020
[Probing]
ProbingStateVar=L108
SawDiameter=E80006
RawThickness=E80004
[BarcodeReader]
EnableBCR=0
[Estimations]
Enable=1
WinPlace=0,853,223,491,696
[Photo]
OffsetX=0
OffsetY=0
[VMill]
Enable=1
;***********************************************************
; The following code was generated by the program.
; Changes to this section may cause incorrect behavior!!
;***********************************************************
[Mach]
CurrSaw=Saw450 Marm
CurrDrill=
CurrMill=
CurrSawing=marble blade450
CurrDrilling=
CurrMilling=
CurrSawRoughing=Saw 450 Roughing
CurrSawFinishing=Rough_saw450_N
CurrSawSideFinishing=
CurrSawSingle=marble blade450
CurrPocketing=
CurrWaterJet=
CurrWaterJetting=
CurrMillNoTip=
[Materials]
CurrMaterial=2
Material1=2,GRANITE
CurrOfficeMaterial=3
Material2=3,MARMI
Material3=4,***
[SetUp]
Default=MillStd
;******************************************************
[Frame]
Pause=1
+477
View File
@@ -0,0 +1,477 @@
-- Descrizione macchina Omag-Digitale5 by EgalTech s.r.l. 2021/07/26
-- Table position
local TabX = -3802
local TabY = -2215.1
local TabZ = -369.3
local Tab2X = -3780
local Tab2Y = -2797.996
local Tab2Z = -290
-- Table dimension
local TabDimX = 3602.00
local TabDimY = 2530.00
local Tab2DimX = 3602.00
local Tab2DimY = 800.00
-- Reference on Tab2
local sMachIni = EgtGetCurrMachineDir() .. '\\' .. EgtGetCurrMachineName() .. '.ini'
local bTab2 = ( EgtGetStringFromIni( 'RawMove', 'FinalMove', '0', sMachIni) == '1')
Ref = {}
Ref[1] = Vector3d( 3602, 800, 0)
Ref[2] = Vector3d( 1811, 800, 0)
Ref[3] = Vector3d( 1789, 800, 0)
Ref[4] = Vector3d( 0, 800, 0)
-- Pivot NUM
local U1 = 179.412
local V1 = 0.101
local U2 = 7.414
local W2 =-181.675
-- X strokes
MinRedX = -3600
MinX = -3840
MaxRedX = 10
MaxX = 210
-- Saw data ( S <= 650, L resto)
local MinXSawL = -3500.0 -- minimo corsa X per lama grande
local MaxXSawL = 0.0 -- massimo corsa X per lama grande
local MaxDiamSawS = 650 -- diametro massimo lama piccola
-- Laser position
local LasX = -315
local LasY = 334.5
-- Tool position
local ToolX = 0.0
local ToolY = 0.0
local ToolZ = -95.77
-- HSM position
local HsmX = -303.0
local HsmY = -381.0
local HsmZ = 35.0
-- HSM (0=no, 1=yes)
local HsmType = 0
-- Vacuum position
--local VacX = -184.7
--local VacY = 863.3
--local VacZ = -187
local VacX = 232
local VacY = 6.6
local VacZ = -189.0
VacHmax = - ( TabZ - VacZ)
VacPatHomeZ = 0
-- Vacuum cups (0=no, 1=back, 2=side)
local VacType = 2
---------------------------------------------------------------------
EmtGeneral {
File='Omag-Digitale5SV.nge',
Offset = Vector3d(-4409.4378,-3005.5604,-837.5552),
AxisMaxAdjust = 1000,
ExitMaxAdjust = 1000,
Special = 'Omag-Digitale5SV.mlse',
Processor = 'Omag-Digitale5SV.mlpe'}
EmtBase {
Name = 'Base',
Geo='BASE/GEO',
Aux='BASE/SOLID'}
EmtTable {
Name = 'MainTab',
Parent = 'Base',
Type = MCH_TT.FLAT,
Ref1 = Point3d(TabX,TabY,TabZ),
Scale = {TabDimX/3600, TabDimY/2500, 1},
Geo = 'TABLE/GEO',
Aux = 'TABLE/SOLID'}
if bTab2 then
local AuxTabId = EmtTable {
Name = 'AuxTab',
Parent = 'Base',
Type = MCH_TT.FLAT,
Ref1 = Point3d(Tab2X,Tab2Y,Tab2Z),
Scale = {Tab2DimX/3600, Tab2DimY/1000, 1},
Geo = 'TABLE2/GEO',
Aux = 'TABLE2/SOLID'}
local AuxTabSolidId = EgtGetFirstNameInGroup( AuxTabId, 'SOLID')
local vtTT = Vector3d( Tab2X - TabX, Tab2Y - TabY, Tab2Z - TabZ)
for i = 1, #Ref do
local RefId = EgtGetFirstNameInGroup( AuxTabSolidId, 'REF' .. tostring( i))
EgtMove( RefId, Ref[i], GDB_RT.GLOB)
EgtSetInfo( RefId, 'Pos', vtTT + Ref[i])
local NumId = EgtGetFirstNameInGroup( AuxTabSolidId, 'NUM' .. tostring( i))
EgtMove( NumId, Ref[i], GDB_RT.GLOB)
end
end
EmtAxis {
Name = 'Y',
Parent = 'Base',
Type = MCH_AT.LINEAR,
Dir = Y_AX(),
Pos = Point3d(945,340,1050),
Stroke = {-2410, 10},
Home = 0,
Geo = 'Y_AXIS/GEO',
Aux = 'Y_AXIS/SOLID'}
EmtAxis {
Name = 'X',
Parent = 'Y',
Type = MCH_AT.LINEAR,
Dir = X_AX(),
Pos = Point3d(50,208,900),
Stroke = { MinX, MaxX},
Home = 0,
Geo = 'X_AXIS/GEO',
Aux = 'X_AXIS/SOLID'}
local sZAux = 'Z_AXIS/SOLID'
if VacType == 1 then -- Ventose posteriori
sZAux = {'Z_AXIS/SOLID','W_AXIS/PRE_W_FIXED','W_AXIS/PRE_W_MOVE'}
end
local ZId = EmtAxis {
Name = 'Z',
Parent = 'X',
Type = MCH_AT.LINEAR,
Dir = Z_AX(),
Pos = Point3d(-300,-205,850),
Stroke = {-390, 10},
Home = 8,
Geo = 'Z_AXIS/GEO',
Aux = sZAux}
local sCAux = 'C_AXIS/SOLID'
if HsmType == 1 then -- Testina HSM
sCAux = {'C_AXIS/SOLID', 'C_AXIS/PRE_H11'}
end
EmtAxis {
Name = 'C',
Parent = 'Z',
Type = MCH_AT.ROTARY,
Dir = Z_AX(),
Pos = Point3d(-(U1+U2),-V1,0),
Stroke = {-201, 201},
Home = 90,
Geo = 'C_AXIS/GEO',
Aux = sCAux}
local MaxB = EgtIf( HsmType == 1, 100.5, 90.5)
EmtAxis {
Name = 'B',
Parent = 'C',
Type = MCH_AT.ROTARY,
Dir = Y_AX(),
Pos = Point3d(-U2,0,-W2),
Stroke = {-0.5, MaxB},
Home = 90,
Geo = 'B_AXIS/GEO',
Aux = 'B_AXIS/SOLID'}
local H1Id = EmtHead { -- Testa per lama
Name = 'H1',
Parent = 'B',
HSet = 'H1',
Type = MCH_HT.MULTI,
ExitNbr = 2,
Pos1 = ORIG(),
TDir1 = Z_AX(),
Pos2 = Point3d(ToolX,ToolY,ToolZ),
TDir2 = Z_AX(),
ADir = -X_AX(),
OthColl = 'B/SOLID',
Geo = 'H1_HEAD/GEO',
Aux = { 'H1_HEAD/SAW_S', 'H1_HEAD/SAW_L'}}
EmtHead { -- Testa per laser di posizione
Name = 'H3',
Parent = 'C',
HSet = 'H3',
Type = MCH_HT.STD,
Pos = {LasX,LasY,600.0},
TDir = Z_AX(),
Geo = 'H3_HEAD/GEO',
Aux = 'H3_HEAD/SOLID'}
local H11Id
if HsmType == 1 then
H11Id = EmtHead { -- Testa HSM
Name = 'H11',
Parent = 'C',
HSet = 'H11',
Type = MCH_HT.STD,
Pos = {HsmX,HsmY,HsmZ},
TDir = Z_AX(),
Geo = 'H11_HEAD/GEO',
Aux = 'H11_HEAD/SOLID'}
local vtH11move = Vector3d( HsmX + 303.0, HsmY + 381.0, HsmZ - 24.0)
EgtMove( EgtGetFirstNameInGroup( H11Id, 'SOLID'), vtH11move, GDB_RT.GLOB)
end
if VacType == 1 then -- Ventose posteriori
local WId = EmtAxis {
Name = 'W',
Parent = 'Z',
Type = MCH_AT.ROTARY,
Dir = Z_AX(),
Pos = Point3d(VacX,VacY,VacZ),
Stroke = {-90.0, 0.0},
Home = 0,
Geo = 'W_AXIS/GEO',
Aux = 'W_AXIS/SOLID'}
local H4Id = EmtHead {
Name = 'H4',
Parent = 'W',
HSet = 'H4',
Type = MCH_HT.SPECIAL,
Pos = Point3d(VacX,VacY,VacZ),
TDir = Z_AX(),
ADir = X_AX(),
SolCh = MCH_SCC.ADIR_NEAR,
Geo = 'H4-1_HEAD/GEO',
Aux = {'H4-1_HEAD/SOLID','H4-1_HEAD/LAYOUT'}}
local vtH4move = Vector3d( VacX + 268.731, VacY - 828.268, VacZ + 112.000)
EgtMove( EgtGetFirstNameInGroup( ZId, 'PRE_W_MOVE'), vtH4move, GDB_RT.GLOB)
EgtMove( EgtGetFirstNameInGroup( WId, 'SOLID'), vtH4move, GDB_RT.GLOB)
EgtMove( EgtGetFirstNameInGroup( H4Id, 'SOLID'), vtH4move, GDB_RT.GLOB)
EgtMove( EgtGetFirstNameInGroup( H4Id, 'LAYOUT'), vtH4move, GDB_RT.GLOB)
elseif VacType == 2 then -- Ventose laterali esterne
local H4Id = EmtHead {
Name = 'H4',
Parent = 'C',
HSet = 'H4',
Type = MCH_HT.SPECIAL,
Pos = Point3d(VacX,VacY,VacZ),
TDir = Z_AX(),
ADir = X_AX(),
SolCh = MCH_SCC.ADIR_NEAR,
Geo = 'H4-2_HEAD/GEO',
Aux = {'H4-2_HEAD/FIXED1','H4-2_HEAD/FIXED2','H4-2_HEAD/MOVE1','H4-2_HEAD/MOVE2','H4-2_HEAD/LAYOUT'}}
local vtH4move = Vector3d( VacX - 230.0, VacY + 0, VacZ + 188.0)
EgtMove( EgtGetFirstNameInGroup( H4Id, 'FIXED1'), vtH4move, GDB_RT.GLOB)
EgtMove( EgtGetFirstNameInGroup( H4Id, 'FIXED2'), vtH4move, GDB_RT.GLOB)
EgtMove( EgtGetFirstNameInGroup( H4Id, 'MOVE1'), vtH4move, GDB_RT.GLOB)
EgtMove( EgtGetFirstNameInGroup( H4Id, 'MOVE2'), vtH4move, GDB_RT.GLOB)
EgtMove( EgtGetFirstNameInGroup( H4Id, 'LAYOUT'), vtH4move, GDB_RT.GLOB)
end
---------------------------------------------------------------------
local function MoveGroup( nGrpId, vtVers, dPos, bLoc)
local dVal = EgtGetInfo( nGrpId, 'Val')
if not dVal then return end
if abs( dPos - dVal) > GEO.EPS_SMALL then
local nRT = EgtIf( bLoc, GDB_RT.LOC, GDB_RT.GLOB)
EgtMove( nGrpId, ( dPos - dVal) * vtVers, nRT)
EgtSetInfo( nGrpId, 'Val', dPos)
end
end
-- Funzioni richiamate per modificare i dati macchina in casi particolari
--function OnSetTable()
--end
function OnSetHead()
-- se testa principale
if EMC.HEAD == 'H1' then
-- se esiste, disattivo la testa HSM
if H11Id then MoveGroup( H11Id, Z_AX(), 130, false) end
-- recupero gruppi uscita della testa
local E1Id = EgtGetFirstNameInGroup( H1Id, 'T1')
local E2Id = EgtGetFirstNameInGroup( H1Id, 'T2')
-- recupero gruppi SAW_* della testa
local SawSmallId = EgtGetFirstNameInGroup( H1Id, 'SAW_S')
local SawLargeId = EgtGetFirstNameInGroup( H1Id, 'SAW_L')
-- se uscita per lama
if EMC.EXIT == 1 then
-- modifiche per lama piccola o grande
if EMC.TOTDIAM <= MaxDiamSawS then
EgtSetMode( SawSmallId, GDB_MD.STD)
EgtSetMode( SawLargeId, GDB_MD.HIDDEN)
else
EgtSetMode( SawSmallId, GDB_MD.HIDDEN)
EgtSetMode( SawLargeId, GDB_MD.STD)
end
end
-- limitazione corse per lama grande (l'utensile si tiene le corse della lama che lo ha preceduto)
if EMC.EXIT == 1 then
if EMC.TOTDIAM > MaxDiamSawS then
EmtModifyAxisStroke( 'X', { MinXSawL, MaxXSawL})
else
EmtModifyAxisStroke( 'X', { MinX, MaxX})
end
end
-- se altrimenti testa HSM
elseif EMC.HEAD == 'H11' then
-- attivo la testa HSM
MoveGroup( H11Id, Z_AX(), 0, false)
-- porto asse B in posizione opportuna
EgtSetAxisPos( 'B', 100)
end
end
---------------------------------------------------------------------
function OnVerifyProtectedAreas()
EMC.ERR = 0
EMC.STAT = 0
if not EMC.R1 then return end
if EMC.L1 < MinRedX then
if abs( EMC.R1) > 5 then
EMC.STAT = 1
EMC.AUXINFO = ' X='..EgtNumToString( EgtToUiUnits( EMC.L1 - MinRedX), 1)..' ( allowed -5 < C < 5 )'
end
elseif EMC.L1 > MaxRedX then
if abs( EMC.R1 + 180) > 5 and abs( EMC.R1 - 180) > 5 then
EMC.STAT = 1
EMC.AUXINFO = ' X='..EgtNumToString( EgtToUiUnits( EMC.L1 - MaxRedX), 1)..' ( allowed -185 < C < -175 or 175 < C < 185 )'
end
end
end
---------------------------------------------------------------------
-- Funzione per resettare tutte le attivazioni della macchina
function OnResetMachine( bLeaveVMill)
EmtUnlinkAllRawPartsFromGroups()
ResetVacuum()
-- se esiste, disattivo la testa HSM
if H11Id then
MoveGroup( H11Id, Z_AX(), 130, false)
EgtSetAxisPos( 'B', 90)
end
-- nascondo Vmill
if not bLeaveVMill then
local nRawId = EgtGetFirstRawPart()
while nRawId do
local nVmId = EgtGetFirstNameInGroup( nRawId, 'VMill')
local nId = EgtGetFirstInGroup( nRawId)
while nId do
EgtSetStatus( nId, EgtIf( nId ~= nVmId, GDB_ST.ON, GDB_ST.OFF))
nId = EgtGetNext( nId)
end
nRawId = EgtGetNextRawPart( nRawId)
end
end
end
-- Funzioni per attivare/disattivare le ventose
function ParseVacuumCmd(sVac)
-- recupero stato richiesto
local bV1, bV2, bV3, bV4, bV5, bV6 = false, false, false, false, false, false
local vsCups = EgtSplitString( sVac)
if not vsCups then return false end
for i = 1, #vsCups do
if vsCups[i] == 'V1' then
bV1 = true
elseif vsCups[i] == 'V2' then
bV2 = true
elseif vsCups[i] == 'V3' then
bV3 = true
elseif vsCups[i] == 'V4' then
bV4 = true
elseif vsCups[i] == 'V5' then
bV5 = true
elseif vsCups[i] == 'V6' then
bV6 = true
end
end
return bV1, bV2, bV3, bV4, bV5, bV6
end
local function SetVacuumCapStatus( nMoveId, sV, bV)
local nVId = EgtGetFirstNameInGroup( nMoveId, sV)
if not nVId then return false end
if bV then
EgtSetAlpha( nVId, 100)
else
EgtSetAlpha( nVId, 20)
end
return true
end
local function AdjustBackVacuum( bOn, bV1, bV2, bV3, bV4, bV5, bV6)
-- identificativo asse Z
local nZId = EgtGetAxisId( 'Z')
-- identificativo asse W
local nWId = EgtGetAxisId( 'W')
-- identificativo testa H4
local nH4Id = EgtGetHeadId( 'H4')
-- identificativo della parti da muovere
local nPreWMoveId = EgtGetFirstNameInGroup( nZId, 'PRE_W_MOVE')
local nSolidWId = EgtGetFirstNameInGroup( nWId, 'SOLID')
local nSolidH4Id = EgtGetFirstNameInGroup( nH4Id, 'SOLID')
if not nPreWMoveId or not nSolidWId or not nSolidH4Id then return false end
-- stato corrente
local bIsOn = ( EgtGetInfo( nPreWMoveId, 'On') == '1')
-- imposto la posizione richiesta (se diversa dalla corrente)
local VAC_MOVE = 442.968
if bOn and not bIsOn then
EgtMove( nPreWMoveId, {0,0,-VAC_MOVE})
EgtMove( nSolidWId, {0,0,-VAC_MOVE})
EgtMove( nSolidH4Id, {0,0,-VAC_MOVE})
EgtSetInfo( nPreWMoveId, 'On', '1')
elseif not bOn and bIsOn then
EgtMove( nPreWMoveId, {0,0,VAC_MOVE})
EgtMove( nSolidWId, {0,0,VAC_MOVE})
EgtMove( nSolidH4Id, {0,0,VAC_MOVE})
EgtRemoveInfo( nPreWMoveId, 'On')
end
-- imposto stato visualizzazione ventose
SetVacuumCapStatus( nSolidH4Id, 'V1', bV1)
SetVacuumCapStatus( nSolidH4Id, 'V2', bV2)
SetVacuumCapStatus( nSolidH4Id, 'V3', bV3)
SetVacuumCapStatus( nSolidH4Id, 'V4', bV4)
SetVacuumCapStatus( nSolidH4Id, 'V5', bV5)
SetVacuumCapStatus( nSolidH4Id, 'V6', bV6)
return true
end
local function AdjustOneSideVacuum( nMove, bOn, bV1, bV2, bV3)
-- assegnazione nomi
if nMove == 1 then
sMove = 'MOVE1'
sV1 = 'V1'
sV2 = 'V2'
sV3 = 'V3'
else
sMove = 'MOVE2'
sV1 = 'V4'
sV2 = 'V5'
sV3 = 'V6'
end
-- identificativo testa H4
local nH4Id = EgtGetHeadId( 'H4')
-- identificativo della parte da muovere
local nMoveId = EgtGetFirstNameInGroup( nH4Id, sMove)
if not nMoveId then return false end
-- stato corrente
local bIsOn = ( EgtGetInfo( nMoveId, 'On') == '1')
-- imposto la posizione richiesta (se diversa dalla corrente)
local VAC_MOVE = 222
if bOn and not bIsOn then
EgtMove( nMoveId, {0,0,-VAC_MOVE})
EgtSetInfo( nMoveId, 'On', '1')
elseif not bOn and bIsOn then
EgtMove( nMoveId, {0,0,VAC_MOVE})
EgtRemoveInfo( nMoveId, 'On')
end
-- imposto stato visualizzazione ventose
SetVacuumCapStatus( nMoveId, sV1, bV1)
SetVacuumCapStatus( nMoveId, sV2, bV2)
SetVacuumCapStatus( nMoveId, sV3, bV3)
return true
end
function ActivateVacuum( sVac)
-- recupero stato richiesto
local bV1, bV2, bV3, bV4, bV5, bV6 = ParseVacuumCmd( sVac)
-- imposto stato
if VacType == 1 then
AdjustBackVacuum( (bV1 or bV2 or bV3 or bV4 or bV5 or bV6), bV1, bV2, bV3, bV4, bV5, bV6)
elseif VacType == 2 then
AdjustOneSideVacuum( 1, (bV1 or bV2 or bV3), bV1, bV2, bV3)
AdjustOneSideVacuum( 2, (bV4 or bV5 or bV6), bV4, bV5, bV6)
end
return true
end
function ResetVacuum()
-- reset movimento e visualizzo tutte le ventose
if VacType == 1 then
AdjustBackVacuum( false, true, true, true, true, true, true)
EgtResetAxisPos( 'W')
elseif VacType == 2 then
AdjustOneSideVacuum( 1, false, true, true, true)
AdjustOneSideVacuum( 2, false, true, true, true)
end
end
File diff suppressed because it is too large Load Diff
+294
View File
@@ -0,0 +1,294 @@
-- Special Operations macchina Omag-Digitale5 by EgalTech s.r.l. 20219/09/16
-- 2021/09/16 Ver 2.3i2 Aggiunta gestione posizione home dell'asse rotante delle ventose.
-- Intestazioni
require( 'EmtGenerator')
EgtEnableDebug( false)
---------------------------------------------------------------------
local function GetMovesId( nParentId)
local TabMoveId = {}
local nId = EgtGetFirstInGroup( nParentId)
while nId do
-- recupero nome, se CL ho concluso
local sName = EgtGetName( nId)
if sName == 'CL' then
break
end
-- inserisco in tabella
table.insert(TabMoveId,nId)
-- passo al successivo
nId = EgtGetNext( nId)
end
return TabMoveId
end
---------------------------------------------------------------------
local function PrepareClGroup( nParentId)
local nClId = EgtGetFirstNameInGroup( nParentId, 'CL')
-- se non c'è, lo aggiungo
if not nClId then
nClId = EgtGroup( EMC.DISPID)
if not nClId then
return nil
end
EgtSetName( nClId, 'CL')
-- altrimenti lo svuoto
else
EgtEmptyGroup( nClId)
end
return nClId
end
---------------------------------------------------------------------
function OnSpecialApplyDisposition()
--EgtOutLog( 'OnSpecialApplyDisposition : ' .. EMC.TABNAME .. ' ' .. EMC.DISPID)
-- Inizializzo codice di errore e numero di movimenti
EMC.ERR = 0
EMC.SHIFTS = 0
-- Verifico presenza operazioni manuali
EMC.SBH = ( EgtGetInfo( EMC.DISPID, 'Rbh', 'b') == true)
-- Imposto testa e uscita
EMC.HEAD = 'H4'
EMC.EXIT = 1
-- Recupero tipo di testa ventose
local nVacType = EgtGetInfo( EgtGetHeadId( EMC.HEAD) or GDB_ID.NULL, 'VacType', 'i') or 0
-- Recupero spessore tavola addizionale
local sMachIni = EgtGetCurrMachineDir() .. '\\' .. EgtGetCurrMachineName() .. '.ini'
local dAddTab = tonumber( EgtGetStringFromIni( 'Table', 'AdditionalTable', '0', sMachIni))
-- Recupero se fase di spostamento pezzi su tavola aux per scarico
local bPat = ( EgtGetInfo( EMC.DISPID, 'Pat', 'i') == 1)
-- Recupero identificativi dei movimenti
local TabMoveId = GetMovesId( EMC.DISPID)
-- Verifiche
if nVacType == 0 then
if #TabMoveId > 0 then
EMC.ERR = 1
end
return
end
if #TabMoveId == 0 then
if not EMC.SBH and EMC.PHASE > 1 then
EMC.ERR = 2
end
return
end
-- Recupero Home dell'asse rotante delle ventose
local dRotAxHome = EgtGetAxisHomePos( EgtIf( nVacType == 1, 'W', 'C')) or 0
-- Recupero gruppo per geometria di lavorazione (Cutter Location)
local nClId = PrepareClGroup( EMC.DISPID)
if not nClId then
EMC.ERR = 3
return
end
-- Recupero flag lavaggio pezzi
local nMarkId = EgtGetFirstNameInGroup( GDB_ID.ROOT, 'OmagCut') or EgtGetCurrMachGroup()
local bWash = EgtGetInfo( nMarkId, 'Washing', 'b')
if bWash == nil then bWash = true end
-- Lavaggio pezzi
if bWash then
local dDeltaX = 400
local dDeltaY = 200
local dStepY = 600
local Fw = 18000
vtAux = VectorFromRotated( X_AX(), Z_AX(), dRotAxHome)
vtOffs = Vector3d( 0, 410, 10)
local ptLast
local nWashPathId
for i = 1, #TabMoveId do
local nMoveId = TabMoveId[i]
-- recupero info
local nRawId = EgtGetInfo( nMoveId, 'Id', 'i')
local vtMove = EgtGetInfo( nMoveId, 'Mv', 'v')
local dRawRotDeg = EgtGetInfo( nMoveId, 'Rr', 'd') or 0
if not nRawId or not vtMove then
EMC.ERR = 4
return
end
-- ingombro del grezzo
local nSolidId = EgtGetFirstNameInGroup( nRawId, 'RawSolid')
if not nSolidId then
EMC.ERR = 5
return
end
local b3Raw
if abs( dRawRotDeg) < GEO.EPS_ANG_SMALL then
b3Raw = EgtGetBBoxGlob( nSolidId, GDB_BB.STANDARD)
else
local ptCen = EgtGetRawPartCenter( nRawId)
local frRef = Frame3d( ptCen) frRef:rotate( ptCen, Z_AX(), dRawRotDeg)
b3Raw = EgtGetBBoxRef( nSolidId, GDB_BB.STANDARD, frRef)
b3Raw:move( ptCen - ORIG())
end
-- se inizio, creo gruppo apposito in CL
if i == 1 then
nWashPathId = EgtGroup( nClId)
if not nWashPathId then
EMC.ERR = 6
return
end
EgtSetName( nWashPathId, 'Wash')
end
-- calcolo movimenti
local ptMin = b3Raw:getMin() - vtMove + Vector3d( 0, 0, b3Raw:getDimZ()) + vtOffs
local ptMax = b3Raw:getMax() - vtMove + vtOffs
if ( ptMax[1] - ptMin[1]) > 2 * dDeltaX then
ptMin[1] = ptMin[1] + dDeltaX
ptMax[1] = ptMax[1] - dDeltaX
else
local dXm = ( ptMax[1] + ptMin[1]) / 2
ptMin[1] = dXm - 10
ptMax[1] = dXm + 10
end
if ( ptMax[2] - ptMin[2]) > 2 * dDeltaY then
ptMin[2] = ptMin[2] + dDeltaY
ptMax[2] = ptMax[2] - dDeltaY
else
local dYm = ( ptMax[2] + ptMin[2]) / 2
ptMax[2] = dYm
ptMin[2] = dYm
end
local dDimY = ptMax[2] - ptMin[2]
local nStep = 0
local dNewStepY = 0
if dDimY > 20 then
nStep = ceil( dDimY / dStepY)
dNewStepY = dDimY / nStep
end
local ptL = ptMin
local ptR = Vector3d( ptMax:getX(), ptMin:getY(), ptMax:getZ())
-- primo movimento
if i == 1 then
EmtAddRapidStart( nWashPathId, ptL, Z_AX(), V_NULL(), vtAux, 1)
else
EmtAddRapidMove( nWashPathId, ptLast, ptL, Z_AX(), V_NULL(), vtAux, 0)
end
EmtAddLinearMove( nWashPathId, ptL, ptR, Z_AX(), V_NULL(), vtAux, Fw, 0)
-- movimenti intermedi
for i = 1, nStep do
ptL[2] = ptL[2] + dNewStepY
EmtAddLinearMove( nWashPathId, ptR, ptL, Z_AX(), V_NULL(), vtAux, Fw, 0)
ptR[2] = ptL[2]
EmtAddLinearMove( nWashPathId, ptL, ptR, Z_AX(), V_NULL(), vtAux, Fw, 0)
end
-- salvo l'ultimo punto
ptLast = Point3d( ptR)
-- risalita finale
if i == #TabMoveId then
EmtAddRapidMove( nWashPathId, ptLast, ptLast + Vector3d( 0, 0, 30), Z_AX(), V_NULL(), vtAux, 0)
end
end
end
-- Movimento pezzi
for i = 1, #TabMoveId do
local nMoveId = TabMoveId[i]
-- recupero nome
local sName = EgtGetName( nMoveId)
-- recupero info
local nRawId = EgtGetInfo( nMoveId, 'Id', 'i')
local vtMove = EgtGetInfo( nMoveId, 'Mv', 'v')
local dRawRotDeg = EgtGetInfo( nMoveId, 'Rr', 'd')
local vtDelta = EgtGetInfo( nMoveId, 'Dt', 'v')
local dAngRotDeg = EgtGetInfo( nMoveId, 'Ad', 'd')
local sCups = EgtGetInfo( nMoveId, 'Vc')
if not nRawId or not vtMove or not dRawRotDeg or not vtDelta or not dAngRotDeg or not sCups then
EMC.ERR = 7
return
end
dAngRotDeg = dAngRotDeg + dRotAxHome
--EgtOutLog( 'nRawId =' .. tostring( nRawId))
--EgtOutLog( 'vtMove =' .. tostring( vtMove))
--EgtOutLog( 'dRawRotDeg =' .. tostring( dRawRotDeg))
--EgtOutLog( 'vtDelta =' .. tostring( vtDelta))
--EgtOutLog( 'dAngRotDeg =' .. tostring( dAngRotDeg))
--EgtOutLog( 'sCups =' .. sCups)
-- recupero centro e spessore del grezzo
local nCentId = EgtGetFirstNameInGroup( nRawId, 'RawCenter')
local ptRawCnt = EgtSP( nCentId, GDB_ID.ROOT)
local nSolidId = EgtGetFirstNameInGroup( nRawId, 'RawSolid')
local b3Raw = EgtGetBBoxGlob( nSolidId, GDB_BB.STANDARD)
local vtRawHH = Vector3d( 0, 0, 0.5 * b3Raw:getDimZ())
--EgtOutLog( 'ptRawCnt =' .. tostring( ptRawCnt))
-- creo gruppo apposito in CL
local nPathId = EgtGroup( nClId)
if not nPathId then
EMC.ERR = 8
return
end
EgtSetName( nPathId, sName)
-- inserisco informazioni
EgtSetInfo( nPathId, 'Id', nRawId)
EgtSetInfo( nPathId, 'Mv', vtMove)
EgtSetInfo( nPathId, 'Rr', dRawRotDeg)
EgtSetInfo( nPathId, 'Vc', sCups)
-- calcolo correzione posizione finale per rotazione del grezzo
local vtComp = V_NULL()
if abs( dRawRotDeg) > GEO.EPS_ANG_SMALL then
local vtDiffIni = - vtDelta
local vtDiffFin = Vector3d( vtDiffIni) ; vtDiffFin:rotate( Z_AX(), dRawRotDeg)
vtComp = - ( vtDiffFin - vtDiffIni)
--EgtOutLog( 'DiffIni='..tostring( vtDiffIni)..' DiffFin='..tostring( vtDiffFin)..' Comp='..tostring( vtComp))
end
-- emetto movimenti
local ptSou = ptRawCnt + vtRawHH - vtMove + vtDelta
local ptDest = ptRawCnt + vtRawHH + vtDelta + vtComp
local dUp = min( 30 + b3Raw:getDimZ(), VacHmax - b3Raw:getDimZ() - dAddTab)
if dUp < 30 then
EMC.ERR = 9
return
end
local vtOver = Vector3d( 0, 0, min( 50, dUp))
local vtOn = Vector3d( 0, 0, 20)
local vtUpS = Vector3d( 0, 0, dUp)
if bPat then vtUpS = Vector3d( 0, 0, VacHmax - b3Raw:getDimZ() - dAddTab + VacPatHomeZ) end
local vtUpD = vtUpS + Vector3d( 0, 0, ( ptSou - ptDest):getZ())
local vtAux1 = VectorFromRotated( X_AX(), Z_AX(), dAngRotDeg)
local vtAuxS = Vector3d( vtAux1)
local vtAux2 = VectorFromRotated( X_AX(), Z_AX(), dAngRotDeg + dRawRotDeg)
local vtAuxE = Vector3d( vtAux2)
if bPat and AreSameVectorApprox( vtAux2, Y_AX()) then
vtAux2 = - vtAux2
vtAuxE = - vtAuxE
end
-- se ventosa dietro primo posizionamento di primo movimento e ultimo di ultimo con rotazione nulla
if nVacType == 1 then
if i == 1 then vtAuxS = X_AX() end
if i == #TabMoveId then vtAuxE = X_AX() end
end
local Fz = 1200
local Fxy = 5000
EmtAddRapidStart( nPathId, ptSou + vtOver, Z_AX(), V_NULL(), vtAuxS, 1)
EmtAddRapidMove( nPathId, ptSou + vtOver, ptSou + vtOn, Z_AX(), V_NULL(), vtAux1, 1001)
EmtAddLinearMove( nPathId, ptSou + vtOn, ptSou, Z_AX(), V_NULL(), vtAux1, Fz, 0)
EmtAddLinearMove( nPathId, ptSou, ptSou + vtUpS, Z_AX(), V_NULL(), vtAux1, Fz, 1002)
EmtAddLinearMove( nPathId, ptSou + vtUpS, ptDest + vtUpD, Z_AX(), V_NULL(), vtAux2, Fxy, 0)
EmtAddLinearMove( nPathId, ptDest + vtUpD, ptDest, Z_AX(), V_NULL(), vtAux2, Fz, 0)
EmtAddLinearMove( nPathId, ptDest, ptDest + vtOn, Z_AX(), V_NULL(), vtAux2, Fz, 1003)
EmtAddRapidMove( nPathId, ptDest + vtOn, ptDest + vtOver, Z_AX(), V_NULL(), vtAuxE, 0)
EMC.SHIFTS = EMC.SHIFTS + 1
end
-- Nascondo operazione
EgtSetOperationStatus(EMC.DISPID,false)
end
Binary file not shown.
+277
View File
@@ -0,0 +1,277 @@
; Commento per evitare BOM con UTF-8
[NumericalControl]
; 1 = Num Axium, 2 = Num Flexium
Type=2
[PartProgram]
Extension=.xpi
[Axes]
AxesNum=5
L1Name=X
L1Id=0
L2Name=Y
L2Id=1
L3Name=Z
L3Id=2
R1Name=C
R1Id=8
R2Name=B
R2Id=7
DeltaC=+90.0 ; Incremento dell'asseC per avere con la lama la direzione dell'asse X+
InInches=0
[NcData]
NewVariable=1
NewConsole=1
FeedOvr=PLC,Application.IOCONFIG_GLOBALS.NCK.WCNC.Channel[1].FeedOveride
SpeedOvr=PLC,Application.IOCONFIG_GLOBALS.NCK.WCNC.Spindle[25].Override
Spindle=PLC,Application.GVL_HMI_OMAG.HMI_rotazione_lama
Laser=PLC,Application.GVL_HMI_OMAG.HMI_laser_punto
LaserTrac=PLC,Application.GVL_HMI_OMAG.HMI_laser_tracciatura
Coolant=PLC,Application.GVL_HMI_OMAG.HMI_H2O_lama
TableUp=PLC,Application.GVL_HMI_OMAG.HMI_table_up
TableDown=PLC,Application.GVL_HMI_OMAG.HMI_table_down
DoorClosed=PLC,Application.GVL_HMI_OMAG.HMI_door_open
LimitZ=PLC,Application.GVL_HMI_OMAG.HMI_limit_Z_on
CAxes=PLC,Application.GVL_HMI_OMAG.HMI_Puls_C
Power=PLC,Application.GVL_HMI_OMAG.HMI_LabAmper
Speed=PLC,Application.GVL_HMI_OMAG.HMI_LabRPM
Mode=PLC,Application.IOCONFIG_GLOBALS.NCK.RCNC.General.Mode
JogIncr=PLC,Application.IOCONFIG_GLOBALS.NCK.RCNC.General.JogIncrement
Feed=PLC,Application.GVL_HMI_OMAG.HMI_Vel_prog
InternalCoolant=PLC,Application.GVL_HMI_OMAG.HMI_H2O_int
ExternCoolant=PLC,Application.GVL_HMI_OMAG.HMI_H2O_ext
AirBlow=PLC,Application.GVL_HMI_OMAG.HMI_Pulizia_cono
Home=PLC,Application.GVL_HMI_OMAG.HMI_Home
Water=PLCApplication.GVL_HMI_OMAG.HMI_H2O_ON
PowerON=Application.GVL_HMI_Omag.HMI_Power_ON
XYJog=Application.GVL_HMI_Omag.HMI_Puls_Jog_X_Y
ZCJog=Application.GVL_HMI_Omag.HMI_IPuls_Jog_Z
ZBJog=Application.GVL_HMI_Omag.HMI_IPuls_Jog_B_C
;---VENTOSE LATERALI---
PowerOvr=PLC,Application.GVL_HMI_OMAG.SetP_curr_ut
VacuumUp=PLC,Application.GVL_HMI_OMAG.HMI_sam_dx_UP
VacuumDown=PLC,Application.GVL_HMI_OMAG.HMI_sam_dx_DOWN
Vacuum2Up=PLC,Application.GVL_HMI_OMAG.HMI_sam_sx_UP
Vacuum2Down=PLC,Application.GVL_HMI_OMAG.HMI_sam_sx_DOWN
Vacuum1State=PLC,Application.GVL_HMI_OMAG.HMI_sam_1
Vacuum2State=PLC,Application.GVL_HMI_OMAG.HMI_sam_2
Vacuum3State=PLC,Application.GVL_HMI_OMAG.HMI_sam_3
Vacuum4State=PLC,Application.GVL_HMI_OMAG.HMI_sam_4
Vacuum5State=PLC,Application.GVL_HMI_OMAG.HMI_sam_5
Vacuum6State=PLC,Application.GVL_HMI_OMAG.HMI_sam_6
Open123State=PLC,Application.GVL_HMI_OMAG.HMI_sam_123_on
Close123State=PLC,Application.GVL_HMI_OMAG.HMI_sam_123_off
Open456State=PLC,Application.GVL_HMI_OMAG.HMI_sam_456_on
Close456State=PLC,Application.GVL_HMI_OMAG.HMI_sam_456_off
BlowState=PLC,Application.GVL_HMI_OMAG.HMI_samr_air_on
VacuumOn=PLC,Application.GVL_HMI_OMAG.HMI_samr_vacuum_on
VacuumOff=PLC,Application.GVL_HMI_OMAG.HMI_samr_vacuum_off
BypassState=PLC,Application.GVL_HMI_OMAG.HMI_samr_By_pass
[Table]
AdditionalTable=0
[Tools]
Drillbit=1
Sawblade=1
Mill=1
CupWheel=0
ShowToolChanger=0
; ShowHeadExit : if HSM set to 1 otherwise to 0
ShowHeadExit=0
DrillHolder=H2ToolHolder.nge
SawbladeHolder=
MillHolder=H2ToolHolder.nge
DrillMaker=MakeDrill.lua
SawbladeMaker=MakeSawblade.lua
MillMaker=MakeCylMill.lua
; MountedToolConfig : if HSM set to 2 otherwise to 1
MountedToolConfig=1
MaxSawDiamForVac=625
MaxSawDiamForProbe=625
[ToolChanger]
ManualNumber=2
ManualName1=T1
ManualName2=T2
ManualPos2=Mill 20 marmo
ManualPos1=Drill35
[Machinings]
Drilling=1
Sawing=1
Milling=1
SawRoughing=1
SawFinishing=1
Pocketing=0
SawingOnArcs=1
[Nest]
HolesOffset=2
HolesOverlap=2
HolesDiamToler=-20
OneHoleOnIntCorner=1
SafeLenOnCut=2
SafeLenOnIntCorner=4
ReducedCut=1
ReducedDepth=2
ExtArcMinRad=150
IntArcMaxSideAng=60
MillingOnCorners=0
MillingOnSinks=0
Aligned=1
Washing=1
SacProbe=0
EnableRestart=1
EnablePause=1
DrillMillC90=1
CutLongDxSx=1
MillingShortening=0
CutFsevEnable=1
CutFsevLen=200
CutFsevPerc=70
EngravingDepth=5
EngravingWidth=10
EngravingWithMill=0
Guillotine=0
PreCutExit=0
[RawMove]
Rotate=1
FinalMove=0
[DirectCuts]
FinalHome=0
AddSawThTo5AxMove=0
[MachineButtons]
Button1=PowerON.png,PowerON.lua,PowerON
Button2=PowerOFF.png,PowerOFF.lua,PowerOFF
; elnco dei bottoni presenti nella pagina IN LAVORO (variabili PLC)
[MachButtons]
Button1Y=X-YJog.png,XYJog.lua,XYJog
Button2Y=Z-CJog.png,ZCJog.lua,ZCJog
Button3Y=Z-BJog.png,ZBJog.lua,ZBJog
;Button1Y=SawOn.png,SawOnOld.lua,Spindle
;Button1N=SawOff.png,SawOffOld.lua
;Button2Y=WaterOn.png,WaterOnOld.lua,Coolant
;Button2N=WaterOff.png,WaterOffOld.lua
;Button3Y=LaserPuntoOn.png,LaserPuntoOn.lua,Laser
;Button3N=LaserPuntoOff.png,LaserPuntoOff.lua
Button4Y=LaserTracciaturaOn.png,LaserTracciaturaOn.lua,LaserTrac
Button4N=LaserTracciaturaOff.png,LaserTracciaturaOff.lua
Button5Y=3Axes.png,3Axes.lua,ThreeAxis
Button5N=
Button6Y=5Axes.png,5Axes.lua,FiveAxis
Button6N=
Button7Y=Table.png,Table.lua,Nothing
Button7N=
Button8Y=DoorOpen.png,DoorOpenOn.lua,DoorOpened
Button8N=DoorOpen.png,DoorOpenOff
Button9Y=DoorClose.png,DoorCloseOn.lua,DoorClosed
Button9N=DoorClose.png,DoorCloseOff.lua
; elenco dei bottoni presenti nella pagina TAGLI DIRETTI
[ControlMachButtons]
Button1=0,Manual.png,Manual.lua,Manual
Button2=1,CAxisRot.png,CAxisRot.lua,CAxes
Button3=1,BAxisRot.png,BAxisRot.lua,BAxes
Button4=1,3Axes.png,3Axes.lua,ThreeAxes,3Axes.png,3Axes.lua
Button5=1,5Axes.png,5Axes.lua,FiveAxes,5Axes.png,5Axes.lua
Button6=3,LimitZ.png,LimitZOn.lua,LimitZ,LimitZ.png,LimitZOff.lua
Button7=1,SawOn.png,SawOn.lua,Spindle,SawOff.png,SawOff.lua
Button8=1,AirBlow.png,AirBlow.lua,AirBlow
Button9=1,LaserPuntoOn.png,LaserPuntoOn.lua,Laser,LaserPuntoOff.png,LaserPuntoOff.lua
Button10=1,WaterOn.png,WaterOn.lua,Coolant,WaterOff.png,WaterOff.lua
Button11=1,IntWaterOn.png,IntWaterOn.lua,InternalCoolant,IntWaterOff.png,IntWaterOff.lua
Button12=1,ExtWaterOn.png,ExtWaterOn.lua,ExternCoolant,ExtWaterOff.png,ExtWaterOff.lua
Button13=1,Home.png,Home.lua,Home
Button14=4,TableUp.png,TableUpOn.lua,TableUp,TableUp.png,TableUpOff.lua
Button15=4,TableDown.png,TableDownOn.lua,TableDown,TableDown.png,TableDownOff.lua
Button16=2,DoorOpen.png,DoorOpenOn.lua,DoorOpened,DoorOpen.png,DoorOpenOff.lua
Button17=2,DoorClose.png,DoorCloseOn.lua,DoorClosed,DoorClose.png,DoorCloseOff.lua
Button18=1,LaserTracciaturaOn.png,LaserTracciaturaOn.lua,LaserTrac,LaserTracciaturaOff.png,LaserTracciaturaOff.lua
[VacuumMachButtons]
;---VENTOSE LATERALI
Button1=1,VacuumUp.png,Vacuum2Up.lua,Vacuum2Up
Button2=1,VacuumOn.png,VacuumOn.lua,VacuumOn
Button3=1,VacuumUp.png,Vacuum1Up.lua,VacuumUp
Button4=1,VacuumDown.png,Vacuum2Down.lua,Vacuum2Down
Button5=1,VacuumOff.png,VacuumOff.lua,VacuumOff
Button6=1,VacuumDown.png,Vacuum1Down.lua,VacuumDown
Button7=1,OpenLeftAll.png,Open2All.lua,Open456State
Button8=1,Blow.png,Blow.lua,BlowState
Button9=1,OpenRightAll.png,Open1All.lua,Open123State
Button10=1,CloseLeft.png,Close2All.lua,Close456State
Button11=4,BypassOn.png,BypassOn.lua,BypassState,BypassOff.png,BypassOff.lua
Button12=1,CloseRight.png,Close1All.lua,Close123State
Button13=1,OpenLeft6.png,Open6.lua,Vacuum6State
Button14=0,qqq.png,qqq.lua,qqq
Button15=1,OpenRight3.png,Open3.lua,Vacuum3State
Button16=1,OpenLeft5.png,Open5.lua,Vacuum5State
Button17=0,qqq.png,qqq.lua,qqq
Button18=1,OpenRight2.png,Open2.lua,Vacuum2State
Button19=1,OpenLeft4.png,Open4.lua,Vacuum4State
Button20=0,qqq.png,qqq.lua,qqq
Button21=1,OpenRight1.png,Open1.lua,Vacuum1State
[InProgress]
PhaseVar=E80020
[Probing]
ProbingStateVar=L108
SawDiameter=E80006
RawThickness=E80004
[BarcodeReader]
EnableBCR=0
[Estimations]
Enable=1
WinPlace=0,853,223,491,696
[Photo]
OffsetX=0
OffsetY=0
[VMill]
Enable=1
;***********************************************************
; The following code was generated by the program.
; Changes to this section may cause incorrect behavior!!
;***********************************************************
[Mach]
CurrSaw=Saw450 Marm
CurrDrill=
CurrMill=
CurrSawing=marble blade450
CurrDrilling=
CurrMilling=
CurrSawRoughing=Saw 450 Roughing
CurrSawFinishing=Rough_saw450_N
CurrSawSideFinishing=
CurrSawSingle=marble blade450
CurrPocketing=
CurrWaterJet=
CurrWaterJetting=
CurrMillNoTip=
[Materials]
CurrMaterial=2
Material1=2,GRANITE
CurrOfficeMaterial=3
Material2=3,MARMI
Material3=4,***
[SetUp]
Default=MillStd
;******************************************************
[Frame]
Pause=1
+196
View File
@@ -0,0 +1,196 @@
-- 2017/03/08 10:30:00
-- Gestione attrezzaggio
-- Intestazioni
require( 'EgtBase')
_ENV = EgtProtectGlobal()
EgtEnableDebug( false)
-- Tavola di passaggio valori
local STU = {}
STU.TUUID = ""
STU.TCPOS = ""
STU.HEAD = ""
STU.GROUP = ""
STU.POS = ""
STU.EXIT = 0
STU.INDEX = 0
STU.HEAD1 = ""
STU.HEAD2 = ""
STU.ISVALID = false
STU.ERR = 0
_G.STU = STU
local INVALIDPOS = ""
local POS = "Pos"
-- Geom Set
local GS = {}
-- Configurazione posizioni
local PositionTable={{Pos = "Pos1", TcPos = "T0", Head = "H1", Group = "G1"}}
local UsePositionHead = true
function STU.GetValidHeadExitForPos()
-- se TUUID non valido restituisco errore
local ToolName = EgtTdbGetToolFromUUID( STU.TUUID)
if ToolName == nill then
STU.ERR = 1
return
end
EgtTdbSetCurrTool( ToolName)
STU.HEAD = EgtTdbGetCurrToolParam( MCH_TP.HEAD)
STU.EXIT = EgtTdbGetCurrToolParam( MCH_TP.EXIT)
STU.ERR = 0
end
function STU.IsValidTcPosFromHead()
STU.ISVALID = false
for i = 1, #PositionTable do
if PositionTable[i].TcPos == STU.TCPOS then
if PositionTable[i].Head == STU.HEAD then
STU.ISVALID = true
STU.ERR = 0
return
elseif IsInGeomSet(PositionTable[i].Head, STU.HEAD) then
STU.ISVALID = true
STU.ERR = 0
return
end
STU.ISVALID = false
STU.ERR = 0
return
end
end
end
function STU.IsValidExit()
if STU.TYPE == MCH_TF.SAWBLADE then
if STU.EXIT == 1 then
STU.ISVALID = true
STU.ERR = 0
return
else
STU.ISVALID = false
STU.ERR = 0
return
end
else
if STU.EXIT == 2 then
STU.ISVALID = true
STU.ERR = 0
return
else
STU.ISVALID = false
STU.ERR = 0
return
end
end
end
-- THE NEXT FUNCTIONS ARE THE SAME FOR ALL MACHINES. DON'T MODIFY THEM!!
local function IsInGeomSet( ToolHead, PosHead)
for GsIndex = 1, #GS do
local bToolHead = false
local bPosHead = false
for HIndex = 1, #GS[GsIndex] do
if GS[GsIndex][HIndex] == ToolHead then
bToolHead = true
elseif GS[GsIndex][HIndex] == PosHead then
bPosHead = true
end
if bToolHead and bPosHead then
return true
end
end
if bToolHead and bPosHead then
return true
end
end
return false
end
function STU.IsCompatibleHeads()
STU.ISVALID = false
if IsInGeomSet(STU.HEAD1, STU.HEAD2) then
STU.ISVALID = true
else
STU.ISVALID = false
end
end
function STU.GetTcPosHeadGroupFromPos()
for i = 1, #PositionTable do
if PositionTable[i].Pos == (POS .. tostring(STU.INDEX)) then
STU.TCPOS = PositionTable[i].TcPos
STU.HEAD = PositionTable[i].Head
STU.GROUP = PositionTable[i].Group
STU.ERR = 0
return
end
end
STU.TCPOS = INVALIDPOS
STU.HEAD = INVALIDPOS
STU.GROUP = INVALIDPOS
STU.ERR = 1
end
function STU.GetPosFromTcPos()
for i = 1, #PositionTable do
if PositionTable[i].TcPos == STU.TCPOS then
STU.POS = PositionTable[i].Pos
STU.ERR = 0
return
end
end
STU.POS = INVALIDPOS
STU.ERR = 1
end
function STU.GetGroupFromTcPos()
for i = 1, #PositionTable do
if PositionTable[i].TcPos == STU.TCPOS then
STU.GROUP = PositionTable[i].Group
STU.ERR = 0
return
end
end
STU.GROUP = INVALIDPOS
STU.ERR = 1
end
function STU.GetHeadFromPos()
for i = 1, #PositionTable do
if PositionTable[i].Pos == (POS .. tostring(STU.INDEX)) then
STU.HEAD = PositionTable[i].Head
STU.ERR = 0
return
end
end
STU.HEAD = INVALIDPOS
STU.ERR = 1
end
function STU.GetTcPosFromPos()
for i = 1, #PositionTable do
if PositionTable[i].Pos == (POS .. tostring(STU.INDEX)) then
STU.TCPOS = PositionTable[i].TcPos
STU.ERR = 0
return
end
end
STU.TCPOS = INVALIDPOS
STU.ERR = 1
end
function STU.IsValidHead()
if STU.HEAD ~= "H3" then
STU.ISVALID = true
STU.ERR = 0
return
end
STU.ISVALID = false
STU.ERR = 0
end
+3
View File
@@ -0,0 +1,3 @@
; Commento per evitare BOM con UTF-8
[General]
Pos1=T0;H1;1/03532963-5CB3-40AE-87D6-A3D44073DD05/Lama407,2/BFCB9173-CAC6-410B-A872-23594A54EDC6/Mill20
+3
View File
@@ -0,0 +1,3 @@
; Commento per evitare BOM con UTF-8
[General]
Pos1=T0;H1;1/9ECEFA35-ED9F-4AD1-B773-4E0136F860E6/Saw450 Marm,2/BFCB9173-CAC6-410B-A872-23594A54EDC6/router20 granit
Binary file not shown.
Binary file not shown.
Binary file not shown.