From 831d36819998aea4575be60051491cab685544df Mon Sep 17 00:00:00 2001 From: "daniele.nicoli" Date: Thu, 7 May 2026 08:47:15 +0200 Subject: [PATCH] =?UTF-8?q?-=20Aggiunta=20UNLOAD=5FON=5FLOAD=5FT=5FPOS=20n?= =?UTF-8?q?el=20TS3Data,=20se=20non=20viene=20scritta,=20legge=20il=20valo?= =?UTF-8?q?re=20di=20DIST=5FFTZERO=20(LoadT)=20-=20Aggiunte=20nel=20TS3Dat?= =?UTF-8?q?a=20PARK=5FC3,=20PARK=5FZ3,=20PARK=5FB3.=20La=20quota=20di=20ho?= =?UTF-8?q?me=20a=20cui=20muove=20gli=20assi=20rotativi=20=C3=A8=20sempre?= =?UTF-8?q?=20-655.?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Common_PF1250.mlse | 4 ++-- Essetre-PF1250-3T_5Ax.mlde | 10 +++++++++- 2 files changed, 11 insertions(+), 3 deletions(-) diff --git a/Common_PF1250.mlse b/Common_PF1250.mlse index 12bad9a..261d19b 100644 --- a/Common_PF1250.mlse +++ b/Common_PF1250.mlse @@ -1364,7 +1364,7 @@ function SpecCalcUnloadOnLoadPos() return {} end -- Se pinza Y2 chiusa, devo effettuare uno scambio - local dY1DeltaMaxSP = MaxY1 - LoadT - TurnerOffs - 10 * GEO.EPS_SMALL + local dY1DeltaMaxSP = MaxY1 - UnloadOnLoadTPos - TurnerOffs - 10 * GEO.EPS_SMALL if EMC.Y2DELTA or EMC.Y1DELTA > dY1DeltaMaxSP then -- imposto quote aggancio per avere solo pinza Y local dDistFront = 0 @@ -1393,7 +1393,7 @@ function SpecCalcUnloadOnLoadPos() table.insert( vCmd, { 12, 0}) end -- riporto la trave al carico - local dRotT = LoadT + TurnerOffs + local dRotT = UnloadOnLoadTPos + TurnerOffs local dY1Move = dRotT + EMC.Y1DELTA if dY1Move > MaxY1 then local dRotTStep, dY1MoveStep = dRotT - dY1Move + MaxY1, MaxY1 diff --git a/Essetre-PF1250-3T_5Ax.mlde b/Essetre-PF1250-3T_5Ax.mlde index 2180772..b7c1579 100644 --- a/Essetre-PF1250-3T_5Ax.mlde +++ b/Essetre-PF1250-3T_5Ax.mlde @@ -5,7 +5,7 @@ require( 'EmtGenerator') EgtEnableDebug( false) -PP_VER = '3.1a2_DEV23' +PP_VER = '3.1a2_DEV24' PP_NVER = '3.1.1.2' MIN_MACH_VER = '2.7d2' MACH_NAME = EgtGetCurrMachineName() @@ -173,6 +173,7 @@ EstimationRapidMultiplier = 1 DistZClampToTable = 5 -- distanza tra la tavola e il punto più basso della morsa ClampingCoeffMin = nil -- coefficiente di fissaggio, se 0 o nil non fa controllo, per il momento da inizializzare da Ts3Data MinBeamLenUnloadInLine = 2400 -- se lo scarico è su una linea deve scaricare il pezzo al massimo e deve essere maggiore del valore della variabile +UnloadOnLoadTPos = LoadT -- posizione di scarico al carico -- Aggiornamento con dati da TechnoEssetre7 local sTs3Data = EgtGetStringFromIni( 'Beam', 'DATA_DIR', "C:\\TechnoEssetre7\\EgtData", EgtGetIniFile()).."\\Essetre-PF1250-3T_5Ax.data" @@ -222,6 +223,8 @@ if EgtExistsFile( sDataBeam) then if Machine.Offsets.Z3_NEG then MinZ3 = Machine.Offsets.Z3_NEG end if Machine.Offsets.Z3_POS then MaxZ3 = Machine.Offsets.Z3_POS end if Machine.Offsets.PARK_Z3 then ParkZ3 = Machine.Offsets.PARK_Z3 end + if Machine.Offsets.PARK_C3 then ParkC3 = Machine.Offsets.PARK_C3 end + if Machine.Offsets.PARK_B3 then ParkB3 = Machine.Offsets.PARK_B3 end if Machine.Offsets.B3_NEG then MinB3 = Machine.Offsets.B3_NEG end if Machine.Offsets.B3_POS then MaxB3 = Machine.Offsets.B3_POS end if Machine.Offsets.MIN_Y1 then MinMchY1 = Machine.Offsets.MIN_Y1 end @@ -272,6 +275,11 @@ if EgtExistsFile( sDataBeam) then if Machine.Offsets.LEN_STEM_H2 then LenStemH2 = Machine.Offsets.LEN_STEM_H2 end if Machine.Offsets.COEFF_CLAMP_CHECK then ClampingCoeffMin = Machine.Offsets.COEFF_CLAMP_CHECK end if Machine.Offsets.MIN_BEAM_LEN_UNLOAD_IN_LINE then MinBeamLenUnloadInLine = Machine.Offsets.MIN_BEAM_LEN_UNLOAD_IN_LINE end + if Machine.Offsets.UNLOAD_ON_LOAD_T_POS then + UnloadOnLoadTPos = Machine.Offsets.UNLOAD_ON_LOAD_T_POS + elseif Machine.Offsets.DIST_FTZERO then + UnloadOnLoadTPos = Machine.Offsets.DIST_FTZERO + end -- aggiustamenti MinY1 = MinV1 + MinDeltaYV