NicolaP
58 lines
2.0 KiB
VB.net
58 lines
2.0 KiB
VB.net
Imports EgtUILib
|
|
Imports EgtWPFLib5
|
|
|
|
Public Class MySetUpWindowVM
|
|
Inherits SetUpWindowVM
|
|
|
|
#Region "CONSTRUCTOR"
|
|
|
|
Sub New(sMachineDir As String, sMachineName As String)
|
|
MyBase.New(sMachineDir, sMachineName)
|
|
End Sub
|
|
#End Region ' CONSTRUCTOR
|
|
|
|
#Region "METHODS"
|
|
|
|
' Funzione che crea la lista di utensili utilizzati dal gruppo di lavorazione corrente
|
|
Public Overrides Sub CreateUsedToolList(UsedToolList As List(Of String))
|
|
' Lama
|
|
Dim sTuuid As String = String.Empty
|
|
If Not String.IsNullOrWhiteSpace(CurrentMachine.sCurrSawing) Then
|
|
EgtMdbSetCurrMachining(CurrentMachine.sCurrSawing)
|
|
EgtMdbGetCurrMachiningParam(MCH_MP.TUUID, sTuuid)
|
|
UsedToolList.Add(sTuuid)
|
|
End If
|
|
' Fresa
|
|
If Not String.IsNullOrWhiteSpace(CurrentMachine.sCurrMilling) Then
|
|
EgtMdbSetCurrMachining(CurrentMachine.sCurrMilling)
|
|
sTuuid = String.Empty
|
|
EgtMdbGetCurrMachiningParam(MCH_MP.TUUID, sTuuid)
|
|
UsedToolList.Add(sTuuid)
|
|
End If
|
|
' Foretto
|
|
If Not String.IsNullOrWhiteSpace(CurrentMachine.sCurrDrilling) Then
|
|
EgtMdbSetCurrMachining(CurrentMachine.sCurrDrilling)
|
|
sTuuid = String.Empty
|
|
EgtMdbGetCurrMachiningParam(MCH_MP.TUUID, sTuuid)
|
|
UsedToolList.Add(sTuuid)
|
|
End If
|
|
' Scasso
|
|
If Not String.IsNullOrWhiteSpace(CurrentMachine.sCurrPocketing) Then
|
|
EgtMdbSetCurrMachining(CurrentMachine.sCurrPocketing)
|
|
sTuuid = String.Empty
|
|
EgtMdbGetCurrMachiningParam(MCH_MP.TUUID, sTuuid)
|
|
UsedToolList.Add(sTuuid)
|
|
End If
|
|
' Waterjet
|
|
If Not String.IsNullOrWhiteSpace(CurrentMachine.sCurrWaterJetting) Then
|
|
EgtMdbSetCurrMachining(CurrentMachine.sCurrWaterJetting)
|
|
sTuuid = String.Empty
|
|
EgtMdbGetCurrMachiningParam(MCH_MP.TUUID, sTuuid)
|
|
UsedToolList.Add(sTuuid)
|
|
End If
|
|
End Sub
|
|
|
|
#End Region ' METHODS
|
|
|
|
End Class
|