EgtCAM5 :
- Migliorie varie.
This commit is contained in:
Emmanuele Sassi
+611
@@ -0,0 +1,611 @@
|
||||
Imports EgtUILib
|
||||
Namespace EgtCAM5
|
||||
|
||||
Public Class SimulationExpanderViewModel
|
||||
Inherits ViewModelBase
|
||||
|
||||
#Region "FIELDS & PROPERTIES"
|
||||
|
||||
'EGT PROPERTIES
|
||||
' Stato di visualizzazione della macchina
|
||||
Private m_nMachLook As Integer = MCH_LOOK.ALL
|
||||
' Utensile corrente
|
||||
Private m_sCurrTool As String = String.Empty
|
||||
' Stato e comando correnti
|
||||
Public Enum SIM_ST As Integer
|
||||
ST_STOP = 1
|
||||
ST_PLAY = 2
|
||||
ST_STEP = 3
|
||||
ST_PAUSE = 4
|
||||
End Enum
|
||||
Private m_nStatus As Integer = SIM_ST.ST_STOP
|
||||
' Stato bottone Play
|
||||
Private m_bPlay As Boolean = True
|
||||
' Coefficiente per valore Slider
|
||||
Private m_SliderX As Double = 1
|
||||
|
||||
'GRAPHICAL PROPERTIES
|
||||
|
||||
Private m_IsExpanded As Boolean
|
||||
Public Property IsExpanded As Boolean
|
||||
Get
|
||||
Return m_IsExpanded
|
||||
End Get
|
||||
Set(value As Boolean)
|
||||
If value <> m_IsExpanded Then
|
||||
If value Then
|
||||
InitializeSimulation()
|
||||
Else
|
||||
CloseSimulation()
|
||||
End If
|
||||
m_IsExpanded = value
|
||||
OnPropertyChanged("IsExpanded")
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Private m_L1Name As String
|
||||
Public Property L1Name As String
|
||||
Get
|
||||
Return m_L1Name
|
||||
End Get
|
||||
Set(value As String)
|
||||
If value <> m_L1Name Then
|
||||
m_L1Name = value
|
||||
OnPropertyChanged("L1Name")
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Private m_L1Value As String
|
||||
Public Property L1Value As String
|
||||
Get
|
||||
Return m_L1Value
|
||||
End Get
|
||||
Set(value As String)
|
||||
If value <> m_L1Value Then
|
||||
m_L1Value = value
|
||||
OnPropertyChanged("L1Value")
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Private m_L2Name As String
|
||||
Public Property L2Name As String
|
||||
Get
|
||||
Return m_L2Name
|
||||
End Get
|
||||
Set(value As String)
|
||||
If value <> m_L2Name Then
|
||||
m_L2Name = value
|
||||
OnPropertyChanged("L2Name")
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Private m_L2Value As String
|
||||
Public Property L2Value As String
|
||||
Get
|
||||
Return m_L2Value
|
||||
End Get
|
||||
Set(value As String)
|
||||
If value <> m_L2Value Then
|
||||
m_L2Value = value
|
||||
OnPropertyChanged("L2Value")
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Private m_L3Name As String
|
||||
Public Property L3Name As String
|
||||
Get
|
||||
Return m_L3Name
|
||||
End Get
|
||||
Set(value As String)
|
||||
If value <> m_L3Name Then
|
||||
m_L3Name = value
|
||||
OnPropertyChanged("L3Name")
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Private m_L3Value As String
|
||||
Public Property L3Value As String
|
||||
Get
|
||||
Return m_L3Value
|
||||
End Get
|
||||
Set(value As String)
|
||||
If value <> m_L2Value Then
|
||||
m_L3Value = value
|
||||
OnPropertyChanged("L3Value")
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Private m_R1Name As String
|
||||
Public Property R1Name As String
|
||||
Get
|
||||
Return m_R1Name
|
||||
End Get
|
||||
Set(value As String)
|
||||
If value <> m_R1Name Then
|
||||
m_R1Name = value
|
||||
OnPropertyChanged("R1Name")
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Private m_R1Value As String
|
||||
Public Property R1Value As String
|
||||
Get
|
||||
Return m_R1Value
|
||||
End Get
|
||||
Set(value As String)
|
||||
If value <> m_L2Value Then
|
||||
m_R1Value = value
|
||||
OnPropertyChanged("R1Value")
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Private m_R2Name As String
|
||||
Public Property R2Name As String
|
||||
Get
|
||||
Return m_R2Name
|
||||
End Get
|
||||
Set(value As String)
|
||||
If value <> m_R2Name Then
|
||||
m_R2Name = value
|
||||
OnPropertyChanged("R2Name")
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Private m_R2Value As String
|
||||
Public Property R2Value As String
|
||||
Get
|
||||
Return m_R2Value
|
||||
End Get
|
||||
Set(value As String)
|
||||
If value <> m_L2Value Then
|
||||
m_R2Value = value
|
||||
OnPropertyChanged("R2Value")
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Private m_GCode As String
|
||||
Public Property GCode As String
|
||||
Get
|
||||
Return m_GCode
|
||||
End Get
|
||||
Set(value As String)
|
||||
If value <> m_GCode Then
|
||||
m_GCode = value
|
||||
OnPropertyChanged("GCode")
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Private m_FValue As String
|
||||
Public Property FValue As String
|
||||
Get
|
||||
Return m_FValue
|
||||
End Get
|
||||
Set(value As String)
|
||||
If value <> m_FValue Then
|
||||
m_FValue = value
|
||||
OnPropertyChanged("FValue")
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Private m_TName As String
|
||||
Public Property TName As String
|
||||
Get
|
||||
Return m_TName
|
||||
End Get
|
||||
Set(value As String)
|
||||
If value <> m_TName Then
|
||||
m_TName = value
|
||||
OnPropertyChanged("TName")
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Private m_SValue As String
|
||||
Public Property SValue As String
|
||||
Get
|
||||
Return m_SValue
|
||||
End Get
|
||||
Set(value As String)
|
||||
If value <> m_SValue Then
|
||||
m_SValue = value
|
||||
OnPropertyChanged("SValue")
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Private m_PlayPauseImage As String
|
||||
Public ReadOnly Property PlayPauseImage As String
|
||||
Get
|
||||
Select Case m_bPlay
|
||||
Case False
|
||||
Return "/Resources/OptionPanel/MachiningOptionPanel/SimulationExpander/Pause.png"
|
||||
Case True
|
||||
Return "/Resources/OptionPanel/MachiningOptionPanel/SimulationExpander/Play.png"
|
||||
Case Else
|
||||
Return ""
|
||||
End Select
|
||||
End Get
|
||||
End Property
|
||||
|
||||
Private m_SliderValue As Double
|
||||
Public Property SliderValue As Double
|
||||
Get
|
||||
Return m_SliderValue
|
||||
End Get
|
||||
Set(value As Double)
|
||||
If value <> m_SliderValue Then
|
||||
m_SliderValue = value
|
||||
EgtSimSetStep(value * m_SliderX)
|
||||
OnPropertyChanged("SliderValue")
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
|
||||
' Definizione comandi
|
||||
Private m_cmdStep As ICommand
|
||||
Private m_cmdPlayPause As ICommand
|
||||
Private m_cmdStop As ICommand
|
||||
|
||||
#End Region
|
||||
|
||||
#Region "CONSTRUCTOR"
|
||||
|
||||
Sub New()
|
||||
Application.Msn.Register(Application.DRAWOPTIONPANEL_CLOSING, Sub()
|
||||
If IsExpanded Then
|
||||
ResetSimulation()
|
||||
End If
|
||||
End Sub)
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
#Region "COMMANDS"
|
||||
|
||||
#Region "StepCommand"
|
||||
|
||||
''' <summary>
|
||||
''' Returns a command that create a new tool.
|
||||
''' </summary>
|
||||
Public ReadOnly Property StepCommand As ICommand
|
||||
Get
|
||||
If m_cmdStep Is Nothing Then
|
||||
m_cmdStep = New RelayCommand(AddressOf StepCmd, AddressOf CanStep)
|
||||
End If
|
||||
Return m_cmdStep
|
||||
End Get
|
||||
End Property
|
||||
|
||||
''' <summary>
|
||||
''' Creata the new tool. This method is invoked by the NewCommand.
|
||||
''' </summary>
|
||||
Public Sub StepCmd(ByVal param As Object)
|
||||
'm_CurrProjPage.ClearMessage()
|
||||
' Se stato stop, devo avviare simulazione
|
||||
If m_nStatus = SIM_ST.ST_STOP Then
|
||||
m_nStatus = SIM_ST.ST_STEP
|
||||
ExecSim()
|
||||
' Aggiorno bottone
|
||||
'SetPlayPauseBtnToPlay()
|
||||
' Alrimenti imposto solo il nuovo stato
|
||||
Else
|
||||
m_nStatus = SIM_ST.ST_STEP
|
||||
' Aggiornamenti per bottone Play/Pause
|
||||
'SetPlayPauseBtnToPause()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
''' <summary>
|
||||
''' Returns true if the selected treeviewitem is valid for new tool creation.
|
||||
''' </summary>
|
||||
Private Function CanStep(ByVal param As Object) As Boolean
|
||||
Return True
|
||||
End Function
|
||||
|
||||
#End Region ' StepCommand
|
||||
|
||||
#Region "PlayPauseCommand"
|
||||
|
||||
''' <summary>
|
||||
''' Returns a command that create a new tool.
|
||||
''' </summary>
|
||||
Public ReadOnly Property PlayPauseCommand As ICommand
|
||||
Get
|
||||
If m_cmdPlayPause Is Nothing Then
|
||||
m_cmdPlayPause = New RelayCommand(AddressOf PlayPause, AddressOf CanPlayPause)
|
||||
End If
|
||||
Return m_cmdPlayPause
|
||||
End Get
|
||||
End Property
|
||||
|
||||
''' <summary>
|
||||
''' Creata the new tool. This method is invoked by the NewCommand.
|
||||
''' </summary>
|
||||
Public Sub PlayPause(ByVal param As Object)
|
||||
'm_CurrProjPage.ClearMessage()
|
||||
If m_bPlay Then
|
||||
' Aggiorno bottone
|
||||
m_bPlay = False
|
||||
OnPropertyChanged("PlayPauseImage")
|
||||
' Eseguo
|
||||
If m_nStatus = SIM_ST.ST_STOP Then
|
||||
' Lancio simulazione
|
||||
m_nStatus = SIM_ST.ST_PLAY
|
||||
ExecSim()
|
||||
' Aggiorno bottone
|
||||
m_bPlay = True
|
||||
OnPropertyChanged("PlayPauseImage")
|
||||
ElseIf m_nStatus = SIM_ST.ST_PAUSE Then
|
||||
m_nStatus = SIM_ST.ST_PLAY
|
||||
End If
|
||||
Else
|
||||
' Aggiorno bottone
|
||||
m_bPlay = True
|
||||
OnPropertyChanged("PlayPauseImage")
|
||||
' Se play o step, imposto stato pausa
|
||||
If m_nStatus = SIM_ST.ST_PLAY Or m_nStatus = SIM_ST.ST_STEP Then
|
||||
m_nStatus = SIM_ST.ST_PAUSE
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
|
||||
''' <summary>
|
||||
''' Returns true if the selected treeviewitem is valid for new tool creation.
|
||||
''' </summary>
|
||||
Private Function CanPlayPause(ByVal param As Object) As Boolean
|
||||
Return True
|
||||
End Function
|
||||
|
||||
#End Region ' PlayPauseCommand
|
||||
|
||||
#Region "StopCommand"
|
||||
|
||||
''' <summary>
|
||||
''' Returns a command that create a new tool.
|
||||
''' </summary>
|
||||
Public ReadOnly Property StopCommand As ICommand
|
||||
Get
|
||||
If m_cmdStop Is Nothing Then
|
||||
m_cmdStop = New RelayCommand(AddressOf StopCmd, AddressOf CanStop)
|
||||
End If
|
||||
Return m_cmdStop
|
||||
End Get
|
||||
End Property
|
||||
|
||||
''' <summary>
|
||||
''' Creata the new tool. This method is invoked by the NewCommand.
|
||||
''' </summary>
|
||||
Public Sub StopCmd(ByVal param As Object)
|
||||
'm_CurrProjPage.ClearMessage()
|
||||
' Se stato già stop, porto in home
|
||||
If m_nStatus = SIM_ST.ST_STOP Then
|
||||
' Vado in home
|
||||
EgtSimHome()
|
||||
' Imposto prima fase
|
||||
EgtSetCurrPhase(1, True)
|
||||
' Aggiorno visualizzazione
|
||||
EgtDraw()
|
||||
' Aggiorno dati CNC
|
||||
ShowCncData()
|
||||
End If
|
||||
' Imposto il nuovo stato
|
||||
m_nStatus = SIM_ST.ST_STOP
|
||||
End Sub
|
||||
|
||||
''' <summary>
|
||||
''' Returns true if the selected treeviewitem is valid for new tool creation.
|
||||
''' </summary>
|
||||
Private Function CanStop(ByVal param As Object) As Boolean
|
||||
Return True
|
||||
End Function
|
||||
|
||||
#End Region ' StopCommand
|
||||
|
||||
#End Region
|
||||
|
||||
#Region "METHODS"
|
||||
|
||||
Private Sub InitializeSimulation()
|
||||
' Imposto prima fase
|
||||
EgtSetCurrPhase(1)
|
||||
' Costringo ad aggiornare UI
|
||||
UpdateUI()
|
||||
' Imposto stato corrente
|
||||
m_nStatus = SIM_ST.ST_STOP
|
||||
m_bPlay = True
|
||||
m_SliderX = GetPrivateProfileDouble(S_SIMUL, K_SLIDERX, 1)
|
||||
Dim SliderVal As Double = GetPrivateProfileDouble(S_SIMUL, K_SLIDERVAL, 10)
|
||||
SliderValue = SliderVal
|
||||
' Porto la testa in home
|
||||
EgtSimStart()
|
||||
EgtSimHome()
|
||||
LoadCurrTools()
|
||||
EgtDraw()
|
||||
ShowCncData()
|
||||
End Sub
|
||||
|
||||
Private Sub CloseSimulation()
|
||||
' Mi assicuro di terminare la simulazione
|
||||
ResetSimulation()
|
||||
' Nascondo tutte le lavorazioni
|
||||
'HideAllMachinings()
|
||||
' Cancello eventuali messaggi
|
||||
'm_CurrProjPage.ClearMessage()
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub ResetSimulation()
|
||||
' Termino la simulazione
|
||||
m_nStatus = SIM_ST.ST_STOP
|
||||
EgtSimStop()
|
||||
' Salvo valore dello slider
|
||||
Dim sVal As String = DoubleToString(SliderValue, 1)
|
||||
WritePrivateProfileString(S_SIMUL, K_SLIDERVAL, sVal)
|
||||
' Torno alla prima fase
|
||||
EgtSetCurrPhase(1, True)
|
||||
' Ripristino visibilità standard
|
||||
'EgtSetMachineLook(MCH_LOOK.TAB)
|
||||
End Sub
|
||||
|
||||
Private Sub ExecSim()
|
||||
EgtSimStart()
|
||||
LoadCurrTools()
|
||||
EgtSimSetStep(SliderValue * m_SliderX)
|
||||
While m_nStatus <> SIM_ST.ST_STOP
|
||||
' Se simulazione in svolgimento
|
||||
If m_nStatus = SIM_ST.ST_PLAY Or m_nStatus = SIM_ST.ST_STEP Then
|
||||
' Eseguo movimento
|
||||
Dim nMove As Integer
|
||||
Dim bMove As Boolean = EgtSimMove(nMove)
|
||||
' Se arrivato a fine step e sono in step
|
||||
If bMove Then
|
||||
If m_nStatus = SIM_ST.ST_STEP And nMove = MCH_SIM.END_STEP Then
|
||||
' Imposto stato Pausa
|
||||
m_nStatus = SIM_ST.ST_PAUSE
|
||||
' Aggiornamenti per bottone Play/Pause
|
||||
'SetPlayPauseBtnToPlay()
|
||||
m_bPlay = True
|
||||
OnPropertyChanged("PlayPauseImage")
|
||||
End If
|
||||
' Se movimento non riuscito
|
||||
Else
|
||||
m_nStatus = SIM_ST.ST_STOP
|
||||
m_bPlay = True
|
||||
OnPropertyChanged("PlayPauseImage")
|
||||
' Aggiornamenti per bottone Play/Pause
|
||||
'SetPlayPauseBtnToPlay()
|
||||
'Select Case nMove
|
||||
' Case MCH_SIM.END_
|
||||
' m_CurrProjPage.SetInfoMessage(EgtMsg(MSG_SIMULATIONPAGEUC + 1)) 'Simulazione completata
|
||||
' Case MCH_SIM.OUTSTROKE
|
||||
' Dim sInfo As String = String.Empty
|
||||
' EgtGetOutstrokeInfo(sInfo)
|
||||
' m_CurrProjPage.SetErrorMessage(EgtMsg(MSG_SIMULATIONPAGEUC + 2) & " " & sInfo) 'Extracorsa ...
|
||||
' Case MCH_SIM.DIR_ERR
|
||||
' m_CurrProjPage.SetErrorMessage(EgtMsg(MSG_SIMULATIONPAGEUC + 3)) 'Direzione utensile irraggiungibile
|
||||
' Case Else
|
||||
' m_CurrProjPage.SetErrorMessage(EgtMsg(MSG_SIMULATIONPAGEUC + 4)) 'Errore
|
||||
'End Select
|
||||
End If
|
||||
' Aggiorno stato visualizzazione macchina (dipende anche da utensile)
|
||||
'UpdateMachView()
|
||||
' Aggiorno visualizzazione
|
||||
EgtDraw()
|
||||
' Aggiorno dati CNC
|
||||
ShowCncData()
|
||||
Else
|
||||
' Per evitare di ciclare rapidissimamente e consumare inutilmente CPU
|
||||
System.Threading.Thread.Sleep(1)
|
||||
End If
|
||||
'' Costringo ad aggiornare UI
|
||||
UpdateUI()
|
||||
End While
|
||||
End Sub
|
||||
|
||||
Private Sub ShowCncData()
|
||||
' Assi
|
||||
ShowAxisNameVal(0, L1Name, L1Value)
|
||||
ShowAxisNameVal(1, L2Name, L2Value)
|
||||
ShowAxisNameVal(2, L3Name, L3Value)
|
||||
ShowAxisNameVal(3, R1Name, R1Value)
|
||||
ShowAxisNameVal(4, R2Name, R2Value)
|
||||
' Tipo di movimento e feed
|
||||
ShowMoveTypeFeed()
|
||||
' Nome utensile e speed
|
||||
ShowToolNameSpeed()
|
||||
End Sub
|
||||
|
||||
Private Function ShowAxisNameVal(ByVal nInd As Integer, ByRef sName As String, ByRef sVal As String) As Boolean
|
||||
Dim sInfo As String = String.Empty
|
||||
Dim dVal As Double = 0
|
||||
If EgtSimGetAxisInfoPos(nInd, sInfo, dVal) Then
|
||||
sName = sInfo
|
||||
sVal = If(nInd < 3, LenToString(dVal, -3), DoubleToString(dVal, -3))
|
||||
Return True
|
||||
Else
|
||||
sName = String.Empty
|
||||
sVal = String.Empty
|
||||
Return False
|
||||
End If
|
||||
End Function
|
||||
|
||||
Private Function ShowMoveTypeFeed() As Boolean
|
||||
Dim nG As Integer = 0
|
||||
Dim dFeed As Double = 0
|
||||
If EgtSimGetMoveInfo(nG, dFeed) Then
|
||||
If nG <> 0 Then
|
||||
GCode = "G" & nG.ToString()
|
||||
FValue = "F" & LenToString(dFeed, 0)
|
||||
Else
|
||||
GCode = "G" & nG.ToString()
|
||||
FValue = ""
|
||||
End If
|
||||
Return True
|
||||
Else
|
||||
GCode = ""
|
||||
FValue = ""
|
||||
Return False
|
||||
End If
|
||||
End Function
|
||||
|
||||
Private Function ShowToolNameSpeed() As Boolean
|
||||
Dim sTool As String = String.Empty
|
||||
Dim dSpeed As Double = 0
|
||||
If EgtSimGetToolInfo(sTool, dSpeed) Then
|
||||
TName = sTool
|
||||
SValue = "S" & DoubleToString(dSpeed, 0)
|
||||
Return True
|
||||
Else
|
||||
TName = ""
|
||||
SValue = ""
|
||||
Return False
|
||||
End If
|
||||
End Function
|
||||
|
||||
Private Function LoadCurrTools() As Boolean
|
||||
'' Imposto la lama corrente
|
||||
'Dim sSaw As String = m_MainWindow.m_CurrentMachine.sCurrSaw
|
||||
'If Not EgtLoadTool("H1", 1, sSaw) Then
|
||||
' Return False
|
||||
'End If
|
||||
'' Imposto eventuale secondo utensile montato
|
||||
'If m_MainWindow.m_CurrentMachine.MountedToolConfig = CurrentMachine.MountedToolConfigs.SAWANDAUXTOOL Then
|
||||
' Dim sTool As String = m_MainWindow.m_CurrentMachine.sCurrDrill
|
||||
' If String.IsNullOrEmpty(sTool) Then sTool = m_MainWindow.m_CurrentMachine.sCurrMill
|
||||
' If Not String.IsNullOrEmpty(sTool) AndAlso Not EgtLoadTool("H1", 2, sTool) Then
|
||||
' Return False
|
||||
' End If
|
||||
'End If
|
||||
Return True
|
||||
End Function
|
||||
|
||||
Private Sub UpdateMachView()
|
||||
' Se cambiato utensile, aggiorno stato visualizzazione macchina
|
||||
Dim sTool As String = String.Empty
|
||||
Dim dSpeed As Double = 0
|
||||
If EgtSimGetToolInfo(sTool, dSpeed) Then
|
||||
If sTool <> m_sCurrTool Then
|
||||
m_sCurrTool = sTool
|
||||
EgtSetMachineLook(m_nMachLook)
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
End Class
|
||||
|
||||
End Namespace
|
||||
Reference in New Issue
Block a user