Versione con gestione parametri HCING e TCING settabili su tutte le lavorazioni

Common_FAST.NUM_PLUS.mlpe

@@ -493,7 +493,7 @@ function OnMachiningEnd()
    end
    for i = 1, #EMT.AUXSTR do
       local sOut = EMT.AUXSTR[i]
-      if EMT.AUXTYPE == 'S' then
+      if EMT.AUXTYPE == 'S' and sOut:find( 'G101 ') then
          sOut = sOut .. ' EH1'
       elseif EMT.AUXTYPE == 'U' and not EMT.CHY_ON and not sOut:find( 'ET') then
          sOut = sOut .. ' ET2'

Common_FAST.mlpe

@@ -466,10 +466,8 @@ function OnSimulToolSelect( dPosA)
    EMT.TOTDIAM = EgtTdbGetCurrToolParam( MCH_TP.TOTDIAM)
    -- se non è chiamato da altro script (non c'è parametro)
    if not dPosA then
-      -- se utensile non flottante, abilito per Vmill
+      -- se attivo Vmill
-      if not EMT.TFLOAT then
+      SetToolForVmill( EMT.TOOL, EMT.HEAD, EMT.EXIT, EMT.VMILL)
-         EmtSetToolForVmill( EMT.TOOL, EMT.HEAD, EMT.EXIT, EMT.VMILL)
-      end
       -- se attivo Collision Check
       EMT.SAFEDIST = COLL_SAFE_DIST
       if EMT.COLLOBJ then
@@ -529,12 +527,6 @@ function OnSimulToolSelect( dPosA)
             EgtSetAxisPos( 'B', 0)
          end
       end
-      -- se TC 1
-      if GetTCSet( EMT.TCPOS) == 1 then
-         EgtSetAxisPos( 'B', 90)
-      else
-         EgtSetAxisPos( 'B', -90)
-      end
       -- breve pausa
       EgtPause( 100)
       EgtOutText( '')
@@ -584,11 +576,7 @@ function OnSimulToolDeselect()
          -- altrimenti posizioni standard rastrelliera
          else
             SimulMoveAxis( 'X', 0, MCH_SIM_STEP.RAPID)
-            if GetTCSet( EMT.TCPOS) == 1 then
+            SimulMoveAxes( 'B', 90, MCH_SIM_STEP.COLLROT, 'C', -90, MCH_SIM_STEP.COLLROT)
-               SimulMoveAxes( 'B', 90, MCH_SIM_STEP.COLLROT, 'C', -90, MCH_SIM_STEP.COLLROT)
-            else
-               SimulMoveAxes( 'B', -90, MCH_SIM_STEP.COLLROT, 'C', -90, MCH_SIM_STEP.COLLROT)
-            end
          end
       -- movimento scarico utensile di grosso diametro (su T111)
       else
@@ -602,25 +590,18 @@ function OnSimulToolDeselect()
       -- nascondo utensile su testa e lo visualizzo su TcPos
       EgtSetMode( EgtGetHeadId( EMT.HEAD), GDB_MD.HIDDEN)
       ShowToolInTcPos( EMT.TCPOS_1, true)
-
       -- movimento per carico utensile
       if EMT.NEXTHEAD ~= 'H3' and EMT.NEXTHEAD ~= 'H5' and EMT.NEXTHEAD ~= 'H6' then
-         SimulMoveAxes( 'B', EgtIf( GetTCSet( EMT.TCPOS) == 1, 90, -90), MCH_SIM_STEP.RAPROT, 'C', EgtIf( BD.RIGHT_LOAD, 90, -90), MCH_SIM_STEP.RAPROT)
+         SimulMoveAxes( 'B', 90, MCH_SIM_STEP.RAPROT, 'C', EgtIf( BD.RIGHT_LOAD, 90, -90), MCH_SIM_STEP.RAPROT)
       else
          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
          local sDefTool = GetDefaultToolName()
+         EgtLoadTool( 'H1', 1, sDefTool)
          EMT.TOOL_1 = sDefTool
          EMT.TCPOS_1 = GetToolTcPos( EMT.TOOL_1)
-         -- se TC 1
-         if GetTCSet( EMT.TCPOS_1) == 1 then
-            EgtSetAxisPos( 'B', 90)
-         else
-            EgtSetAxisPos( 'B', -90)
-         end
-         EgtLoadTool( 'H1', 1, sDefTool)
          -- lo nascondo sul portautensili
          ShowToolInTcPos( EMT.TCPOS_1, false)
       end
@@ -787,6 +768,7 @@ function OnSimulMoveStart()
       EgtOutText( '')
       EMT.MCHFIRST = false
       local bZmax = ( EMT.TOOL ~= EMT.PREVTOOL  or EMT.L3 > -1)
+
       -- 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 and EMT.FLAG2 == 1 then
          -- se motosega mi muovo a X di sicurezza per ruotare
@@ -796,59 +778,20 @@ function OnSimulMoveStart()
       end
       EMT.POSTROT = nil
    end
-   -- se aggregato flottante su inizio attacco va compresso
-   if EMT.TFLOAT and not EMT.TFLOAT_CMP and EMT.MOVE == 1 and EgtGetName( EMT.MOVEID) == 'LI' then
-      -- recupero lunghezza 
-      local dOffsL = - EgtGetMachiningParam( MCH_MP.OFFSL)
-      -- imposto compressione della parte flottante
-      SetFloatPos( EMT.HEAD, dOffsL)
-      -- imposto dati utensile in posizione compressa
-      EmtSetToolForVmill( EMT.TOOL, EMT.HEAD, EMT.EXIT, EMT.VMILL, 2, -dOffsL)
-      -- dichiaro che è compresso (assegnando Id entità di movimento)
-      EMT.TFLOAT_CMP = EMT.MOVEID
-   end
 end
 
 ---------------------------------------------------------------------
 function OnSimulMoveEnd()
-   -- se termine di passata con lama
    if EMT.FLAG == 301 then 
       -- rimozione eventuali sfridi
       ExecRemoveScraps()
    end
-   -- se utensile flottante e movimento di compressione
-   if EMT.TFLOAT and EMT.MOVEID == EMT.TFLOAT_CMP then
-      -- verifico ci sia stata collisione tra ghiera flottante (portautensile e pezzo)
-      if not EMT.TFLOAT_TH_COMPR_COLL then
-         local sErr = 'CUTID='..tostring( EMT.CUTID)..'; TASKID='..tostring( EMT.TASKID)..'; Mach='..EMT.MCHNAME..'; Floating Ring not compressed on approach'
-         EmtSetLastError( 1222, sErr)
-         EgtOutLog( 'Error : ' .. sErr, 1)
-      else
-         EgtOutLog( 'Floating Ring compressed on approach (MOVEID='..EgtNumToString( EMT.MOVEID)..')', 1)
-      end
-      EMT.TFLOAT_TH_COMPR_COLL = nil
-   end
-   -- se aggregato flottante su fine uscita va rilasciato
-   if EMT.TFLOAT and EMT.TFLOAT_CMP and EMT.MOVE == 1 and EgtGetName( EMT.MOVEID) == 'LO' and EgtGetName( EgtGetNext( EMT.MOVEID) or GDB_ID.NULL) ~= 'LO' then
-      -- reset compressione della parte flottante
-      SetFloatPos( EMT.HEAD, 0)
-      -- dichiaro che è rilasciato
-      EMT.TFLOAT_CMP = nil
-   end
 end
 
 ---------------------------------------------------------------------
 function OnSimulCollision()
    -- se prima collisione della lavorazione, la segnalo
    if EMT.MCHNAME ~= EMT.LAST_MCHNAME_COLLIDE then
-      -- speciale per utensile flottante (suo holder contro il grezzo)
-      if EMT.TFLOAT and EMT.TFLOAT_CMP and EMT.SIMCOBIND == 1002 and EMT.SIMVMID == EMT.VMILL[1] then
-         if EMT.MOVEID == EMT.TFLOAT_CMP then
-            EMT.TFLOAT_TH_COMPR_COLL = true
-         end
-         return
-      end
-      -- standard
       local Class = ''
       if EMT.SIMCOBIND == 1001 then
          Class = 'T_H1'
@@ -1190,18 +1133,19 @@ end
 ---------------------------------------------------------------------
 --   *** ESTIMATION T&L ***
 ---------------------------------------------------------------------
-local RAPID_X_FEED =  75000    -- mm/min
+local ESTIMATION_RAPID_COEFF = EstimationRapidMultiplier or 1
-local RAPID_Y_FEED = 100000    -- mm/min
+local RAPID_X_FEED =  75000 / ESTIMATION_RAPID_COEFF    -- mm/min
-local RAPID_Z_FEED =  50000    -- mm/min
+local RAPID_Y_FEED = 100000 / ESTIMATION_RAPID_COEFF    -- mm/min
-local RAPID_C_FEED =  15000    -- deg/min
+local RAPID_Z_FEED =  50000 / ESTIMATION_RAPID_COEFF    -- mm/min
-local RAPID_B_FEED =  15000    -- deg/min
+local RAPID_C_FEED =  15000 / ESTIMATION_RAPID_COEFF    -- deg/min
-local RAPID_MIN_T = 0.1        -- s
+local RAPID_B_FEED =  15000 / ESTIMATION_RAPID_COEFF    -- deg/min
-local LOAD_T = 2               -- s
+local RAPID_MIN_T = 0.1 * ESTIMATION_RAPID_COEFF       -- s
-local CHAR_ONE_MOVE_T = 1      -- s
+local LOAD_T = 2  * ESTIMATION_RAPID_COEFF              -- s
-local ROTATION_T = 40          -- s
+local CHAR_ONE_MOVE_T = 1  * ESTIMATION_RAPID_COEFF     -- s
-local SPLIT_T = 6              -- s
+local ROTATION_T = 40  * ESTIMATION_RAPID_COEFF         -- s
-local UNLOAD_T = 4             -- s
+local SPLIT_T = 6  * ESTIMATION_RAPID_COEFF             -- s
-local FALL_T = 2               -- s
+local UNLOAD_T = 4  * ESTIMATION_RAPID_COEFF            -- s
+local FALL_T = 2  * ESTIMATION_RAPID_COEFF              -- s
 
 ---------------------------------------------------------------------
 function OnEstimStart()

Common_FAST.mlse

@@ -7,12 +7,6 @@ EgtEnableDebug( false)
 -- carico librerie
 local BD = require( 'BeamData')
 
----------------------------------------------------------------------
--- *** Generic Machinings ***
----------------------------------------------------------------------
-pcall( require, 'EmtGenMachining')  -- si fa una require con PCALL perchè la libreria è opzionale
-
-
 ---------------------- OnSpecialMoveZup -----------------------------
 ---------------------------------------------------------------------
 function OnSpecialMoveZup()

Essetre-FAST.ini

@@ -97,8 +97,6 @@ H5=6603
 H6=6603
 ; Angular transmission
 H7=6617
-; Floating Aggregate
-H8=6619
 
 [SetUp]
 Default=Standard

Essetre-FAST.mlde

@@ -22,10 +22,10 @@
 -------------------------------------
 
 require( 'EmtGenerator')
-EgtEnableDebug( true)
+EgtEnableDebug( false)
 
-PP_VER = '2.7a1'
+PP_VER = '2.7a3_DEV1'
-PP_NVER = '2.7.1.1'
+PP_NVER = '2.7.1.3'
 MIN_MACH_VER = '2.5k1'
 MACH_NAME = 'Essetre-FAST'
 
@@ -89,8 +89,8 @@ MaxUnloadLen = 0
 BeamHeightForFixRot = 9999                     -- per abilitare assegnare 500
 NewTopC = true
 SafeXRotAxes = 150
-AggreBlockHaus = true
+AggreBlockHaus = false
-SecondToolChanger = true
+EstimationRapidMultiplier = 1
 
 -- leggo e aggiorno con parametri da BeamData
 if BD then
@@ -159,16 +159,12 @@ if EgtExistsFile( sData) then
          if Machine.Offsets.MIN_JOIN_LL then MinJoinLL = Machine.Offsets.MIN_JOIN_LL end
          if Machine.Offsets.NEWTOPC then NewTopC = ( Machine.Offsets.NEWTOPC == 1) end
          if Machine.Offsets.AGGRE_BH then AggreBlockHaus = ( Machine.Offsets.AGGRE_BH == 1) end
-         if Machine.Offsets.SEC_TC then SecondToolChanger = ( Machine.Offsets.SEC_TC == 1) end
+         if Machine.Offsets.COEFF_STIMATEMPI and Machine.Offsets.COEFF_STIMATEMPI > 0 then EstimationRapidMultiplier = Machine.Offsets.COEFF_STIMATEMPI end
       end
    end
 end
 if SpecialBH then SecondSupport = 0 end
 
--- compongo i gruppi appartenenti alla base
-local sBaseAux = {'BASE/SOLID', 'BASE/TC', 'BASE/SIGN', 'BASE/COLLISION'}
-if SecondToolChanger then table.insert( sBaseAux, 5, 'BASE/TC2') end
-
 EmtGeneral {
       File='Essetre-FAST.nge',
       Offset = Vector3d( 0, 1150.16, -1500.0),
@@ -182,8 +178,7 @@ EmtGeneral {
 local BaseId = EmtBase {
       Name = 'Base',
       Geo='BASE/GEO',
-      Aux = sBaseAux}
+      Aux={'BASE/SOLID', 'BASE/TC', 'BASE/SIGN', 'BASE/COLLISION'}}
-
 local XId = EmtAxis {
       Name = 'X',
       Parent = 'Base',
@@ -343,7 +338,6 @@ if AggreBlockHaus then
       Geo = 'H7_HEAD/GEO',
       Aux = {'H7_HEAD/SOLID', 'H7_HEAD/COLLISION'}}
 end
-
 -- Morse
 local YId = EmtAxis {
       Name = 'Y',
@@ -474,83 +468,22 @@ EmtTcPos {
       TDir = -X_AX(),
       ADir = -Y_AX(),
       Geo = 'BASE/T10'}
-if AggreBlockHaus then
+EmtTcPos {
-   local TcpSsId = EmtTcPos {
+      Name = 'T11',
-         Name = 'T11',
+      Parent = 'Base',
+      Pos = Point3d( 523.8, 88.0, -877.5),
+      TDir = -X_AX(),
+      ADir = -Y_AX(),
+      Geo = 'BASE/T11'}
+if not SpecialBH then
+   EmtTcPos {
+         Name = 'T101',
          Parent = 'Base',
-         Pos = Point3d( 678.3, -1.963, -877.5),
+         Pos = Point3d( -510.4, 113.2, -160.8),
-         TDir = Y_AX(),
+         TDir = X_AX(),
-         ADir = -X_AX(),
+         ADir = Z_AX(),
-         Geo = 'BASE/T121',
+         Geo = 'BASE/T101'}
-         Aux = 'BASE/T121_HS'}
 else
-   EmtTcPos {
-         Name = 'T11',
-         Parent = 'Base',
-         Pos = Point3d( 523.8, 88.0, -877.5),
-         TDir = -X_AX(),
-         ADir = -Y_AX(),
-         Geo = 'BASE/T11'}
-end
-
--- ToolChanger 2
-if SecondToolChanger then
-   EmtTcPos {
-         Name = 'T21',
-         Parent = 'Base',
-         Pos = Point3d( -503.2, 88.0, 172.5),
-         TDir = X_AX(),
-         ADir = -Y_AX(),
-         Geo = 'BASE/T21'}
-   EmtTcPos {
-         Name = 'T22',
-         Parent = 'Base',
-         Pos = Point3d( -503.2, 88.0, 67.5),
-         TDir = X_AX(),
-         ADir = -Y_AX(),
-         Geo = 'BASE/T22'}
-   EmtTcPos {
-         Name = 'T23',
-         Parent = 'Base',
-         Pos = Point3d( -503.2, 88.0, -37.5),
-         TDir = X_AX(),
-         ADir = -Y_AX(),
-         Geo = 'BASE/T23'}
-   EmtTcPos {
-         Name = 'T24',
-         Parent = 'Base',
-         Pos = Point3d( -503.2, 88.0, -142.5),
-         TDir = X_AX(),
-         ADir = -Y_AX(),
-         Geo = 'BASE/T24'}
-   EmtTcPos {
-         Name = 'T25',
-         Parent = 'Base',
-         Pos = Point3d( -503.2, 88.0, -247.5),
-         TDir = X_AX(),
-         ADir = -Y_AX(),
-         Geo = 'BASE/T25'}
-   EmtTcPos {
-         Name = 'T26',
-         Parent = 'Base',
-         Pos = Point3d( -503.2, 88.0, -352.5),
-         TDir = X_AX(),
-         ADir = -Y_AX(),
-         Geo = 'BASE/T26'}
-   EmtTcPos {
-         Name = 'T27',
-         Parent = 'Base',
-         Pos = Point3d( -503.2, 88.0, -457.5),
-         TDir = X_AX(),
-         ADir = -Y_AX(),
-         Geo = 'BASE/T27'}
-   EmtTcPos {
-         Name = 'T28',
-         Parent = 'Base',
-         Pos = Point3d( -503.2, 88.0, -562.5),
-         TDir = X_AX(),
-         ADir = -Y_AX(),
-         Geo = 'BASE/T28'}
    EmtTcPos {
          Name = 'T101',
          Parent = 'Base',
@@ -558,66 +491,59 @@ if SecondToolChanger then
          TDir = X_AX(),
          ADir = Z_AX(),
          Geo = 'BASE/T101S'}
-else
+end
-   if not SpecialBH then
+if SecondSupport == 1 then
-      EmtTcPos {
+   -- supporto per punta
-            Name = 'T101',
+   EmtTcPos {
-            Parent = 'Base',
+         Name = 'T111',
-            Pos = Point3d( -510.4, 113.2, -160.8),
+         Parent = 'Base',
-            TDir = X_AX(),
+         Pos = Point3d( -510.4, 113.2, -329.8),
-            ADir = Z_AX(),
+         TDir = Z_AX(),
-            Geo = 'BASE/T101'}
+         ADir = X_AX(),
-   else
+         Geo = 'BASE/T111'}
-      EmtTcPos {
+elseif SecondSupport == 2 then
-            Name = 'T101',
+   -- supporto per mortasatrice
-            Parent = 'Base',
+   local TcpSsId = EmtTcPos {
-            Pos = Point3d( -510.4, 113.2, -1160.8),
+                        Name = 'T111',
-            TDir = X_AX(),
+                        Parent = 'Base',
-            ADir = Z_AX(),
+                        Pos = Point3d( -510.4, 113.2, -430.8),
-            Geo = 'BASE/T101S'}
+                        TDir = X_AX(),
-   end
+                        ADir = Z_AX(),
-   if SecondSupport == 1 then
+                        Geo = 'BASE/T111M'}
-      -- supporto per punta
+   EgtSetInfo( TcpSsId, 'Mortiser', true)
-      EmtTcPos {
+elseif SecondSupport == 3 then
-            Name = 'T111',
+   -- supporto per rinvio angolare
-            Parent = 'Base',
+   local TcpSsId = EmtTcPos {
-            Pos = Point3d( -510.4, 113.2, -329.8),
+                        Name = 'T91',
-            TDir = Z_AX(),
+                        Parent = 'Base',
-            ADir = X_AX(),
+                        ExitNbr = 2,
-            Geo = 'BASE/T111'}
+                        Pos1 = Point3d( -710.4-150, 113.2, -329.8-170),
-   elseif SecondSupport == 2 then
+                        TDir1 = X_AX(),
-      -- supporto per mortasatrice
+                        Pos2 = Point3d( -710.4+150, 113.2, -329.8-170),
-      local TcpSsId = EmtTcPos {
+                        TDir2 = -X_AX(),
-                           Name = 'T111',
+                        ADir = Z_AX(),
-                           Parent = 'Base',
+                        Geo = 'BASE/T91',
-                           Pos = Point3d( -510.4, 113.2, -430.8),
+                        Aux = 'BASE/T91_HS'}
-                           TDir = X_AX(),
+end
-                           ADir = Z_AX(),
+if SpecialBH then
-                           Geo = 'BASE/T111M'}
+   EmtTcPos {
-      EgtSetInfo( TcpSsId, 'Mortiser', true)
+         Name = 'T111',
-   elseif SecondSupport == 3 then
+         Parent = 'Base',
-      -- supporto per rinvio angolare
+         Pos = Point3d( -810.4, 113.2, -329.8),
-      local TcpSsId = EmtTcPos {
+         TDir = Y_AX(),
-                           Name = 'T91',
+         ADir = X_AX(),
-                           Parent = 'Base',
+         Geo = 'BASE/T111S'}
-                           ExitNbr = 2,
+end
-                           Pos1 = Point3d( -710.4-150, 113.2, -329.8-170),
+
-                           TDir1 = X_AX(),
+if AggreBlockHaus then
-                           Pos2 = Point3d( -710.4+150, 113.2, -329.8-170),
+   local TcpSsId = EmtTcPos {
-                           TDir2 = -X_AX(),
+      Name = 'T121',
-                           ADir = Z_AX(),
+      Parent = 'Base',
-                           Geo = 'BASE/T91',
+      Pos = Point3d( 678.3, -1.963, -877.5),
-                           Aux = 'BASE/T91_HS'}
+      TDir = Y_AX(),
-   end
+      ADir = -X_AX(),
-   if SpecialBH then
+      Geo = 'BASE/T121',
-      EmtTcPos {
+      Aux = 'BASE/T121_HS'}
-            Name = 'T111',
-            Parent = 'Base',
-            Pos = Point3d( -810.4, 113.2, -329.8),
-            TDir = Y_AX(),
-            ADir = X_AX(),
-            Geo = 'BASE/T111S'}
-   end
 end
 
 -- Aggiusto posizioni geometriche
@@ -670,7 +596,7 @@ end
 -- Funzione per impostare spia stato morsa carrello Y
 function SetPYLight( bClosed)
    if not PYLightId then return end
-   EgtSetColor( PYLightId, EgtIf( bClosed, 'RED', 'LIME'))
+   EgtSetColor( PYLightId, EgtIf( bClosed, 'RED', 'LIME')) 
    if bClosed then
       EgtSetInfo( PYLightId, 'On', '1')
    else
@@ -704,52 +630,6 @@ function GetPVLight()
    return ( EgtGetInfo( PVLightId, 'On') == '1')
 end
 
----------------------------------------------------------------------
----------------------------- Cambio Utensile ------------------------
-function GetTCSet( sTcPos)
-   -- TC 1
-   if sTcPos == 'T1' or sTcPos == 'T2' or sTcPos == 'T3' or sTcPos == 'T4' or sTcPos == 'T5' or
-      sTcPos == 'T6' or sTcPos == 'T7' or sTcPos == 'T8' or sTcPos == 'T9' or sTcPos == 'T10' or sTcPos == 'T11' then
-      return 1
-   -- TC 2
-   elseif sTcPos == 'T21' or sTcPos == 'T22' or sTcPos == 'T23' or sTcPos == 'T24' or
-          sTcPos == 'T25' or sTcPos == 'T26' or sTcPos == 'T27' or sTcPos == 'T28' then
-      return 2
-   end
-end
-
----------------------------------------------------------------------
--- Funzione per impostare la posizione del rinvio flottante
-function SetFloatPos( sHead, dPos)
-   -- recupero Id testa
-   local nHeadId = EgtGetHeadId( sHead)
-   if not nHeadId then return false end
-   -- se ci sono entità flottanti nel ToolHolder
-   local nRefId = EgtGetFirstNameInGroup( nHeadId, '_T1')
-   local vtTool = EgtFR( nRefId, GDB_ID.ROOT):getVersZ() 
-   local nObjId =  EgtGetFirstGroupInGroup( EgtGetFirstNameInGroup( nHeadId, 'T1'))
-   local FloatEntities = EgtGetInfoInGroup( nObjId, 'Float')
-   if FloatEntities and #FloatEntities > 0 then
-      -- il porta-utensile flottante non può comprimersi più di 10mm
-      if dPos > 10 then
-         local sErr = 'Floating Ring compressed more than 10mm'
-         EmtSetLastError( 1222, sErr)
-         EgtOutLog( 'Error : ' .. sErr, 1)
-      end
-      local dFloat = EgtGetInfo( FloatEntities[1], 'Float', 'd')
-      if abs( dPos - dFloat) > 10 * GEO.EPS_SMALL then
-         local vtMove = ( dPos - dFloat) * vtTool
-         -- sposto tutte le entità flottanti
-         for i = 1, #FloatEntities do
-            EgtMove( FloatEntities[i], vtMove, GDB_RT.GLOB)
-            EgtSetInfo( FloatEntities[i], 'Float', dPos)
-         end
-      end
-      return true
-   end
-   return false
-end
-
 ---------------------------------------------------------------------
 -- Funzione per resettare tutte le attivazioni della macchina
 function OnResetMachine()
@@ -757,7 +637,6 @@ function OnResetMachine()
    EmtUnlinkAllFixturesFromGroups()
    SetPYLight( false)
    SetPVLight( false)
-   SetFloatPos( 'H1', 0)
    -- nascondo Vmill
    local nRawId = EgtGetFirstRawPart()
    while nRawId do

Scripts/SetUp.lua

@@ -24,7 +24,9 @@ local INVALIDPOS = ""
 local POS = "Pos"
 
 -- Geom Set
-local GS = {{"H1", "H7", "H8"}}
+local GS = {}
+
+local bAggreBlockHaus = ( EgtGetHeadId( 'H7') ~= nil)
 
 -- Configurazione posizioni
 local PositionTable={{Pos = "Pos1",  TcPos = "T1",  Head = "H1", Group = "G1"},
@@ -37,37 +39,23 @@ local PositionTable={{Pos = "Pos1",  TcPos = "T1",  Head = "H1", Group = "G1"},
                      {Pos = "Pos8",  TcPos = "T8",  Head = "H1", Group = "G1"},
                      {Pos = "Pos9",  TcPos = "T9",  Head = "H1", Group = "G1"},
                      {Pos = "Pos10", TcPos = "T10", Head = "H1", Group = "G1"},
-                     {Pos = "Pos11", TcPos = "T11", Head = "H1", Group = "G1"},
+                     {Pos = "Pos11", TcPos = EgtIf( bAggreBlockHaus, "T121", "T11"), Head = EgtIf( bAggreBlockHaus, "H7", "H1"), Group = "G1"},
                      {Pos = "Pos12", TcPos = "T42", Head = "H2", Group = "G1"},
                      {Pos = "Pos13", TcPos = "T101", Head = "H3", Group = "G2"}}
-
+local SecSuppId = EgtGetTcPosId( 'T111')
-local IsTC2Active = ( EgtGetFirstNameInGroup( EgtGetBaseId( 'Base'), 'TC2') ~= nil)
+if SecSuppId then
-if IsTC2Active then
+   local bMortiser = EgtGetInfo( SecSuppId, 'Mortiser', 'b')
-   local PositionTableTC2={{Pos = "Pos14",  TcPos = "T21",  Head = "H1", Group = "G3"},
+   if bMortiser then
-                           {Pos = "Pos15",  TcPos = "T22",  Head = "H1", Group = "G3"},
+      table.insert( PositionTable, {Pos = "Pos14", TcPos = "T111", Head = "H3", Group = "G2"})
-                           {Pos = "Pos16",  TcPos = "T23",  Head = "H1", Group = "G3"},
+   else
-                           {Pos = "Pos17",  TcPos = "T24",  Head = "H1", Group = "G3"},
+      table.insert( PositionTable, {Pos = "Pos14", TcPos = "T111", Head = "H1", Group = "G2"})
-                           {Pos = "Pos18",  TcPos = "T25",  Head = "H1", Group = "G3"},
-                           {Pos = "Pos19",  TcPos = "T26",  Head = "H1", Group = "G3"},
-                           {Pos = "Pos20",  TcPos = "T27",  Head = "H1", Group = "G3"},
-                           {Pos = "Pos21",  TcPos = "T28",  Head = "H1", Group = "G3"}}
-   EgtJoinTables( PositionTable, PositionTableTC2)
-else
-   local SecSuppId = EgtGetTcPosId( 'T111')
-   if SecSuppId then
-      local bMortiser = EgtGetInfo( SecSuppId, 'Mortiser', 'b')
-      if bMortiser then
-         table.insert( PositionTable, {Pos = "Pos14", TcPos = "T111", Head = "H3", Group = "G2"})
-      else
-         table.insert( PositionTable, {Pos = "Pos14", TcPos = "T111", Head = "H1", Group = "G2"})
-      end
-   end
-   if EgtGetHeadId( 'H5') then
-      table.insert( PositionTable, {Pos = "Pos14", TcPos = "T91", Head = "H5", Group = "G2"})
    end
 end
+if EgtGetHeadId( 'H5') then
+   table.insert( PositionTable, {Pos = "Pos14", TcPos = "T91", Head = "H5", Group = "G2"})
+end
 
-local UsePositionHead = false
+local UsePositionHead = true
 
 local function IsInGeomSet( ToolHead, PosHead)
    for GsIndex = 1, #GS do

ToolNotes.ini

@@ -27,7 +27,6 @@
 2=d,SIDESTEP
 3=d,SIDEDEPTH
 4=s,DOUBLE
-5=dr,TOOL_OVERHANG
 
 [MILL_NOTIP]
 0=th,TH,
@@ -35,7 +34,6 @@
 2=d,SIDESTEP
 3=d,SIDEDEPTH
 4=s,DOUBLE
-5=dr,TOOL_OVERHANG
 
 [MORTISE_STD]
 0=b,MORTISE

UpdateLog.txt

@@ -1,5 +1,12 @@
            ==== Common_FAST Update Log ====
 
+Versione 2.7a3 (08/01/2024)
+- (GEN) Dopo separazione, in NUM_PLUS, si srive EH1 solo se macro G101, perchè altrimenti non è prevista. Ticket#2239
+
+Versione 2.7a2 (08/01/2024)
+- (MLDE-SIM) Aggiunta gestione FACOLTATIVA 'EstimationRapidMultiplier' in MLDE per regolare il tempo stimato. Se non presente in MLDE, default 1.
+- (SIM) Aggiunta gestione qualità VMILL da impostazioni macchina
+
 Versione 2.7a1 (07/01/2024)
 - (MLDE-SIM-GEN) Nuovo aggregato 90° (H7) per fresa tipo BlockHaus. Ticket#2142
 - (SIM-GEN) Aumentati limiti massimi di pinzaggio minimo

Version.lua

@@ -1,9 +1,9 @@
--- Version.lua by EgalWare s.r.l. 2024/12/23
+-- Version.lua by EgalWare s.r.l. 2024/03/28
 -- Gestione della versione dei file comuni post-processori macchine FAST e FASTrl di Essetre
 
 local InfoCommon_STD_PP = {
    NAME = 'Common_FAST',            -- nome script PP standard
-   VERSION = '2.7a1',                 -- versione script
+   VERSION = '2.7a3',                 -- versione script
    MIN_MACH_VER_PP_COMMON = '2.5k1'   -- versione minima kernel
 }