Dario Sassi
30336b693d
- modifiche per gestione inclinazione lati anche su loop interni di componenti e di pezzi importati - aggiunti bottoni per comandi di visualizzazione e misura in pagina componenti - correzione attrezzaggio con doppio click in posizioni manuali.
97 lines
3.6 KiB
VB.net
97 lines
3.6 KiB
VB.net
Imports EgtUILib
|
|
|
|
Public Class SceneButtonsUC
|
|
|
|
'Riferimento alla MainWindow
|
|
Dim m_MainWindow As MainWindow = DirectCast(Application.Current.MainWindow, MainWindow)
|
|
|
|
Private Sub MeasureBtn_Checked(sender As Object, e As RoutedEventArgs) Handles MeasureBtn.Checked
|
|
GetCurrScene.SetStatusGetDistance()
|
|
Dim ptRef1 As Point3d
|
|
If EgtGetTableRef(1, ptRef1) Then
|
|
EgtSetGridFrame(New Frame3d(ptRef1))
|
|
GetCurrScene.SetGridCursorPos(True)
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub MeasureBtn_Unchecked(sender As Object, e As RoutedEventArgs) Handles MeasureBtn.Unchecked
|
|
GetCurrScene.ResetStatusGetDistance()
|
|
GetCurrScene.SetStatusNull()
|
|
Select Case m_MainWindow.m_ActivePage
|
|
Case MainWindow.Pages.Open
|
|
m_MainWindow.m_OpenPage.MessageTxBx.Text = ""
|
|
m_MainWindow.m_OpenPage.MessageBrd.Background = Brushes.Transparent
|
|
Case MainWindow.Pages.Draw
|
|
m_MainWindow.m_DrawPageUC.MessageTxBx.Text = ""
|
|
m_MainWindow.m_DrawPageUC.MessageBrd.Background = Brushes.Transparent
|
|
Case MainWindow.Pages.Import
|
|
m_MainWindow.m_ImportPageUC.MessageTxBx.Text = ""
|
|
m_MainWindow.m_ImportPageUC.MessageBrd.Background = Brushes.Transparent
|
|
Case Else
|
|
m_MainWindow.m_CurrentProjectPageUC.ClearMessage()
|
|
End Select
|
|
End Sub
|
|
|
|
Private Sub ZoomAllBtn_Click(sender As Object, e As RoutedEventArgs) Handles ZoomAllBtn.Click
|
|
EgtZoom(ZM.ALL)
|
|
End Sub
|
|
|
|
Private Sub ZoomInBtn_Click(sender As Object, e As RoutedEventArgs) Handles ZoomInBtn.Click
|
|
EgtZoom(ZM.IN_)
|
|
End Sub
|
|
|
|
Private Sub ZoomOutBtn_Click(sender As Object, e As RoutedEventArgs) Handles ZoomOutBtn.Click
|
|
EgtZoom(ZM.OUT)
|
|
End Sub
|
|
|
|
'Private Sub ZoomWinBtn_Click(sender As Object, e As RoutedEventArgs) Handles ZoomWinBtn.Click
|
|
' GetCurrScene.SetStatusZoomWin()
|
|
'End Sub
|
|
|
|
Private Sub PanBtn_Click(sender As Object, e As RoutedEventArgs) Handles PanBtn.Click
|
|
GetCurrScene.SetStatusPan()
|
|
End Sub
|
|
|
|
Private Sub GenericViewBtn_Click(sender As Object, e As RoutedEventArgs) Handles GenericViewBtn.Click
|
|
If Keyboard.IsKeyDown(Key.T) Then
|
|
EgtSetView(VT.TOP)
|
|
ElseIf Keyboard.IsKeyDown(Key.F) Then
|
|
EgtSetView(VT.FRONT)
|
|
ElseIf Keyboard.IsKeyDown(Key.B) Then
|
|
EgtSetView(VT.BACK)
|
|
ElseIf Keyboard.IsKeyDown(Key.L) Then
|
|
EgtSetView(VT.LEFT)
|
|
ElseIf Keyboard.IsKeyDown(Key.R) Then
|
|
EgtSetView(VT.RIGHT)
|
|
Else
|
|
GetCurrScene.SetStatusRot()
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub TopViewBtn_Click(sender As Object, e As RoutedEventArgs) Handles TopViewBtn.Click
|
|
EgtSetView(VT.TOP)
|
|
End Sub
|
|
|
|
Private Function GetCurrScene() As EgtUILib.Scene
|
|
Select Case m_MainWindow.m_ActivePage
|
|
Case MainWindow.Pages.WorkInProgress
|
|
Return m_MainWindow.m_WorkInProgressPageUC.WorkInProgressScene
|
|
Case MainWindow.Pages.DirectCut
|
|
Return m_MainWindow.m_CurrentProjectPageUC.CurrentProjectScene
|
|
Case MainWindow.Pages.CadCut
|
|
Return m_MainWindow.m_CurrentProjectPageUC.CurrentProjectScene
|
|
Case MainWindow.Pages.Open
|
|
Return m_MainWindow.m_OpenPage.OpenScene
|
|
Case MainWindow.Pages.FrameCut
|
|
Return m_MainWindow.m_CurrentProjectPageUC.CurrentProjectScene
|
|
Case MainWindow.Pages.Draw
|
|
Return m_MainWindow.m_DrawPageUC.DrawScene
|
|
Case MainWindow.Pages.Import
|
|
Return m_MainWindow.m_ImportPageUC.ImportScene
|
|
Case Else
|
|
Return m_MainWindow.m_CurrentProjectPageUC.CurrentProjectScene
|
|
End Select
|
|
End Function
|
|
|
|
End Class
|