- Possibilità di montare motosega in posizione T101

- Piccole migliorie varie derivanti da modifica

Common_PF1250.TPA.mlpe

@@ -28,7 +28,7 @@ function OnStart()
    --EMT.LINEINC = 1        -- incremento numerazione linee
    --EMT.Ft = 'F'           -- token per feed
    --EMT.St = 'S'           -- token per speed
-   EMT.FMAXPINZE = 116000 -- feed massima pinze
+   EMT.FMAXPINZE = EgtClamp( MaxFeedPinze or 116000, 20000, 116000)  -- feed massima pinze
    SetToParkLine()        -- si inizia con linee da parcheggiare su stack
 end
 

Essetre-PF1500MAXrl-3T.mlde

@@ -5,8 +5,8 @@
 require( 'EmtGenerator')
 EgtEnableDebug( false)
 
-PP_VER = '2.7b4'
-PP_NVER = '2.7.2.4'
+PP_VER = '2.7c1'
+PP_NVER = '2.7.3.1'
 MIN_MACH_VER = '2.5k1'
 MACH_NAME = 'Essetre-PF1500MAXrl-3T'
 
@@ -182,7 +182,7 @@ FirstSaw = false
 SecondSaw = true
 SecondChain = true                               -- magazzino seconda sega a catena
 TcSpecialTools = true                            -- magazzino per utensili speciali. In genere truciolatore
-DrillingAggregate = true                         -- aggregato foratura multipla dipende dal magazzino utensili speciali. Viene montato li
+DrillingAggregate = false                         -- aggregato foratura multipla dipende dal magazzino utensili speciali. Viene montato li
 TcAggreBladeUnder = true                         -- lama su aggregato per testa da sotto
 EmitAccClamps = true
 WriteAllCoordsOnFirstM101 = true
@@ -249,9 +249,9 @@ if EgtExistsFile( sDataBeam) then
          if Machine.Offsets.PARK_Y2 then ParkMchY2 = Machine.Offsets.PARK_Y2 end
          if Machine.Offsets.MIN_V2 then MinV2 = Machine.Offsets.MIN_V2 end
          if Machine.Offsets.MAX_V2 then MaxV2 = Machine.Offsets.MAX_V2 end
+         if Machine.Offsets.MIN_DELTAVY then MinDeltaYV = Machine.Offsets.MIN_DELTAVY + 0.1 end
          if Machine.Offsets.DIST_FTZERO then LoadT = Machine.Offsets.DIST_FTZERO end
          if Machine.Offsets.DELTA_CARICZERO then TurnerOffs = Machine.Offsets.DELTA_CARICZERO end
-         if Machine.Offsets.MIN_DELTAVY then MinDeltaYV = Machine.Offsets.MIN_DELTAVY + 0.1 end
          if Machine.Offsets.DIST_UNLOAD then UnloadT = Machine.Offsets.DIST_UNLOAD end
          if Machine.Offsets.PIVOT_T1 then MillOffs = Machine.Offsets.PIVOT_T1 end
          if Machine.Offsets.PIVOT_T2 then Mill2Offs = Machine.Offsets.PIVOT_T2 end
@@ -282,6 +282,7 @@ if EgtExistsFile( sDataBeam) then
          if Machine.Offsets.DEFTCPOS2 then DefTcPos2 = ( 'T' .. Machine.Offsets.DEFTCPOS2) end
          if Machine.Offsets.MINPRESS then MinForzaPinze = Machine.Offsets.MINPRESS end
          if Machine.Offsets.MAXPRESS then MaxForzaPinze = Machine.Offsets.MAXPRESS end
+         if Machine.Offsets.MAXFEEDPINZE then MaxFeedPinze = Machine.Offsets.MAXFEEDPINZE end
          if Machine.Offsets.CHIUDI_PINZE_2_3_SCAMBIO then ForceToCloseRollersGate = Machine.Offsets.CHIUDI_PINZE_2_3_SCAMBIO == 1 end
          if Machine.Offsets.WOOD_DENSITY then WoodDensity = Machine.Offsets.WOOD_DENSITY end
          if Machine.Offsets.MOTORS23KW then Motors23KW = Machine.Offsets.MOTORS23KW == 1 end
@@ -480,7 +481,7 @@ if DrillingAggregate then
          OthColl = {'B1/SOLID', 'C1/SOLID'},
          Geo = 'H14_HEAD/GEO',
          Aux = {'H14_HEAD/SOLID', 'H14_HEAD/COLLISION'}}
-   end
+end
 
 --  *** Testa 3 ***
 local X3Id = EmtAxis {
@@ -938,28 +939,40 @@ if Tc2Active then
          ADir = X_AX(),
          Geo = 'BASE/T30'}
 end
-local ptTc3 = Point3d( 600, 1181, -321)
-EmtTcPos {
-      Name = 'T101',
-      Parent = 'Base',
-      Type = MCH_HT.MULTI,
-      ExitNbr = 6,
-      Pos1 = ptTc3 + Vector3d( 0, 0, 0),
-      TDir1 = Z_AX(),
-      Pos2 = ptTc3 + Vector3d( -40, 0, 0),
-      TDir2 = Z_AX(),
-      Pos3 = ptTc3 + Vector3d( -80, 0, 0),
-      TDir3 = Z_AX(),
-      Pos4 = ptTc3 + Vector3d( 40, 0, 0),
-      TDir4 = Z_AX(),
-      Pos5 = ptTc3 + Vector3d( 80, 0, 0),
-      TDir5 = Z_AX(),
-      Pos6 = ptTc3 + Vector3d( 120, 0, 0),
-      TDir6 = Z_AX(),
-      ADir = X_AX(),
-      Geo = 'BASE/T101',
-      Aux = 'BASE/T101_HS'}
-local ptTc4 = Point3d( 750, 1561, -150.8)
+if DrillingAggregate then
+   local ptTc3 = Point3d( 600, 1181, -321)
+   EmtTcPos {
+         Name = 'T101',
+         Parent = 'Base',
+         Type = MCH_HT.MULTI,
+         ExitNbr = 6,
+         Pos1 = ptTc3 + Vector3d( 0, 0, 0),
+         TDir1 = Z_AX(),
+         Pos2 = ptTc3 + Vector3d( -40, 0, 0),
+         TDir2 = Z_AX(),
+         Pos3 = ptTc3 + Vector3d( -80, 0, 0),
+         TDir3 = Z_AX(),
+         Pos4 = ptTc3 + Vector3d( 40, 0, 0),
+         TDir4 = Z_AX(),
+         Pos5 = ptTc3 + Vector3d( 80, 0, 0),
+         TDir5 = Z_AX(),
+         Pos6 = ptTc3 + Vector3d( 120, 0, 0),
+         TDir6 = Z_AX(),
+         ADir = X_AX(),
+         Geo = 'BASE/T101_MULTIDRILL',
+         Aux = 'BASE/T101_HS_MULTIDRILL'}
+else
+   local ptTc3 = Point3d( 600, 1181, -180.8)
+   EmtTcPos {
+         Name = 'T101',
+         Parent = 'Base',
+         Pos = ptTc3,
+         TDir = -X_AX(),
+         ADir = Z_AX(),
+         Geo = 'BASE/T101'}
+end
+
+local ptTc4 = Point3d( 750, 1561, -180.8)
 EmtTcPos {
       Name = 'T111',
       Parent = 'Base',
@@ -967,7 +980,7 @@ EmtTcPos {
       TDir = -X_AX(),
       ADir = Z_AX(),
       Geo = 'BASE/T111'}
-local ptTc5 = Point3d( 750, 1961, -150.8)
+local ptTc5 = Point3d( 750, 1961, -110.8)
 EmtTcPos {
       Name = 'T121',
       Parent = 'Base',
@@ -1073,8 +1086,9 @@ EgtMove( EgtGetFirstNameInGroup( BaseId, 'TC3') or GDB_ID.NULL, vtMovB, GDB_RT.G
 if TcSpecialTools then EgtMove( EgtGetFirstNameInGroup( BaseId, 'TC4') or GDB_ID.NULL, vtMovB, GDB_RT.GLOB) end
 if SecondChain then EgtMove( EgtGetFirstNameInGroup( BaseId, 'TC5') or GDB_ID.NULL, vtMovB, GDB_RT.GLOB) end
 EgtMove( EgtGetFirstNameInGroup( BaseId, 'TCR') or GDB_ID.NULL, vtMovB, GDB_RT.GLOB)
-if TcSpecialTools then EgtMove( EgtGetFirstNameInGroup( BaseId, 'TCS') or GDB_ID.NULL, vtMovB, GDB_RT.GLOB) end
+if TcAggreBladeUnder then EgtMove( EgtGetFirstNameInGroup( BaseId, 'TCS') or GDB_ID.NULL, vtMovB, GDB_RT.GLOB) end
 if TcSpecialTools then EgtMove( EgtGetFirstNameInGroup( BaseId, 'T121') or GDB_ID.NULL, vtMovB, GDB_RT.GLOB) end
+if DrillingAggregate then EgtMove( EgtGetFirstNameInGroup( BaseId, 'T101') or GDB_ID.NULL, vtMovB, GDB_RT.GLOB) end
 EgtMove( EgtGetFirstNameInGroup( X1Id, 'SOLID'), vtMovB, GDB_RT.GLOB)
 EgtMove( EgtGetFirstNameInGroup( X1Id, 'COLLISION'), vtMovB, GDB_RT.GLOB)
 EgtMove( EgtGetFirstNameInGroup( Z1Id, 'SOLID'), vtOffset23KW, GDB_RT.GLOB)
@@ -1274,12 +1288,8 @@ function GetAdjHeadFromTcPos( nHeadSet, sTcPos)
       if SecondSaw and sTcPos == 'T21' then
          return 'H16'
       -- utensili speciali
-      elseif TcSpecialTools and sTcPos == 'T121' then
-         if DrillingAggregate then
-            return 'H14'
-         else
-            return 'H11'
-         end
+      elseif DrillingAggregate and sTcPos == 'T101' then
+         return 'H14'
       -- motoseghe
       elseif sTcPos == 'T101' or sTcPos == 'T111' then
          return 'H13'
@@ -1304,7 +1314,7 @@ end
 ---------------------------------------------------------------------
 -- Funzione che riconosce testa per sega a catena
 function HeadIsChainSaw( sHead)
-   return ( sHead == 'H13' or sHead == 'H15')
+   return ( sHead == 'H13')
 end
 
 ---------------------------------------------------------------------

Scripts/SetUp.lua

@@ -117,6 +117,46 @@ elseif bTc2Active and SecondSaw and SecondChain and TcSpecialTools and TcAggreBl
                     {Pos = "Pos37", TcPos = "T229", Head = "H21", Group = "G4"},
                     {Pos = "Pos38", TcPos = "T230", Head = "H21", Group = "G4"},
                     {Pos = "Pos39", TcPos = "T301", Head = "H38", Group = "G5"}}
+elseif bTc2Active and SecondSaw and SecondChain and TcSpecialTools and TcAggreBladeUnder then
+   PositionTable = {{Pos = "Pos1",  TcPos = "T1",  Head = "H11", Group = "G1"},  -- TC 1
+                    {Pos = "Pos2",  TcPos = "T2",  Head = "H11", Group = "G1"},
+                    {Pos = "Pos3",  TcPos = "T3",  Head = "H11", Group = "G1"},
+                    {Pos = "Pos4",  TcPos = "T4",  Head = "H11", Group = "G1"},
+                    {Pos = "Pos5",  TcPos = "T5",  Head = "H11", Group = "G1"},
+                    {Pos = "Pos6",  TcPos = "T6",  Head = "H11", Group = "G1"},
+                    {Pos = "Pos7",  TcPos = "T7",  Head = "H11", Group = "G1"},
+                    {Pos = "Pos8",  TcPos = "T8",  Head = "H11", Group = "G1"},
+                    {Pos = "Pos9",  TcPos = "T9",  Head = "H11", Group = "G1"},
+                    {Pos = "Pos10",  TcPos = "T10", Head = "H11", Group = "G1"},
+                    {Pos = "Pos11",  TcPos = "T11", Head = "H11", Group = "G1"},
+                    {Pos = "Pos12",  TcPos = "T12", Head = "H11", Group = "G1"},
+                    {Pos = "Pos13",  TcPos = "T13", Head = "H11", Group = "G1"},
+                    {Pos = "Pos14", TcPos = "T101", Head = "H13", Group = "G2"},  -- utensile speciale
+                    {Pos = "Pos15", TcPos = "T111", Head = "H13", Group = "G2"},  -- motosega
+                    {Pos = "Pos16", TcPos = "T121", Head = "H11", Group = "G2"},  -- truciolatore
+                    {Pos = "Pos17", TcPos = "T21", Head = "H16", Group = "G3"},   -- TC 2
+                    {Pos = "Pos18", TcPos = "T22", Head = "H11", Group = "G3"},
+                    {Pos = "Pos19", TcPos = "T23", Head = "H11", Group = "G3"},
+                    {Pos = "Pos20", TcPos = "T24", Head = "H11", Group = "G3"},
+                    {Pos = "Pos21", TcPos = "T25", Head = "H11", Group = "G3"},
+                    {Pos = "Pos22", TcPos = "T26", Head = "H11", Group = "G3"},
+                    {Pos = "Pos23", TcPos = "T27", Head = "H11", Group = "G3"},
+                    {Pos = "Pos24", TcPos = "T28", Head = "H11", Group = "G3"},
+                    {Pos = "Pos25", TcPos = "T29", Head = "H11", Group = "G3"},
+                    {Pos = "Pos26", TcPos = "T30", Head = "H11", Group = "G3"},
+                    {Pos = "Pos27", TcPos = "T201", Head = "H22", Group = "G4"},  -- lama con aggregatop da sotto
+                    {Pos = "Pos28", TcPos = "T220", Head = "H21", Group = "G4"},  -- TC margherita
+                    {Pos = "Pos29", TcPos = "T221", Head = "H21", Group = "G4"},
+                    {Pos = "Pos30", TcPos = "T222", Head = "H21", Group = "G4"},
+                    {Pos = "Pos31", TcPos = "T223", Head = "H21", Group = "G4"},
+                    {Pos = "Pos32", TcPos = "T224", Head = "H21", Group = "G4"},
+                    {Pos = "Pos33", TcPos = "T225", Head = "H21", Group = "G4"},
+                    {Pos = "Pos34", TcPos = "T226", Head = "H21", Group = "G4"},
+                    {Pos = "Pos35", TcPos = "T227", Head = "H21", Group = "G4"},
+                    {Pos = "Pos36", TcPos = "T228", Head = "H21", Group = "G4"},
+                    {Pos = "Pos37", TcPos = "T229", Head = "H21", Group = "G4"},
+                    {Pos = "Pos38", TcPos = "T230", Head = "H21", Group = "G4"},
+                    {Pos = "Pos39", TcPos = "T301", Head = "H38", Group = "G5"}}
 end
 
 local UsePositionHead = true

UpdateLog.txt

@@ -1,5 +1,8 @@
            ==== Common_PF1250 Update Log ====
 
+Versione 2.7b5 (26/02/2025)
+- (MLDE-GEN) Gestione lettura feed massima pinze da Ts3.
+
 Versione 2.7b4 (21/02/2025)
 - (SIM-GEN) Ripristinato comportamento precedente calcolo posizione dei rulli di pinzaggio fatto con 2.7b2.
 - (MLDE-SIM) Gestione aggregato flottante. Serve modifica MLDE. Ticket#2297
@@ -11,7 +14,7 @@ Versione 2.7b2 (04/02/2025)
 - (SIM-GEN) Piccola modifica nel calcolo posizione dei rulli di pinzaggio.
 
 Versione 2.7b1 (03/02/2025)
-- (SIM) Corretta simulazioen che non mandava testa in home in caso di utensile lungo. Generazione era già ok. Ticket#2280
+- (SIM) Corretta simulazione che non mandava testa in home in caso di utensile lungo. Generazione era già ok. Ticket#2280
 
 Versione 2.7a2 (28/01/2025)
 - (SIM-GEN) In MLSE aggiunta piccola correzione quota Z in caso di direzione Z tra 0.5 e 0.707.

Version.lua

@@ -3,7 +3,7 @@
 
 local InfoCommon_STD_PP = {
    NAME = 'Common_PF1250',            -- nome script PP standard
-   VERSION = '2.7b4',                 -- versione script
+   VERSION = '2.7b5',                 -- versione script
    MIN_MACH_VER_PP_COMMON = '2.5k1'   -- versione minima kernel
 }