Imports System.Collections.ObjectModel
Imports System.IO
Imports EgtUILib
Imports EgtWPFLib5

Public Module CurrentMachine

   ' Nome macchina corrente
   Private m_sMachineName As String = String.Empty
   ' Direttorio macchina corrente
   Private m_sMachDir As String = String.Empty
   ' File ini della macchina
   Private m_sMachIniFile As String = String.Empty
   ' File script della macchina
   Private m_sMachScriptDir As String = String.Empty

   ' box della tavola macchina
   Private m_b3Tab As New BBox3d
   Friend ReadOnly Property b3Tab As BBox3d
      Get
         Return m_b3Tab
      End Get
   End Property
#Region "Proprietà che leggono e scrivono i valori anche da o su file ini"

   Friend ReadOnly Property sMachineName As String
      Get
         Return m_sMachineName
      End Get
   End Property

   Friend ReadOnly Property sMachDir As String
      Get
         Return m_sMachDir
      End Get
   End Property

   Friend ReadOnly Property sMachIniFile As String
      Get
         Return m_sMachIniFile
      End Get
   End Property

   Friend ReadOnly Property sMachScriptDir As String
      Get
         Return m_sMachScriptDir
      End Get
   End Property

#End Region

#Region "Init"

   Sub InitCurrentMachine(sMachinesRootDir As String, sMachineName As String)
      ' Nome macchina corrente
      m_sMachineName = sMachineName
      ' Impostazione direttorio macchina
      m_sMachDir = sMachinesRootDir & "\" & sMachineName
      ' Impostazione path MachIni file
      m_sMachIniFile = sMachinesRootDir & "\" & sMachineName & "\" & sMachineName & ".ini"
      ' impostazione cartella script
      m_sMachScriptDir = sMachinesRootDir & "\" & sMachineName & "\Scripts"
      ' Disabilito segnalazione modificato
      Dim DisableMgr As New DisableModifiedMgr
      ' recupero box macchina
      Dim nQqqId = EgtAddMachGroup("qqq")
      EgtSetTable("Tab")
      EgtGetTableArea(1, m_b3Tab)
      EgtRemoveMachGroup(nQqqId Or GDB_ID.NULL)
      ' Ripristino stato segnalazione modifica
      DisableMgr.ReEnable()
   End Sub

#End Region 'Init

#Region "Methods"

   Public Sub CreateMachineTable()
      ' Disabilito segnalazione modificato
      Dim DisableMgr As New DisableModifiedMgr
      ' Recupero dati tavola (creando gruppo di lavoro temporaneo)
      Dim nTempId = EgtAddMachGroup("qqq")
      EgtSetTable("Tab")
      Dim b3Tab As New BBox3d
      EgtGetTableArea(1, b3Tab)
      Dim dTabX = b3Tab.DimX
      Dim dTabY = b3Tab.DimY()
      EgtRemoveMachGroup(nTempId)
      ' Disegno tavola
      Dim nTabPartId As Integer = EgtCreateGroup(GDB_ID.ROOT)
      EgtSetLevel(nTabPartId, GDB_LV.SYSTEM)
      EgtSetMode(nTabPartId, GDB_MD.LOCKED)
      EgtSetStatus(nTabPartId, GDB_ST.ON_)
      EgtSetName(nTabPartId, TABLE)
      Dim nTabLayerId As Integer = EgtCreateGroup(nTabPartId)
      EgtSetName(nTabLayerId, TABLE)
      Dim nTabOutlineId As Integer = EgtCreateRectangle2P(nTabLayerId, New Point3d(0, 0, 0), New Point3d(dTabX, dTabY, 0))
      EgtSetName(nTabOutlineId, TABLE_OUTLINE)
      ' Ripristino stato segnalazione modifica
      DisableMgr.ReEnable()
   End Sub

#End Region 'Methods

End Module