Merge branch 'release/2.5l4'

Beam/BeamData.lua

@@ -9,8 +9,8 @@ local BeamData = {
    SIMUL_VIEW_DIR = 2,                      -- direzione di vista predefinita per la simulazione (1=NW, 2=SW, 3=NE, 4=SE)
    MIN_WIDTH = 40,                          -- larghezza minima del grezzo
    MIN_HEIGHT = 40,                         -- altezza minima del grezzo
-   MAX_WIDTH = 1250,                        -- larghezza massima del grezzo
-   MAX_HEIGHT = 400,                        -- altezza massima del grezzo
+   MAX_WIDTH = 1300,                        -- larghezza massima del grezzo
+   MAX_HEIGHT = 600,                        -- altezza massima del grezzo
    LEN_SHORT_PART = 1200,                   -- lunghezza massima pezzo piccolo
    MAX_RAW = 20000,                         -- massima lunghezza grezzo (deve essere minore di LenTable - RAW_OFFSET)
    STD_RAW = 14000,                         -- lunghezza standard della barra di grezzo
@@ -77,7 +77,7 @@ local BeamData = {
 
 ---------------------------------------------------------------------
 -- Aggiornamento con dati da TechnoEssetre7
-local sTs3Data = EgtGetStringFromIni( 'Beam', 'DATA_DIR', "C:\\TechnoEssetre7\\EgtData", EgtGetIniFile()).."\\Essetre-PF1250.data"
+local sTs3Data = EgtGetStringFromIni( 'Beam', 'DATA_DIR', "C:\\TechnoEssetre7\\EgtData", EgtGetIniFile()).."\\Essetre-PF1250MAX.data"
 local sDataBeam = EgtGetSourceDir().."\\Ts3Data.lua"
 local sDataWall = EgtGetCurrMachineDir()..'\\Wall\\Ts3Data.lua'
 if EgtExistsFile( sTs3Data) then

Essetre-PF1250.mlpe

@@ -2124,42 +2124,6 @@ function GetParkT()
    end
 end
 
----------------------------------------------------------------------
-function GetHeadSet( sHead)
-   if sHead == 'H11' or sHead == 'H12' or sHead == 'H13' or sHead == 'H14' or sHead == 'H16' then
-      return 1
-   elseif sHead == 'H21' or sHead == 'H22' then
-      return 2
-   else
-      return 0
-   end
-end
-
----------------------------------------------------------------------
-function GetHeadSetFromTcPos( sTcPos)
-   local TCPOS_1A = { 'T1', 'T3', 'T4', 'T5', 'T6', 'T7', 'T8', 'T9', 'T10', 'T11', 'T12', 'T13'}               -- CU montante DX
-   local TCPOS_1B = { 'T101', 'T121', 'T111'}                                                                   -- CU sotto traversa
-   local TCPOS_1C = { 'T21', 'T22', 'T23', 'T24', 'T25', 'T26', 'T27', 'T28', 'T29', 'T30'}                     -- CU montante sinistro
-   local TCPOS_2A  = { 'T220', 'T221', 'T222', 'T223', 'T224', 'T225', 'T226', 'T227', 'T228', 'T229', 'T230'}  -- CU margherita testa 2
-   local TCPOS_2B  = { 'T201'}                                                                                  -- CU lama su aggregato testa 2
-   for _, sVal in ipairs( TCPOS_1A) do
-      if sVal == sTcPos then return 1, 1 end
-   end
-   for _, sVal in ipairs( TCPOS_1B) do
-      if sVal == sTcPos then return 1, 2 end
-   end
-   for _, sVal in ipairs( TCPOS_1C) do
-      if sVal == sTcPos then return 1, 3 end
-   end
-   for _, sVal in ipairs( TCPOS_2A) do
-      if sVal == sTcPos then return 2, 1 end
-   end
-   for _, sVal in ipairs( TCPOS_2B) do
-      if sVal == sTcPos then return 2, 2 end
-   end
-   return 0, 0
-end
-
 ---------------------------------------------------------------------
 function FindFirstToolOnHeadSet( nHSet)
    -- salvo stato iniziale

Essetre-PF1250MAX.mlde

@@ -2,7 +2,8 @@
 -- 2023/12/07 ver 2.5l1 Prima versione. Derivata da PF1250 ver 2.5l4
 -- 2023/12/15 ver 2.5l2 Corretti vari offset in simulazione
 -- 2023/12/18 ver 2.5l3 Ultimata gestione aggregato lama da sotto
-
+--                      Spostato alcune funzioni proprie del C.U. nel MLDE (per post-proc common)
+--                      Spostato magazzini sotto traversa ( di 200mm) come da modifica meccanica
 
 -- Intestazioni
 require( 'EmtGenerator')
@@ -90,7 +91,7 @@ MinZ1ToChangeH2 = -1400
 MinX2 = -2760
 MaxX2 = 0
 MinZ2 = 0
-MaxZ2 = 795
+MaxZ2 = 1450
 MinC2 = -275
 MaxC2 = 275
 MinB2 = -127
@@ -131,7 +132,7 @@ TcSpecialTools = true                            -- magarzzino per utensili spec
 TcAggreBladeUnder = true                         -- lama su aggregato per testa da sotto
 
 -- Aggiornamento con dati da TechnoEssetre7
-local sTs3Data = EgtGetStringFromIni( 'Beam', 'DATA_DIR', "C:\\TechnoEssetre7\\EgtData", EgtGetIniFile()).."\\Essetre-PF1250.data"
+local sTs3Data = EgtGetStringFromIni( 'Beam', 'DATA_DIR', "C:\\TechnoEssetre7\\EgtData", EgtGetIniFile()).."\\Essetre-PF1250MAX.data"
 local sDataBeam = EgtGetSourceDir().."\\Beam\\Ts3Data.lua"
 local sDataWall = EgtGetSourceDir().."\\Wall\\Ts3Data.lua"
 if EgtExistsFile( sTs3Data) then
@@ -761,7 +762,7 @@ if Tc2Active then
          ADir = X_AX(),
          Geo = 'BASE/T30'}
 end
-local ptTc3 = Point3d( 480, 529, -200.8 + ( DeltaTabZ - DeltaRulliTraveZ + 55))
+local ptTc3 = Point3d( 680, 529, -200.8 + ( DeltaTabZ - DeltaRulliTraveZ + 55))
 EmtTcPos {
       Name = 'T101',
       Parent = 'Base',
@@ -769,7 +770,7 @@ EmtTcPos {
       TDir = -X_AX(),
       ADir = Z_AX(),
       Geo = 'BASE/T101'}
-local ptTc4 = Point3d( 450, 909, -115 + ( DeltaTabZ - DeltaRulliTraveZ + 55))
+local ptTc4 = Point3d( 650, 909, -115 + ( DeltaTabZ - DeltaRulliTraveZ + 55))
 EmtTcPos {
       Name = 'T121',
       Parent = 'Base',
@@ -777,7 +778,7 @@ EmtTcPos {
       TDir = Z_AX(),
       ADir = X_AX(),
       Geo = 'BASE/T121'}
-local ptTc5 = Point3d( 450, 1249, -200.8 + ( DeltaTabZ - DeltaRulliTraveZ + 55))
+local ptTc5 = Point3d( 650, 1249, -200.8 + ( DeltaTabZ - DeltaRulliTraveZ + 55))
 EmtTcPos {
       Name = 'T111',
       Parent = 'Base',
@@ -988,6 +989,42 @@ function GetTcForTopHeadTool( sTcPos)
    end
 end
 
+---------------------------------------------------------------------
+function GetHeadSet( sHead)
+   if sHead == 'H11' or sHead == 'H12' or sHead == 'H13' or sHead == 'H14' or sHead == 'H16' then
+      return 1
+   elseif sHead == 'H21' or sHead == 'H22' then
+      return 2
+   else
+      return 0
+   end
+end
+   
+---------------------------------------------------------------------
+function GetHeadSetFromTcPos( sTcPos)
+   local TCPOS_1A = { 'T1', 'T3', 'T4', 'T5', 'T6', 'T7', 'T8', 'T9', 'T10', 'T11', 'T12', 'T13'}               -- CU montante DX
+   local TCPOS_1B = { 'T101', 'T121', 'T111'}                                                                   -- CU sotto traversa
+   local TCPOS_1C = { 'T21', 'T22', 'T23', 'T24', 'T25', 'T26', 'T27', 'T28', 'T29', 'T30'}                     -- CU montante sinistro
+   local TCPOS_2A  = { 'T220', 'T221', 'T222', 'T223', 'T224', 'T225', 'T226', 'T227', 'T228', 'T229', 'T230'}  -- CU margherita testa 2
+   local TCPOS_2B  = { 'T201'}                                                                                  -- CU lama su aggregato testa 2
+   for _, sVal in ipairs( TCPOS_1A) do
+         if sVal == sTcPos then return 1, 1 end
+   end
+   for _, sVal in ipairs( TCPOS_1B) do
+         if sVal == sTcPos then return 1, 2 end
+   end
+   for _, sVal in ipairs( TCPOS_1C) do
+         if sVal == sTcPos then return 1, 3 end
+   end
+   for _, sVal in ipairs( TCPOS_2A) do
+         if sVal == sTcPos then return 2, 1 end
+   end
+   for _, sVal in ipairs( TCPOS_2B) do
+         if sVal == sTcPos then return 2, 2 end
+   end
+   return 0, 0
+end
+   
 ---------------------------------------------------------------------
 -- Funzione che riconosce testa per sega a catena
 function HeadIsChainSaw( sHead)