-- 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