- Aggiunta UNLOAD_ON_LOAD_T_POS nel TS3Data, se non viene scritta, legge il valore di DIST_FTZERO (LoadT)

- Aggiunte nel TS3Data PARK_C3, PARK_Z3, PARK_B3. La quota di home a cui muove gli assi rotativi è sempre -655.

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

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