refactorwall/ProgramData/EgtCAM5/Machines/Essetre-PF1250rl/Beam/BeamData.lua

-- BeamData.lua by Egaltech s.r.l. 2021/09/14
-- Raccolta dati generali per Travi

EgtOutLog( ' PF1250-BeamData started')

-- Tabella per definizione modulo
local BeamData = {
   RIGHT_LOAD = true,                       -- flag carico da destra
   SIMUL_VIEW_DIR = 1,                      -- 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 = 300,                        -- 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
   OVM_HEAD = 10,                           -- sovramateriale testa
   OVM_MID = 5.4,                           -- sovramateriale intermedio (spessore lama)
   MIN_JOIN_S = 100,                        -- minima presa pinza per pezzo piccolo
   MIN_JOIN_L = 450,                        -- minima presa pinza per pezzo grande
   MINRAW_S = 960,                          -- minimo grezzo in coda scaricabile per sezioni piccole
   MINRAW_L = 1660,                         -- minimo grezzo in coda scaricabile per sezioni grandi
   CHAR_EXTRA_DIST = 400,                   -- distanza aggiuntiva per minimizzare scambi di carrelli
   MAX_LEN_SCRAP = 150,                     -- massima lunghezza scarto di coda
   MAX_LEN_SCRAP_START = 150,               -- massima lunghezza scarto di testa
   MAX_DIM_HTCUT = 185,                     -- larghezza massima taglio di testa o coda
   MAX_DIM_HTCUT_HBEAM = 185,               -- larghezza massima taglio di testa o coda con trave alta
   MIN_DIM_HBEAM = 610,                     -- altezza minima di trave alta
   MAX_DIM_DICE = 160,                      -- dimensione trasversale massima cubetto
   MAX_LEN_DICE = 400,                      -- lunghezza massima cubetto
   DECR_VERT_CUT = 25,                      -- riduzione profondità per affondamento verticale in taglio orizzontale
   COLL_SIC = 5,                            -- distanza di sicurezza per collisioni
   CUT_SIC = 28,                            -- distanza di sicurezza per tagli
   CUT_EXTRA = 5,                           -- affondamento extra standard per tagli di lama e fresature
   CUT_EXTRA_MIN = 2,                       -- affondamento extra ridotto per tagli di lama e fresature
   NZ_MINA = -0.6,                          -- componente limite in Z normale di una faccia (-30deg)
   NZ_MINB = -0.4,                          -- componente limite in Z normale di un insieme di facce (-23deg)
   DRILL_TOL = 0.2,                         -- tolleranza tra diametro foro e diametro punta
   DRILL_VZ_MIN = - 0.51,                   -- componente limite in Z del versore di un foro
   DRILL_VX_MAX = 0.867,                    -- componente limite in X del versore di un foro sulle facce laterali
   DRILL_OVERLAP = 5,                       -- sovrapposizione tra due mezze forature
   MILL_OVERLAP = 5,                        -- sovrapposizione tra due mezze fresature
   MAX_DIST_HTFEA = 50.0,                   -- massima distanza di feature da testa o coda per essere considerata tale
   MAX_LEN_HTFEA = 2550.0,                  -- massima lunghezza di feature di testa o coda
   LONGCUT_ENDLEN = 1200,                   -- lunghezza lavoro estremi iniziale e finale
   LONGCUT_MAXLEN = 3000,                   -- lunghezza massima sezione di taglio longitudinale
   MAX_LEN_RIDGELAP_FROM_BOTTOM = 0,        -- massima lunghezza ridgelap lavorabile da sotto
   MAX_LEN_RIDGELAP_FROM_BOTTOM_HBEAM = 0,  -- massima lunghezza ridgelap lavorabile da sotto con trave alta
   DIM_TO_CENTER_STRIP = 0,                 -- larghezza minima trave per inserimento codolo nel centro della trave; 0 = automatico
   DIM_STRIP = 3,                           -- dimensione codolo sostegno parti lasciate su contorno libero o archi
   DIM_STRIP_SMALL = 3,                     -- dimensione codolo piccolo (quando le parti sostenute sono sicuramente sulla parte sopra del pezzo)
   RAWCOL = { 255, 160, 32, 30},            -- colore del grezzo
   RAW_OFFSET = 2000,                       -- spostamento grezzo rimanente dopo split
   VICE_MINH = 110,                         -- altezza minima della morsa
   OFFSET_DRILL_TENON = 0,                  -- offset fori su tenoni verso base degli stessi (0=non fare)
   USER_HOLE_DIAM = 0,                      -- diametro foro per L20
   MAX_TOOL_LEN_FOR_HOR_MACH = 500,         -- massima lunghezza ingombro per poter fare forature (fresature) oltre i 10 gradi dalla verticale
   DRILL_VZ_MIN_LONG_TOOL = 0.984,          -- componente limite per lavorazioni con punta lunga
   MAX_TOOL_LEN_BACK_HOR_MACH = 500,        -- massima lunghezza utensile per poter eseguire lavorazioni (forature/svuotature) da dietro (faccia 4)
   PRESS_ROLLER = true,                     -- dichiarazione presenza rulli pressori
   C_SIMM = true,                           -- dichiarazione simmetria mensola asse C
   DOWN_HEAD = true,                        -- dichiarazione presenza seconda testa dal basso
   DH_MAX_TOP = 370,                        -- quota massima raggiungibile dalla testa da sotto dal sotto del pezzo
   KIOTP = 2                                -- coefficiente moltiplicativo per attacco/uscita lama tangente anzichè perpendicolare
}

local function GetMaxLenRidgeLapFromBottom( dHRaw)
   if dHRaw < BeamData.MIN_DIM_HBEAM then
      return BeamData.MAX_LEN_RIDGELAP_FROM_BOTTOM + 0.01
   else
      return BeamData.MAX_LEN_RIDGELAP_FROM_BOTTOM_HBEAM + 0.01
   end
end
BeamData.GetMaxLenRidgeLapFromBottom = GetMaxLenRidgeLapFromBottom

local function GetBottomToolMaxTotLen( vtDir)
   if not vtDir or vtDir:getZ() < -0.867 then
      return 240
   elseif vtDir:getZ() < -0.707 then
      return 240
   else
      return 280
   end
end
BeamData.GetBottomToolMaxTotLen = GetBottomToolMaxTotLen

local function GetSectionCoeff( dW, dH, dL)
   local SEZ_L = 80000
   local SEZ_S = 20000
   local LEN_SMALL = 2000
   local dSez = dW * dH
   if dSez <= SEZ_S then
      return 0.0
   elseif dSez < SEZ_L  then
      if dL and dL < LEN_SMALL then dSez = max( 0.6 * dSez, SEZ_S) end
      local dCoeff = ( dSez - SEZ_S) / ( SEZ_L - SEZ_S)
      return dCoeff
   else
      return 1.0
   end
end

local function GetMinJoin( dW, dH, dL)
   local dCoeff = GetSectionCoeff( dW, dH, dL)
   return ( 1 - dCoeff) * BeamData.MIN_JOIN_S + dCoeff * BeamData.MIN_JOIN_L
end
BeamData.GetMinJoin = GetMinJoin

local function GetMinUnloadableRaw( dW, dH)
   local dCoeff = GetSectionCoeff( dW, dH)
   return BeamData.MINRAW_S + dCoeff * ( BeamData.MINRAW_L - BeamData.MINRAW_S)
end
BeamData.GetMinUnloadableRaw = GetMinUnloadableRaw

-- Aggiornamento con dati da TechnoEssetre7
local sTs3Data = EgtGetStringFromIni( 'Beam', 'DATA_DIR', "C:\\TechnoEssetre7\\EgtData", EgtGetIniFile()).."\\Essetre-PF1250rl.data"
local sData = EgtGetSourceDir().."\\Ts3Data.lua"
if EgtExistsFile( sTs3Data) then
   EgtCopyFile( sTs3Data, sData)
   local sTs3DataOld = sTs3Data..'.old'
   EgtEraseFile( sTs3DataOld)
   EgtRenameFile( sTs3Data, sTs3DataOld)
end
if EgtExistsFile( sData) then
   local Machine = dofile( sData)
   if Machine then
      if Machine.Trave then
         BeamData.MIN_WIDTH = Machine.Trave.XMIN or BeamData.MIN_WIDTH
         BeamData.MIN_HEIGHT = Machine.Trave.ZMIN or BeamData.MIN_HEIGHT
         BeamData.MAX_WIDTH = Machine.Trave.XMAX or BeamData.MAX_WIDTH
         BeamData.MAX_HEIGHT = Machine.Trave.ZMAX or BeamData.MAX_HEIGHT
      end
   end
end

---------------------------------------------------------------------
return BeamData