Gestione aggregato flottante completata

- Piccola modifica ad aggregato flottante

Common_FAST.NUM.mlpe

@@ -1532,7 +1532,10 @@ function MyAdjustLinearAxes()
 
    if EMT.REFLOC then
       local vtE
-      if EMT.HEAD ~= 'H3' then
+      -- su NUM aggregati non gestiti
+      if EMT.HEAD == 'H5' or EMT.HEAD == 'H6' or EMT.HEAD == 'H7' then
+         EmtSetLastError( 1211, "Aggregates not managed")
+      elseif EMT.HEAD ~= 'H3' then
          local Len = EMT.TLEN + EgtIf( EMT.HEAD == 'H1', MillOffs, abs( SawOffs))
          local LenRef = MillOffs
          vtE = Vector3d( EMT.EXTR) * Len - Z_AX() * LenRef

Common_FAST.mlpe

@@ -213,20 +213,24 @@ function OnSimulDispositionStart()
                end
             end
             -- determino la risoluzione dello Zmap
-            local dArea = b3Raw:getDimX() * b3Raw:getDimY() + b3Raw:getDimX() * b3Raw:getDimZ() + b3Raw:getDimY() * b3Raw:getDimZ()
             local dTol = 4.71
-            if dArea < CoeffVM * 0.15e6 then
+            if EmtGetVMillStep then
-               dTol = 0.71
+               dTol = EmtGetVMillStep( b3Raw:getDimX(), b3Raw:getDimY(), b3Raw:getDimZ(), 4.71)
-            elseif dArea < CoeffVM * 0.3e6 then
+            else
-               dTol = 1.01
+               local dArea = b3Raw:getDimX() * b3Raw:getDimY() + b3Raw:getDimX() * b3Raw:getDimZ() + b3Raw:getDimY() * b3Raw:getDimZ()
-            elseif dArea < CoeffVM * 0.6e6 then
+               if dArea < 0.075e6 then
-               dTol = 1.51
+                  dTol = 0.71
-            elseif dArea < CoeffVM * 1.2e6 then
+               elseif dArea < 0.15e6 then
-               dTol = 1.97
+                  dTol = 1.01
-            elseif dArea < CoeffVM * 2.4e6 then
+               elseif dArea < 0.3e6 then
-               dTol = 2.81
+                  dTol = 1.51
-            elseif dArea < CoeffVM * 4.8e6 then
+               elseif dArea < 0.6e6 then
-               dTol = 3.77
+                  dTol = 1.97
+               elseif dArea < 1.2e6 then
+                  dTol = 2.81
+               elseif dArea < 2.4e6 then
+                  dTol = 3.77
+               end
             end
             -- creo lo Zmap
             local VMillId = EgtVolZmapBox( nPartRawId, b3Raw:getMin(), b3Raw:getDimX(), b3Raw:getDimY(), b3Raw:getDimZ(), dTol, true, GDB_RT.GLOB)
@@ -462,8 +466,10 @@ function OnSimulToolSelect( dPosA)
    EMT.TOTDIAM = EgtTdbGetCurrToolParam( MCH_TP.TOTDIAM)
    -- se non è chiamato da altro script (non c'è parametro)
    if not dPosA then
-      -- se attivo Vmill
+      -- se utensile non flottante, abilito per Vmill
-      SetToolForVmill( EMT.TOOL, EMT.HEAD, EMT.EXIT, EMT.VMILL)
+      if not EMT.TFLOAT then
+         EmtSetToolForVmill( EMT.TOOL, EMT.HEAD, EMT.EXIT, EMT.VMILL)
+      end
       -- se attivo Collision Check
       EMT.SAFEDIST = COLL_SAFE_DIST
       if EMT.COLLOBJ then
@@ -523,6 +529,12 @@ 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( '')
@@ -572,7 +584,11 @@ function OnSimulToolDeselect()
          -- altrimenti posizioni standard rastrelliera
          else
             SimulMoveAxis( 'X', 0, MCH_SIM_STEP.RAPID)
-            SimulMoveAxes( 'B', 90, MCH_SIM_STEP.COLLROT, 'C', -90, MCH_SIM_STEP.COLLROT)
+            if GetTCSet( EMT.TCPOS) == 1 then
+               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
@@ -586,18 +602,25 @@ 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', 90, MCH_SIM_STEP.RAPROT, 'C', EgtIf( BD.RIGHT_LOAD, 90, -90), MCH_SIM_STEP.RAPROT)
+         SimulMoveAxes( 'B', EgtIf( GetTCSet( EMT.TCPOS) == 1, 90, -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
@@ -764,7 +787,6 @@ 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
@@ -774,20 +796,59 @@ 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'

Common_FAST.mlse

@@ -7,6 +7,12 @@ 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()
@@ -33,9 +39,9 @@ local DeltaTol = DELTA_TOL_S
 local DELTA_SIC = 1
 local AGG_LOAD = 50
 local MIN_JOIN_VV = EgtClamp( MinJoinVV or 75, 60, 150)
-local MIN_JOIN_SS = EgtClamp( MinJoinSS or 100, 80, 200)
+local MIN_JOIN_SS = EgtClamp( MinJoinSS or 100, 80, 275)
 local MIN_JOIN_LS = EgtClamp( MinJoinLS or 290, 250, 400)
-local MIN_JOIN_SL = EgtClamp( MinJoinSL or 100, 80, 200)
+local MIN_JOIN_SL = EgtClamp( MinJoinSL or 100, 80, 400)
 local MIN_JOIN_LL = EgtClamp( MinJoinLL or 400, 300, 600)
 local MinJoin = MIN_JOIN_SS
 local MinOther = abs( MinY) + abs( MaxV) + MinJoin
@@ -368,6 +374,17 @@ function OnSpecialApplyDisposition()
    EMC.HCING = EgtGetInfo( nCurrRawId, 'HCING', 'd') or 0
    EMC.TCING = EgtGetInfo( nCurrRawId, 'TCING', 'd') or 0
 
+   -- correggo area non pinzabile in testa o coda in base alle info sulla lavorazione
+   local sNotes = EgtGetMachiningParam( MCH_MP.USERNOTES) or ''
+   local dHCING = tonumber( EgtGetValInNotes( sNotes, 'HCING'))
+   if dHCING then
+      EMC.HCING = max( dHCING, -50)
+   end
+   local dTCING = tonumber( EgtGetValInNotes( sNotes, 'TCING'))
+   if dTCING then
+      EMC.TCING = max( dTCING, -50)
+   end
+
    -- Devo scaricare il pezzo o il grezzo rimasto
    -- Posizione trave
    local dPosT
@@ -511,6 +528,17 @@ function OnPostApplyMachining()
    local bSplitting = ( sNotes:find( 'Split') ~= nil)
    local bPreCut = ( sNotes:find( 'Precut') ~= nil)
    local bCutting = ( sNotes:find( 'Cut') ~= nil)
+
+   -- correggo area non pinzabile in testa o coda in base alle info sulla lavorazione
+   local dHCING = tonumber( EgtGetValInNotes( sNotes, 'HCING'))
+   if dHCING then
+      EMC.HCING = max( dHCING, -50)
+   end
+   local dTCING = tonumber( EgtGetValInNotes( sNotes, 'TCING'))
+   if dTCING then
+      EMC.TCING = max( dTCING, -50)
+   end
+
    local bUnload = IsEndPhase( EMC.PHASE) or IsEnd2Phase( EMC.PHASE)
    if bPreSplit or bPreCut then
       EgtSetInfo( EMC.MCHID, 'IS_PRE', '1')
@@ -635,6 +663,17 @@ function SpecApplyPath( bPreSplit, bSplitting, bPreCut, bCutting, bUnload, bPreR
    EMC.HCING = EgtGetInfo( nCurrRawId, 'HCING', 'd') or 0
    EMC.TCING = EgtGetInfo( nCurrRawId, 'TCING', 'd') or 0
    
+   -- correggo area non pinzabile in testa o coda in base alle info sulla lavorazione
+   local sNotes = EgtGetMachiningParam( MCH_MP.USERNOTES)
+   local dHCING = tonumber( EgtGetValInNotes( sNotes, 'HCING'))
+   if dHCING then
+      EMC.HCING = max( dHCING, -50)
+   end
+   local dTCING = tonumber( EgtGetValInNotes( sNotes, 'TCING'))
+   if dTCING then
+      EMC.TCING = max( dTCING, -50)
+   end
+
    -- Calcolo dell'ingombro della lavorazione
    local dDistFront, dDistBack = SpecialCalcMachiningEncumbrance( EMC.MCHID, bPreCut)
    if not dDistFront or not dDistBack then return end
@@ -1682,7 +1721,7 @@ function SpecAdjustCarriages( vCmd, dTPosI, dYDeltaI, dVDeltaI, dTPosF, dYDeltaF
             if abs( dYDeltaF - dYDeltaI) > 10 * GEO.EPS_SMALL then
                table.insert( vCmd, { 11, 0})
                dYPosA = max( MyMinY, dTPosI + dYDeltaF)
-               dTPosA = -( dYPosA + dVDeltaF)
+               dTPosA = dYPosA - dYDeltaF
                dVPosA = dTPosA + dVDeltaF
                table.insert( vCmd, { 3, 'Y', dYPosA , 'T', dTPosA, 'V', dVPosA})
                table.insert( vCmd, { 11, CalcCharStatus( 'Y', dYDeltaF)})

Essetre-FAST.ini

@@ -68,10 +68,14 @@ Milling=1
 Pocketing=1
 Mortising=1
 Chiseling=0
-SawRoughing=0
-SawFinishing=0
 GenMachining=0
-SurfFinishing=0
+SurfRoughing=1
+SurfFinishing=1
+5AxMilling=1
+
+[5AxMilling]
+5AxScript1=5AxProject
+5AxScript2=5AxPocketProject
 
 [Machining]
 InitScript=InitMach.lua
@@ -93,6 +97,8 @@ H5=6603
 H6=6603
 ; Angular transmission
 H7=6617
+; Floating Aggregate
+H8=6619
 
 [SetUp]
 Default=Standard

Essetre-FAST.mlde

@@ -1,4 +1,4 @@
--- Descrizione macchina Essetre-FAST by EgalTech s.r.l.   2024/03/28
+-- Descrizione macchina Essetre-FAST by EgalTech s.r.l.   2024/12/23
 -- 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.
@@ -22,10 +22,10 @@
 -------------------------------------
 
 require( 'EmtGenerator')
-EgtEnableDebug( false)
+EgtEnableDebug( true)
 
-PP_VER = '2.6l1'
+PP_VER = '2.7a1'
-PP_NVER = '2.6.12.1'
+PP_NVER = '2.7.1.1'
 MIN_MACH_VER = '2.5k1'
 MACH_NAME = 'Essetre-FAST'
 
@@ -87,10 +87,10 @@ SecondSupport = 0
 SpecialBH = false
 MaxUnloadLen = 0
 BeamHeightForFixRot = 9999                     -- per abilitare assegnare 500
-CoeffVM = 0.5
 NewTopC = true
 SafeXRotAxes = 150
-AggreBlockHaus = false
+AggreBlockHaus = true
+SecondToolChanger = true
 
 -- leggo e aggiorno con parametri da BeamData
 if BD then
@@ -159,13 +159,15 @@ 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
       end
    end
 end
 if SpecialBH then SecondSupport = 0 end
 
--- TODO da rimuovere
+-- compongo i gruppi appartenenti alla base
-AggreBlockHaus = true
+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',
@@ -180,7 +182,8 @@ EmtGeneral {
 local BaseId = EmtBase {
       Name = 'Base',
       Geo='BASE/GEO',
-      Aux={'BASE/SOLID', 'BASE/TC', 'BASE/SIGN', 'BASE/COLLISION'}}
+      Aux = sBaseAux}
+
 local XId = EmtAxis {
       Name = 'X',
       Parent = 'Base',
@@ -340,6 +343,7 @@ if AggreBlockHaus then
       Geo = 'H7_HEAD/GEO',
       Aux = {'H7_HEAD/SOLID', 'H7_HEAD/COLLISION'}}
 end
+
 -- Morse
 local YId = EmtAxis {
       Name = 'Y',
@@ -470,22 +474,83 @@ EmtTcPos {
       TDir = -X_AX(),
       ADir = -Y_AX(),
       Geo = 'BASE/T10'}
-EmtTcPos {
+if AggreBlockHaus then
-      Name = 'T11',
+   local TcpSsId = EmtTcPos {
-      Parent = 'Base',
+         Name = 'T11',
-      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( -510.4, 113.2, -160.8),
+         Pos = Point3d( 678.3, -1.963, -877.5),
-         TDir = X_AX(),
+         TDir = Y_AX(),
-         ADir = Z_AX(),
+         ADir = -X_AX(),
-         Geo = 'BASE/T101'}
+         Geo = 'BASE/T121',
+         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',
@@ -493,59 +558,66 @@ else
          TDir = X_AX(),
          ADir = Z_AX(),
          Geo = 'BASE/T101S'}
-end
+else
-if SecondSupport == 1 then
+   if not SpecialBH then
-   -- supporto per punta
+      EmtTcPos {
-   EmtTcPos {
+            Name = 'T101',
-         Name = 'T111',
+            Parent = 'Base',
-         Parent = 'Base',
+            Pos = Point3d( -510.4, 113.2, -160.8),
-         Pos = Point3d( -510.4, 113.2, -329.8),
+            TDir = X_AX(),
-         TDir = Z_AX(),
+            ADir = Z_AX(),
-         ADir = X_AX(),
+            Geo = 'BASE/T101'}
-         Geo = 'BASE/T111'}
+   else
-elseif SecondSupport == 2 then
+      EmtTcPos {
-   -- supporto per mortasatrice
+            Name = 'T101',
-   local TcpSsId = EmtTcPos {
+            Parent = 'Base',
-                        Name = 'T111',
+            Pos = Point3d( -510.4, 113.2, -1160.8),
-                        Parent = 'Base',
+            TDir = X_AX(),
-                        Pos = Point3d( -510.4, 113.2, -430.8),
+            ADir = Z_AX(),
-                        TDir = X_AX(),
+            Geo = 'BASE/T101S'}
-                        ADir = Z_AX(),
+   end
-                        Geo = 'BASE/T111M'}
+   if SecondSupport == 1 then
-   EgtSetInfo( TcpSsId, 'Mortiser', true)
+      -- supporto per punta
-elseif SecondSupport == 3 then
+      EmtTcPos {
-   -- supporto per rinvio angolare
+            Name = 'T111',
-   local TcpSsId = EmtTcPos {
+            Parent = 'Base',
-                        Name = 'T91',
+            Pos = Point3d( -510.4, 113.2, -329.8),
-                        Parent = 'Base',
+            TDir = Z_AX(),
-                        ExitNbr = 2,
+            ADir = X_AX(),
-                        Pos1 = Point3d( -710.4-150, 113.2, -329.8-170),
+            Geo = 'BASE/T111'}
-                        TDir1 = X_AX(),
+   elseif SecondSupport == 2 then
-                        Pos2 = Point3d( -710.4+150, 113.2, -329.8-170),
+      -- supporto per mortasatrice
-                        TDir2 = -X_AX(),
+      local TcpSsId = EmtTcPos {
-                        ADir = Z_AX(),
+                           Name = 'T111',
-                        Geo = 'BASE/T91',
+                           Parent = 'Base',
-                        Aux = 'BASE/T91_HS'}
+                           Pos = Point3d( -510.4, 113.2, -430.8),
-end
+                           TDir = X_AX(),
-if SpecialBH then
+                           ADir = Z_AX(),
-   EmtTcPos {
+                           Geo = 'BASE/T111M'}
-         Name = 'T111',
+      EgtSetInfo( TcpSsId, 'Mortiser', true)
-         Parent = 'Base',
+   elseif SecondSupport == 3 then
-         Pos = Point3d( -810.4, 113.2, -329.8),
+      -- supporto per rinvio angolare
-         TDir = Y_AX(),
+      local TcpSsId = EmtTcPos {
-         ADir = X_AX(),
+                           Name = 'T91',
-         Geo = 'BASE/T111S'}
+                           Parent = 'Base',
-end
+                           ExitNbr = 2,
-
+                           Pos1 = Point3d( -710.4-150, 113.2, -329.8-170),
-if AggreBlockHaus then
+                           TDir1 = X_AX(),
-   local TcpSsId = EmtTcPos {
+                           Pos2 = Point3d( -710.4+150, 113.2, -329.8-170),
-      Name = 'T121',
+                           TDir2 = -X_AX(),
-      Parent = 'Base',
+                           ADir = Z_AX(),
-      Pos = Point3d( 678.3, -1.963, -877.5),
+                           Geo = 'BASE/T91',
-      TDir = Y_AX(),
+                           Aux = 'BASE/T91_HS'}
-      ADir = -X_AX(),
+   end
-      Geo = 'BASE/T121',
+   if SpecialBH then
-      Aux = 'BASE/T121_HS'}
+      EmtTcPos {
+            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
@@ -632,6 +704,52 @@ 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()
@@ -639,6 +757,7 @@ function OnResetMachine()
    EmtUnlinkAllFixturesFromGroups()
    SetPYLight( false)
    SetPVLight( false)
+   SetFloatPos( 'H1', 0)
    -- nascondo Vmill
    local nRawId = EgtGetFirstRawPart()
    while nRawId do

MachNotes.ini

@@ -25,13 +25,16 @@
 
 [Chiseling]
 
-[SawRoughing]
-
-[SawFinishing]
-
 [GenMachining]
-0=l,LinTol,0.1
+
-1=l,MaxLen,2
+[SurfRoughing]
+
+[SurfFinishing]
+0=b,SkipMaxDown,1
+
+[5AxMilling]
+0=l,LinTol,0.01
+1=l,MaxLen,10
 2=s,Type,ZigZag
 3=d,SideAng,90
 4=l,Step,10
@@ -43,8 +46,3 @@
 10=l,LoOrth,0
 11=l,LoElev,0
 12=b,DirFromGuide,1
-
-[SurfRoughing]
-
-[SurfFinishing]
-0=b,SkipMaxDown,1

Scripts/SetUp.lua

@@ -24,9 +24,7 @@ local INVALIDPOS = ""
 local POS = "Pos"
 
 -- Geom Set
-local GS = {}
+local GS = {{"H1", "H7", "H8"}}
-
-local bAggreBlockHaus = ( EgtGetHeadId( 'H7') ~= nil)
 
 -- Configurazione posizioni
 local PositionTable={{Pos = "Pos1",  TcPos = "T1",  Head = "H1", Group = "G1"},
@@ -39,23 +37,37 @@ 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 = EgtIf( bAggreBlockHaus, "T121", "T11"), Head = EgtIf( bAggreBlockHaus, "H7", "H1"), Group = "G1"},
+                     {Pos = "Pos11", TcPos = "T11", Head = "H1", Group = "G1"},
                      {Pos = "Pos12", TcPos = "T42", Head = "H2", Group = "G1"},
                      {Pos = "Pos13", TcPos = "T101", Head = "H3", Group = "G2"}}
-local SecSuppId = EgtGetTcPosId( 'T111')
+
-if SecSuppId then
+local IsTC2Active = ( EgtGetFirstNameInGroup( EgtGetBaseId( 'Base'), 'TC2') ~= nil)
-   local bMortiser = EgtGetInfo( SecSuppId, 'Mortiser', 'b')
+if IsTC2Active then
-   if bMortiser then
+   local PositionTableTC2={{Pos = "Pos14",  TcPos = "T21",  Head = "H1", Group = "G3"},
-      table.insert( PositionTable, {Pos = "Pos14", TcPos = "T111", Head = "H3", Group = "G2"})
+                           {Pos = "Pos15",  TcPos = "T22",  Head = "H1", Group = "G3"},
-   else
+                           {Pos = "Pos16",  TcPos = "T23",  Head = "H1", Group = "G3"},
-      table.insert( PositionTable, {Pos = "Pos14", TcPos = "T111", Head = "H1", Group = "G2"})
+                           {Pos = "Pos17",  TcPos = "T24",  Head = "H1", Group = "G3"},
+                           {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 = true
+local UsePositionHead = false
 
 local function IsInGeomSet( ToolHead, PosHead)
    for GsIndex = 1, #GS do

ToolNotes.ini

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

UpdateLog.txt

@@ -1,5 +1,9 @@
            ==== Common_FAST Update Log ====
 
+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
+
 Versione 2.6l1 (02/12/2024)
 - (SIM) Corretto movimento VMILL durante scarico pezzo piccolo a caduta
 - (SIM-GEN) Per decidere posizione parcheggio barra dopo separazione, si considera lunghezza coda del pezzo in lavoro per evitare collisioni. Ticket#2168

Version.lua

@@ -1,9 +1,9 @@
--- Version.lua by EgalWare s.r.l. 2024/03/28
+-- Version.lua by EgalWare s.r.l. 2024/12/23
 -- 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.6l1',                 -- versione script
+   VERSION = '2.7a1',                 -- versione script
    MIN_MACH_VER_PP_COMMON = '2.5k1'   -- versione minima kernel
 }