diff --git a/Essetre-PF.NUM.mlpe b/Essetre-PF.NUM.mlpe index dc27028..bd8efb7 100644 --- a/Essetre-PF.NUM.mlpe +++ b/Essetre-PF.NUM.mlpe @@ -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}) diff --git a/Essetre-PF.mlde b/Essetre-PF.mlde index ed37963..9922e6e 100644 --- a/Essetre-PF.mlde +++ b/Essetre-PF.mlde @@ -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 diff --git a/Essetre-PF.mlpe b/Essetre-PF.mlpe index e13de89..0a92998 100644 --- a/Essetre-PF.mlpe +++ b/Essetre-PF.mlpe @@ -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) diff --git a/Essetre-PF.mlse b/Essetre-PF.mlse index c7f8011..34d7036 100644 --- a/Essetre-PF.mlse +++ b/Essetre-PF.mlse @@ -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