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