Egalware/EgtCAM5
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

EgtCAM5 :

Browse Source 
- Migliorie varie.
This commit is contained in:
Emmanuele Sassi
2016-07-13 17:16:15 +00:00
parent 6a62deb28b
commit c8f51a8759
13 changed files with 394 additions and 39 deletions
Download Patch File Download Diff File Expand all files Collapse all files
ProjectPage/OptionPanel/MachiningOptionPanel/SimulationExpander/SimulationExpanderViewModel.vb
+13 -17
View File
@@ -446,8 +446,6 @@ Namespace EgtCAM5
ResetSimulation()
' Nascondo tutte le lavorazioni
'HideAllMachinings()
' Cancello eventuali messaggi
'm_CurrProjPage.ClearMessage()
End Sub
@@ -480,29 +478,27 @@ Namespace EgtCAM5
' 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
' Aggiornamenti per bottone Play/Pause
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
Select Case nMove
Case MCH_SIM.END_
MsgBox(EgtMsg(MSG_SIMULATION + 1)) 'Simulazione completata
Case MCH_SIM.OUTSTROKE
Dim sInfo As String = String.Empty
EgtGetOutstrokeInfo(sInfo)
MsgBox(EgtMsg(MSG_SIMULATION + 2) & " " & sInfo, MsgBoxStyle.OkOnly, "ERROR") 'Extracorsa ...
Case MCH_SIM.DIR_ERR
MsgBox(EgtMsg(MSG_SIMULATION + 3), MsgBoxStyle.OkOnly, "ERROR") 'Direzione utensile irraggiungibile
Case Else
MsgBox(EgtMsg(MSG_SIMULATION + 4), MsgBoxStyle.OkOnly, "ERROR") 'Errore
End Select
End If
' Aggiorno stato visualizzazione macchina (dipende anche da utensile)
'UpdateMachView()