Files
OmagCUT/DirectCutPageUC.xaml.vb
T
Dario Sassi c973a78476 OmagCUT 1.6k8 :
- migliorie a generazione e simulazione con visualizzazione messaggi di errore
- in generazione e simulazione non si ricarica più il progetto ma si ripristina allo stato precedente
- migliorata gestione spessore grezzo (ora 0.1 più basso, mentre pezzi in Z esatta)
- unificata gestione inserimento e parcheggio pezzi
- inizializzate variabili m_bFirst.
2015-11-23 09:12:28 +00:00

42 lines
1.3 KiB
VB.net

Public Class DirectCutPageUC
' Dichiarazione delle Page UserControl
Private m_MainWindow As MainWindow = Application.Current.MainWindow
Friend m_MachineButtons As MachineButtonsUC
Friend m_CN As CN_generico
Private m_bFirst As Boolean = True
Private Sub DirectCutPage_Initialized(sender As Object, e As EventArgs)
'Creazione delle Page UserControl
m_MachineButtons = New MachineButtonsUC
'Posizionemento nella griglia delle Page UserControl
m_MachineButtons.SetValue(Grid.RowProperty, 2)
m_MachineButtons.SetValue(Grid.RowProperty, 2)
'Assegno SceneButtons alla pagina
LowerButtonGrid.Children.Add(m_MachineButtons)
End Sub
Private Sub DirectCutPage_Loaded(sender As Object, e As RoutedEventArgs)
If m_bFirst Then
If m_MainWindow.m_bNCLink Then
'Rinomino cn per avere nome più corto
m_CN = m_MainWindow.m_CNCommunication.m_CN
End If
m_bFirst = False
End If
End Sub
Private Sub FirstAxisBtn_Click(sender As Object, e As RoutedEventArgs) Handles FirstAxisBtn.Click
m_CN.DGeneralFunctions_WriteCncMode(2)
m_CN.sz_ManualDataInput = FirstAxisTxBx.Text
m_CN.MDI_command()
End Sub
End Class