EgtCAM5/MachOptionsWindow/MachOptionVM.vb

Imports System.IO
Imports EgtUILib

Namespace EgtCAM5

   Public Class MachOptionVM

      Private m_sSafeZ As String
      Public Property SafeZ As String
         Get
            Return m_sSafeZ
         End Get
         Set(value As String)
            Dim dSafeZ As Double = 0
            If StringToLen(value, dSafeZ) Then
               EgtMdbSetGeneralParam(MCH_GP.SAFEZ, dSafeZ)
               EgtMdbSave()
               m_sSafeZ = value
            End If
         End Set
      End Property

      Private m_sSafeAggrBottZ As String
      Public Property SafeAggrBottZ As String
         Get
            Return m_sSafeAggrBottZ
         End Get
         Set(value As String)
            Dim dSafeAggrBottZ As Double = 0
            If StringToLen(value, dSafeAggrBottZ) Then
               EgtMdbSetGeneralParam(MCH_GP.SAFEAGGRBOTTZ, dSafeAggrBottZ)
               EgtMdbSave()
               m_sSafeAggrBottZ = value
            End If
         End Set
      End Property

      Private m_sHolesTolerance As String
      Public Property HolesTolerance As String
         Get
            Return m_sHolesTolerance
         End Get
         Set(value As String)
            Dim dHolesTolerance As Double = 0
            If StringToLen(value, dHolesTolerance) Then
               EgtMdbSetGeneralParam(MCH_GP.HOLEDIAMTOLER, dHolesTolerance)
               EgtMdbSave()
               m_sHolesTolerance = value
            End If
         End Set
      End Property

      Private m_SplitArcsList As New List(Of MCH_SA)({MCH_SA.NEVER, MCH_SA.GEN_PLANE, MCH_SA.NO_XY_PLANE, MCH_SA.ALWAYS})
      Public ReadOnly Property SplitArcsList As List(Of MCH_SA)
         Get
            Return m_SplitArcsList
         End Get
      End Property

      Private m_SelectedSplitArcs As MCH_SA
      Public Property SelectedSplitArcs As MCH_SA
         Get
            Return m_SelectedSplitArcs
         End Get
         Set(value As MCH_SA)
            EgtMdbSetGeneralParam(MCH_GP.SPLITARCS, value)
            EgtMdbSave()
            m_SelectedSplitArcs = value
         End Set
      End Property

      Private m_ArchivedSetUpList As New List(Of String)
      Public Property ArchivedSetUpList As List(Of String)
         Get
            Return m_ArchivedSetUpList
         End Get
         Set(value As List(Of String))
            m_ArchivedSetUpList = value
         End Set
      End Property

      Public Property SelectedDefaultSetUp As String
         Get
            Return MachOptionModule.m_sSelectedDefaultSetUp
         End Get
         Set(value As String)
            MachOptionModule.m_sSelectedDefaultSetUp = value
            EgtUILib.WritePrivateProfileString(S_SETUP, K_DEFAULT, If(Not IsNothing(value), value, String.Empty), IniFile.m_sCurrMachIniFilePath)
         End Set
      End Property

#Region "Messages"

      Public ReadOnly Property SafeZMsg As String
         Get
            Return EgtMsg(MSG_MACHININGOPTIONPAGE + 1)
         End Get
      End Property

      Public ReadOnly Property SafeAggrBottZMsg As String
         Get
            Return EgtMsg(MSG_MACHININGOPTIONPAGE + 8)
         End Get
      End Property

      Public ReadOnly Property HolesToleranceMsg As String
         Get
            Return EgtMsg(MSG_MACHININGOPTIONPAGE + 9)
         End Get
      End Property

      Public ReadOnly Property SplitArcsMsg As String
         Get
            Return EgtMsg(MSG_MACHININGOPTIONPAGE + 2)
         End Get
      End Property

      Public ReadOnly Property DefaultSetUpMsg As String
         Get
            Return EgtMsg(MSG_MACHININGOPTIONPAGE + 7)
         End Get
      End Property

#End Region

      ' Definizione comandi
      Private m_cmdCloseMachOptions As ICommand

      Sub New()
         ' Leggo distanza di sicurezza
         Dim dVal As Double = 0
         EgtMdbGetGeneralParam(MCH_GP.SAFEZ, dVal)
         m_sSafeZ = LenToString(dVal, 2)
         ' Leggo distanza di sicurezza per rinvii da sotto
         dVal = 0
         EgtMdbGetGeneralParam(MCH_GP.SAFEAGGRBOTTZ, dVal)
         m_sSafeAggrBottZ = LenToString(dVal, 2)
         ' Leggo tolleranza tra diametro punta e diametro foro
         dVal = 0
         EgtMdbGetGeneralParam(MCH_GP.HOLEDIAMTOLER, dVal)
         m_sHolesTolerance = LenToString(dVal, 2)
         ' Leggo tipo di spezzatura archi
         Dim nVal As Integer = 0
         EgtMdbGetGeneralParam(MCH_GP.SPLITARCS, nVal)
         m_SelectedSplitArcs = DirectCast(nVal, MCH_SA)
         ' Riempio lista attrezzaggi salvati
         m_ArchivedSetUpList.Add(String.Empty)
         If Directory.Exists(IniFile.m_sCurrMachSetUpDirPath) Then
            Dim SetUpFileNames() As String = Directory.GetFiles(IniFile.m_sCurrMachSetUpDirPath)
            For FileIndex = 0 To SetUpFileNames.Count - 1
               If Path.GetExtension(SetUpFileNames(FileIndex)).ToLower = ".stu" Then
                  m_ArchivedSetUpList.Add(Path.GetFileNameWithoutExtension(SetUpFileNames(FileIndex)))
               End If
            Next
         End If
         ' Leggo attrezzaggio predefinito
         If EgtUILib.GetPrivateProfileString(S_SETUP, K_DEFAULT, "", MachOptionModule.m_sSelectedDefaultSetUp, IniFile.m_sCurrMachIniFilePath) <= 0 Then
            SelectedDefaultSetUp = Nothing
         Else
            If Not m_ArchivedSetUpList.Contains(MachOptionModule.m_sSelectedDefaultSetUp) Then
               SelectedDefaultSetUp = Nothing
            End If
         End If
      End Sub

#Region "COMMANDS"

#Region "CloseMachOptionsCommand"

      ''' <summary>
      ''' Returns a command that remove the current selected machining.
      ''' </summary>
      Public ReadOnly Property CloseMachOptionsCommand() As ICommand
         Get
            If m_cmdCloseMachOptions Is Nothing Then
               m_cmdCloseMachOptions = New RelayCommand(AddressOf CloseMachOptions)
            End If
            Return m_cmdCloseMachOptions
         End Get
      End Property

      ''' <summary>
      ''' Manage the MachiningDb closing.  This method is invoked by the CloseMachiningDbCommand.
      ''' </summary>
      Public Sub CloseMachOptions()
         ' Chiusura finestra
         For Each Window In Application.Current.Windows
            If TypeOf Window Is MachOptionV Then
               Dim MachOptionsWindow As MachOptionV = DirectCast(Window, MachOptionV)
               MachOptionsWindow.Close()
            End If
         Next
      End Sub

#End Region ' CloseMachOptionsCommand

#End Region    ' COMMANDS

   End Class

End Namespace

Public Class SplitArcTypeConverter
   Implements IValueConverter

   Public Function Convert(value As Object, targetType As Type, parameter As Object, culture As System.Globalization.CultureInfo) As Object Implements IValueConverter.Convert
      Select Case CInt(value)
         Case MCH_SA.NEVER
            Return EgtMsg(MSG_MACHININGOPTIONPAGE + 3)
         Case MCH_SA.GEN_PLANE
            Return EgtMsg(MSG_MACHININGOPTIONPAGE + 4)
         Case MCH_SA.NO_XY_PLANE
            Return EgtMsg(MSG_MACHININGOPTIONPAGE + 5)
         Case Else
            Return EgtMsg(MSG_MACHININGOPTIONPAGE + 6)
      End Select
   End Function

   Public Function ConvertBack(value As Object, targetType As Type, parameter As Object, culture As System.Globalization.CultureInfo) As Object Implements IValueConverter.ConvertBack
      Throw New NotImplementedException
   End Function

End Class