- 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.

Beam/BeamData.lua

@@ -118,8 +118,8 @@ if EgtExistsFile( sDataBeam) then
          BeamData.USE_LONGCUT = SecondSaw or BeamData.USE_LONGCUT
          if Machine.Offsets.CUT_SIC then BeamData.CUT_SIC = EgtClamp( Machine.Offsets.CUT_SIC, 15, 50) end
          if Machine.Offsets.USE_PART_OFFSET then BeamData.USE_PART_OFFSET = ( Machine.Offsets.USE_PART_OFFSET == 1) end
-         if Machine.Offsets.MIN_JOIN_S then BeamData.MIN_JOIN_S = Machine.Offsets.MIN_JOIN_S end
-         if Machine.Offsets.MIN_JOIN_L then BeamData.MIN_JOIN_L = Machine.Offsets.MIN_JOIN_L end
+         if Machine.Offsets.MIN_JOIN_S then BeamData.MIN_JOIN_S = EgtClamp( Machine.Offsets.MIN_JOIN_S, 80, 150) end
+         if Machine.Offsets.MIN_JOIN_L then BeamData.MIN_JOIN_L = EgtClamp( Machine.Offsets.MIN_JOIN_L, 300, 450) end
       end
       if Machine.Trave then
          BeamData.MIN_WIDTH = Machine.Trave.XMIN or BeamData.MIN_WIDTH

Common_PF1250.mlse

@@ -1226,7 +1226,9 @@ function SpecCalcCarriages( dDistFront, dDistBack, dRollFront, dRollBack, dY1Del
       WorkTab.dY1DeltaMaxF = min( EMC.LB - MinJoin, MaxY1 + dDistFront + dRollFront + AGG_V)
       WorkTab.dY2DeltaMinF = max( MinJoin + EMC.HCING + EMC.HOVM, EMC.LB + MinY2 - dMyDistBack - AGG_V - dRollBack)
       WorkTab.dY2DeltaMaxF = min( dDistFront, EMC.LB - MyMinOther)   --  - EMC.TCING
-      if dY1DeltaMaxSP then WorkTab.dY1DeltaMaxF = min( WorkTab.dY1DeltaMaxF, dY1DeltaMaxSP) end
+      if dY1DeltaMaxSP and dY1DeltaMaxSP > WorkTab.dY1DeltaMinF then
+         WorkTab.dY1DeltaMaxF = min( WorkTab.dY1DeltaMaxF, dY1DeltaMaxSP)
+      end
       if dY2DeltaMinUL then WorkTab.dY2DeltaMinF = max( WorkTab.dY2DeltaMinF, dY2DeltaMinUL) end
       WorkTab.dV1PosF = dRollBack
       WorkTab.bV1CloseF = false
@@ -1362,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
@@ -1391,8 +1393,23 @@ function SpecCalcUnloadOnLoadPos()
       table.insert( vCmd, { 12, 0})
    end
    -- riporto la trave al carico
-   local dRotT = LoadT + TurnerOffs
-   table.insert( vCmd, { 2, 'Y1', dRotT + EMC.Y1DELTA, 'T', dRotT, 'BrakeBeam'})
+   local dRotT = UnloadOnLoadTPos + TurnerOffs
+   local dY1Move = dRotT + EMC.Y1DELTA
+   if dY1Move > MaxY1 then
+      local dRotTStep, dY1MoveStep = dRotT - dY1Move + MaxY1, MaxY1
+      if MinBeamLenUnloadInLine and EMC.LB >= MinBeamLenUnloadInLine then
+         table.insert( vCmd, { 2, 'Y1', dY1MoveStep, 'T', dRotTStep, 'BrakeBeam'})
+         -- apro la morsa
+         table.insert( vCmd, { 11, 0})
+         -- riporto il carrello in fondo alla trave
+         dY1MoveStep = dRotTStep + ( EMC.HCING or 0)
+         dY1Move = dY1MoveStep + dY1Move - MaxY1
+         table.insert( vCmd, { 1, 'Y1', dY1MoveStep, 'UnBrakeBeam'})
+         -- chiudo la morsa
+         table.insert( vCmd, { 11, 1})
+      end
+   end
+   table.insert( vCmd, { 2, 'Y1', dY1Move, 'T', dRotT, 'BrakeBeam'})
    -- apro la morsa
    table.insert( vCmd, { 11, 0})
    EMC.CNT = nil

Essetre-PF1250-3T_5Ax.mlde

@@ -5,7 +5,7 @@
 require( 'EmtGenerator')
 EgtEnableDebug( false)
 
-PP_VER = '3.1a2_DEV22'
+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