Emmanuele Sassi
0f32dde7db
- Aggiunta voce SplitArcs nelle MachOptions. - Aggiunto modulo con parametri utili della finestra Options. - Piccola miglioria progetto selezione avanzata(scalo le linee sul piano di vista corrente).
76 lines
3.4 KiB
VB.net
76 lines
3.4 KiB
VB.net
Imports System.Collections.ObjectModel
|
|
|
|
Public Module OptionModule
|
|
|
|
' Parametri che contengono lista delle lingue disponibili e lingua selezionata
|
|
Friend m_LanguageList As New ObservableCollection(Of Language)
|
|
Friend m_SelectedLanguage As Language
|
|
|
|
' Variabili che indicano per ogni tipo di lavorazione quale geometria è selezionabile
|
|
Friend m_SelGeomSawing As SceneSelModeOpt
|
|
Friend m_SelGeomDrilling As SceneSelModeOpt
|
|
Friend m_SelGeomMilling As SceneSelModeOpt
|
|
Friend m_SelGeomPocketing As SceneSelModeOpt
|
|
Friend m_SelGeomMortising As SceneSelModeOpt
|
|
Friend m_SelGeomSawRoughing As SceneSelModeOpt
|
|
Friend m_SelGeomSawFinishing As SceneSelModeOpt
|
|
|
|
' Variabile che indica se quando viene creata una nuova operazione di lavorazione deve essere aggiunta in fondo
|
|
' alla fase o subito dopo la lavorazione selezionata
|
|
Friend m_bNewMachiningIsLastOne As Boolean
|
|
|
|
' inizializzazione lettura variabili ad inizio programma
|
|
Friend Sub InitOptionModule()
|
|
' Inizializzo variabili che indicano per ogni tipo di lavorazione quale geometria è selezionabile
|
|
Dim Temp As Integer = 0
|
|
Temp = GetPrivateProfileInt(S_MACH, K_SELGEOMSAWING, -1)
|
|
m_SelGeomSawing = If(Temp < 0 Or Temp > 3, SceneSelModeOpt.PARTCURVESANDSURFACES, DirectCast(Temp, SceneSelModeOpt))
|
|
Temp = GetPrivateProfileInt(S_MACH, K_SELGEOMDRILLING, -1)
|
|
m_SelGeomDrilling = If(Temp < 0 Or Temp > 3, SceneSelModeOpt.PARTCURVESANDSURFACES, DirectCast(Temp, SceneSelModeOpt))
|
|
Temp = GetPrivateProfileInt(S_MACH, K_SELGEOMMILLING, -1)
|
|
m_SelGeomMilling = If(Temp < 0 Or Temp > 3, SceneSelModeOpt.PARTCURVESANDSURFACES, DirectCast(Temp, SceneSelModeOpt))
|
|
Temp = GetPrivateProfileInt(S_MACH, K_SELGEOMPOCKETING, -1)
|
|
m_SelGeomPocketing = If(Temp < 0 Or Temp > 3, SceneSelModeOpt.PARTCURVESANDSURFACES, DirectCast(Temp, SceneSelModeOpt))
|
|
Temp = GetPrivateProfileInt(S_MACH, K_SELGEOMMORTISING, -1)
|
|
m_SelGeomMortising = If(Temp < 0 Or Temp > 3, SceneSelModeOpt.PARTCURVESANDSURFACES, DirectCast(Temp, SceneSelModeOpt))
|
|
Temp = GetPrivateProfileInt(S_MACH, K_SELGEOMSAWROUGHING, -1)
|
|
m_SelGeomSawRoughing = If(Temp < 0 Or Temp > 3, SceneSelModeOpt.PARTCURVESANDSURFACES, DirectCast(Temp, SceneSelModeOpt))
|
|
Temp = GetPrivateProfileInt(S_MACH, K_SELGEOMSAWFINISHING, -1)
|
|
m_SelGeomSawFinishing = If(Temp < 0 Or Temp > 3, SceneSelModeOpt.PARTCURVESANDSURFACES, DirectCast(Temp, SceneSelModeOpt))
|
|
' Inizializzo variabile che indica posizione nuova operazione di lavorazione
|
|
m_bNewMachiningIsLastOne = If(GetPrivateProfileInt(S_OPTIONS, K_NEWMACHININGISLASTONE, 0) <> 0, True, False)
|
|
End Sub
|
|
|
|
' Classe che identifica una lingua del programma con nome e path del file dei messaggi
|
|
Public Class Language
|
|
|
|
Private m_sName As String
|
|
Private m_sFilePath As String
|
|
|
|
Public Property Name As String
|
|
Get
|
|
Return m_sName
|
|
End Get
|
|
Set(value As String)
|
|
m_sName = value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property FilePath As String
|
|
Get
|
|
Return m_sFilePath
|
|
End Get
|
|
Set(value As String)
|
|
m_sFilePath = value
|
|
End Set
|
|
End Property
|
|
|
|
Sub New(sName As String, sFilePath As String)
|
|
Me.Name = sName
|
|
Me.FilePath = sFilePath
|
|
End Sub
|
|
|
|
End Class
|
|
|
|
End Module
|