EgtCAM5/OptionPanel/MachiningOptionPanel/MachiningsTreeViewExpander/MachiningTreeExpanderVM.vb

Imports System.Collections.ObjectModel
Imports EgtUILib

Public Class MachiningTreeExpanderVM
   Inherits ViewModelBase

#Region "FIELDS & PROPERTIES"

   Private m_CodeCommand As Boolean = False
   Private m_IsEnabled As Boolean
   Public Property IsEnabled As Boolean
      Get
         Return m_IsEnabled
      End Get
      Set(value As Boolean)
         If value <> m_IsEnabled Then
            m_IsEnabled = value
            If Not value And Not m_CodeCommand Then
               Application.Msn.NotifyColleagues(Application.CANCELOPERATIONCOMMAND)
            End If
            m_CodeCommand = False
            OnPropertyChanged("IsEnabled")
         End If
      End Set
   End Property

   ' Lista delle lavorazioni
   Private m_MachiningsList As New ObservableCollection(Of FamilyMachiningTreeViewExpanderItem)
   Public Property MachiningsList As ObservableCollection(Of FamilyMachiningTreeViewExpanderItem)
      Get
         Return m_MachiningsList
      End Get
      Set(value As ObservableCollection(Of FamilyMachiningTreeViewExpanderItem))
         m_MachiningsList = value
      End Set
   End Property

   ' Operazione correntemente selezionata, che permette di aggiungere al posto giusto quella nuova
   Private m_nSelectedOperationId As Integer = -1

   Public ReadOnly Property MachListHdr As String
      Get
         Return EgtMsg(5412)                      ' Nuove Lavorazioni
      End Get
   End Property


   ' Definizione comandi
   Private m_cmdTreeViewDoubleClick As ICommand
   Private m_cmdCancelNew As ICommand

#End Region

#Region "CONSTRUCTOR"

   Sub New()
      ' Per caricare l'albero la prima volta che viene aperto
      IsEnabled = False
      LoadSelectedMachineMachinings()
      Application.Msn.Register(Application.UPDATEOPERATIONMACHININGLIST, Sub()
                                                                            m_MachiningsList.Clear()
                                                                            LoadSelectedMachineMachinings()
                                                                         End Sub)
      Application.Msn.Register(Application.MACHININGTREEVIEWEXPANDERISENABLED, Sub(bValue As Boolean)
                                                                                  m_CodeCommand = True
                                                                                  IsEnabled = bValue
                                                                               End Sub)
      Application.Msn.Register(Application.SELECTEDOPERATION, Sub(SelectedOperation As OperationListBoxItem)
                                                                 m_nSelectedOperationId = SelectedOperation.Id
                                                              End Sub)
   End Sub

#End Region

#Region "COMMANDS"

#Region "TreeViewDoubleClickCommand"

   ''' <summary>
   ''' Returns a command that do TreeViewDoubleClick.
   ''' </summary>
   Public ReadOnly Property TreeViewDoubleClickCommand As ICommand
      Get
         If m_cmdTreeViewDoubleClick Is Nothing Then
            m_cmdTreeViewDoubleClick = New RelayCommand(AddressOf TreeViewDoubleClick)
         End If
         Return m_cmdTreeViewDoubleClick
      End Get
   End Property

   ''' <summary>
   ''' Execute the TreeViewDoubleClick.  This method is invoked by the TreeViewDoubleClickCommand.
   ''' </summary>
   Public Sub TreeViewDoubleClick(ByVal param As Object)
      If TypeOf param Is MachiningTreeViewExpanderItem Then
         Dim Machining As MachiningTreeViewExpanderItem = DirectCast(param, MachiningTreeViewExpanderItem)
         ' Creo nuova lavorazione(operazione) con la lavorazione selezionata
         Dim MachiningId As Integer = EgtAddMachining(MachiningTypeToString(Machining.Type) & "_1", Machining.Name)
         ' Se è abilitata l'opzione
         If Not OptionModule.m_bNewMachiningIsLastOne Then
            ' Sposto la lavorazione aggiunta subito dopo quella appena selezionata
            EgtRelocate(MachiningId, m_nSelectedOperationId, GDB_POS.AFTER)
         End If
         ' Recupero geometria correntemente selezionata e la metto in un vettore
         Dim SelectedEntities As New List(Of Integer)
         Dim EntityId As Integer = EgtGetFirstSelectedObj()
         While EntityId <> GDB_ID.NULL
            SelectedEntities.Add(EntityId)
            EntityId = EgtGetNextSelectedObj()
         End While
         ' Imposto l'operazione appena creata come corrente
         EgtSetCurrMachining(MachiningId)
         If SelectedEntities.Count = 1 AndAlso EgtGetType(SelectedEntities(0)) = GDB_TY.SRF_MESH Then
            Dim nF As Integer = EgtSurfTmFacetFromTria(SelectedEntities(0), IniFile.m_LastSubEntityId)
            If nF < 0 Then nF = 0
            Dim SubEntityArray As Integer() = {nF}
            EgtSetMachiningGeometry(SelectedEntities.ToArray, SubEntityArray)
         Else
            ' Imposto il vettore come geometria di lavorazione
            EgtSetMachiningGeometry(SelectedEntities.ToArray)
         End If
         ' Calcolo la lavorazione con la nuova geometria
         EgtApplyMachining(True)
         EgtDraw()
         ' Ricarico la lista operazioni per avere quella nuova
         Application.Msn.NotifyColleagues(Application.LOADOPERATIONLIST, -1)
         ' disabilito la modalità nuova lavorazione
         Application.Msn.NotifyColleagues(Application.NEWMACHININGMODEISACTIVE, New NewMachOpParam(False, MachiningId))
      End If
   End Sub

   Private Function MachiningTypeToString(Type As Integer) As String
      Select Case Type
         Case MCH_MY.DRILLING
            Return EgtMsg(MSG_MACHININGSDBPAGE + 1)
         Case MCH_MY.SAWING
            Return EgtMsg(MSG_MACHININGSDBPAGE + 2)
         Case MCH_MY.MILLING
            Return EgtMsg(MSG_MACHININGSDBPAGE + 3)
         Case MCH_MY.POCKETING
            Return EgtMsg(MSG_MACHININGSDBPAGE + 4)
         Case MCH_MY.MORTISING
            Return EgtMsg(MSG_MACHININGSDBPAGE + 5)
         Case MCH_MY.SAWROUGHING
            Return EgtMsg(MSG_MACHININGSDBPAGE + 6)
         Case MCH_MY.SAWFINISHING
            Return EgtMsg(MSG_MACHININGSDBPAGE + 7)
         Case Else
            Return "Mach"
      End Select
   End Function

#End Region ' TreeViewDoubleClickCommand

#Region "CancelNewCommand"

   ''' <summary>
   ''' Returns a command that do TreeViewDoubleClick.
   ''' </summary>
   Public ReadOnly Property CancelNewCommand As ICommand
      Get
         If m_cmdCancelNew Is Nothing Then
            m_cmdCancelNew = New RelayCommand(AddressOf CancelNew)
         End If
         Return m_cmdCancelNew
      End Get
   End Property

   ''' <summary>
   ''' Execute the TreeViewDoubleClick.  This method is invoked by the TreeViewDoubleClickCommand.
   ''' </summary>
   Public Sub CancelNew(ByVal param As Object)
      Application.Msn.NotifyColleagues(Application.CANCELOPERATIONCOMMAND)
   End Sub

#End Region ' CancelNewCommand

#End Region    ' Commands

#Region "METHODS"

   ''' <summary>
   ''' Method that search the machines in the correct folder and add to the MachinesList those valid.
   ''' </summary>
   Private Sub LoadSelectedMachineMachinings()
      Dim ActiveMachiningsTypes() As MachiningsType = MachineModel.ReadActiveMachiningsFamilies()
      For Each MachiningsType In ActiveMachiningsTypes
         Dim FamilyTreeView As New FamilyMachiningTreeViewExpanderItem(MachiningsType.TypeName, MachiningsType.TypeId)
         MachiningsList.Add(FamilyTreeView)
         Dim MachiningName As String = String.Empty
         Dim MachiningToolName As String = String.Empty
         EgtMdbGetFirstMachining(MachiningsType.TypeId, MachiningName)
         While Not String.IsNullOrEmpty(MachiningName)
            EgtMdbSetCurrMachining(MachiningName)
            EgtMdbGetCurrMachiningParam(MCH_MP.TOOL, MachiningToolName)
            FamilyTreeView.Items.Add(New MachiningTreeViewExpanderItem(MachiningName, MachiningsType.TypeId, MachiningToolName))
            EgtMdbGetNextMachining(MachiningsType.TypeId, MachiningName)
         End While
      Next
      ' Se esiste almeno una famiglia di lavorazioni, la seleziono
      If MachiningsList.Count > 0 Then
         MachiningsList(0).IsSelected = True
         MachiningsList(0).NotifyPropertyChanged("IsSelected")
      End If
   End Sub

#End Region

End Class