Egalware/Essetre-PF
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Essetre-PF 2.5c2 :

Browse Source 
- Abbassato a 379 limite trave alta per discesa passando da B0.
This commit is contained in:
DarioS
2023-03-20 14:44:04 +01:00
parent 41910470ed
commit d7d3f48d52
4 changed files with 13 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files
Essetre-PF.NUM.mlpe
+5 -5
View File
@@ -1,4 +1,4 @@
-- Processore macchina Essetre-PFrl by EgalTech s.r.l. 2023/02/02
-- Processore macchina Essetre-PFrl by EgalTech s.r.l. 2023/03/20
-- Con controllo numerico NUM
-- Variabili di modulo
@@ -764,7 +764,7 @@ function OnRapid()
dZref = min( dSafeZ1 + GetZExtra( EMT.HEAD, EMT.R2) - 100, MyMaxZ1)
end
-- caso speciale per trave alta con rotazione lama pericolosa
if EMT.HEAD == 'H12' and EMT.SB > 400 and abs( PrevR1 - EMT.R1) > 1 and ( abs( HomeC1 - EMT.R1) > 30.1 or abs( HomeB1 - EMT.R2) > 30.1) then
if EMT.HEAD == 'H12' and EMT.SB > 379 and abs( PrevR1 - EMT.R1) > 1 and ( abs( HomeC1 - EMT.R1) > 30.1 or abs( HomeB1 - EMT.R2) > 30.1) then
EmitMoveDataHead( 1, { X=dXref, Z=MyMaxZ1, B=0, C=ParkC1, S=Speed})
EmitMoveDataHead( 1, { C=EMT.R1, S=Speed})
EmitMoveDataHead( 1, { X=EMT.L2, S=Speed})
@@ -813,7 +813,7 @@ function OnRapid()
dZref = min( dSafeZ2 + GetZExtra( EMT.HEAD, EMT.R2) - 100, MyMaxZ2)
end
-- caso speciale per trave alta con rotazione lama pericolosa
if EMT.HEAD == 'H22' and EMT.SB > 400 and abs( PrevR1 - EMT.R1) > 1 and ( abs( HomeC2 - EMT.R1) > 30.1 or abs( HomeB2 - EMT.R2) > 30.1) then
if EMT.HEAD == 'H22' and EMT.SB > 379 and abs( PrevR1 - EMT.R1) > 1 and ( abs( HomeC2 - EMT.R1) > 30.1 or abs( HomeB2 - EMT.R2) > 30.1) then
EmitMoveDataHead( 2, { X=EMT.L2, Z=MyMaxZ2, B=0, C=HomeC2, S=Speed})
EmitMoveDataHead( 2, { C=EMT.R1, S=Speed})
EmitMoveDataHead( 2, { Z=dZref, B=EMT.R2, S=Speed})
@@ -1010,7 +1010,7 @@ function OnRapid()
dZref = min( dSafeZ1 + GetZExtra( EMT.HEAD, EMT.R2) - 100, MyMaxZ1)
end
-- caso speciale per trave alta con rotazione lama pericolosa
if EMT.HEAD == 'H12' and EMT.SB > 400 and abs( PrevR1 - EMT.R1) > 1 and ( abs( HomeC1 - EMT.R1) > 30.1 or abs( HomeB1 - EMT.R2) > 30.1) then
if EMT.HEAD == 'H12' and EMT.SB > 379 and abs( PrevR1 - EMT.R1) > 1 and ( abs( HomeC1 - EMT.R1) > 30.1 or abs( HomeB1 - EMT.R2) > 30.1) then
EmitMoveDataHead( 1, { X=dXref, Z=CurrZ1, B=0, C=CurrC1, S=Speed})
EmitMoveDataHead( 1, { C=EMT.R1, S=Speed})
EmitMoveDataHead( 1, { X=EMT.L2, S=Speed})
@@ -1071,7 +1071,7 @@ function OnRapid()
dZref = min( dSafeZ2 + GetZExtra( EMT.HEAD, EMT.R2) - 100, MyMaxZ2)
end
-- caso speciale per trave alta con rotazione lama pericolosa
if EMT.HEAD == 'H22' and EMT.SB > 400 and abs( PrevR1 - EMT.R1) > 1 and ( abs( HomeC2 - EMT.R1) > 30.1 or abs( HomeB2 - EMT.R2) > 30.1) then
if EMT.HEAD == 'H22' and EMT.SB > 379 and abs( PrevR1 - EMT.R1) > 1 and ( abs( HomeC2 - EMT.R1) > 30.1 or abs( HomeB2 - EMT.R2) > 30.1) then
EmitMoveDataHead( 2, { X=EMT.L2, Z=CurrZ2, B=0, C=CurrC2, S=Speed})
EmitMoveDataHead( 2, { C=EMT.R1, S=Speed})
EmitMoveDataHead( 2, { Z=dZref, B=EMT.R2, S=Speed})
Essetre-PF.mlde
+3 -2
View File
@@ -1,4 +1,4 @@
-- Descrizione macchina Essetre-PF by EgalTech s.r.l. 2023/02/03
-- Descrizione macchina Essetre-PF by EgalTech s.r.l. 2023/03/20
-- 2021/04/16 ver 2.3d3 Prima versione.
-- 2022/05/05 ver 2.4e1 Allineata con PFrl.
-- 2022/07/22 ver 2.4g1 Modifiche per sega a catena.
@@ -24,12 +24,13 @@
-- 2023/02/02 ver 2.5b1 Aggiunte lavorazioni in doppio e gestione eventuale mortasatrice.
-- 2023/02/03 ver 2.5b2 Gestione controllo NUM (TIPO_CN = 0->Axium vecchio, 2->Flexium). Migliorata gestione Pinza5 (MAX_BACK_CLAMP_5).
-- 2023/03/03 ver 2.5c1 Correzione per lav.ne in doppio dopo taglio con sega a catena.
-- 2023/03/20 ver 2.5c2 Abbassato a 379 limite trave alta per discesa passando da B0.
-- Intestazioni
require( 'EmtGenerator')
EgtEnableDebug( false)
PP_VER = '2.5c1'
PP_VER = '2.5c2'
-- Parametri macchina
NumericalControl = 'NUM_FLEX' -- NUM o (TPA) o NUM_FLEX
Essetre-PF.mlpe
+3 -3
View File
@@ -1,4 +1,4 @@
-- Processore macchina Essetre-PF by EgalTech s.r.l. 2023/02/02
-- Processore macchina Essetre-PF by EgalTech s.r.l. 2023/03/20
-- Funzioni generiche indipendenti dal controllo
-- Intestazioni
@@ -803,7 +803,7 @@ function OnSimulMoveStart()
dZref = Z1Home + GetZExtra( EMT.HEAD, EMT.R2) - 100
end
-- caso speciale per trave alta con rotazione lama pericolosa
if EMT.HEAD == 'H12' and EMT.SB > 400 and abs( C1Pos - EMT.R1) > 1 and ( abs( C1Home - EMT.R1) > 30.1 or abs(B1Home - EMT.R2) > 30.1) then
if EMT.HEAD == 'H12' and EMT.SB > 379 and abs( C1Pos - EMT.R1) > 1 and ( abs( C1Home - EMT.R1) > 30.1 or abs(B1Home - EMT.R2) > 30.1) then
SimulMoveAxis( 'B1', 0, MCH_SIM_STEP.COLLROT)
SimulMoveAxis( 'C1', EMT.R1, MCH_SIM_STEP.COLLROT)
SimulMoveAxis( 'X1', EMT.L2, MCH_SIM_STEP.RAPID)
@@ -839,7 +839,7 @@ function OnSimulMoveStart()
dZref = Z2Home + GetZExtra( EMT.HEAD, EMT.R2) - 100
end
-- caso speciale per trave alta con rotazione lama pericolosa
if EMT.HEAD == 'H22' and EMT.SB > 400 and abs( C2Pos - EMT.R1) > 1 and ( abs( C2Home - EMT.R1) > 30.1 or abs(B2Home - EMT.R2) > 30.1) then
if EMT.HEAD == 'H22' and EMT.SB > 379 and abs( C2Pos - EMT.R1) > 1 and ( abs( C2Home - EMT.R1) > 30.1 or abs(B2Home - EMT.R2) > 30.1) then
SimulMoveAxis( 'B2', 0, MCH_SIM_STEP.COLLROT)
SimulMoveAxis( 'C2', EMT.R1, MCH_SIM_STEP.COLLROT)
SimulMoveAxes( 'Z2', dZref, MCH_SIM_STEP.RAPID, 'B2', EMT.R2, MCH_SIM_STEP.COLLROT)
Essetre-PF.mlse
+2 -2
View File
@@ -83,7 +83,7 @@ function OnSpecialGetMaxZ()
local vMZ = {{ Tz=0.85, Ez=440}, { Tz=0.5, Ez=200}, { Tz=-0.01, Ez=5}, { Tz=-0.5, Ez=1}}
EMC.MAXZ = ParkZ1 + CalcExtraZ( vtTpZm, vtT, vMZ)
else
local vMZ = {{ Tz=0.85, Ez=400}, { Tz=0.7, Ez=300}, { Tz=0.5, Ez=200}, { Tz=0.15, Ez=80}, { Tz=-0.01, Ez=5}, { Tz=-0.5, Ez=1}}
local vMZ = {{ Tz=0.85, Ez=400}, { Tz=0.7, Ez=300}, { Tz=0.5, Ez=195}, { Tz=0.15, Ez=75}, { Tz=-0.01, Ez=5}, { Tz=-0.5, Ez=1}}
EMC.MAXZ = ParkZ1 + CalcExtraZ( vtTpZm, vtT, vMZ)
end
elseif EMC.HEAD == 'H21' then
@@ -108,7 +108,7 @@ function OnSpecialGetMaxZ()
local vMZ = {{ Tz=0.85, Ez=440}, { Tz=0.5, Ez=200}, { Tz=-0.01, Ez=5}, { Tz=-0.5, Ez=1}}
EMC.MAXZ = ParkZ2 + CalcExtraZ( vtTpZm, vtT, vMZ)
else
local vMZ = {{ Tz=0.85, Ez=400}, { Tz=0.7, Ez=300}, { Tz=0.5, Ez=200}, { Tz=0.15, Ez=80}, { Tz=-0.01, Ez=5}, { Tz=-0.5, Ez=1}}
local vMZ = {{ Tz=0.85, Ez=400}, { Tz=0.7, Ez=300}, { Tz=0.5, Ez=195}, { Tz=0.15, Ez=75}, { Tz=-0.01, Ez=5}, { Tz=-0.5, Ez=1}}
EMC.MAXZ = ParkZ2 + CalcExtraZ( vtTpZm, vtT, vMZ)
end
end