Essetre-FAST 2.5c1 :

- unificata con BH.

Beam/BeamData.lua

@@ -1,4 +1,4 @@
--- BeamData.lua by Egaltech s.r.l. 2022/03/14
+-- BeamData.lua by Egaltech s.r.l. 2022/03/20
 -- Raccolta dati generali per Travi
 
 EgtOutLog( ' FAST-BeamData started', 1)
@@ -61,6 +61,10 @@ local BeamData = {
    MAXDIAM_POCK_CORNER = 30,                -- diametro massimo utensile ammesso per tasche con angoli interni
    ADVANCE_TAIL_CUT = true,                 -- per spostare prima del taglio di separazione il taglio di coda su pezzi corti con robabile caduta
    ADVANCE_TAIL_OFFS = 5,                   -- accorciamento taglio di coda avanzato (minimo 1)
+   HEAD_DIM_FOR_BH = 190,                   -- dimensione di ingombro della testa per block haus
+   MAX_LEN_BH_FROM_BOTTOM = 195,            -- massima lunghezza lavorabile da un lato di block haus da sotto
+   MAX_DIST_BH_FROM_BOTTOM = 395,           -- massima distanza tra naso mandrino e sopra della trave senza collisione
+   BH_MACHINE = false,                      -- flag che indica la tipologia di macchina configurata BlockHaus
    ANG_TRASM = false                        -- presenza rinvio angolare per lavorazioni da sotto
 }
 
@@ -78,6 +82,7 @@ if EgtExistsFile( sData) then
    if Machine then
       if Machine.Offsets then
         BeamData.ANG_TRASM = ( Machine.Offsets.SECSUP and Machine.Offsets.SECSUP >= 3)
+        BeamData.BH_MACHINE = ( Machine.Offsets.BLOCKHAUS == 1)
       end
       if Machine.Trave then
          BeamData.MIN_WIDTH = Machine.Trave.XMIN or BeamData.MIN_WIDTH

Essetre-FAST.TPA.mlpe

@@ -1,4 +1,4 @@
--- Processore macchina Essetre-FAST by EgalTech s.r.l.   2022/07/22
+-- Processore macchina Essetre-FAST by EgalTech s.r.l.   2023/03/20
 -- Con controllo numerico TPA
 -- 2020/03/23 DS ver.2.2c3 Nei movimenti interpolati si usano 5 decimali, nei G24 6 decimali.
 -- 2020/04/27 DS ver.2.2d3 Aggiunta gestione scarico speciale senza spostamento finale pezzo.
@@ -19,6 +19,7 @@
 -- 2021/08/03 DS ver 2.3h3 Aggiunto arresto preciso negli angoli (G9) in fresature con utensili di piccolo diametro.
 -- 2022/01/21 DS ver 2.4a1 In V07 si imposta nLoad90.
 -- 2022/04/14 DS ver 2.4d2 Si programma G9 (arresto preciso) in fondo al foro.
+-- 2023/03/20 DS ver 2.5c1 Modifiche a AdjustTcPos per utensile BH su T42 e lama su T111.
 
 -- Variabili di modulo
 local MLE_INFO = 'Essetre-FAST.TPA.mlpe ver.'..PP_VER..' by EgalTech s.r.l.'
@@ -1584,7 +1585,7 @@ function AdjustTcPos( bLen3)
       if EMT.EXIT == 2 then
          sPos = '94'
       end
-   elseif sPos == '101' then
+   elseif sPos == '101' and EMT.HEAD == 'H3' then
       if abs( EMT.R3 - 0) < 0.1 then
          sPos = '101'
       elseif abs( EMT.R3 - 270) < 0.1 then
@@ -1596,7 +1597,7 @@ function AdjustTcPos( bLen3)
       else
          EmtSetLastError( 1210, 'Chain saw orientation not allowed')
       end
-   elseif sPos == '111' then
+   elseif sPos == '111' and EMT.HEAD == 'H3' then
       if abs( EMT.R3 - 0) < 0.1 then
          sPos = '111'
       elseif abs( EMT.R3 - 270) < 0.1 then

Essetre-FAST.mlde

@@ -1,4 +1,4 @@
--- Descrizione macchina Essetre-FAST by EgalTech s.r.l.   2023/02/09
+-- Descrizione macchina Essetre-FAST by EgalTech s.r.l.   2023/03/20
 -- 2021/12/29 DS ver 2.3l4 Per NUM non va considerato MillOffs negli offset in Z.
 -- 2022/01/27 DS ver 2.4a2 Modifiche per tagli testa/coda su pezzi alti.
 -- 2022/02/10 DS ver 2.4a3 Ridotto di 10mm pinzaggio con pezzi alti ma sottili.
@@ -17,11 +17,12 @@
 -- 2022/12/05 DS ver 2.4l1 In OnLinear di genera CN per Num e NumPlus eliminato recupero sovramateriale di testa EMT.X_OFF dopo riutilizzo EMT.L1o. 
 -- 2023/01/23 DS Ver.2.5a2 In simulazione corretta visualizzazione Sega a catena.
 -- 2023/02/09 DS Ver.2.5b1 Correzioni NumPlus per parametri G115 e EG2/EG3 al cambio orientazione sega a catena.
+-- 2023/03/20 DS Ver.2.5c1 Inserita gestione fresa BH al posto della lama.
 
 require( 'EmtGenerator')
 EgtEnableDebug( false)
 
-PP_VER = '2.5b1'
+PP_VER = '2.5c1'
 
 -- Parametri macchina
 NumericalControl = 'TPA'                                      -- NUM o TPA o NUM_PLUS
@@ -123,6 +124,7 @@ if EgtExistsFile( sData) then
          if Machine.Offsets.OFFSETX then DeltaTabY = - Machine.Offsets.OFFSETX end
          if Machine.Offsets.OFFSETZ then DeltaTabZ = Machine.Offsets.OFFSETZ + EgtIf( NumericalControl == 'TPA', MillOffs, 0) end
          if Machine.Offsets.SECSUP then SecondSupport = Machine.Offsets.SECSUP end
+         if Machine.Offsets.BLOCKHAUS then SpecialBH = ( Machine.Offsets.BLOCKHAUS == 1) end
          if Machine.Offsets.RIB_AUTO then AutomaticRotation = ( Machine.Offsets.RIB_AUTO == 1) end
          if Machine.Offsets.NOULOAD then MaxUnloadLen = Machine.Offsets.NOULOAD end
       end