Egalware/omagmachines
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Compare commits

base: Egalware/omagmachines:2.3j1
Branches Tags
Egalware/omagmachines:main Egalware/omagmachines:develop
Egalware/omagmachines:AutoSave_2024/02/02 Egalware/omagmachines:AutoSave_2024/10/01 Egalware/omagmachines:AutoSave_2024/03/08 Egalware/omagmachines:2.3j1 Egalware/omagmachines:2.3j2 Egalware/omagmachines:2.3i2
...
compare: Egalware/omagmachines:develop
Branches Tags
Egalware/omagmachines:develop Egalware/omagmachines:main
Egalware/omagmachines:AutoSave_2024/02/02 Egalware/omagmachines:AutoSave_2024/10/01 Egalware/omagmachines:AutoSave_2024/03/08 Egalware/omagmachines:2.3j1 Egalware/omagmachines:2.3j2 Egalware/omagmachines:2.3i2

3 Commits
2.3j1 ... develop

Author SHA1 Message Date
NicolaP 18e656e0b0 Aggiornmento per nuova console Digitale5HsmSV 2021-10-29 13:59:26 +02:00
NicolaP c006510346 Aggiornamento Digitale5HsmSV 2021-10-28 14:35:40 +02:00
NicolaP f803d66abe Aggiornamento Digitale5SV 2021-10-28 13:07:05 +02:00
28 changed files with 358 additions and 30 deletions
Expand all files Collapse all files
Omag-Digitale5HsmSV/DirectCmd/PowerOFF.lua
+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
Omag-Digitale5HsmSV/DirectCmd/PowerON.lua
+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
Omag-Digitale5HsmSV/DirectCmd/RemoteOff.lua
+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
Omag-Digitale5HsmSV/DirectCmd/RemoteOn.lua
+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
Omag-Digitale5HsmSV/DirectCmd/TestWork.lua
+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
Omag-Digitale5HsmSV/DirectCmd/XYJog.lua
+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
Omag-Digitale5HsmSV/DirectCmd/ZBJog.lua
+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
Omag-Digitale5HsmSV/DirectCmd/ZCJog.lua
+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
Omag-Digitale5HsmSV/Omag-Digitale5HsmSV.ini
+16
View File
@@ -23,6 +23,7 @@ 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
@@ -44,6 +45,11 @@ 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=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---
VacuumUp=PLC,Application.GVL_HMI_OMAG.HMI_sam_dx_UP
VacuumDown=PLC,Application.GVL_HMI_OMAG.HMI_sam_dx_DOWN
@@ -135,6 +141,16 @@ FinalMove=1
FinalHome=1
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
[MachButtons]
Button1Y=SawOn.png,SawOnOld.lua,Spindle
Button1N=SawOff.png,SawOffOld.lua
Omag-Digitale5HsmSV/Omag-Digitale5HsmSV.mlde
+6
View File
@@ -19,6 +19,12 @@ local W2 =-180.808
local MinX = -3660
local MaxX = 30
-- 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
Omag-Digitale5HsmSV/Omag-Digitale5HsmSV.mlpe
+52 -2
View File
@@ -258,6 +258,15 @@ end
---------------------------------------------------------------------
function OnMachiningEnd()
-- reset allargamento corsa asse X
if EMT.EXT_X == -1 then
EmtOutput( 'G0 G52 X' .. EmtLenToString( MinRedX, 3))
EmtOutput( 'E60003='..EgtNumToString( MaxRedX, 3)..'*1000 E60002='..EgtNumToString( MinRedX, 3)..'*1000')
elseif EMT.EXT_X == 1 then
EmtOutput( 'G0 G52 X' .. EmtLenToString( MaxRedX, 3))
EmtOutput( 'E60003='..EgtNumToString( MaxRedX, 3)..'*1000 E60002='..EgtNumToString( MinRedX, 3)..'*1000')
end
EMT.EXT_X = nil
EmtOutput( 'G59 X0 Y0 Z0')
EmtOutput( '(Mach End)')
-- se sgrossatura con lama con richiesta di pausa, pausa per rompere le alette
@@ -357,8 +366,26 @@ function OnRapid()
EmtAdjustRotaryAxes()
-- se standard
if EMT.FLAG == 0 or EMT.FLAG == 1 or EMT.FLAG == 2 or EMT.FLAG == 1001 then
-- se rapido sopra inizio e lavorazione e oltre i limiti ridotti
if not EMT.EXT_X and not EMT.OPEISDISP then
if EMT.L1o < MinRedX then
EMT.EXT_X = -1
EmtOutput( 'G0 G52 X' .. EmtLenToString( MinRedX, 3))
EmtOutput( 'E60003='..EgtNumToString( MaxX, 3)..'*1000 E60002='..EgtNumToString( MinX, 3)..'*1000')
local sR1 = EmtGetRapidAxis('R1')
local sR2 = EmtGetRapidAxis('R2')
EmtOutput( 'G0' .. sR1 .. sR2)
elseif EMT.L1o > MaxRedX then
EMT.EXT_X = 1
EmtOutput( 'G0 G52 X' .. EmtLenToString( MaxRedX, 3))
EmtOutput( 'E60003='..EgtNumToString( MaxX, 3)..'*1000 E60002='..EgtNumToString( MinX, 3)..'*1000')
local sR1 = EmtGetRapidAxis('R1')
local sR2 = EmtGetRapidAxis('R2')
EmtOutput( 'G0' .. sR1 .. sR2)
end
end
-- se rapido sopra inizio e lavorazione oppure lavaggio, avvio rotazione
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
EmitSpeed()
end
-- se attivazione manipolatori con ventose e disposizione
@@ -1197,6 +1224,13 @@ function OnSimulPathStart()
--
end
end
-- reset allargamento corsa asse X
if EMT.EXT_X == -1 then
SimulMoveAxis( 'X', MinRedX, 20)
elseif EMT.EXT_X == 1 then
SimulMoveAxis( 'X', MaxRedX, 20)
end
EMT.EXT_X = nil
end
---------------------------------------------------------------------
@@ -1233,8 +1267,24 @@ function OnSimulMoveStart()
end
-- altrimenti movimento di lavorazione
else
-- se taglio con disco
if EMT.MCHTYPE == MCH_MY.SAWING then
-- se rapido sopra inizio e oltre i limiti ridotti
if not EMT.EXT_X and ( EMT.FLAG == 0 or EMT.FLAG == 1 or EMT.FLAG == 2 or EMT.FLAG == 1001) then
if EMT.L1 < MinRedX then
EMT.EXT_X = -1
SimulMoveAxis( 'X', MinRedX, 20)
SimulMoveAxes( 'C', EMT.R1, 10, 'B', EMT.R2, 10)
EgtPause( 400)
elseif EMT.L1 > MaxRedX then
EMT.EXT_X = 1
SimulMoveAxis( 'X', MaxRedX, 20)
SimulMoveAxes( 'C', EMT.R1, 10, 'B', EMT.R2, 10)
EgtPause( 400)
end
end
-- se sgrossatura o finitura di cornici con lama
if EMT.MCHTYPE == MCH_MY.SAWROUGHING or EMT.MCHTYPE == MCH_MY.SAWFINISHING then
elseif EMT.MCHTYPE == MCH_MY.SAWROUGHING or EMT.MCHTYPE == MCH_MY.SAWFINISHING then
-- se sopra inizio lavorazione con testa verticale, prima muovo B
if EMT.FLAG == 2 and abs( EMT.R2) < 0.1 then
SimulMoveAxis( 'B', EMT.R2, 20)
Omag-Digitale5SV/Machinings/Machinings.data
BIN
View File
Binary file not shown.
Omag-Digitale5SV/Machinings/Machinings.data.bak
BIN
View File
Binary file not shown.
Omag-Digitale5SV/Omag-Digitale5SV.ini
+5 -5
View File
@@ -72,7 +72,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=50
[Tools]
Drillbit=1
@@ -271,10 +271,10 @@ Enable=1
;***********************************************************
[Mach]
CurrSaw=Saw450 Marm
CurrDrill=
CurrSaw=wood
CurrDrill=Foretto25
CurrMill=
CurrSawing=marble blade450
CurrSawing=wood
CurrDrilling=
CurrMilling=
CurrSawRoughing=Saw 450 Roughing
@@ -287,7 +287,7 @@ CurrWaterJetting=
CurrMillNoTip=
[Materials]
CurrMaterial=2
CurrMaterial=4
Material1=2,GRANITE
CurrOfficeMaterial=3
Material2=3,MARMI
Omag-Digitale5SV/Omag-Digitale5SV.mlde
+2 -2
View File
@@ -1,7 +1,7 @@
-- Descrizione macchina Omag-Digitale5 by EgalTech s.r.l. 2021/07/26
-- Table position
local TabX = -3802
local TabX = -3800
local TabY = -2215.1
local TabZ = -369.3
@@ -37,7 +37,7 @@ MaxRedX = 10
MaxX = 210
-- Saw data ( S <= 650, L resto)
local MinXSawL = -3500.0 -- minimo corsa X per lama grande
local MinXSawL = -3600.0 -- minimo corsa X per lama grande
local MaxXSawL = 0.0 -- massimo corsa X per lama grande
local MaxDiamSawS = 650 -- diametro massimo lama piccola
Omag-Digitale5SV/Omag-Digitale5SV.mlpe
+45 -21
View File
@@ -1,4 +1,4 @@
-- Processore macchina Omag-Digitale5 by EgalTech s.r.l. 2021/09/16
-- Processore macchina Omag-Digitale5 by EgalTech s.r.l. 2021/10/18
-- Per controllo numerico NUM
-- 2018/07/07 Gestione Pausa a fine lavorazione e Restart
-- 2018/07/07 Aggiunta stima tempi.
@@ -21,6 +21,7 @@
-- 2021/09/07 Ver 2.3i1 Altre modifiche per gestione pausa.
-- 2021/09/16 Ver 2.3i2 Vedi mlse.
-- 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')
@@ -28,7 +29,7 @@ EgtEnableDebug( false)
-- Variabili di modulo
local MLE_INFO = 'Omag-Digitale5.mlpe ver.2.3j1 by EgalTech s.r.l.'
local MLE_INFO = 'Omag-Digitale5.mlpe ver.2.3j2 by EgalTech s.r.l.'
local VacuumExtraZ = -10
local VacuumExtraY = -1
local SideAngAlongXOffs = 0.0
@@ -43,7 +44,7 @@ local RedAcc = 5
function OnStart()
EMT.USETO1 = true -- abilitazione uso origine tavola
EMT.MODAL = true -- abilitazione emissione modale
EMT.INCHES = not EgtUiUnitsAreMM() -- unità di misura mm/inches
EMT.INCHES = not EgtUiUnitsAreMM() -- unità di misura mm/inches
EMT.NUM = true -- abilitazione numerazione linee
--EMT.Nt = 'N' -- token per la numerazione di linea
--EMT.LINENBR = 0 -- numero di linea
@@ -72,7 +73,7 @@ function OnProgramStart()
EmitMeasUnit()
-- Path file Ini di macchina
local sMachIni = EgtGetCurrMachineDir() .. '\\' .. EMT.MACHNAME .. '.ini'
-- Recupero se attiva gestione velocità ridotta a inizio/fine taglio
-- 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)
@@ -289,7 +290,7 @@ end
---------------------------------------------------------------------
function OnPathStart()
-- reset valori precedenti (per forzare emissione di tutti gli assi del 1° movimento)
-- reset valori precedenti (per forzare emissione di tutti gli assi del 1° movimento)
EmtResetPrev()
-- se disposizione
if EMT.OPEISDISP then
@@ -303,7 +304,7 @@ function OnPathStart()
-- ventose e manipolatori non attivi
EMT.V1, EMT.V2, EMT.V3, EMT.V4, EMT.V5, EMT.V6 = nil, nil, nil, nil, nil, nil
EMT.VM1, EMT.VM2 = nil, nil
-- dichiaro asse W già in posizione
-- dichiaro asse W già in posizione
EMT.R1p = 0
-- altrimenti movimento grezzo con ventosa
else
@@ -317,7 +318,7 @@ function OnPathStart()
-- acquisisco dati manipolatori
local sVacs = EgtGetInfo( EMT.PATHID, 'Vc')
EMT.V1, EMT.V2, EMT.V3, EMT.V4, EMT.V5, EMT.V6 = ParseVacuumCmd( sVacs)
-- se ventose dietro, dichiaro asse W già in posizione
-- se ventose dietro, dichiaro asse W già in posizione
if EMT.VACTYPE == 1 then
EMT.R1p = 0
end
@@ -356,15 +357,15 @@ function OnRapid()
if not EMT.EXT_X and not EMT.OPEISDISP then
if EMT.L1o < MinRedX then
EMT.EXT_X = -1
EmtOutput( 'E60003='..EgtNumToString( MaxX, 3)..'*1000 E60002='..EgtNumToString( MinX, 3)..'*1000')
EmtOutput( 'G0 G52 X' .. EmtLenToString( MinRedX, 3))
EmtOutput( 'E60003='..EgtNumToString( MaxX, 3)..'*1000 E60002='..EgtNumToString( MinX, 3)..'*1000')
local sR1 = EmtGetRapidAxis('R1')
local sR2 = EmtGetRapidAxis('R2')
EmtOutput( 'G0' .. sR1 .. sR2)
elseif EMT.L1o > MaxRedX then
EMT.EXT_X = 1
EmtOutput( 'E60003='..EgtNumToString( MaxX, 3)..'*1000 E60002='..EgtNumToString( MinX, 3)..'*1000')
EmtOutput( 'G0 G52 X' .. EmtLenToString( MaxRedX, 3))
EmtOutput( 'G0 G52 X' .. EmtLenToString( MaxRedX, 3))
EmtOutput( 'E60003='..EgtNumToString( MaxX, 3)..'*1000 E60002='..EgtNumToString( MinX, 3)..'*1000')
local sR1 = EmtGetRapidAxis('R1')
local sR2 = EmtGetRapidAxis('R2')
EmtOutput( 'G0' .. sR1 .. sR2)
@@ -459,7 +460,7 @@ function OnRapid()
elseif EMT.FLAG == 4 then
-- spegnimento mandrino
EmitSpeedOff()
-- non aggiungo Z perché già risalito a Zmax (max 4 assi contemporanei)
-- non aggiungo Z perché già risalito a Zmax (max 4 assi contemporanei)
local sAxes = EmtGetHomeAxis('L1')..EmtGetHomeAxis('L2')
-- se sgrossatura o finitura di cornici con lama con testa verticale
if ( EMT.MCHTYPE == MCH_MY.SAWROUGHING or EMT.MCHTYPE == MCH_MY.SAWFINISHING) and abs( EMT.R2p) < 0.1 then
@@ -672,7 +673,7 @@ end
---------------------------------------------------------------------
function EmitSpeed()
-- verifico non sia già in rotazione
-- verifico non sia già in rotazione
if EMT.SPEEDON == 1 then return end
-- avvio rotazione
EmtOutput( 'M153 S='..EgtNumToString(EMT.S,0))
@@ -691,7 +692,7 @@ end
---------------------------------------------------------------------
function EmitSpeedOff()
-- verifico non sia già fermo
-- verifico non sia già fermo
if EMT.SPEEDON == 0 then return end
-- arresto rotazione
EmtOutput( 'G0')
@@ -702,7 +703,7 @@ end
---------------------------------------------------------------------
function EmitCoolant()
-- verifico non sia già aperto
-- verifico non sia già aperto
if EMT.COOLANTON == 1 then return end
-- acqua
if EMT.COOLANT ~= 0 then
@@ -729,7 +730,7 @@ end
---------------------------------------------------------------------
function EmitCoolantOff()
-- verifico non sia già spento
-- verifico non sia già spento
if EMT.COOLANTON == 0 then return end
-- spegnimento acqua
EmtOutput( 'M9')
@@ -1212,6 +1213,13 @@ function OnSimulPathStart()
--
end
end
-- reset allargamento corsa asse X
if EMT.EXT_X == -1 then
SimulMoveAxis( 'X', MinRedX, 20)
elseif EMT.EXT_X == 1 then
SimulMoveAxis( 'X', MaxRedX, 20)
end
EMT.EXT_X = nil
end
---------------------------------------------------------------------
@@ -1248,8 +1256,24 @@ function OnSimulMoveStart()
end
-- altrimenti movimento di lavorazione
else
-- se taglio con disco
if EMT.MCHTYPE == MCH_MY.SAWING then
-- se rapido sopra inizio e oltre i limiti ridotti
if not EMT.EXT_X and ( EMT.FLAG == 0 or EMT.FLAG == 1 or EMT.FLAG == 2 or EMT.FLAG == 1001) then
if EMT.L1 < MinRedX then
EMT.EXT_X = -1
SimulMoveAxis( 'X', MinRedX, 20)
SimulMoveAxes( 'C', EMT.R1, 10, 'B', EMT.R2, 10)
EgtPause( 400)
elseif EMT.L1 > MaxRedX then
EMT.EXT_X = 1
SimulMoveAxis( 'X', MaxRedX, 20)
SimulMoveAxes( 'C', EMT.R1, 10, 'B', EMT.R2, 10)
EgtPause( 400)
end
end
-- se sgrossatura o finitura di cornici con lama
if EMT.MCHTYPE == MCH_MY.SAWROUGHING or EMT.MCHTYPE == MCH_MY.SAWFINISHING then
elseif EMT.MCHTYPE == MCH_MY.SAWROUGHING or EMT.MCHTYPE == MCH_MY.SAWFINISHING then
-- se sopra inizio lavorazione con testa verticale, prima muovo B
if EMT.FLAG == 2 and abs( EMT.R2) < 0.1 then
SimulMoveAxis( 'B', EMT.R2, 20)
@@ -1282,7 +1306,7 @@ local SAC_PROBING_T = 10 -- s
---------------------------------------------------------------------
function OnEstimStart()
EMT.INCHES = not EgtUiUnitsAreMM() -- unità di misura mm/inches
EMT.INCHES = not EgtUiUnitsAreMM() -- unità di misura mm/inches
end
---------------------------------------------------------------------
@@ -1328,9 +1352,9 @@ function CalcRawAndNetArea()
nRawId = EgtGetNextRawPart( nRawId)
end
if not nRawId then return end
-- l'area del grezzo è quella del kerf
-- l'area del grezzo è quella del kerf
EMT.RAWAREA = EgtCurveAreaXY( EgtGetFirstNameInGroup( nRawId, 'Kerf') or GDB_ID.NULL) or 0
-- l'area netta è la somma di quelle dei pezzi
-- l'area netta è la somma di quelle dei pezzi
local nPartId = EgtGetFirstPartInRawPart( nRawId)
while nPartId do
local nRegId = EgtGetFirstNameInGroup( nPartId, 'Region')
@@ -1366,7 +1390,7 @@ end
function OnEstimDispositionStart()
-- inizioe disposizione
EMT.OPEISDISP = true
-- sulla prima fase non va fatto alcunché
-- sulla prima fase non va fatto alcunché
if EMT.PHASE == 1 then return end
-- reset contatori di spostamento
EMT.DSPEXTLEN = 0
@@ -1502,7 +1526,7 @@ function OnEstimPathStart()
-- se disposizione
if EMT.OPEISDISP then
EMT.PATHISWASH = not EgtExistsInfo( EMT.PATHID, 'Vc')
-- se non è lavaggio
-- se non è lavaggio
if not EMT.PATHISWASH then
EMT.DSPEXTTIME = EMT.DSPEXTTIME + VAC_ACTDEACT_T
end
Omag-Digitale5SV/Tools/03532963-5CB3-40AE-87D6-A3D44073DD05.nge
BIN
View File
Binary file not shown.
Omag-Digitale5SV/Tools/1CB005E2-A64F-4277-980D-812CA71E077A.nge
BIN
View File
Binary file not shown.
Omag-Digitale5SV/Tools/354064D5-CE47-4A3F-B3EC-B54C1C995A10.nge
BIN
View File
Binary file not shown.
Omag-Digitale5SV/Tools/3774C633-52EE-46DA-8879-D0C306C7F90F.nge
BIN
View File
Binary file not shown.
Omag-Digitale5SV/Tools/3F98E1A3-4BE5-4F72-A702-11D5E052B4C1.nge
BIN
View File
Binary file not shown.
Omag-Digitale5SV/Tools/62D0BDB9-D3F7-4449-BAE3-288A1E29151A.nge
BIN
View File
Binary file not shown.
Omag-Digitale5SV/Tools/641DD13A-CF1D-4257-9D71-ECB3C2DAC739.nge
BIN
View File
Binary file not shown.
Omag-Digitale5SV/Tools/9ECEFA35-ED9F-4AD1-B773-4E0136F860E6.nge
BIN
View File
Binary file not shown.
Omag-Digitale5SV/Tools/B85B56C6-E16E-4651-9EE0-3C5D5E1A03A3.nge
BIN
View File
Binary file not shown.
Omag-Digitale5SV/Tools/FE9D7711-49AD-4176-9379-755F8757D16A.nge
BIN
View File
Binary file not shown.
Omag-Digitale5SV/Tools/Tools.data
BIN
View File
Binary file not shown.
Omag-Digitale5SV/Tools/Tools.data.bak
BIN
View File
Binary file not shown.