Allineamento con common ver. 2.6c7

- migliorie alla geometria macchina e suo caricamento.

Beam/BeamData.lua

@@ -43,7 +43,7 @@ local BeamData = {
    MAX_DIST_HTFEA = 50.0,                   -- massima distanza di feature da testa o coda per essere considerata tale
    MAX_LEN_HTFEA = 2000.0,                  -- massima lunghezza di feature di testa o coda
    LONGCUT_ENDLEN = 600,                    -- lunghezza lavoro estremi iniziale e finale (std=600)
-   LONGCUT_MAXLEN = 1200,                   -- lunghezza massima sezione di taglio longitudinale (std=1200)
+   LONGCUT_MAXLEN = 1200,                   -- lunghezza massima sezione di taglio longitudinale
    MAX_LEN_RIDGELAP_FROM_BOTTOM = 141,      -- massima lunghezza ridgelap lavorabile da sotto
    MAX_LEN_RIDGELAP_FROM_BOTTOM_HBEAM = 96, -- massima lunghezza ridgelap lavorabile da sotto con trave alta
    DIM_TO_CENTER_STRIP = 0,                 -- larghezza minima trave per inseriemento codolo nel centro del trave; 0 = automatico
@@ -52,6 +52,7 @@ local BeamData = {
    RAWCOL = { 255, 160, 32, 30},            -- colore del grezzo
    RAW_OFFSET = 2000,                       -- spostamento grezzo rimanente dopo split
    VICE_MINH = 110,                         -- altezza minima della morsa
+   VICE_MAXH = 370,                         -- altezza massima zona pinzaggio orizzontale
    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 = 311,         -- massima lunghezza utensile per poter fare forature (fresature) oltre i 10 gradi dalla verticale
@@ -71,7 +72,7 @@ local BeamData = {
 
 -- Aggiornamento con dati da TechnoEssetre7
 local sTs3Data = EgtGetStringFromIni( 'Beam', 'DATA_DIR', "C:\\TechnoEssetre7\\EgtData", EgtGetIniFile()).."\\Essetre-Fast.data"
-local sData = EgtGetSourceDir().."\\Ts3Data.lua"
+local sData = EgtGetCurrMachineDir().."\\Beam\\Ts3Data.lua"
 if EgtExistsFile( sTs3Data) then
    EgtCopyFile( sTs3Data, sData)
    local sTs3DataOld = sTs3Data..'.old'

Common-FAST.NUM.mlpe

@@ -6,7 +6,7 @@ local INFO_STD_PP = require( 'Version')
 
 -- Variabili di modulo
 local CSP_INFO =     INFO_STD_PP.NAME..'  ver.'..INFO_STD_PP.VERSION..' by EgalWare s.r.l.'
-local MACHINE_INFO = 'PP_VER       ver.'..PP_VER
+local MACHINE_INFO = MACH_NAME..'  ver.'..PP_VER
 local TEST_USE = false
 
 ---------------------------------------------------------------------
@@ -490,6 +490,7 @@ function OnMachiningEnd()
    EMT.AUXTYPE = nil
    EMT.U_STD = nil
    EMT.PREVTOOL = EMT.TOOL
+   EMT.PREVHEAD = EMT.HEAD
 end
 
 ---------------------------------------------------------------------
@@ -499,6 +500,11 @@ function OnPathStart()
    -- primo posizionamento sempre in globale
    EMT.REFLOC = nil
    EMT.IPLGL = false
+   
+   -- salvo precedenti rotanti
+   EMT.R1pp = EMT.R1p
+   EMT.R2pp = EMT.R2p
+
    -- reset valori precedenti (per forzare emissione di tutti gli assi del 1° movimento)
    EmtResetPrev()
    EMT.AUXCMD = {}
@@ -609,25 +615,55 @@ function OnRapid()
          if not EMT.ZMAX and #EMT.AUXSTR > 0 then
             EmitZmax()
             EMT.ZMAX = true
+            bHeadFirst = false
          end
       end
+
+      -- primo posizionamento
+      local MyZHome = EgtGetAxisHomePos( 'Z')
+      local bZmax = ( #EMT.AUXSTR > 0  or  EMT.TOOL ~= EMT.PREVTOOL  or  EMT.L3 > -1)
+      -- se avevo motosega, torno in zona sicura senza ruotare assi rotanti
+      if EMT.PREVHEAD == 'H3' and EMT.ST > BeamHeightForFixRot and EMT.FLAG2 == 1 then
+         local sOutPreMove = 'G101' .. ' X' .. EmtLenToString( -SafeXRotAxes, 3) .. ' Z' .. EmtLenToString( MyZHome, 3) ..
+                                       ' B' .. EmtLenToString( EMT.R2pp, 3) .. ' C' .. EmtLenToString( EMT.R1pp, 3) .. 
+                                       ' EE' .. EgtIf( bZmax, '3', '4') .. EMT.PREVsEL .. EMT.PREVsER .. EMT.PREVsET .. EMT.PREVsES
+         EmtOutput( sOutPreMove)
+         EmtOutput( 'G101 ET1001')
+         EmtOutput( 'G101 ET2001')
+      end
+
       if not EMT.LOAD then
          local sOut = string.gsub( string.gsub( EMT.MCHNAME..'/'..EMT.TOOL, '%(', '-'), '%)', '-')
          EmtOutput( '( *** ' .. sOut .. ' *** )')
       end
-      -- primo posizionamento
-      EmtResetPrev()
-      local bZmax = ( #EMT.AUXSTR > 0  or  EMT.TOOL ~= EMT.PREVTOOL  or  EMT.L3 > -1)
+
+      -- ricavo i dati per la lavorazione
       local sEE = ' EE' .. EgtIf( bZmax, '3', '4')
       local sEL = ' EL' .. EmtLenToString( EgtIf( EMT.HEAD ~= 'H3', EMT.TLEN, ( EMT.TDIST or ChSawLen)), 3)
       local sER = ' ER' .. EmtLenToString( EgtIf( EMT.HEAD ~= 'H3', EMT.TDIAM / 2, EMT.TLEN), 3)
       local sET = GetET( EMT.HEAD, EMT.TCPOS, EMT.R3)
       local sES = ' ES'..EgtNumToString( EMT.S, 0)
-      local sOut = 'G101' .. EmtGetAxis( 'L2') .. EmtGetAxis( 'L3') ..
-                             EmtGetAxis( 'R2') .. EmtGetAxis( 'R1') .. sEE .. sEL .. sER .. sET .. sES
-      if EMT.ST > BeamHeightForFixRot and EMT.FLAG2 == 1 then
-         sOut = sOut .. ' EH1'
+
+      -- se carico motosega, ruoto in zona sicura prima di approcciare la lavorazione
+      if EMT.HEAD == 'H3' and EMT.ST > BeamHeightForFixRot and EMT.FLAG2 == 1 then
+         local sEEPreMove = ' EE' .. EgtIf( bZmax, '3', '4')
+         local sOutPreMove = 'G101' .. ' X' .. EmtLenToString( -SafeXRotAxes, 3) .. ' Z' .. EmtLenToString( MyZHome, 3) ..
+                                       EmtGetAxis( 'R2') .. EmtGetAxis( 'R1') .. sEE .. sEL .. sER .. sET .. sES
+         EmtOutput( sOutPreMove)
+         EmtOutput( 'G101 ET1001')
+         EmtOutput( 'G101 ET2001')
       end
+      EmtResetPrev()
+      -- se sono su pezzi alti e movimento da emettere, per sicurezza a Z massima
+      local MyZPos = EMT.L3
+      if EMT.ST > BeamHeightForFixRot and EMT.FLAG2 == 1 then
+         MyZPos = MyZHome
+      end
+      local sOut = 'G101' .. EmtGetAxis( 'L2') .. ' Z' .. EmtLenToString( MyZPos, 3) ..
+                             EmtGetAxis( 'R2') .. EmtGetAxis( 'R1') .. sEE .. sEL .. sER .. sET .. sES
+      -- faccio backup dati in caso mi servano per lavorazione successiva
+      EMT.PREVsEE = sEE ; EMT.PREVsEL = sEL ; EMT.PREVsER = sER ; EMT.PREVsET = sET ; EMT.PREVsES = sES 
+
       if EMT.LOAD or bHeadFirst then
          sOut = sOut..' L0=0'
          EmtOutput( sOut)

Common-FAST.NUM_PLUS.mlpe

@@ -6,7 +6,7 @@ local INFO_STD_PP = require( 'Version')
 
 -- Variabili di modulo
 local CSP_INFO =     INFO_STD_PP.NAME..'  ver.'..INFO_STD_PP.VERSION..' by EgalWare s.r.l.'
-local MACHINE_INFO = 'PP_VER       ver.'..PP_VER
+local MACHINE_INFO = MACH_NAME..'  ver.'..PP_VER
 local TEST_USE = false
 
 ---------------------------------------------------------------------
@@ -517,6 +517,7 @@ function OnMachiningEnd()
    EMT.AUXTYPE = nil
    EMT.U_STD = nil
    EMT.PREVTOOL = EMT.TOOL
+   EMT.PREVHEAD = EMT.HEAD
    EMT.PREVR3 = EMT.R3
 end
 
@@ -527,6 +528,11 @@ function OnPathStart()
    -- primo posizionamento sempre in globale
    EMT.REFLOC = nil
    EMT.IPLGL = false
+
+   -- salvo precedenti rotanti
+   EMT.R1pp = EMT.R1p
+   EMT.R2pp = EMT.R2p
+
    -- reset valori precedenti (per forzare emissione di tutti gli assi del 1° movimento)
    EmtResetPrev()
    EMT.AUXCMD = {}
@@ -638,25 +644,55 @@ function OnRapid()
             EmitZmax( EMT.TOOL ~= EMT.PREVTOOL)
             EMT.ZMAX = true
             EMT.PREVTOOL = EMT.TOOL
+            bHeadFirst = false
          end
       end
+
+      -- primo posizionamento
+      local MyZHome = EgtGetAxisHomePos( 'Z')
+      local bZmax = ( #EMT.AUXSTR > 0  or  EMT.TOOL ~= EMT.PREVTOOL  or  EMT.L3 > -1)
+      -- se avevo motosega, torno in zona sicura senza ruotare assi rotanti
+      if EMT.PREVHEAD == 'H3' and EMT.ST > BeamHeightForFixRot and EMT.FLAG2 == 1 then
+         local sOutPreMove = 'G101' .. ' X' .. EmtLenToString( -SafeXRotAxes, 3) .. ' Z' .. EmtLenToString( MyZHome, 3) ..
+                                       ' B' .. EmtLenToString( EMT.R2pp, 3) .. ' C' .. EmtLenToString( EMT.R1pp, 3) .. 
+                                       ' EE' .. EgtIf( bZmax, '3', '4') .. EMT.PREVsEL .. EMT.PREVsER .. EMT.PREVsET .. EMT.PREVsES
+         EmtOutput( sOutPreMove)
+         EmtOutput( 'G101 ET1001')
+         EmtOutput( 'G101 ET2001')
+      end
+
       if not EMT.LOAD then
          local sOut = string.gsub( string.gsub( EMT.MCHNAME..'/'..EMT.TOOL, '%(', '-'), '%)', '-')
          EmtOutput( '( *** ' .. sOut .. ' *** )')
       end
-      -- primo posizionamento
-      EmtResetPrev()
-      local bZmax = ( #EMT.AUXSTR > 0  or  EMT.TOOL ~= EMT.PREVTOOL  or  EMT.L3 > -1)
+
+      -- ricavo i dati per la lavorazione
       local sEE = ' EE' .. EgtIf( bZmax, '3', '4')
       local sEL = ' EL' .. EmtLenToString( EgtIf( EMT.HEAD ~= 'H3', EMT.TLEN, ( EMT.TDIST or ChSawLen)), 3)
       local sER = ' ER' .. EmtLenToString( EgtIf( EMT.HEAD ~= 'H3', EMT.TDIAM / 2, EMT.TLEN), 3)
       local sET = GetET( EMT.HEAD, EMT.TCPOS, EMT.R3)
       local sES = ' ES'..EgtNumToString( EMT.S, 0)
-      local sOut = 'G101' .. EmtGetAxis( 'L2') .. EmtGetAxis( 'L3') ..
-                             EmtGetAxis( 'R2') .. EmtGetAxis( 'R1') .. sEE .. sEL .. sER .. sET .. sES
-      if EMT.ST > BeamHeightForFixRot and EMT.FLAG2 == 1 then
-         sOut = sOut .. ' EH1'
+
+      -- se carico motosega, ruoto in zona sicura prima di approcciare la lavorazione
+      if EMT.HEAD == 'H3' and EMT.ST > BeamHeightForFixRot and EMT.FLAG2 == 1 then
+         local sEEPreMove = ' EE' .. EgtIf( bZmax, '3', '4')
+         local sOutPreMove = 'G101' .. ' X' .. EmtLenToString( -SafeXRotAxes, 3) .. ' Z' .. EmtLenToString( MyZHome, 3) ..
+                                       EmtGetAxis( 'R2') .. EmtGetAxis( 'R1') .. sEE .. sEL .. sER .. sET .. sES
+         EmtOutput( sOutPreMove)
+         EmtOutput( 'G101 ET1001')
+         EmtOutput( 'G101 ET2001')
       end
+      EmtResetPrev()
+      -- se sono su pezzi alti e movimento da emettere, per sicurezza a Z massima
+      local MyZPos = EMT.L3
+      if EMT.ST > BeamHeightForFixRot and EMT.FLAG2 == 1 then
+         MyZPos = MyZHome
+      end
+      local sOut = 'G101' .. EmtGetAxis( 'L2') .. ' Z' .. EmtLenToString( MyZPos, 3) ..
+                             EmtGetAxis( 'R2') .. EmtGetAxis( 'R1') .. sEE .. sEL .. sER .. sET .. sES
+      -- faccio backup dati in caso mi servano per lavorazione successiva
+      EMT.PREVsEE = sEE ; EMT.PREVsEL = sEL ; EMT.PREVsER = sER ; EMT.PREVsET = sET ; EMT.PREVsES = sES 
+
       if EMT.LOAD or bHeadFirst then
          sOut = sOut .. ' L0=0'
          if EMT.LOAD or #EMT.AUXSTR > 0 then

Common-FAST.TPA.mlpe

@@ -6,7 +6,7 @@ local INFO_STD_PP = require( 'Version')
 
 -- Variabili di modulo
 local CSP_INFO =     INFO_STD_PP.NAME..'  ver.'..INFO_STD_PP.VERSION..' by EgalWare s.r.l.'
-local MACHINE_INFO = 'PP_VER       ver.'..PP_VER
+local MACHINE_INFO = MACH_NAME..'  ver.'..PP_VER
 local TEST_USE = false
 
 ---------------------------------------------------------------------
@@ -206,19 +206,12 @@ function OnDispositionEnd()
       local HTrave = EMT.HT
       local STrave = EMT.ST
       local HOverM = EMT.HOVM
+
       -- calcolo dati pinze
-      local MinAccPinze = 0.3
-      local MaxAccPinze = 4
-      local KgMtCubo= 550           -- densità legno in Kg / metro cubo
-      local Massa = ( HTrave * STrave * LBarra * KgMtCubo ) / 1000000000
-      local FMaxPinze = EMT.FMAXPINZE
-      local ForzaAtrito = 700 / 2   -- Serve per regolare P32 (700 valore reale pistone)
-      local TempoAcc = ( ( Massa * FMaxPinze) / ( 60 * ForzaAtrito) / 1000)
-      if ( TempoAcc < MinAccPinze) then TempoAcc = MinAccPinze end
-      if ( TempoAcc > MaxAccPinze) then TempoAcc = MaxAccPinze end
-      local AccPinze = FMaxPinze / ( 60 * TempoAcc)
-      local RidFeed = 100 / Massa * 100
-      if ( RidFeed > 100) then RidFeed = 100 end
+      local TempAccPinze, TempMinAccPinze, RidFeed = CalcDinamicaPinze( HTrave, STrave, LBarra)
+      local TempAccPinz1, TempMinAccPinz1, RidFeed1 = CalcDinamicaPinze( HTrave, STrave, LBarra - LTrave)
+      local TempAccPinz2, TempMinAccPinz2, RidFeed2 = CalcDinamicaPinze( HTrave, STrave, LTrave)
+
       if IdTrave >= 0 then
          local sPrt = '( *** Part '.. EgtNumToString( IdTrave, 0) ..' ***)'
          local sOut = '( SN=' .. IdTrave .. ' LBarra=' .. EmtLenToString( LBarra, 3) .. ' L='..EmtLenToString( LTrave, 3) ..
@@ -247,7 +240,8 @@ function OnDispositionEnd()
       -- se carico barra
       if EMT.LOAD or EMT.RELOAD then
          sOut = 'M115 P1=' .. EmtLenToString( LBarra, 2) .. ' P2=' .. EmtLenToString( HTrave, 2) .. ' P3=' .. EmtLenToString( STrave, 2) ..
-                ' P4=' .. EmtLenToString( HOverM, 2) .. ' P5=' .. tostring( nLoad90) .. ' P6=' .. EmtLenToString( LTrave, 2)
+                ' P4=' .. EmtLenToString( HOverM, 2) .. ' P5=' .. tostring( nLoad90) .. ' P6=' .. EmtLenToString( LTrave, 2) ..
+                ' P7=' .. EgtNumToString( TempAccPinze, 2) .. ' P8=' .. EgtNumToString( TempAccPinz2, 2) .. ' P9=' .. EgtNumToString( TempAccPinz1, 2)
          if EMT.LOAD then
             ParkLine( sOut)
             SetStartValue( 1, LBarra)
@@ -261,7 +255,8 @@ function OnDispositionEnd()
       -- altrimenti recupero rimanenza
       else
          sOut = 'M115 P1=' .. EmtLenToString( LBarra, 2) .. ' P2=' .. EmtLenToString( HTrave, 2) .. ' P3=' .. EmtLenToString( STrave, 2) ..
-                ' P4=' .. EmtLenToString( HOverM, 2) .. ' P5=' .. tostring( nLoad90) .. ' P6=' .. EmtLenToString( EgtIf( IdTrave >= 0, LTrave, LBarra), 2)
+                ' P4=' .. EmtLenToString( HOverM, 2) .. ' P5=' .. tostring( nLoad90) .. ' P6=' .. EmtLenToString( EgtIf( IdTrave >= 0, LTrave, LBarra), 2) ..
+                ' P7=' .. EgtNumToString( TempAccPinze, 2) .. ' P8=' .. EgtNumToString( TempAccPinz2, 2) .. ' P9=' .. EgtNumToString( TempAccPinz1, 2)
          EmtOutput( sOut)
          EmtOutput( 'M112'..' P1='..EmtLenToString( LoadT, 3).. ' P5=1 P6='..EmtLenToString( EMT.YPOS, 3)..' P7='..EmtLenToString( ParkV, 3) ..' P9='..GetFmaxClamp())
          -- aggiorno dati aggancio carrelli alla trave
@@ -511,6 +506,8 @@ function OnMachiningEnd()
    EMT.AUXTYPE = nil
    EMT.U_STD = nil
    EMT.PREVTOOL = EMT.TOOL
+   EMT.PREVHEAD = EMT.HEAD
+   EMT.PREVS = EMT.S
 end
 
 ---------------------------------------------------------------------
@@ -521,6 +518,11 @@ function OnPathStart()
    -- primo posizionamento sempre in globale
    EMT.REFLOC = nil
    EMT.IPLGL = false
+
+   -- salvo precedenti rotanti
+   EMT.R1pp = EMT.R1p
+   EMT.R2pp = EMT.R2p
+
    -- reset valori precedenti (per forzare emissione di tutti gli assi del 1° movimento)
    EmtResetPrev()
    EMT.AUXCMD = {}
@@ -634,22 +636,49 @@ function OnRapid()
       if not ( EMT.LOAD or EMT.RELOAD) then
          if not EMT.ZMAX and #EMT.AUXSTR > 0 then
             EmitZmax()
+            bHeadFirst = false
          end
       end
+      -- primo posizionamento
+      local MyZHome = EgtGetAxisHomePos( 'Z')
+      local bZmax = ( #EMT.AUXSTR > 0  or  EMT.TOOL ~= EMT.PREVTOOL  or EMT.L3 > -1)
+      -- se avevo motosega, torno in zona sicura senza ruotare assi rotanti
+      if EMT.PREVHEAD == 'H3' and EMT.ST > BeamHeightForFixRot and EMT.FLAG2 == 1 then
+         local sOutPreMove = 'M101 P1=1' .. ' P2=' .. EmtLenToString( -SafeXRotAxes, 3) .. ' P3=' .. EmtLenToString( MyZHome, 3) ..
+                                 ' P4=' .. EgtNumToString( EMT.R2pp, 3) .. ' P5=' .. EgtNumToString( EMT.R1pp, 3) .. 
+                                 ' P6=' .. EgtNumToString( EMT.PREVTCPOS, 3) .. ' P7=' .. EgtNumToString( EMT.PREVS, 0) ..
+                                 ' P8=0' .. ' P9=0' .. ' P10=' .. EgtIf( bZmax, '3', '4')
+         EmtOutput( sOutPreMove)
+         EmtOutput( 'M101 P1=2')
+         EmtOutput( 'M101 P1=3')
+      end
+
       if not EMT.LOAD then
          local sOut = string.gsub( string.gsub( EMT.MCHNAME..'/'..EMT.TOOL, '%(', '['), '%)', ']')
          EmtOutput( '( * ' .. sOut .. ' * )')
       end
-      -- primo posizionamento
+
+      -- se carico motosega, ruoto in zona sicura prima di approcciare la lavorazione
+      if EMT.HEAD == 'H3' and EMT.ST > BeamHeightForFixRot and EMT.FLAG2 == 1 then
+         local sOutPreMove = 'M101 P1=1' .. ' P2=' .. EmtLenToString( -SafeXRotAxes, 3) .. ' P3=' .. EmtLenToString( MyZHome, 3) ..
+                                 ' P4=' .. EgtNumToString( EMT.R2, 3) .. ' P5=' .. EgtNumToString( EMT.R1, 3) .. 
+                                 ' P6=' .. AdjustTcPos( false) .. ' P7=' .. EgtNumToString( EMT.S, 0) ..
+                                 ' P8=0' .. ' P9=0' .. ' P10=' .. EgtIf( bZmax, '3', '4')
+         EmtOutput( sOutPreMove)
+         EmtOutput( 'M101 P1=2')
+         EmtOutput( 'M101 P1=3')
+      end
+      -- resetto valori precedenti
       EmtResetPrev()
-      local bZmax = ( #EMT.AUXSTR > 0  or  EMT.TOOL ~= EMT.PREVTOOL  or EMT.L3 > -1)
-      local sOut = 'M101 P1=1' .. ' P2=' .. EmtLenToString( EMT.L2, 3) .. ' P3=' .. EmtLenToString( EMT.L3, 3) ..
+      local MyZPos = EMT.L3
+      -- se sono su pezzi alti e movimento da emettere, per sicurezza a Z massima
+      if EMT.ST > BeamHeightForFixRot and EMT.FLAG2 == 1 then
+         MyZPos = MyZHome
+      end
+      local sOut = 'M101 P1=1' .. ' P2=' .. EmtLenToString( EMT.L2, 3) .. ' P3=' .. EmtLenToString( MyZPos, 3) ..
                        ' P4=' .. EgtNumToString( EMT.R2, 3) .. ' P5=' .. EgtNumToString( EMT.R1, 3) .. 
                        ' P6=' .. AdjustTcPos( false) .. ' P7=' .. EgtNumToString( EMT.S, 0) ..
                        ' P8=0' .. ' P9=0' .. ' P10=' .. EgtIf( bZmax, '3', '4')
-      if EMT.ST > BeamHeightForFixRot and EMT.FLAG2 == 1 then
-         sOut = sOut .. ' P12=1'
-      end
       if EMT.LOAD then
          ParkLine( sOut)
       else
@@ -948,6 +977,28 @@ function OnArc()
    EmtUpdatePrev()
 end
 
+---------------------------------------------------------------------
+function CalcDinamicaPinze( dH, dS, dL)
+   local MinTempoAcc = 0.3                         -- [s]
+   local MaxTempoAcc = 4.0                         -- [s]
+   local KgMtCubo= 550                             -- densità legno [Kg / metro cubo]
+   local Massa = ( dH * dS * dL * KgMtCubo ) / 1e9 -- massa [Kg]
+   local FMaxPinze = EMT.FMAXPINZE                 -- Feed massima pinze [mm/min]
+   local ForzaAttrito = 350 * 9.8 * 0.2            -- Forza chiusura pinze [Kgf] * g * Coeff_Attrito -> [N]
+   local TempoAcc = ( ( Massa * FMaxPinze) / ( 60 * ForzaAttrito) / 1000)
+   if ( TempoAcc < MinTempoAcc) then TempoAcc = MinTempoAcc end
+   if ( TempoAcc > MaxTempoAcc) then TempoAcc = MaxTempoAcc end
+   local AccMaxPinze = FMaxPinze / ( 60 * MinTempoAcc)
+   local AccPinze = FMaxPinze / ( 60 * TempoAcc)
+   local RidFeed = 100 / Massa * 100
+   if RidFeed > 100 then
+      RidFeed = 100
+   elseif RidFeed < 10 then
+      RidFeed = 10
+   end
+   return TempoAcc * 1000, MinTempoAcc * 1000, RidFeed
+end
+
 ---------------------------------------------------------------------
 function CalcCharStatus( sCmd, bSkipPress)
    -- aperto
@@ -1613,6 +1664,8 @@ function AdjustTcPos( bLen3)
          sPos = '0' .. sPos
       end
    end
+   -- salvo posizione
+   EMT.PREVTCPOS = sPos
    return sPos
 end
 

Common-FAST.mlpe

@@ -1,4 +1,4 @@
--- Processore macchina Essetre-FAST by EgalWare s.r.l.   2024/02/23
+-- Processore macchina Essetre-FAST by EgalWare s.r.l.   2024/03/09
 
 -- Intestazioni
 require( 'EmtGenerator')
@@ -13,13 +13,13 @@ BIG_TOOL_DIAM = 300
 ---------------------------------------------------------------------
 -- *** GENERATION ***
 ---------------------------------------------------------------------
-local sBaseDir = EgtGetSourceDir()
+local sBaseDir = EgtGetCurrMachineDir()
 if NumericalControl == 'NUM' then
-   dofile( sBaseDir .. 'Common-FAST.NUM.mlpe')
+   dofile( sBaseDir .. '\\Common-FAST.NUM.mlpe')
 elseif NumericalControl == 'TPA' then
-   dofile( sBaseDir .. 'Common-FAST.TPA.mlpe')
+   dofile( sBaseDir .. '\\Common-FAST.TPA.mlpe')
 elseif NumericalControl == 'NUM_PLUS' then
-   dofile( sBaseDir .. 'Common-FAST.NUM_PLUS.mlpe')
+   dofile( sBaseDir .. '\\Common-FAST.NUM_PLUS.mlpe')
 else
    EmtSetLastError( 1201, 'Numerical Control error : unkwnown type')
 end
@@ -503,7 +503,7 @@ function OnSimulToolSelect( dPosA)
          -- imposto il valore di A
          EgtSetAxisPos( 'A', dPosA)
          if abs( dPosA) < 0.1 then
-            EgtSetAxisPos( 'C', 0)
+            EgtSetAxisPos( 'C', EgtIf( BD.RIGHT_LOAD, 180, 0))
          end
          EgtSetAxisPos( 'B', 0)
       end
@@ -533,39 +533,40 @@ function OnSimulToolDeselect()
    -- se sega a catena o rinvio o punta lunga o utensile di grosso diametro, devo cambiare
    if EMT.HEAD == 'H3' or EMT.HEAD == 'H5' or ( EMT.HEAD == 'H1' and ( EMT.TOTLEN > LONG_TOOL_MINLEN or EMT.TOTDIAM > BIG_TOOL_DIAM)) then
       EgtOutText( 'Tool change in progress...')
-      local RapSimStep = 4 * EMT.SIMSTEP
-      local RapSimRotStep = RapSimStep / 10
-      local CollSimRotStep = min( RapSimRotStep, 5)
       -- movimento scarico sega a catena
       if EMT.HEAD == 'H3' then
+         -- se avevo motosega, torno in zona sicura senza ruotare assi rotanti
+         if  EMT.HB > BeamHeightForFixRot then
+            SimulMoveAxis( 'X', SafeXRotAxes, MCH_SIM_STEP.RAPID)
+         end
          local dPosA = EgtGetAxisPos( 'A')
          if abs( dPosA) < 0.1 then
-            SimulMoveAxes( 'B', 0, CollSimRotStep, 'C', EgtIf( RIGHT_LOAD, 180, 0), CollSimRotStep)
+            SimulMoveAxes( 'B', 0, MCH_SIM_STEP.COLLROT, 'C', EgtIf( BD.RIGHT_LOAD, 180, 0), MCH_SIM_STEP.COLLROT)
          else
-            SimulMoveAxes( 'B', 0, CollSimRotStep, 'C', EgtIf( RIGHT_LOAD, 90, -90), CollSimRotStep)
+            SimulMoveAxes( 'B', 0, MCH_SIM_STEP.COLLROT, 'C', EgtIf( BD.RIGHT_LOAD, 90, -90), MCH_SIM_STEP.COLLROT)
          end
-         SimulMoveAxis( 'X', 0, RapSimStep)
+         SimulMoveAxis( 'X', 0, MCH_SIM_STEP.RAPID)
       -- movimento scarico rinvio
       elseif EMT.HEAD == 'H5' then
-         SimulMoveAxes( 'B', 0, CollSimRotStep, 'C', -90, CollSimRotStep)
-         SimulMoveAxis( 'X', 0, RapSimStep)
+         SimulMoveAxes( 'B', 0, MCH_SIM_STEP.COLLROT, 'C', -90, MCH_SIM_STEP.COLLROT)
+         SimulMoveAxis( 'X', 0, MCH_SIM_STEP.RAPID)
       -- movimento scarico punta lunga su T111
       elseif EMT.TOTLEN > LONG_TOOL_MINLEN then
          -- se su cambio utensile T111
          if EMT.TCPOS == 'T111' then
-            SimulMoveAxis( 'X', 0, RapSimStep)
-            SimulMoveAxes( 'B', 0, CollSimRotStep, 'C', 0, CollSimRotStep)
+            SimulMoveAxis( 'X', 0, MCH_SIM_STEP.RAPID)
+            SimulMoveAxes( 'B', 0, MCH_SIM_STEP.COLLROT, 'C', 0, MCH_SIM_STEP.COLLROT)
          -- altrimenti posizioni standard rastrelliera
          else
-            SimulMoveAxis( 'X', 0, RapSimStep)
-            SimulMoveAxes( 'B', 90, CollSimRotStep, 'C', -90, CollSimRotStep)
+            SimulMoveAxis( 'X', 0, MCH_SIM_STEP.RAPID)
+            SimulMoveAxes( 'B', 90, MCH_SIM_STEP.COLLROT, 'C', -90, MCH_SIM_STEP.COLLROT)
          end
       -- movimento scarico utensile di grosso diametro (su T111)
       else
          local dPosB = EgtGetAxisPos( 'B')
          local dNewB = EgtIf( dPosB < 0, -90, 90)
-         SimulMoveAxes( 'B', dNewB, CollSimRotStep, 'C', EgtIf( RIGHT_LOAD, 180, 0), CollSimRotStep)
-         SimulMoveAxis( 'X', 0, RapSimStep)
+         SimulMoveAxes( 'B', dNewB, MCH_SIM_STEP.COLLROT, 'C', EgtIf( BD.RIGHT_LOAD, 180, 0), MCH_SIM_STEP.COLLROT)
+         SimulMoveAxis( 'X', 0, MCH_SIM_STEP.RAPID)
       end
       -- breve pausa
       EgtPause( 100)
@@ -574,9 +575,9 @@ function OnSimulToolDeselect()
       ShowToolInTcPos( EMT.TCPOS_1, true)
       -- movimento per carico utensile
       if EMT.NEXTHEAD ~= 'H3' and EMT.NEXTHEAD ~= 'H5' then
-         SimulMoveAxes( 'B', 90, RapSimRotStep, 'C', EgtIf( RIGHT_LOAD, 90, -90), RapSimRotStep)
+         SimulMoveAxes( 'B', 90, MCH_SIM_STEP.RAPROT, 'C', EgtIf( BD.RIGHT_LOAD, 90, -90), MCH_SIM_STEP.RAPROT)
       else
-         SimulMoveAxes( 'B', 0, RapSimRotStep, 'C', EgtIf( RIGHT_LOAD, 90, -90), RapSimRotStep)
+         SimulMoveAxes( 'B', 0, MCH_SIM_STEP.RAPROT, 'C', EgtIf( BD.RIGHT_LOAD, 90, -90), MCH_SIM_STEP.RAPROT)
       end
       -- se segue lama, carico utensile di default
       if EMT.NEXTHEAD == 'H2' then
@@ -592,12 +593,9 @@ function OnSimulToolDeselect()
    elseif EMT.NEXTHEAD ~= 'H2'  and  EMT.NEXTHEAD ~= 'H4' then
       if EMT.NEXTTOOL ~= EMT.TOOL_1 then
          EgtOutText( 'Tool change in progress...')
-         local RapSimStep = 4 * EMT.SIMSTEP
-         local RapSimRotStep = RapSimStep / 10
-         local CollSimRotStep = min( RapSimRotStep, 10)
          -- simulo movimento
-         SimulMoveAxes( 'B', 90, CollSimRotStep, 'C', EgtIf( RIGHT_LOAD, 90, -90), CollSimRotStep)
-         SimulMoveAxis( 'X', 0, RapSimStep)
+         SimulMoveAxes( 'B', 90, MCH_SIM_STEP.COLLROT, 'C', EgtIf( BD.RIGHT_LOAD, 90, -90), MCH_SIM_STEP.COLLROT)
+         SimulMoveAxis( 'X', 0, MCH_SIM_STEP.RAPID)
          -- breve pausa
          EgtPause( 100)
          ShowToolInTcPos( EMT.TCPOS_1, true)
@@ -608,7 +606,7 @@ function OnSimulToolDeselect()
                EgtSetStatus( EgtGetHeadId( EMT.HEAD), GDB_ST.OFF)
             end
             -- eseguo movimento opportuno
-            SimulMoveAxes( 'B', 0, RapSimRotStep, 'C', EgtIf( RIGHT_LOAD, 90, -90), RapSimRotStep)
+            SimulMoveAxes( 'B', 0, MCH_SIM_STEP.RAPROT, 'C', EgtIf( BD.RIGHT_LOAD, 90, -90), MCH_SIM_STEP.RAPROT)
          -- se altrimenti lama su cambio utensile
          elseif EMT.NEXTHEAD == 'H1' and SpecialBH and EMT.NEXTTCPOS == 'T111' then
             -- se non lama, nascondo l'utensile corrente
@@ -616,7 +614,7 @@ function OnSimulToolDeselect()
                EgtSetStatus( EgtGetHeadId( EMT.HEAD), GDB_ST.OFF)
             end
             -- eseguo movimento opportuno
-            SimulMoveAxes( 'B', -90, RapSimRotStep, 'C', 0, RapSimRotStep)
+            SimulMoveAxes( 'B', -90, MCH_SIM_STEP.RAPROT, 'C', 0, MCH_SIM_STEP.RAPROT)
          end
       else
          EMT.TOOL_1 = nil
@@ -673,35 +671,8 @@ end
 
 ---------------------------------------------------------------------
 function OnSimulPathEnd()
-   -- se attivo VMILL, lavorazione ed è richiesto di eliminare gli sfridi
-   if EMT.VMILL and #EMT.VMILL > 0 and not EMT.OPEISDISP and EMT.VMRS then
-      EgtOutLog( 'OnSimulPathEnd', 5)
-      local vMillId = EMT.VMILL[1]
-      local nPart = EgtVolZmapPartCount( vMillId)
-      if nPart > 1 then
-         -- ricerca del pezzo con massimo volume
-         local nPartMax = 0
-         local dVolMax = 0
-         for i = 1, nPart do
-            local dVol = EgtVolZmapPartVolume( vMillId, i - 1)
-            if dVol > dVolMax then
-               dVolMax = dVol
-               nPartMax = i
-            end
-         end
-         -- eliminazione di tutti i pezzi piccoli
-         for i = nPart, 1, -1 do
-            if i ~= nPartMax then
-               local b3Vmill = EgtVolZmapGetPartBBoxGlob( vMillId, i - 1, GDB_BB.STANDARD)
-               if b3Vmill:getDimX() < 1200 then
-                  EgtRemoveVolZmapPart( vMillId, i - 1)
-               end
-            end
-         end
-         -- aggiorno visualizzazione
-         EgtDraw()
-      end
-   end
+   -- rimozione eventuali sfridi
+   ExecRemoveScraps()
 end
 
 ---------------------------------------------------------------------
@@ -779,17 +750,23 @@ function OnSimulMoveStart()
       EgtOutText( '')
       EMT.MCHFIRST = false
       -- con pezzi alti aggiorno gli assi rotanti prima di muovermi sopra il pezzo
-      if not EMT.LOAD and EMT.MOVE == 0 and EMT.HB > BeamHeightForFixRot then
-         local RapSimStep = 4 * EMT.SIMSTEP
-         SimulMoveAxes( 'C', EMT.R1, RapSimStep/10, 'B', EMT.R2, RapSimStep/10)
+      if not EMT.LOAD and EMT.MOVE == 0 and EMT.HB > BeamHeightForFixRot and EMT.FLAG2 == 1 then
+         -- se motosega mi muovo a X di sicurezza per ruotare
+         if EMT.HEAD == 'H3'then
+            SimulMoveAxes( 'X', SafeXRotAxes, MCH_SIM_STEP.RAPID, 'C', EMT.R1, MCH_SIM_STEP.COLLROT, 'B', EMT.R2, MCH_SIM_STEP.COLLROT)
+         end
       end
       EMT.POSTROT = nil
    end
 end
 
 ---------------------------------------------------------------------
---function OnSimulMoveEnd()
---end
+function OnSimulMoveEnd()
+   if EMT.FLAG == 301 then 
+      -- rimozione eventuali sfridi
+      ExecRemoveScraps()
+   end
+end
 
 ---------------------------------------------------------------------
 function OnSimulCollision()
@@ -814,7 +791,6 @@ end
 
 ---------------------------------------------------------------------
 function ExecAuxCmd( sCmd)
-   local RapSimStep = 4 * EMT.SIMSTEP
    local Cmd = EgtSplitString( sCmd)
    if Cmd[1] == '0' then
       if Cmd[2] == 'Unloading' then
@@ -824,7 +800,7 @@ function ExecAuxCmd( sCmd)
       end
       EgtOutText( EgtIf( Cmd[3], Cmd[3], Cmd[2]))
    elseif Cmd[1] == '1' then
-      if not SimulMoveAxis( Cmd[2], tonumber( Cmd[3]), RapSimStep) then
+      if not SimulMoveAxis( Cmd[2], tonumber( Cmd[3]), MCH_SIM_STEP.RAPID) then
          if VerifyYVStroke( Cmd[2], tonumber( Cmd[3])) == nil then 
             EgtOutLog( 'Error on ExecAuxCmd : ' .. sCmd)
          end
@@ -838,8 +814,8 @@ function ExecAuxCmd( sCmd)
       -- Verifico movimento carrello con trave agganciata
       VerifyOneChariotSlide( Cmd[2], Cmd[3], Cmd[4], Cmd[5])
       -- Eseguo il movimento
-      local _, bOk, bOk2 = SimulMoveAxes( Cmd[2], tonumber( Cmd[3]), RapSimStep,
-                                          Cmd[4], tonumber( Cmd[5]), RapSimStep)
+      local _, bOk, bOk2 = SimulMoveAxes( Cmd[2], tonumber( Cmd[3]), MCH_SIM_STEP.RAPID,
+                                          Cmd[4], tonumber( Cmd[5]), MCH_SIM_STEP.RAPID)
       if not ( bOk and bOk2) then
          local nI = EgtIf( not bOk, 2, 4)
          if VerifyYVStroke( Cmd[nI], tonumber( Cmd[nI+1])) == nil then 
@@ -850,9 +826,9 @@ function ExecAuxCmd( sCmd)
       -- Verifico movimento carrelli con trave agganciata
       VerifyTwoChariotsSlide( Cmd[2], Cmd[3], Cmd[4], Cmd[5], Cmd[6], Cmd[7])
       -- Eseguo il movimento
-      local _, bOk, bOk2, bOk3 = SimulMoveAxes( Cmd[2], tonumber( Cmd[3]), RapSimStep,
-                                                Cmd[4], tonumber( Cmd[5]), RapSimStep,
-                                                Cmd[6], tonumber( Cmd[7]), RapSimStep)
+      local _, bOk, bOk2, bOk3 = SimulMoveAxes( Cmd[2], tonumber( Cmd[3]), MCH_SIM_STEP.RAPID,
+                                                Cmd[4], tonumber( Cmd[5]), MCH_SIM_STEP.RAPID,
+                                                Cmd[6], tonumber( Cmd[7]), MCH_SIM_STEP.RAPID)
       if not ( bOk and bOk2 and bOk3) then
          local nI = EgtIf( not bOk, 2, EgtIf( not bOk2, 4, 6))
          if VerifyYVStroke( Cmd[nI], tonumber( Cmd[nI+1])) == nil then 
@@ -864,14 +840,14 @@ function ExecAuxCmd( sCmd)
       if Cmd[2] ~= '0' then
          dPY = EgtIf( EMT.ROT == -1, EMT.HB, EMT.SB)
       end
-      SimulMoveAxis( 'PY', dPY, RapSimStep)
+      SimulMoveAxis( 'PY', dPY, MCH_SIM_STEP.RAPID)
       SetPYLight( Cmd[2] ~= '0')
    elseif Cmd[1] == '12' then
       local dPV = MaxOpen
       if Cmd[2] ~= '0' then
          dPV = EgtIf( EMT.ROT == -1, EMT.HB, EMT.SB)
       end
-      SimulMoveAxis( 'PV', dPV, RapSimStep)
+      SimulMoveAxis( 'PV', dPV, MCH_SIM_STEP.RAPID)
       SetPVLight( Cmd[2] ~= '0')
    elseif Cmd[1] == '21' then
       local nYDelta = tonumber( Cmd[2])
@@ -894,6 +870,39 @@ function ExecAuxCmd( sCmd)
    end
 end
 
+---------------------------------------------------------------------
+function ExecRemoveScraps()
+   -- se attivo VMILL, lavorazione ed è richiesto di eliminare gli sfridi
+   if EMT.VMILL and #EMT.VMILL > 0 and not EMT.OPEISDISP and EMT.VMRS then
+      EgtOutLog( 'OnSimulPathEnd', 5)
+      local vMillId = EMT.VMILL[1]
+      local nPart = EgtVolZmapPartCount( vMillId)
+      if nPart > 1 then
+         -- ricerca del pezzo con massimo volume
+         local nPartMax = 0
+         local dVolMax = 0
+         for i = 1, nPart do
+            local dVol = EgtVolZmapPartVolume( vMillId, i - 1)
+            if dVol > dVolMax then
+               dVolMax = dVol
+               nPartMax = i
+            end
+         end
+         -- eliminazione di tutti i pezzi piccoli
+         for i = nPart, 1, -1 do
+            if i ~= nPartMax then
+               local b3Vmill = EgtVolZmapGetPartBBoxGlob( vMillId, i - 1, GDB_BB.STANDARD)
+               if b3Vmill:getDimX() < 1200 then
+                  EgtRemoveVolZmapPart( vMillId, i - 1)
+               end
+            end
+         end
+         -- aggiorno visualizzazione
+         EgtDraw()
+      end
+   end
+end
+
 ---------------------------------------------------------------------
 function ExecUnloading()
    if EMT.VMILL and #EMT.VMILL > 0 then
@@ -903,21 +912,25 @@ function ExecUnloading()
       -- li sposto per lasciare spazio al nuovo pezzo
       local nId = EgtGetFirstInGroup( nVmGrpId)
       while nId do
-         EgtMove( nId, Vector3d( 0, EgtIf( RIGHT_LOAD, ( EMT.SB + 50.0), -( EMT.SB + 50.0)), 0), GDB_RT.GLOB)
+         EgtMove( nId, Vector3d( 0, EgtIf( BD.RIGHT_LOAD, ( EMT.SB + 50.0), -( EMT.SB + 50.0)), 0), GDB_RT.GLOB)
          nId = EgtGetNext( nId)
       end
       -- creo un nuovo layer e vi inserisco il nuovo pezzo
       local nLayId = EgtGroup( nVmGrpId, EgtGetGlobFrame( vMillId))
       EgtRelocate( vMillId, nLayId)
-      local vtMove = Vector3d( 0, EgtIf( RIGHT_LOAD, 450, -450), 0)
-      if EMT.FALL then vtMove = Vector3d( -500, 0, EgtIf( RIGHT_LOAD, 750, -750)) end
+      local vtMove = Vector3d( 0, EgtIf( BD.RIGHT_LOAD, 450, -450), 0)
+      if EMT.FALL then vtMove = Vector3d( -500, 0, EgtIf( BD.RIGHT_LOAD, 750, -750)) end
       EgtMove( nLayId, vtMove, GDB_RT.GLOB)
       EgtSetLevel( vMillId, GDB_LV.USER)
       -- aggiungo gli spigoli
-      local nFirstId, nCount = EgtVolZmapGetEdges( vMillId, nLayId)
-      if nFirstId then
-         for nId = nFirstId, nFirstId + nCount - 1 do
-            EgtSetColor( nId, Color3d( 96, 96, 96))
+      if EgtVolZmapSetShowEdges then
+         EgtVolZmapSetShowEdges( vMillId, true)
+      else
+         local nFirstId, nCount = EgtVolZmapGetEdges( vMillId, nLayId)
+         if nFirstId then
+            for nId = nFirstId, nFirstId + nCount - 1 do
+               EgtSetColor( nId, Color3d( 96, 96, 96))
+            end
          end
       end
       -- rilascio Vmill

Compile.bat

@@ -25,11 +25,11 @@ REM copio i sorgenti nel percorso temporaneo per i compilati
 ROBOCOPY . %fullPathSource%\bin\%machineName%\ /E /XF "Compile.bat" /XF ".gitignore" /XD ".git" /XF "UpdateLog.txt"
 
 REM copio i file compilati nel percorso temporaneo per i compilati
-\EgtProg\Dll32\luac54 -o %fullPathSource%\bin\%machineName%\Common-FAST.mlpe     		 	        Common-FAST.mlpe
-\EgtProg\Dll32\luac54 -o %fullPathSource%\bin\%machineName%\Common-FAST.mlse                        Common-FAST.mlse
-\EgtProg\Dll32\luac54 -o %fullPathSource%\bin\%machineName%\Common-FAST.NUM.mlpe                    Common-FAST.NUM.mlpe
-\EgtProg\Dll32\luac54 -o %fullPathSource%\bin\%machineName%\Common-FAST.NUM_PLUS.mlpe               Common-FAST.NUM_PLUS.mlpe
-\EgtProg\Dll32\luac54 -o %fullPathSource%\bin\%machineName%\Common-FAST.TPA.mlpe                    Common-FAST.TPA.mlpe
+\EgtProg\Dll32\luac54 -o %fullPathSource%\bin\%machineName%\Common-FAST.mlpe     		 	          -s Common-FAST.mlpe
+\EgtProg\Dll32\luac54 -o %fullPathSource%\bin\%machineName%\Common-FAST.mlse                        -s Common-FAST.mlse
+\EgtProg\Dll32\luac54 -o %fullPathSource%\bin\%machineName%\Common-FAST.NUM.mlpe                    -s Common-FAST.NUM.mlpe
+\EgtProg\Dll32\luac54 -o %fullPathSource%\bin\%machineName%\Common-FAST.NUM_PLUS.mlpe               -s Common-FAST.NUM_PLUS.mlpe
+\EgtProg\Dll32\luac54 -o %fullPathSource%\bin\%machineName%\Common-FAST.TPA.mlpe                    -s Common-FAST.TPA.mlpe
 
 REM comprimo i file compilati in uno zip pronto per essere distribuito
 tar.exe acvf %fullPathZip%\%machineName%.zip -C %fullPathSource%\bin\ %machineName%\*.*

Essetre-FAST.mlde

@@ -1,4 +1,4 @@
--- Descrizione macchina Essetre-FAST by EgalTech s.r.l.   2024/01/19
+-- Descrizione macchina Essetre-FAST by EgalTech s.r.l.   2024/03/09
 -- 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.
@@ -36,13 +36,23 @@
 -- 2024/02/09 LM ver 2.6b1 In BeamData aggiunta funzione GetBlockedAxis che sostituisce la GetChainSawBlockedAxis.
 -- 2024/02/23 AV ver 2.6c1 Prima versione con post-processore common
 --                         Allineamento con common ver. 2.6c1
+-- 2024/02/23 AV ver 2.6c2 Rimossa chiamata funzione EgtGetSourceDir
+--                         Allineamento con common ver. 2.6c2
+-- 2024/02/23 AV ver 2.6c3 Allineamento con common ver. 2.6c3
+-- 2024/02/27 AV ver 2.6c4 Allineamento con common ver. 2.6c4. Aggiunto parametro 'SafeXRotAxes' per rotazione motosega con pezzi alti
+-- 2024/02/29 AV ver 2.6c5 Allineamento con common ver. 2.6c5
+-- 2024/03/04 AV ver 2.6c6 Modificato log con nome macchina
+--                         Allineamento con common ver. 2.6c6
+-- 2024/03/09 DS ver 2.6c7 Migliorie alla geometria macchina e suo caricamento.
+-- 2024/03/12 AV ver 2.6c8 Allineamento con common ver. 2.6c7
+
 
 require( 'EmtGenerator')
 EgtEnableDebug( false)
 
-PP_VER = '2.6c1'
+PP_VER = '2.6c7'
 MIN_MACH_VER = '2.5k1'
-
+MACH_NAME = 'Essetre-FAST'
 
 -- Carico i dati globali
 local sMachDir = EgtGetCurrMachineDir()
@@ -58,7 +68,7 @@ if INFO_STD_PP.MIN_MACH_VER_PP_COMMON > MIN_MACH_VER then
    MIN_MACH_VER = INFO_STD_PP.MIN_MACH_VER_PP_COMMON
 end
 
-EgtOutLog ( '**PP_VER ver.'..PP_VER..'**'..INFO_STD_PP.NAME..'  ver.'..INFO_STD_PP.VERSION, 1)
+EgtOutLog ( '** ' .. MACH_NAME..' '..PP_VER..' ** ( '..INFO_STD_PP.NAME..': '..INFO_STD_PP.VERSION..' - MinMach: '.. MIN_MACH_VER ..') **', 1)
 
 -- Parametri macchina
 NumericalControl = 'TPA'                                      -- NUM o TPA o NUM_PLUS
@@ -102,6 +112,7 @@ MaxUnloadLen = 0
 BeamHeightForFixRot = 9999                     -- per abilitare assegnare 500
 CoeffVM = 0.5
 NewTopC = true
+SafeXRotAxes = 150
 
 -- leggo e aggiorno con parametri da BeamData
 if BD then
@@ -110,7 +121,7 @@ end
 
 -- Aggiornamento con dati da TechnoEssetre7
 local sTs3Data = EgtGetStringFromIni( 'Beam', 'DATA_DIR', "C:\\TechnoEssetre7\\EgtData", EgtGetIniFile()).."\\Essetre-Fast.data"
-local sData = EgtGetSourceDir().."\\Beam\\Ts3Data.lua"
+local sData = sMachDir .. "\\Beam\\Ts3Data.lua"
 if EgtExistsFile( sTs3Data) then
    EgtCopyFile( sTs3Data, sData)
    local sTs3DataOld = sTs3Data..'.old'
@@ -211,9 +222,14 @@ local CId = EmtAxis {
       Geo = 'C_AXIS/GEO',
       Aux = {'C_AXIS/SOLID', 'C_AXIS/COLLISION'}}
 if NewTopC then
-   local SolidTopId = EgtGetFirstNameInGroup( EgtGetFirstNameInGroup( CId, 'SOLID'), 'TOP')
+   local vtMove = Vector3d( 65,0,0)
+   local SolidArmId = EgtGetFirstNameInGroup( EgtGetFirstNameInGroup( CId, 'SOLID'), 'ARM')
+   EgtSurfTmMoveVertex( SolidArmId, 23, EgtSurfTmGetVertex( SolidArmId, 23, GDB_RT.GLOB) + vtMove, GDB_RT.GLOB)
+   EgtSurfTmMoveVertex( SolidArmId, 25, EgtSurfTmGetVertex( SolidArmId, 25, GDB_RT.GLOB) + vtMove, GDB_RT.GLOB)
+   EgtSurfTmMoveVertex( SolidArmId, 35, EgtSurfTmGetVertex( SolidArmId, 35, GDB_RT.GLOB) + vtMove, GDB_RT.GLOB)
+   EgtSurfTmMoveVertex( SolidArmId, 36, EgtSurfTmGetVertex( SolidArmId, 36, GDB_RT.GLOB) + vtMove, GDB_RT.GLOB)
    local CollTopId = EgtGetFirstNameInGroup( EgtGetFirstNameInGroup( CId, 'COLLISION'), 'TOP')
-   EgtMove( { SolidTopId, CollTopId}, Vector3d( 65,0,0), GDB_RT.GLOB)
+   EgtMove( CollTopId, vtMove, GDB_RT.GLOB)
    EgtSetName( CollTopId, 'BOX')
 else
    local CollTopId = EgtGetFirstNameInGroup( EgtGetFirstNameInGroup( CId, 'COLLISION'), 'TOP')

UpdateLog.txt

@@ -1,8 +1,31 @@
            ==== Common_FAST Update Log ====
 
+Versione 2.6c7 (12/03/2024)
+- (SIM) A fine simulazione non si creano gli spigoli ma si setta solo flag per visualizzazione tramite "EgtVolZmapSetShowEdges"
+- (GEN) Corretto problema di movimento pinze assieme a discesa asse Z (Ticket #1710)
+
+Versione 2.6c6 (04/03/2024)
+- (MLDE-GEN) Aggiunta variabile 'MACH_NAME' in MLDE con nome macchina
+
+Versione 2.6c5 (29/02/2024)
+- (GEN) Aggiunto comando di wait fine M101/G101 in caso di movimento in zona sicurezza per motosega
+- (GEN) Gestione accelerazioni pinze in M115 ( solo per TPA)
+- (SIM) Gestione rimozione VMILL per tagli a cubetti a zig-zag
+
+Versione 2.6c4 (27/02/2024)
+- (MLDE-SIM-GEN) Con pezzi molto alti '> BeamHeightForFixRot', aggiunto parametro 'SafeXRotAxes' per ruotare motosega in zona sicura lontano dal pezzo
+- (SIM) Nelle funzioni movimentaizone assi, utilizzate costanti 'MCH_SIM_STEP'
+
+Versione 2.6c3 (23/02/2024)
+- (SIM) Corretta lettura parametro RIGHT_LOAD 
+- (SIM-GEN) Rimossa chiamata funzione EgtGetSourceDir rimasta in MLPE
+
+Versione 2.6c2 (23/02/2024)
+- (SIM-GEN) Rimossa chiamata funzione EgtGetSourceDir
+
 Versione 2.6c1 (23/02/2024)
-- (ALL) Prima versione post-proc comune FAST e FASTrl
-- (ALL) "BeamData" caricato come libreria con 'require' anziché come file con 'dofile'
+- (SIM-GEN) Prima versione post-proc comune FAST e FASTrl
+- (SIM-GEN) "BeamData" caricato come libreria con 'require' anziché come file con 'dofile'
 - (SIM) Aggiunta funzioni "OnSimulInit" e "OnSimulExit" per orientare vista corretta in caso di macchina con carico destro. N.B.= serve CAM5 2.6b4
-- (ALL) In BeamData aggiunto flag per direzione carico RIGHT_LOAD
-- (ALL) Aggiornamento 'Compile.bat' con nuovi nomi file
+- (SIM-GEN) In BeamData aggiunto flag per direzione carico RIGHT_LOAD
+- (SIM-GEN) Aggiornamento 'Compile.bat' con nuovi nomi file

Version.lua

@@ -3,7 +3,7 @@
 
 local InfoCommon_STD_PP = {
    NAME = 'Common-FAST',            -- nome script PP standard
-   VERSION = '2.6c1',                 -- versione script
+   VERSION = '2.6c7',                 -- versione script
    MIN_MACH_VER_PP_COMMON = '2.5k1'   -- versione minima kernel
 }