diff --git a/Common_PF1250.TPA.mlpe b/Common_PF1250.TPA.mlpe index 9a2e957..ce79014 100644 --- a/Common_PF1250.TPA.mlpe +++ b/Common_PF1250.TPA.mlpe @@ -166,7 +166,7 @@ function OnDispositionStart() ' P15='..EmtLenToString( -DeltaTabY, 2)..' P16='..EmtLenToString( DeltaTabZ - MillOffs, 2).. ' P17='..EmtLenToString( Delta2TabY, 2)..' P18='..EmtLenToString( -Delta2TabZ - Mill2Offs, 2) -- se รจ in configurazione a 3 teste - if EgtGetHeadId( 'H31') then + if IsHeadExisting( 3) then sOut = sOut .. ' P19='..EmtLenToString( -Delta3TabY, 2)..' P20='..EmtLenToString( Delta3TabZ - Mill3Offs, 2).. ' P21='..EmtLenToString( Mill3Offs, 2).. ' P22='.. EmtLenToString( -ParkInLavZ2, 2) else @@ -937,7 +937,7 @@ function OnRapid() EmitParkedLines() -- se sfrido grande, emetto comando speciale if EMT.HOVM > 99 then - if EgtGetHeadId( 'H31') then + if IsHeadExisting( 3) then MyOutput( 'M107') else MyOutput( ';M107') @@ -995,7 +995,7 @@ function OnRapid() if EMT.MCHUSERNOTES and EMT.MCHUSERNOTES:find( 'Cut', 1, true) then -- se sfrido grande, emetto comando speciale if EMT.LB - EMT.LT > 99 then - if EgtGetHeadId( 'H31') then + if IsHeadExisting( 3) then MyOutput( 'M107') else MyOutput( ';M107') @@ -1036,9 +1036,20 @@ function OnRapid() EmitMoveDataHead( 1, { Z=EMT.L3, B=EMT.R2, S=Speed}) -- caso standard else - EmitMoveDataHead( 1, { Z=EMT.L3, S=Speed}) - EmitMoveDataHead( 1, { B=EMT.R2, S=Speed}) - EmitMoveDataHead( 1, { C=EMT.R1, S=Speed}) + -- se ero in posizione speciale, prima ruoto poi scendo + if bXSpec then + local dZPos = max( HomeZ1, EMT.L3) + EmitMoveDataHead( 1, { Z=dZPos, S=Speed}) + EmitMoveDataHead( 1, { B=EMT.R2, C=EMT.R1, S=Speed}) + EmitMoveDataHead( 1, { X=EMT.L2, S=Speed}) + if abs( dZPos - EMT.L3) > 1 then + EmitMoveDataHead( 1, { Z=EMT.L3, S=Speed}) + end + else + EmitMoveDataHead( 1, { Z=EMT.L3, S=Speed}) + EmitMoveDataHead( 1, { B=EMT.R2, S=Speed}) + EmitMoveDataHead( 1, { C=EMT.R1, S=Speed}) + end end -- altrimenti sega a catena else diff --git a/Common_PF1250.mlpe b/Common_PF1250.mlpe index 19e4c6a..e248d07 100644 --- a/Common_PF1250.mlpe +++ b/Common_PF1250.mlpe @@ -969,10 +969,21 @@ function OnSimulMoveStart() if WriteAllCoordsOnFirstM101 then SimulMoveAxis( 'X1', EgtIf( bXSpec, DeltaTabY, EMT.L2), MCH_SIM_STEP.RAPID) end - SimulMoveAxis( 'Z1', EMT.L3, MCH_SIM_STEP.RAPID) - SimulMoveAxis( 'B1', EMT.R2, MCH_SIM_STEP.COLLROT) - SimulMoveAxis( 'C1', EMT.R1, MCH_SIM_STEP.COLLROT) - SimulMoveAxis( 'X1', EMT.L2, MCH_SIM_STEP.RAPID) + -- se ero in posizione speciale, prima ruoto poi scendo + if bXSpec then + local dZPos = max( Z1Home, EMT.L3) + SimulMoveAxis( 'Z1', dZPos, MCH_SIM_STEP.RAPID) + SimulMoveAxes( 'B1', EMT.R2, MCH_SIM_STEP.COLLROT, 'C1', EMT.R1, MCH_SIM_STEP.COLLROT) + SimulMoveAxis( 'X1', EMT.L2, MCH_SIM_STEP.RAPID) + if abs( dZPos - EMT.L3) > 1 then + SimulMoveAxis( 'Z1', EMT.L3, MCH_SIM_STEP.RAPID) + end + else + SimulMoveAxis( 'Z1', EMT.L3, MCH_SIM_STEP.RAPID) + SimulMoveAxes( 'B1', EMT.R2, MCH_SIM_STEP.COLLROT) + SimulMoveAxis( 'C1', EMT.R1, MCH_SIM_STEP.COLLROT) + SimulMoveAxis( 'X1', EMT.L2, MCH_SIM_STEP.RAPID) + end end end -- altrimenti sega a catena diff --git a/Essetre-PF1500rl.mlde b/Essetre-PF1500rl.mlde index 8a4c680..1143cc9 100644 --- a/Essetre-PF1500rl.mlde +++ b/Essetre-PF1500rl.mlde @@ -9,8 +9,8 @@ require( 'EmtGenerator') EgtEnableDebug( false) -PP_VER = '2.6j2' -PP_NVER = '2.6.10.2' +PP_VER = '2.6j3' +PP_NVER = '2.6.10.3' MIN_MACH_VER = '2.5k1' MACH_NAME = 'Essetre-PF1500rl' diff --git a/UpdateLog.txt b/UpdateLog.txt index 7c1d118..10b0557 100644 --- a/UpdateLog.txt +++ b/UpdateLog.txt @@ -1,5 +1,9 @@ ==== Common_PF1250 Update Log ==== +Versione 2.6j3 (25/10/2024) +- (GEN) Piccola correzione per capire se testa 3 presente +- (SIM-GEN) In caso di lavorazione successiva alla prima, rivisto primo posizionamento alla quota Z di lavoro se precedentemente spostati a quota rotazione assi rotanti. + Versione 2.6j2 (23/10/2024) - (MLDE-SIM) Aggiunto parametro ParkTc1X1 in MLDE per simulazione quota parcheggio Testa 1 su TC1. - (SIM-GEN) Per movimento a ZMAX si considera utensile attuale o precedente diff --git a/Version.lua b/Version.lua index c9c6a2a..a2f9e09 100644 --- a/Version.lua +++ b/Version.lua @@ -3,7 +3,7 @@ local InfoCommon_STD_PP = { NAME = 'Common_PF1250', -- nome script PP standard - VERSION = '2.6j2', -- versione script + VERSION = '2.6j3', -- versione script MIN_MACH_VER_PP_COMMON = '2.5k1' -- versione minima kernel }