diff --git a/CadCuts/NestPageUC.xaml.vb b/CadCuts/NestPageUC.xaml.vb index f6c4975..cdd87c1 100644 --- a/CadCuts/NestPageUC.xaml.vb +++ b/CadCuts/NestPageUC.xaml.vb @@ -168,6 +168,7 @@ Public Class NestPageUC m_CurrSelectedCurv = nIdMy EgtSelectObj(nIdSaw) EgtSelectObj(nIdMy) + EgtDraw() Exit While End If diff --git a/Constants/ConstMachIni.vb b/Constants/ConstMachIni.vb index 354f9a3..1e7d119 100644 --- a/Constants/ConstMachIni.vb +++ b/Constants/ConstMachIni.vb @@ -44,6 +44,7 @@ Public Const S_NCDATA As String = "NcData" Public Const K_NEWVARIABLE As String = "NewVariable" + Public Const K_NEWCONSOLE As String = "NewConsole" Public Const K_COMM As String = "Comm" Public Const K_REFRESH As String = "Refresh" Public Const K_MODE As String = "Mode" @@ -98,7 +99,12 @@ Public Const K_VACUUMOFF As String = "VacuumOff" Public Const K_BYPASSTATE As String = "BypassState" Public Const K_FEEDHOLD As String = "FeedHold" + ' Nuove variabili Public Const K_SPEEDHOLD As String = "SpeedHold" + Public Const K_XYAXES As String = "XYAxes" + Public Const K_ZAXES As String = "ZAxes" + Public Const K_BCAXES As String = "BCAxes" + Public Const K_POWERON As String = "PowerON" Public Const S_PRODUCTIONLINE As String = "ProductionLine" Public Const K_ACTIVE As String = "Active" diff --git a/DirectCuts/DirectCutPageUC.xaml b/DirectCuts/DirectCutPageUC.xaml index e1cafd9..308d8ed 100644 --- a/DirectCuts/DirectCutPageUC.xaml +++ b/DirectCuts/DirectCutPageUC.xaml @@ -94,7 +94,10 @@ - + + + + @@ -108,8 +111,26 @@ Style="{DynamicResource OmagCut_GradientYellowIconToggleButton}"> - - diff --git a/DirectCuts/DirectCutPageUC.xaml.vb b/DirectCuts/DirectCutPageUC.xaml.vb index a8db894..a793caa 100644 --- a/DirectCuts/DirectCutPageUC.xaml.vb +++ b/DirectCuts/DirectCutPageUC.xaml.vb @@ -36,6 +36,9 @@ Public Class DirectCutPageUC ' Indica che la finestra del talio Singolo deve essere di tipo manuale Friend m_bManulaCut As Boolean = False + ' elenco dei nuovi bottoni + Private m_ButtonAxesList As New List(Of MachineButton) + Enum DirectCutPages DirectCut ManualAxesMove @@ -70,7 +73,7 @@ Public Class DirectCutPageUC 'Posizionemento nella griglia delle Page UserControl m_MachineButtons.SetValue(Grid.RowProperty, 2) - m_MachineButtons.SetValue(Grid.ColumnSpanProperty, 3) + m_MachineButtons.SetValue(Grid.ColumnSpanProperty, 6) m_ManualAxesMove.SetValue(Grid.RowProperty, 1) If m_bManulaCut Then m_SingleCutAuto.SetValue(Grid.RowProperty, 1) @@ -86,12 +89,15 @@ Public Class DirectCutPageUC m_ControlsMachineButton.SetValue(Grid.RowProperty, 1) m_VacuumMachineButton.SetValue(Grid.RowProperty, 1) + Dim bCollpsedNewBottonsConsole As Boolean = False m_NewMachineButtonsType = m_ControlsMachineButton.GetPrivateProfileMachineButtons(S_CONTROLMACHBUTTONS, "Button1", Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, m_MainWindow.GetMachIniFile()) If Not m_NewMachineButtonsType Then 'Assegno MachineButtons alla pagina LowerButtonGrid.Children.Add(m_MachineButtons) ControlsMachineBtn.Visibility = Windows.Visibility.Collapsed VacuumMachineBtn.Visibility = Windows.Visibility.Collapsed + ' per le configurazioni diverse dalla Digitale5 + bCollpsedNewBottonsConsole = True End If If GetPrivateProfileInt(S_NUMERICALCONTROL, K_TYPE, 0, m_MainWindow.GetMachIniFile()) = 0 Then @@ -106,11 +112,60 @@ Public Class DirectCutPageUC FlatteningCutBtn.Content = EgtMsg( 90206) PolishingBtn.Content = EgtMsg( 90231) CopyTemplateBtn.Content = EgtMsg( 90209) - SawTestBtn.Content = EgtMsg( 90207) + SawTestBtn.Content = EgtMsg(90207) + + ' nuovi bottoni 20/05/2021 + If GetPrivateProfileInt(S_NCDATA, K_NEWCONSOLE, 0, m_MainWindow.GetMachIniFile()) = 1 And Not bCollpsedNewBottonsConsole Then + XYBtn.Content = "X - Y" + ZBtn.Content = "Z" + BCBtn.Content = "B - C" + Else + XYBtn.Visibility = Windows.Visibility.Collapsed + ZBtn.Visibility = Windows.Visibility.Collapsed + BCBtn.Visibility = Windows.Visibility.Collapsed + End If + End Sub Private Sub DirectCutPage_Loaded(sender As Object, e As RoutedEventArgs) Handles Me.Loaded + '------ NUOVI BOTTONI ---------- + ' Lettura configurazione bottoni (per impostare l'uso del Joystick) da Ini di macchina + m_ButtonAxesList.Clear() + Dim m_nCount As Integer = 1 + Dim bFoundBtn As Boolean = True + While bFoundBtn + Dim sNameBtn As String = K_BUTTON & (m_nCount).ToString() + Dim sMachineButtonType As String = String.Empty + Dim sTImageName As String = String.Empty + Dim sTLuaScriptName As String = String.Empty + Dim sFImageName As String = String.Empty + Dim sFLuaScriptName As String = String.Empty + Dim sStateFlag As String = String.Empty + bFoundBtn = m_ControlsMachineButton.GetPrivateProfileMachineButtons("AxesButtons", sNameBtn, sMachineButtonType, sTImageName, sTLuaScriptName, sFImageName, sFLuaScriptName, sStateFlag, m_MainWindow.GetMachIniFile()) + If bFoundBtn Then + m_nCount += 1 + Dim ButtonToAdd As MachineButton = Nothing + ' la selezione dei comandi si trova nella pagina m_ControlsMachineButton.MachineButtonType (tipo Enum) + Select Case sMachineButtonType + Case 1 + ButtonToAdd = New NoStateButton(sTImageName, sTLuaScriptName, sFImageName, sFLuaScriptName, sStateFlag) + Case 2 + ButtonToAdd = New TwoStateButton(sTImageName, sTLuaScriptName, sFImageName, sFLuaScriptName, sStateFlag) + Case 3 + ButtonToAdd = New ThreeStateButton(sTImageName, sTLuaScriptName, sFImageName, sFLuaScriptName, sStateFlag) + Case 4 + ButtonToAdd = New DoubleCommandButton(sTImageName, sTLuaScriptName, sFImageName, sFLuaScriptName, sStateFlag) + Case 5 + ButtonToAdd = New PressedCommandButton(sTImageName, sTLuaScriptName, sFImageName, sFLuaScriptName, sStateFlag) + End Select + If Not IsNothing(ButtonToAdd) Then + m_ButtonAxesList.Add(ButtonToAdd) + End If + End If + End While + ' lo stato di questi comandi vieni carico dalla lettura del PLC (refresh) + '-----------NUOVI BOTTONI------------ ' Se rientro da simulazione If m_ActiveDirectCutPage = DirectCutPages.SingleCut Then LeftButtonGrid.Children.Add(m_SingleCut) @@ -152,7 +207,7 @@ Public Class DirectCutPageUC MultipleCutBtn.IsEnabled = bRawOk GridCutBtn.IsEnabled = bRawOk FlatteningCutBtn.IsEnabled = bRawOk - PolishingBtn.IsEnabled = ( bRawOk And m_MainWindow.m_CurrentMachine.bPolishing) + PolishingBtn.IsEnabled = (bRawOk And m_MainWindow.m_CurrentMachine.bPolishing) SawTestBtn.IsEnabled = bRawOk ' Nascondo i pezzi in parcheggio @@ -258,6 +313,68 @@ Public Class DirectCutPageUC End If End Sub + '------------------NUOVI BOTTONI PER GESTIONE JOYSTICK------------------------------------------------- + Private Sub XYBtn_Click(sender As Object, e As RoutedEventArgs) Handles XYBtn.Click + Dim XYAxesButton As MachineButton = m_ButtonAxesList(0) + ' eseguo lo script lua associato + XYAxesButton.ExecuteMDICommand(XYAxesButton.TLuaScriptName) + ' che comunica al PLC di cambiare lo stato, la modifica dello stato è intercettata dalla funzione Refresh che avvia il metodo Changed + End Sub + + Friend Sub XYAxesChanged(bXYAxes As Boolean) + ' devo decodificare il tipo di pulsante, quindi eseguire la conversione... + Dim XYAxesButton As TwoStateButton = Nothing + For Each MachineButton In m_ButtonAxesList + If MachineButton.StateFlag = "XYAxes" Then + XYAxesButton = MachineButton + End If + Next + If Not IsNothing(XYAxesButton) Then + XYAxesButton.SetIsChecked(bXYAxes) + XYBtn.IsChecked = bXYAxes + End If + End Sub + + Private Sub ZBtn_Click(sender As Object, e As RoutedEventArgs) Handles ZBtn.Click + Dim ZAxesButton As MachineButton = m_ButtonAxesList(1) + ' eseguo lo script lua associato + ZAxesButton.ExecuteMDICommand(ZAxesButton.TLuaScriptName) + End Sub + + Friend Sub ZAxesChanged(bZAxes As Boolean) + ' devo decodificare il tipo di pulsante, quindi eseguire la conversione... + Dim ZAxesButton As TwoStateButton = Nothing + For Each MachineButton In m_ButtonAxesList + If MachineButton.StateFlag = "ZAxes" Then + ZAxesButton = MachineButton + End If + Next + If Not IsNothing(ZAxesButton) Then + ZAxesButton.SetIsChecked(bZAxes) + ZBtn.IsChecked = bZAxes + End If + End Sub + + Private Sub BCBtn_Click(sender As Object, e As RoutedEventArgs) Handles BCBtn.Click + Dim BCAxesButton As MachineButton = m_ButtonAxesList(2) + ' eseguo lo script lua associato + BCAxesButton.ExecuteMDICommand(BCAxesButton.TLuaScriptName) + End Sub + + Friend Sub BCAxesChanged(bBCAxes As Boolean) + ' devo decodificare il tipo di pulsante, quindi eseguire la conversione... + Dim BCAxesButton As TwoStateButton = Nothing + For Each MachineButton In m_ButtonAxesList + If MachineButton.StateFlag = "BCAxes" Then + BCAxesButton = MachineButton + End If + Next + If Not IsNothing(BCAxesButton) Then + BCAxesButton.SetIsChecked(bBCAxes) + BCBtn.IsChecked = bBCAxes + End If + End Sub + '------------------NUOVI BOTTONI PER GESTIONE JOYSTICK------------------------------------------------- Private Sub MachViewModeBtn_Click(sender As Object, e As RoutedEventArgs) Handles MachViewModeBtn.Click If m_bShowMachine Then ' aggiorno lo stato diff --git a/DirectCuts/MachineButtonsUC.xaml.vb b/DirectCuts/MachineButtonsUC.xaml.vb index 4cf0640..59a1fab 100644 --- a/DirectCuts/MachineButtonsUC.xaml.vb +++ b/DirectCuts/MachineButtonsUC.xaml.vb @@ -71,7 +71,7 @@ Public Class MachineButtonsUC GetToggleButton(nIndex + 1).Visibility = Windows.Visibility.Hidden Next - ' Se variabile di stato "Nothing" imposto immagine fissa + ' Se variabile di stato "Nothing"/"DoorOpened"/"DoorClosed" imposto immagine fissa For nIndex As Integer = 0 To m_nCount - 1 If StateFlagArray(nIndex) = BTN_STATE_NOTHING OrElse StateFlagArray(nIndex) = BTN_STATE_DOOR_OPENED OrElse @@ -97,19 +97,21 @@ Public Class MachineButtonsUC If Not m_MainWindow.m_bNCLink Then For nIndex As Integer = 0 To m_nCount - 1 Dim sImage As String = If(String.IsNullOrEmpty(ImageArrayN(nIndex)), ImageArrayY(nIndex), ImageArrayN(nIndex)) - Try - Dim s As String - If (m_MainWindow.m_OptionsPageUC.ThemesCmBx.SelectedIndex = 0) Then - s = m_MainWindow.GetResourcesDir() & "\MachineButtonsImage\" & sImage - Else - s = m_MainWindow.GetResourcesDir() & "\MachineButtonsImage\NewIcons\" & sImage - End If - 'Dim s As String = m_MainWindow.GetResourcesDir() & "\MachineButtonsImage\" & sImage - Dim sButtonImageSource As ImageSource = ImageConverter.ConvertFromString(s) - GetImage(nIndex + 1).Source = sButtonImageSource - Catch ex As Exception - EgtOutLog("Error loading image " & sImage) - End Try + If Not String.IsNullOrEmpty(sImage) Then + Try + Dim s As String + If (m_MainWindow.m_OptionsPageUC.ThemesCmBx.SelectedIndex = 0) Then + s = m_MainWindow.GetResourcesDir() & "\MachineButtonsImage\" & sImage + Else + s = m_MainWindow.GetResourcesDir() & "\MachineButtonsImage\NewIcons\" & sImage + End If + 'Dim s As String = m_MainWindow.GetResourcesDir() & "\MachineButtonsImage\" & sImage + Dim sButtonImageSource As ImageSource = ImageConverter.ConvertFromString(s) + GetImage(nIndex + 1).Source = sButtonImageSource + Catch ex As Exception + EgtOutLog("Error loading image " & sImage) + End Try + End If Next End If @@ -562,6 +564,32 @@ Public Class MachineButtonsUC End If End Sub + '----------------- Queste funzioni determina lo stato del bottone direttamente dalla lettura delle variabili CN + Friend Sub XYAxesChanged(ByVal bXYAxes As Boolean) + ' recupero le asscociazioni con i bottoni + Dim nIndex As Integer = Array.IndexOf(StateFlagArray, "XYAxes") + If nIndex = -1 Then Return + ' selezoiono lo stato del bottone + GetToggleButton(nIndex + 1).IsChecked = bXYAxes + End Sub + + Friend Sub ZAxesChanged(ByVal bZAxes As Boolean) + ' recupero le asscociazioni con i bottoni + Dim nIndex As Integer = Array.IndexOf(StateFlagArray, "ZAxes") + If nIndex = -1 Then Return + ' selezoiono lo stato del bottone + GetToggleButton(nIndex + 1).IsChecked = bZAxes + End Sub + + Friend Sub BCAxesChanged(ByVal bBCAxes As Boolean) + ' recupero le asscociazioni con i bottoni + Dim nIndex As Integer = Array.IndexOf(StateFlagArray, "BCAxes") + If nIndex = -1 Then Return + ' selezoiono lo stato del bottone + GetToggleButton(nIndex + 1).IsChecked = bBCAxes + End Sub + '----------------------------------------------------------------------------------------------------------------- + Private Function GetToggleButton(ByVal nIndex As Integer) As Primitives.ToggleButton Select Case nIndex Case 1 diff --git a/DrawImport/CompoDimensionUC.xaml.vb b/DrawImport/CompoDimensionUC.xaml.vb index a186482..877ae92 100644 --- a/DrawImport/CompoDimensionUC.xaml.vb +++ b/DrawImport/CompoDimensionUC.xaml.vb @@ -76,7 +76,7 @@ Public Class CompoDimensionUC AddBtn.Visibility = Windows.Visibility.Visible CancelBtn.Visibility = Windows.Visibility.Visible Else - m_DrawPage.SideAngleBtn.IsEnabled = True + m_DrawPage.SideAngleBtn.IsEnabled = m_MainWindow.m_DrawPageUC.bEnableSideAngle m_DrawPage.FiloTopBtn.IsEnabled = m_MainWindow.m_CurrentMachine.bMilling m_DrawPage.EngraveBtn.IsEnabled = True m_DrawPage.DripCutBtn.IsEnabled = m_MainWindow.GetKeyOption(MainWindow.KEY_OPT.UNDER_CUT) And diff --git a/DrawImport/DrawPageUC.xaml.vb b/DrawImport/DrawPageUC.xaml.vb index d5bc694..a6b3c9f 100644 --- a/DrawImport/DrawPageUC.xaml.vb +++ b/DrawImport/DrawPageUC.xaml.vb @@ -55,6 +55,16 @@ Public Class DrawPageUC Private m_sCsvList As String = "" Private m_sCsvName As String = "" + ' Abilito i tagli inclinati solo per macchina a 5 assi + Private m_bEnableSideAngle As Boolean = True + + Friend ReadOnly Property bEnableSideAngle As Boolean + Get + Return m_bEnableSideAngle + End Get + End Property + + Friend ReadOnly Property sCompoName As String Get Return m_sCompoName @@ -143,7 +153,13 @@ Public Class DrawPageUC m_bTrfData = m_MainWindow.GetKeyOption(MainWindow.KEY_OPT.TRF_IMPORT) And (GetPrivateProfileInt(S_COMPO, K_TRFDATA, 0, m_MainWindow.GetIniFile()) <> 0) ' Abilitazione CsvData - m_bCsvData = ( Not m_bTrfData And GetPrivateProfileInt(S_COMPO, K_CSVDATA, 0, m_MainWindow.GetIniFile()) <> 0) + m_bCsvData = (Not m_bTrfData And GetPrivateProfileInt(S_COMPO, K_CSVDATA, 0, m_MainWindow.GetIniFile()) <> 0) + + ' Abilitazione tagli inclinati (solo per macchine a 5 assi) + m_bEnableSideAngle = GetPrivateProfileInt(S_AXES, K_AXESNUM, 5, m_MainWindow.GetMachIniFile()) > 4 + If Not m_bEnableSideAngle Then + SideAngleBtn.IsEnabled = False + End If If m_bTrfData Then PartNameTxBl.Visibility = Windows.Visibility.Hidden @@ -997,7 +1013,7 @@ Public Class DrawPageUC ElseIf m_PrevSideAnglePage = Pages.InternalComponent Then LeftButtonGrd.Children.Add(m_CompoDimension.m_InternalCompoPage) End If - SideAngleBtn.IsEnabled = True + SideAngleBtn.IsEnabled = m_bEnableSideAngle DripCutBtn.IsEnabled = m_MainWindow.GetKeyOption(MainWindow.KEY_OPT.UNDER_CUT) And Not String.IsNullOrWhiteSpace(m_MainWindow.m_CurrentMachine.sCurrDripSaw) MessageGrid.Visibility = Windows.Visibility.Visible @@ -1055,7 +1071,7 @@ Public Class DrawPageUC ElseIf m_PrevSideAnglePage = Pages.InternalComponent Then LeftButtonGrd.Children.Add(m_CompoDimension.m_InternalCompoPage) End If - SideAngleBtn.IsEnabled = True + SideAngleBtn.IsEnabled = m_bEnableSideAngle FiloTopBtn.IsEnabled = m_MainWindow.m_CurrentMachine.bMilling EngraveBtn.IsEnabled = True MessageGrid.Visibility = Windows.Visibility.Visible @@ -1107,7 +1123,7 @@ Public Class DrawPageUC ElseIf m_PrevSideAnglePage = Pages.InternalComponent Then LeftButtonGrd.Children.Add( m_CompoDimension.m_InternalCompoPage) End If - SideAngleBtn.IsEnabled = True + SideAngleBtn.IsEnabled = m_bEnableSideAngle EngraveBtn.IsEnabled = True DripCutBtn.IsEnabled = m_MainWindow.GetKeyOption(MainWindow.KEY_OPT.UNDER_CUT) And Not String.IsNullOrWhiteSpace(m_MainWindow.m_CurrentMachine.sCurrDripSaw) diff --git a/DrawImport/ImportPageUC.xaml.vb b/DrawImport/ImportPageUC.xaml.vb index c7090bb..40527ba 100644 --- a/DrawImport/ImportPageUC.xaml.vb +++ b/DrawImport/ImportPageUC.xaml.vb @@ -598,7 +598,7 @@ Public Class ImportPageUC ResetBtn.IsEnabled = True OkBtn.IsEnabled = True ' abilito bottone angoli su lati esterni - SideAngleBtn.IsEnabled = True + SideAngleBtn.IsEnabled = m_MainWindow.m_DrawPageUC.bEnableSideAngle FiloTopBtn.IsEnabled = m_MainWindow.m_CurrentMachine.bMilling DripCutBtn.IsEnabled = m_MainWindow.GetKeyOption(MainWindow.KEY_OPT.UNDER_CUT) And Not String.IsNullOrWhiteSpace(m_MainWindow.m_CurrentMachine.sCurrDripSaw) @@ -628,7 +628,7 @@ Public Class ImportPageUC ResetBtn.IsEnabled = True OkBtn.IsEnabled = True ' abilito bottone angoli su lati esterni - SideAngleBtn.IsEnabled = True + SideAngleBtn.IsEnabled = m_MainWindow.m_DrawPageUC.bEnableSideAngle FiloTopBtn.IsEnabled = m_MainWindow.m_CurrentMachine.bMilling DripCutBtn.IsEnabled = m_MainWindow.GetKeyOption(MainWindow.KEY_OPT.UNDER_CUT) And Not String.IsNullOrWhiteSpace(m_MainWindow.m_CurrentMachine.sCurrDripSaw) @@ -658,7 +658,7 @@ Public Class ImportPageUC ResetBtn.IsEnabled = True OkBtn.IsEnabled = True ' abilito bottone angoli su lati esterni - SideAngleBtn.IsEnabled = True + SideAngleBtn.IsEnabled = m_MainWindow.m_DrawPageUC.bEnableSideAngle FiloTopBtn.IsEnabled = m_MainWindow.m_CurrentMachine.bMilling DripCutBtn.IsEnabled = m_MainWindow.GetKeyOption(MainWindow.KEY_OPT.UNDER_CUT) And Not String.IsNullOrWhiteSpace(m_MainWindow.m_CurrentMachine.sCurrDripSaw) @@ -1021,7 +1021,7 @@ Public Class ImportPageUC m_nSelectedLayer = GDB_ID.NULL EgtDeselectAll() ' Riabilito SideAngleBtn, FiloTop, DripDrillBtn e unità di misura - SideAngleBtn.IsEnabled = True + SideAngleBtn.IsEnabled = m_MainWindow.m_DrawPageUC.bEnableSideAngle FiloTopBtn.IsEnabled = m_MainWindow.m_CurrentMachine.bMilling DripDrillBtn.IsEnabled = m_MainWindow.GetKeyOption(MainWindow.KEY_OPT.UNDER_CUT) And Not String.IsNullOrWhiteSpace(m_MainWindow.m_CurrentMachine.sCurrDripDrill) @@ -1071,7 +1071,7 @@ Public Class ImportPageUC m_nSelectedLayer = GDB_ID.NULL EgtDeselectAll() ' Riabilito SideAngleBtn, FiloTop, DripCutBtn e unità di misura - SideAngleBtn.IsEnabled = True + SideAngleBtn.IsEnabled = m_MainWindow.m_DrawPageUC.bEnableSideAngle FiloTopBtn.IsEnabled = m_MainWindow.m_CurrentMachine.bMilling DripCutBtn.IsEnabled = m_MainWindow.GetKeyOption(MainWindow.KEY_OPT.UNDER_CUT) And Not String.IsNullOrWhiteSpace(m_MainWindow.m_CurrentMachine.sCurrDripSaw) @@ -1119,7 +1119,7 @@ Public Class ImportPageUC m_nSelectedLayer = GDB_ID.NULL EgtDeselectAll() ' Riabilito SideAngleBtn, DripCutBtn, DripDrillBtn e unità di misura - SideAngleBtn.IsEnabled = True + SideAngleBtn.IsEnabled = m_MainWindow.m_DrawPageUC.bEnableSideAngle DripCutBtn.IsEnabled = m_MainWindow.GetKeyOption(MainWindow.KEY_OPT.UNDER_CUT) And Not String.IsNullOrWhiteSpace(m_MainWindow.m_CurrentMachine.sCurrDripSaw) DripDrillBtn.IsEnabled = m_MainWindow.GetKeyOption(MainWindow.KEY_OPT.UNDER_CUT) And diff --git a/DrawImport/InternalComponentPageUC.xaml.vb b/DrawImport/InternalComponentPageUC.xaml.vb index 0e99a15..6ac6312 100644 --- a/DrawImport/InternalComponentPageUC.xaml.vb +++ b/DrawImport/InternalComponentPageUC.xaml.vb @@ -31,7 +31,7 @@ Public Class InternalComponentPageUC End If m_MainWindow.m_DrawPageUC.m_ActiveComponentPage = DrawPageUC.Pages.InternalComponent ' Abilito bottoni angoli di fianco e lavorazioni da sotto - m_MainWindow.m_DrawPageUC.SideAngleBtn.IsEnabled = True + m_MainWindow.m_DrawPageUC.SideAngleBtn.IsEnabled = m_MainWindow.m_DrawPageUC.bEnableSideAngle m_MainWindow.m_DrawPageUC.FiloTopBtn.IsEnabled = m_MainWindow.m_CurrentMachine.bMilling m_MainWindow.m_DrawPageUC.EngraveBtn.IsEnabled = True m_MainWindow.m_DrawPageUC.DripCutBtn.IsEnabled = m_MainWindow.GetKeyOption(MainWindow.KEY_OPT.UNDER_CUT) And @@ -181,7 +181,7 @@ Public Class InternalComponentPageUC m_MainWindow.m_DrawPageUC.FiloTopBtn.IsChecked = False m_MainWindow.m_DrawPageUC.EngraveBtn.IsChecked = False m_MainWindow.m_DrawPageUC.DripCutBtn.IsChecked = False - m_MainWindow.m_DrawPageUC.SideAngleBtn.IsEnabled = True + m_MainWindow.m_DrawPageUC.SideAngleBtn.IsEnabled = m_MainWindow.m_DrawPageUC.bEnableSideAngle m_MainWindow.m_DrawPageUC.FiloTopBtn.IsEnabled = m_MainWindow.m_CurrentMachine.bMilling m_MainWindow.m_DrawPageUC.EngraveBtn.IsEnabled = True m_MainWindow.m_DrawPageUC.DripCutBtn.IsEnabled = m_MainWindow.GetKeyOption(MainWindow.KEY_OPT.UNDER_CUT) And diff --git a/DrawImport/MainComponentPageUC.xaml.vb b/DrawImport/MainComponentPageUC.xaml.vb index 9e0eff3..5ae8317 100644 --- a/DrawImport/MainComponentPageUC.xaml.vb +++ b/DrawImport/MainComponentPageUC.xaml.vb @@ -190,7 +190,7 @@ Public Class MainComponentPageUC m_MainWindow.m_DrawPageUC.FiloTopBtn.IsChecked = False m_MainWindow.m_DrawPageUC.EngraveBtn.IsChecked = False m_MainWindow.m_DrawPageUC.DripCutBtn.IsChecked = False - m_MainWindow.m_DrawPageUC.SideAngleBtn.IsEnabled = True + m_MainWindow.m_DrawPageUC.SideAngleBtn.IsEnabled = m_MainWindow.m_DrawPageUC.bEnableSideAngle m_MainWindow.m_DrawPageUC.FiloTopBtn.IsEnabled = m_MainWindow.m_CurrentMachine.bMilling m_MainWindow.m_DrawPageUC.EngraveBtn.IsEnabled = True m_MainWindow.m_DrawPageUC.DripCutBtn.IsEnabled = m_MainWindow.GetKeyOption(MainWindow.KEY_OPT.UNDER_CUT) And diff --git a/DrawImport/SecondaryComponentPageUC.xaml.vb b/DrawImport/SecondaryComponentPageUC.xaml.vb index a541cc0..e20c999 100644 --- a/DrawImport/SecondaryComponentPageUC.xaml.vb +++ b/DrawImport/SecondaryComponentPageUC.xaml.vb @@ -226,7 +226,7 @@ Public Class SecondaryComponentPageUC m_MainWindow.m_DrawPageUC.FiloTopBtn.IsChecked = False m_MainWindow.m_DrawPageUC.EngraveBtn.IsChecked = False m_MainWindow.m_DrawPageUC.DripCutBtn.IsChecked = False - m_MainWindow.m_DrawPageUC.SideAngleBtn.IsEnabled = True + m_MainWindow.m_DrawPageUC.SideAngleBtn.IsEnabled = m_MainWindow.m_DrawPageUC.bEnableSideAngle m_MainWindow.m_DrawPageUC.FiloTopBtn.IsEnabled = m_MainWindow.m_CurrentMachine.bMilling m_MainWindow.m_DrawPageUC.EngraveBtn.IsEnabled = True m_MainWindow.m_DrawPageUC.DripCutBtn.IsEnabled = m_MainWindow.GetKeyOption(MainWindow.KEY_OPT.UNDER_CUT) And diff --git a/Machine/MachineCNPageUC.xaml b/Machine/MachineCNPageUC.xaml index 96de89e..045b31c 100644 --- a/Machine/MachineCNPageUC.xaml +++ b/Machine/MachineCNPageUC.xaml @@ -49,7 +49,7 @@ - + @@ -82,7 +82,7 @@ - @@ -107,6 +107,22 @@ + + + + + + + +