Emmanuele Sassi
7186aec547
- Aggiunta pagina MTables con abbozzo di gestione tabelle. - Aggiunta gestione della visualizzazione dei gruppi macchina. - Aggiunta possibilità di eseguire script di disposizione quando si passa in lavorazione.
113 lines
4.8 KiB
VB.net
113 lines
4.8 KiB
VB.net
Imports EgtUILib
|
|
|
|
Module IniFile
|
|
|
|
Friend Enum ProjectModeOpt As Integer
|
|
DRAW = 1
|
|
MACHINING = 2
|
|
End Enum
|
|
|
|
Friend Enum SceneSelModeOpt As Integer
|
|
NULL = 0
|
|
PARTCURVES = 1
|
|
PARTSURFACES = 2
|
|
PARTCURVESANDSURFACES = 3
|
|
'MACHINEREF = 4
|
|
ALL = 99
|
|
End Enum
|
|
|
|
' MainWindow Page
|
|
Friend m_nInstance As Integer = 0
|
|
Friend m_nUserLevel As Integer = 1
|
|
Friend m_nKeyLevel As Integer = 0
|
|
Friend m_nKeyOptions As UInteger = 0
|
|
Friend Enum KEY_OPT As UInteger
|
|
BASE = 1
|
|
End Enum
|
|
Friend m_sIniFile As String
|
|
Friend m_sTempDir As String
|
|
Friend m_sMachinesRoot As String
|
|
Friend m_sTablesRoot As String
|
|
|
|
Friend m_ProjectMode As ProjectModeOpt
|
|
Friend m_bMmUnits As Boolean
|
|
Friend m_bDrawShowGrid As Boolean
|
|
Friend m_bMachiningShowGrid As Boolean = False
|
|
Friend m_bShowGridFrame As Boolean
|
|
' Project Page
|
|
Friend m_ProjectSceneContext As Integer = 0
|
|
Friend m_bScriptRunning As Boolean = False
|
|
Friend m_bStopScript As Boolean = False
|
|
Friend m_DDFFilePath As String = String.Empty
|
|
' Grid data
|
|
Friend dSnapStepMm As Double
|
|
Friend dSnapStepInch As Double
|
|
Friend nMinLineSStep As Integer
|
|
Friend nMajLineSStep As Integer
|
|
Friend nExtSStep As Integer
|
|
Friend MinLnColor As Color3d
|
|
Friend MajLnColor As Color3d
|
|
' TopCommandBar
|
|
Friend m_MruFiles As New MruList
|
|
Friend m_MruScripts As New MruList
|
|
Friend m_MruDoors As New MruList
|
|
' Current Machine
|
|
Friend m_sMachineName As String
|
|
Friend m_sCurrMachIniFilePath As String
|
|
Friend m_sCurrMachToolsDirPath As String
|
|
Friend m_sCurrMachScriptsDirPath As String
|
|
' Variabile che contiene la path della cartella che contiene i ToolMaker
|
|
Friend m_sToolMakersDir As String = String.Empty
|
|
' Variabile che contiene il contesto della scena presente nel database utensili
|
|
Friend m_ToolsDbSceneContext As Integer = 0
|
|
' Variabile che dice se sono abilitati i gruppi di lavorazione
|
|
Friend m_bMachiningGroup As Boolean
|
|
|
|
Public Function GetPrivateProfileInt(IpAppName As String, IpKeyName As String, nDefault As Integer) As Integer
|
|
Return EgtUILib.GetPrivateProfileInt(IpAppName, IpKeyName, nDefault, m_sIniFile)
|
|
End Function
|
|
|
|
Public Function GetPrivateProfileDouble(IpAppName As String, IpKeyName As String, nDefault As Integer) As Double
|
|
Return EgtUILib.GetPrivateProfileDouble(IpAppName, IpKeyName, nDefault, m_sIniFile)
|
|
End Function
|
|
|
|
Public Function GetPrivateProfileString(IpAppName As String, IpKeyName As String, IpDefault As String, ByRef IpString As String) As Integer
|
|
Return EgtUILib.GetPrivateProfileString(IpAppName, IpKeyName, IpDefault, IpString, m_sIniFile)
|
|
End Function
|
|
|
|
Public Function GetPrivateProfileColor(IpAppName As String, IpKeyName As String, ByRef Col As EgtUILib.EgtInterface.Color3d) As Boolean
|
|
Return EgtUILib.GetPrivateProfileColor(IpAppName, IpKeyName, Col, m_sIniFile)
|
|
End Function
|
|
|
|
Public Function GetPrivateProfileWinPos(IpAppName As String, IpKeyName As String, ByRef nFlag As Integer, ByRef nLeft As Integer, ByRef nTop As Integer, ByRef nWidth As Integer, ByRef nHeight As Integer) As Boolean
|
|
Return EgtUILib.GetPrivateProfileWinPos(IpAppName, IpKeyName, nFlag, nLeft, nTop, nWidth, nHeight, m_sIniFile)
|
|
End Function
|
|
|
|
Public Function GetPrivateProfileZoomWin(IpAppName As String, IpKeyName As String, ByRef bOutline As Boolean, ByRef Col As EgtUILib.EgtInterface.Color3d) As Boolean
|
|
Return EgtUILib.GetPrivateProfileZoomWin(IpAppName, IpKeyName, bOutline, Col, m_sIniFile)
|
|
End Function
|
|
|
|
Public Function GetPrivateProfileFloatingWinPos(lpAppName As String, lpKeyName As String, ByRef nState As String, ByRef nIndex As Integer, ByRef nLeft As Integer, ByRef nTop As Integer) As Boolean
|
|
Dim sVal As String = String.Empty
|
|
GetPrivateProfileString(lpAppName, lpKeyName, "", sVal)
|
|
Dim sItems() As String = sVal.Split(",".ToCharArray)
|
|
If sItems.Count() >= 4 Then
|
|
nState = sItems(0)
|
|
nIndex = CInt(sItems(1))
|
|
nLeft = CInt(sItems(2))
|
|
nTop = CInt(sItems(3))
|
|
Return True
|
|
End If
|
|
Return False
|
|
End Function
|
|
|
|
Public Function WritePrivateProfileString(IpAppName As String, IpKeyName As String, ByRef IpString As String) As Boolean
|
|
Return EgtUILib.WritePrivateProfileString(IpAppName, IpKeyName, IpString, m_sIniFile)
|
|
End Function
|
|
|
|
Public Function WritePrivateProfileWinPos(IpAppName As String, IpKeyName As String, ByRef nFlag As Integer, ByRef nLeft As Integer, ByRef nTop As Integer, ByRef nWidth As Integer, ByRef nHeight As Integer) As Boolean
|
|
Return EgtUILib.WritePrivateProfileWinPos(IpAppName, IpKeyName, nFlag, nLeft, nTop, nWidth, nHeight, m_sIniFile)
|
|
End Function
|
|
|
|
End Module
|