Macchina rilasciata a cliente

2026-03-18 15:38:41 +01:00
parent 3ab48e3e0e
commit 97c62e8b80
58 changed files with 8707 additions and 93 deletions
@@ -0,0 +1,561 @@
+-- Descrizione macchina Saomad-KAIROS by EgalWare s.r.l.   2023/12/07
+-- 2023/09/22 DS ver 2.5i1 Prima versione
+-- 2023/10/06 DS ver 2.5j1 Completato modello macchina e simulazione.
+-- 2023/10/14 DS ver 2.5j2 Generazione di semplici programmi di lavorazione.
+-- 2023/10/16 DS ver 2.5j3 Commenti prima di movimenti carrelli con sporgenza pinzaggi e relative ripetizioni ora sono esecuzioni.
+-- 2023/10/18 DS ver 2.5j4 Aggiunta gestione nuovi tipi di scambio. Migliorato controllo pinzaggio per limiti corse X1 e X2.
+-- 2023/10/24 DS ver 2.5j5 Ulteriori migliorie agli scambi. Gestione ripartenze.
+-- 2023/11/27 DS ver 2.5k3 Aggiunta gestione ripartenze.
+-- 2023/11/29 DS ver 2.5k6 Aggiunti diversi scambi carrelli. Corretto SpecAdjustCarrA3 in mlse.
+-- 2023/12/07 DS ver 2.5l7 Modifiche ed aggiustamenti vari durante le prove.
+-- 2023/12/13 AV ver.2.5l8 Piccola correzione per errore digitazione variabile in calcolo riposizionamento carrelli (SpecAdjustCarrB3)
+
+require( 'EmtGenerator')
+EgtEnableDebug( false)
+
+PP_VER = '2.5l8'
+MIN_MACH_VER = '2.5j1'
+
+EgtOutLog ( '** Saomad-KAIROS '..PP_VER..' (MinMach '.. MIN_MACH_VER ..') **', 1)
+
+-- Parametri macchina
+NumericalControl = 'SIEMENS'
+ChainSaw = false
+MinY = -1225
+MaxY = 690
+ParkY = 400
+FmaxY = 45000
+MinZ = -512
+MaxZ = 630
+ParkZ = 620
+FmaxZ = 45000
+MinA = -109.5
+MaxA = 109.5
+ParkA = 0
+FmaxA = 10440
+MinC = -240
+MaxC = 240
+ParkC = 90
+FmaxC = 18000
+MillOffs = 217.0
+ChSawLen = 90.0
+MinX1 = 290.0
+MaxX1 = 3760.0
+ParkX1 = 480.0
+FmaxX1 = 45000
+MinX2 = -3760.0
+MaxX2 = -290.0
+ParkX2 = -480.0
+FmaxX2 = 45000
+LoadT = 1800.0
+UnloadT = -1800
+TurnerOffs = 0
+MaxHOpen = 460
+MaxVOpen = 280
+LenToPress = 500
+MinRX = -10
+MidRX = 130
+MaxRX = 430
+DeltaTabY = 0
+DeltaTabZ = 0
+DimTabY = 500
+DimTabX = 34000
+DistBack = 880
+StartRotation = true
+AutomaticRotation = true
+AutoRotMinLen = 2600
+MaxUnloadLen = 0
+DefTcPos = 'T1'
+CoeffVM = 0.5
+
+-- Aggiornamento con dati da B&W
+local sData = EgtGetSourceDir().."Beam\\EbwData.lua"
+if EgtExistsFile( sData) then
+   local Machine = dofile( sData)
+   if Machine then
+      if Machine.Offsets then
+         if Machine.Offsets.TIPO_CN == 0 then
+            NumericalControl =  'SIEMENS'
+         end
+         if Machine.Offsets.MIN_Y then MinY = Machine.Offsets.MIN_Y end
+         if Machine.Offsets.MAX_Y then MaxY = Machine.Offsets.MAX_Y end
+         if Machine.Offsets.MIN_Z then MinZ = Machine.Offsets.MIN_Z end
+         if Machine.Offsets.MAX_Z then MaxZ = Machine.Offsets.MAX_Z end
+         if Machine.Offsets.MIN_A then MinA = Machine.Offsets.MIN_A end
+         if Machine.Offsets.MAX_A then MaxA = Machine.Offsets.MAX_A end
+         if Machine.Offsets.MIN_C then MinC = Machine.Offsets.MIN_C end
+         if Machine.Offsets.MAX_C then MaxC = Machine.Offsets.MAX_C end
+         if Machine.Offsets.MILL_PIVOT then MillOffs = - Machine.Offsets.MILL_PIVOT end
+         if Machine.Offsets.MIN_X1 then MinX1 = Machine.Offsets.MIN_X1 end
+         if Machine.Offsets.MAX_X1 then MaxX1 = Machine.Offsets.MAX_X1 end
+         if Machine.Offsets.MIN_X2 then MinX2 = Machine.Offsets.MIN_X2 end
+         if Machine.Offsets.MAX_X2 then MaxX2 = Machine.Offsets.MAX_X2 end
+         ParkX1 = Machine.Offsets.PARK_X1 or ParkX1
+         ParkX2 = Machine.Offsets.PARK_X2 or ParkX2
+         if Machine.Offsets.BEAM_LOAD then LoadT = Machine.Offsets.BEAM_LOAD end
+         if Machine.Offsets.BEAM_UNLOAD then UnloadT = Machine.Offsets.BEAM_UNLOAD end
+         TurnerOffs = Machine.Offsets.TURN_OFFS or TurnerOffs
+         if Machine.Offsets.TAB_OFFSET_Y then DeltaTabY = Machine.Offsets.TAB_OFFSET_Y end
+         if Machine.Offsets.TAB_OFFSET_Z then DeltaTabZ = Machine.Offsets.TAB_OFFSET_Z end
+         if Machine.Offsets.NOULOAD then MaxUnloadLen = Machine.Offsets.NOULOAD end
+      end
+      ParkY = EgtClamp( ParkY, MinY, MaxY)
+      ParkZ = EgtClamp( ParkZ, MinZ, MaxZ)
+      ParkA = EgtClamp( ParkA, MinA, MaxA)
+      ParkC = EgtClamp( ParkC, MinC, MaxC)
+   end
+end
+
+EmtGeneral {
+      File='Saomad-KAIROS-MK1.nge',
+      Offset = Vector3d( 0.0, -35.34, -804.0),
+      AxisMaxAdjust = 30,
+      AxisMaxRotAdj = 0.5,
+      ExitMaxAdjust = 30,
+      ExitMaxRotAdj = 0.5,
+      AngDeltaMinForHome = 165,
+      Special = 'Saomad-KAIROS-MK1.mlse',
+      Processor = 'Saomad-KAIROS-MK1.mlpe'}
+local BaseId = EmtBase {
+      Name = 'Base',
+      Geo='BASE/GEO',
+      Aux={'BASE/SOLID', 'BASE/LOAD', 'BASE/UNLOAD','BASE/TC', 'BASE/SIGN', 'BASE/COLLISION'}}
+EmtAxis {
+      Name = 'RX1',
+      Parent = 'Base',
+      Type = MCH_AT.LINEAR,
+      Dir = X_AX(),
+      Pos = Point3d( -1194.4, -513.5, -52.4),
+      Stroke = {MinRX, MaxRX},
+      Home = MinRX,
+      Geo = 'RX1_AXIS/GEO',
+      Aux = {'RX1_AXIS/SOLID', 'RX1_AXIS/COLLISION'}}
+EmtAxis {
+      Name = 'RX2',
+      Parent = 'Base',
+      Type = MCH_AT.LINEAR,
+      Dir = -X_AX(),
+      Pos = Point3d( 1194.4, -513.5, -52.4),
+      Stroke = {MinRX, MaxRX},
+      Home = MinRX,
+      Geo = 'RX2_AXIS/GEO',
+      Aux = {'RX2_AXIS/SOLID', 'RX2_AXIS/COLLISION'}}
+local YId = EmtAxis {
+      Name = 'Y',
+      Parent = 'Base',
+      Token = 'Y1',
+      Type = MCH_AT.LINEAR,
+      Dir = Y_AX(),
+      Pos = Point3d( -639.5, 372.66, 945.7),
+      Stroke = {MinY, MaxY},
+      Home = ParkY,
+      Geo = 'Y_AXIS/GEO',
+      Aux = 'Y_AXIS/SOLID'}
+EmtAxis {
+      Name = 'Z',
+      Parent = 'Y',
+      Token = 'Z1',
+      Type = MCH_AT.LINEAR,
+      Dir = Z_AX(),
+      Pos = Point3d( -19.25, -113.54, 790.0),
+      Stroke = {MinZ, MaxZ},
+      Home = ParkZ,
+      Geo = 'Z_AXIS/GEO',
+      Aux = {'Z_AXIS/SOLID', 'Z_AXIS/COLLISION'}}
+local CId = EmtAxis {
+      Name = 'C',
+      Parent = 'Z',
+      Token = 'C1',
+      Type = MCH_AT.ROTARY,
+      Dir = -Z_AX(),
+      Pos = Point3d( 0, 0, 0),
+      Stroke = {MinC, MaxC},
+      Home = ParkC,
+      Geo = 'C_AXIS/GEO',
+      Aux = {'C_AXIS/SOLID', 'C_AXIS/COLLISION'}}
+EmtAxis {
+      Name = 'A',
+      Parent = 'C',
+      Token = 'A1',
+      Type = MCH_AT.ROTARY,
+      Dir = X_AX(),
+      Pos = Point3d( 0, 0, MillOffs),
+      Stroke = {MinA, MaxA},
+      Home = ParkA,
+      Geo = 'A_AXIS/GEO',
+      Aux = {'A_AXIS/SOLID', 'A_AXIS/COLLISION'}}
+-- Frese
+local H1Id = EmtHead {
+      Name = 'H1',
+      Parent = 'A',
+      HSet = 'H1',
+      Type = MCH_HT.STD,
+      Pos = Point3d( 0, 0, 0),
+      TDir = Z_AX(),
+      ADir = X_AX(),
+      Rot1W = 2,
+      OthColl = {'A/SOLID', 'C/SOLID'},
+      Geo = 'H1_HEAD/GEO'}
+EgtSetInfo( H1Id, 'ZMAXONROT', '1,60')
+-- Sega a catena
+if ChainSaw then
+   EmtAxis {
+         Name = 'CS',
+         Parent = 'A',
+         Token = '**',
+         Type = MCH_AT.ROTARY,
+         Dir = Z_AX(),
+         Pos = Point3d( 0, 0, 0),
+         Stroke = { -90, 90},
+         Home = 0,
+         Geo = 'CS_AXIS/GEO'}
+   local H3Id = EmtHead {
+         Name = 'H3',
+         Parent = 'CS',
+         HSet = 'H1',
+         Type = MCH_HT.STD,
+         Pos = Point3d( 0, 0, -ChSawLen),
+         TDir = X_AX(),
+         ADir = Z_AX(),
+         Rot1W = 0.2,
+         SolCh = MCH_SCC.ADIR_NEAR,
+         OthColl = {'A/SOLID', 'C/SOLID'},
+         Geo = 'H3_HEAD/GEO'}
+   EgtSetInfo( H3Id, 'ZMAXONROT', '1,5')
+end
+-- Morse
+local X1Id = EmtAxis {
+      Name = 'X1',
+      Token = 'X1',
+      Parent = 'Base',
+      Type = MCH_AT.LINEAR,
+      Dir = -X_AX(),
+      Pos = Point3d( -953.0, 111.75, 1450.0),
+      Stroke = { MinX1, MaxX1},
+      Home = ParkX1,
+      Geo = 'X1_AXIS/GEO',
+      Aux = {'X1_AXIS/SOLID', 'X1_AXIS/COLLISION'}}
+local PX1Id = EmtAxis {
+      Name = 'PX1',
+      Parent = 'X1',
+      Type = MCH_AT.LINEAR,
+      Dir = -Y_AX(),
+      Pos = Point3d( -904.0, -276.5, 1449.0),
+      Stroke = { 0, MaxHOpen},
+      Home = MaxHOpen,
+      Geo = 'PX1_AXIS/GEO',
+      Aux = {'PX1_AXIS/SOLID', 'PX1_AXIS/COLLISION'}}
+local QX1Id = EmtAxis {
+      Name = 'QX1',
+      Parent = 'X1',
+      Type = MCH_AT.LINEAR,
+      Dir = Z_AX(),
+      Pos = Point3d( -904.0, -276.5, 1449.0),
+      Stroke = { 0, MaxVOpen},
+      Home = MaxVOpen,
+      Geo = 'QX1_AXIS/GEO',
+      Aux = {'QX1_AXIS/SOLID', 'QX1_AXIS/COLLISION'}}
+local X2Id = EmtAxis {
+      Name = 'X2',
+      Token = 'X2',
+      Parent = 'Base',
+      Type = MCH_AT.LINEAR,
+      Dir = -X_AX(),
+      Pos = Point3d( 953.0, 111.75, 1450.0),
+      Stroke = { MinX2, MaxX2},
+      Home = ParkX2,
+      Geo = 'X2_AXIS/GEO',
+      Aux = {'X2_AXIS/SOLID', 'X2_AXIS/COLLISION'}}
+local PX2Id = EmtAxis {
+      Name = 'PX2',
+      Parent = 'X2',
+      Type = MCH_AT.LINEAR,
+      Dir = -Y_AX(),
+      Pos = Point3d( 904.0, -276.5, 1449.0),
+      Stroke = { 0, MaxHOpen},
+      Home = MaxHOpen,
+      Geo = 'PX2_AXIS/GEO',
+      Aux = {'PX2_AXIS/SOLID', 'PX2_AXIS/COLLISION'}}
+local QX2Id = EmtAxis {
+      Name = 'QX2',
+      Parent = 'X2',
+      Type = MCH_AT.LINEAR,
+      Dir = Z_AX(),
+      Pos = Point3d( 904.0, -276.5, 1449.0),
+      Stroke = { 0, MaxVOpen},
+      Home = MaxVOpen,
+      Geo = 'QX2_AXIS/GEO',
+      Aux = {'QX2_AXIS/SOLID', 'QX2_AXIS/COLLISION'}}
+EmtAxis {
+      Name = 'T',
+      Parent = 'Base',
+      --Token = '**',
+      Type = MCH_AT.LINEAR,
+      Dir = - X_AX(),
+      Pos = Point3d( 0, 613.16, -830.037),
+      Stroke = { -30000, 30000},
+      Home = LoadT,
+      Geo = 'T_AXIS/GEO'}
+EmtTable {
+      Name = 'Tab',
+      Parent = 'T',
+      Type = MCH_TT.FLAT,
+      Ref1 = Point3d( -DimTabX, DeltaTabY - DimTabY, DeltaTabZ),
+      Scale = { DimTabX / 20000, DimTabY / 500, 1},
+      Geo = 'TABLE/GEO',
+      Aux = 'TABLE/SOLID'}
+-- ToolChanger
+local ptTcCen = Point3d( 0, 1633.0, 79.2)
+EmtTcPos {
+      Name = 'T1',
+      Parent = 'Base',
+      Pos = ptTcCen + VectorFromPolar( 400, -3 * 22.5),
+      TDir = Z_AX(),
+      ADir = X_AX(),
+      Geo = 'BASE/T1'}
+EmtTcPos {
+      Name = 'T2',
+      Parent = 'Base',
+      Pos = ptTcCen + VectorFromPolar( 400, -2 * 22.5),
+      TDir = Z_AX(),
+      ADir = X_AX(),
+      Geo = 'BASE/T2'}
+EmtTcPos {
+      Name = 'T3',
+      Parent = 'Base',
+      Pos = ptTcCen + VectorFromPolar( 400, -1 * 22.5),
+      TDir = Z_AX(),
+      ADir = X_AX(),
+      Geo = 'BASE/T3'}
+EmtTcPos {
+      Name = 'T4',
+      Parent = 'Base',
+      Pos = ptTcCen + VectorFromPolar( 400, 0 * 22.5),
+      TDir = Z_AX(),
+      ADir = X_AX(),
+      Geo = 'BASE/T4'}
+EmtTcPos {
+      Name = 'T5',
+      Parent = 'Base',
+      Pos = ptTcCen + VectorFromPolar( 400, 1 * 22.5),
+      TDir = Z_AX(),
+      ADir = X_AX(),
+      Geo = 'BASE/T5'}
+EmtTcPos {
+      Name = 'T6',
+      Parent = 'Base',
+      Pos = ptTcCen + VectorFromPolar( 400, 2 * 22.5),
+      TDir = Z_AX(),
+      ADir = X_AX(),
+      Geo = 'BASE/T6'}
+EmtTcPos {
+      Name = 'T7',
+      Parent = 'Base',
+      Pos = ptTcCen + VectorFromPolar( 400, 3 * 22.5),
+      TDir = Z_AX(),
+      ADir = X_AX(),
+      Geo = 'BASE/T7'}
+EmtTcPos {
+      Name = 'T8',
+      Parent = 'Base',
+      Pos = ptTcCen + VectorFromPolar( 400, 4 * 22.5),
+      TDir = Z_AX(),
+      ADir = X_AX(),
+      Geo = 'BASE/T8'}
+EmtTcPos {
+      Name = 'T9',
+      Parent = 'Base',
+      Pos = ptTcCen + VectorFromPolar( 400, 5 * 22.5),
+      TDir = Z_AX(),
+      ADir = X_AX(),
+      Geo = 'BASE/T9'}
+EmtTcPos {
+      Name = 'T10',
+      Parent = 'Base',
+      Pos = ptTcCen + VectorFromPolar( 400, 6 * 22.5),
+      TDir = Z_AX(),
+      ADir = X_AX(),
+      Geo = 'BASE/T10'}
+EmtTcPos {
+      Name = 'T11',
+      Parent = 'Base',
+      Pos = ptTcCen + VectorFromPolar( 400, 7 * 22.5),
+      TDir = Z_AX(),
+      ADir = X_AX(),
+      Geo = 'BASE/T11'}
+EmtTcPos {
+      Name = 'T12',
+      Parent = 'Base',
+      Pos = ptTcCen + VectorFromPolar( 400, 8 * 22.5),
+      TDir = Z_AX(),
+      ADir = X_AX(),
+      Geo = 'BASE/T12'}
+EmtTcPos {
+      Name = 'T13',
+      Parent = 'Base',
+      Pos = ptTcCen + VectorFromPolar( 400, 9 * 22.5),
+      TDir = Z_AX(),
+      ADir = X_AX(),
+      Geo = 'BASE/T13'}
+EmtTcPos {
+      Name = 'T14',
+      Parent = 'Base',
+      Pos = ptTcCen + VectorFromPolar( 400, 10 * 22.5),
+      TDir = Z_AX(),
+      ADir = X_AX(),
+      Geo = 'BASE/T14'}
+EmtTcPos {
+      Name = 'T15',
+      Parent = 'Base',
+      Pos = ptTcCen + VectorFromPolar( 400, 11 * 22.5),
+      TDir = Z_AX(),
+      ADir = X_AX(),
+      Geo = 'BASE/T15'}
+if ChainSaw then
+   EmtTcPos {
+         Name = 'T16',
+         Parent = 'Base',
+         Pos = ptTcCen + VectorFromPolar( 400, 12 * 22.5) - ChSawLen * Z_AX(),
+         TDir = -Y_AX(),
+         ADir = Z_AX(),
+         Geo = 'BASE/T16CS'}
+else
+   EmtTcPos {
+         Name = 'T16',
+         Parent = 'Base',
+         Pos = ptTcCen + VectorFromPolar( 400, 12 * 22.5),
+         TDir = Z_AX(),
+         ADir = X_AX(),
+         Geo = 'BASE/T16'}
+end
+EmtTcPos {
+      Name = 'T17',
+      Parent = 'Base',
+      Pos = Point3d( 0.0, 1693.5, 534.5),
+      TDir = Z_AX(),
+      ADir = X_AX(),
+      Geo = 'BASE/T17'}
+
+-- Aggiusto posizioni geometriche
+local vtMove = Vector3d( 0, ( DeltaTabY - 0), ( DeltaTabZ - 0))
+local vtMoveY = Vector3d( 0, 0, ( DeltaTabZ - 0))
+EgtMove( EgtGetFirstNameInGroup( BaseId, 'SOLID'), vtMove, GDB_RT.GLOB)
+EgtMove( EgtGetFirstNameInGroup( BaseId, 'LOAD'), vtMove, GDB_RT.GLOB)
+EgtMove( EgtGetFirstNameInGroup( BaseId, 'UNLOAD'), vtMove, GDB_RT.GLOB)
+EgtMove( EgtGetFirstNameInGroup( BaseId, 'TC'), vtMove, GDB_RT.GLOB)
+EgtMove( EgtGetFirstNameInGroup( BaseId, 'SIGN'), vtMove, GDB_RT.GLOB)
+EgtMove( EgtGetFirstNameInGroup( BaseId, 'COLLISION'), vtMove, GDB_RT.GLOB)
+EgtMove( EgtGetFirstNameInGroup( X1Id, 'SOLID'), vtMove, GDB_RT.GLOB)
+EgtMove( EgtGetFirstNameInGroup( X1Id, 'COLLISION'), vtMove, GDB_RT.GLOB)
+EgtMove( EgtGetFirstNameInGroup( PX1Id, 'SOLID'), vtMove, GDB_RT.GLOB)
+EgtMove( EgtGetFirstNameInGroup( PX1Id, 'COLLISION'), vtMove, GDB_RT.GLOB)
+EgtMove( EgtGetFirstNameInGroup( QX1Id, 'SOLID'), vtMove, GDB_RT.GLOB)
+EgtMove( EgtGetFirstNameInGroup( QX1Id, 'COLLISION'), vtMove, GDB_RT.GLOB)
+EgtMove( EgtGetFirstNameInGroup( X2Id, 'SOLID'), vtMove, GDB_RT.GLOB)
+EgtMove( EgtGetFirstNameInGroup( X2Id, 'COLLISION'), vtMove, GDB_RT.GLOB)
+EgtMove( EgtGetFirstNameInGroup( PX2Id, 'SOLID'), vtMove, GDB_RT.GLOB)
+EgtMove( EgtGetFirstNameInGroup( PX2Id, 'COLLISION'), vtMove, GDB_RT.GLOB)
+EgtMove( EgtGetFirstNameInGroup( QX2Id, 'SOLID'), vtMove, GDB_RT.GLOB)
+EgtMove( EgtGetFirstNameInGroup( QX2Id, 'COLLISION'), vtMove, GDB_RT.GLOB)
+EgtMove( EgtGetFirstNameInGroup( YId, 'SOLID'), vtMoveY, GDB_RT.GLOB)
+
+-- Assegno identificativi alle spie delle morse
+PX1LightId = EgtGetFirstNameInGroup( EgtGetFirstNameInGroup( X1Id, 'SOLID') or GDB_ID.NULL, 'Light')
+PX2LightId = EgtGetFirstNameInGroup( EgtGetFirstNameInGroup( X2Id, 'SOLID') or GDB_ID.NULL, 'Light')
+
+---------------------------------------------------------------------
+-- Funzioni richiamate per modificare i dati macchina in casi particolari
+--function OnSetTable()
+--end
+
+---------------------------------------------------------------------
+function OnSetHead()
+   -- Se testa con sega a catena
+   if EMC.HEAD == 'H3' then
+      -- aggiustamenti per distanza
+      local dDist = EgtIf( EMC.DIST and abs( EMC.DIST) > 1, EMC.DIST, ChSawLen)
+      EmtModifyExitPosition( EMC.HEAD, EMC.EXIT, Point3d( 0, 0, -dDist))
+      if not EMC.VER or EMC.VER < '2.5h2' then
+         local vtMove = Point3d( 0, 0, -dDist) - Point3d( EMC.EXITPOS)
+         local ExitId = EgtGetFirstNameInGroup( EgtGetHeadId( EMC.HEAD), 'T'..tostring( EMC.EXIT))
+         EgtMove( ExitId, vtMove)
+      end
+      -- recupero valore asse CS bloccato
+      local sVal = EgtGetMachiningParam( MCH_MP.BLOCKEDAXIS)
+      local dPosCS = tonumber( sVal:sub( 4) or '')
+      EmtModifyAxisHome( 'C', GetChainSawCHomeFromVirtualAxis( dPosCS))
+   else
+      EmtModifyAxisHome( 'C', ParkC)
+   end
+end
+
+---------------------------------------------------------------------
+-- Funzione che calcola l'angolo Home di C per la sega a catena dal valore dell'asse virtuale
+function GetChainSawCHomeFromVirtualAxis( dPosCS)
+   -- se CS=0 -> HomeC = -90
+   if abs( dPosCS) < 0.1 then
+      return 90
+   -- altrimenti CS=90 -> HomeC = -180
+   else
+      return 0
+   end
+end
+
+---------------------------------------------------------------------
+-- Funzione per impostare spia stato morsa carrello X1
+function SetPX1Light( bClosed)
+   if not PX1LightId then return end
+   EgtSetColor( PX1LightId, EgtIf( bClosed, 'RED', 'LIME')) 
+   if bClosed then
+      EgtSetInfo( PX1LightId, 'On', '1')
+   else
+      EgtRemoveInfo( PX1LightId, 'On')
+   end
+end
+
+---------------------------------------------------------------------
+-- Funzione per leggere lo stato della morsa carrello X1
+function GetPX1Light()
+   if not PX1LightId then return false end
+   return ( EgtGetInfo( PX1LightId, 'On') == '1')
+end
+
+---------------------------------------------------------------------
+-- Funzione per impostare spia stato morsa carrello X2
+function SetPX2Light( bClosed)
+   if not PX2LightId then return end
+   EgtSetColor( PX2LightId, EgtIf( bClosed, 'RED', 'LIME')) 
+   if bClosed then
+      EgtSetInfo( PX2LightId, 'On', '1')
+   else
+      EgtRemoveInfo( PX2LightId, 'On')
+   end
+end
+
+---------------------------------------------------------------------
+-- Funzione per leggere lo stato della morsa carrello X2
+function GetPX2Light()
+   if not PX2LightId then return false end
+   return ( EgtGetInfo( PX2LightId, 'On') == '1')
+end
+
+---------------------------------------------------------------------
+-- Funzione per resettare tutte le attivazioni della macchina
+function OnResetMachine()
+   EmtUnlinkAllRawPartsFromGroups()
+   EmtUnlinkAllFixturesFromGroups()
+   SetPX1Light( false)
+   SetPX2Light( false)
+   -- nascondo Vmill
+   local nRawId = EgtGetFirstRawPart()
+   while nRawId do
+      local nVmId = EgtGetFirstNameInGroup( nRawId, 'VMill')
+      local nId = EgtGetFirstInGroup( nRawId)
+      while nId do
+         EgtSetStatus( nId, EgtIf( nId ~= nVmId, GDB_ST.ON, GDB_ST.OFF))
+         nId = EgtGetNext( nId)
+      end
+      nRawId = EgtGetNextRawPart( nRawId)
+   end
+   EgtSetStatus( EgtGetFirstNameInGroup( GDB_ID.ROOT, 'VMill') or GDB_ID.NULL, GDB_ST.OFF)
+end