DarioS
e65174209d
- piccole modifiche per togliere warning di compilazione - aggiunta icona standard Egaltech.
106 lines
3.1 KiB
VB.net
106 lines
3.1 KiB
VB.net
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
|