Gestione separazione tagli waterjet in pagina Nest

2022-05-23 15:54:01 +02:00
parent 2362c8df61
commit ccfc8f89e4
6 changed files with 175 additions and 5 deletions
@@ -571,6 +571,8 @@ Class MainWindow
      TestOff()
      ' disabilito DragRettangle
      DragRettangleOff()
+      ' disabilito SplitCurv
+      SplitCurvWJOff()
      Select Case m_ActivePage
         Case Pages.WorkInProgress
            WorkInProgressBtn.IsChecked = True
@@ -628,6 +630,7 @@ Class MainWindow
      m_CurrentProjectPageUC.m_SceneButtons.MeasureBtn.IsChecked = False
      TestOff()
      DragRettangleOff()
+      SplitCurvWJOff()
      Select Case m_ActivePage
         Case Pages.WorkInProgress
            WorkInProgressBtn.IsChecked = False
@@ -682,6 +685,7 @@ Class MainWindow
      m_CurrentProjectPageUC.m_SceneButtons.MeasureBtn.IsChecked = False
      TestOff()
      DragRettangleOff()
+      SplitCurvWJOff()
      Select Case m_ActivePage
         Case Pages.WorkInProgress
            WorkInProgressBtn.IsChecked = False
@@ -735,6 +739,7 @@ Class MainWindow
      m_CurrentProjectPageUC.m_SceneButtons.MeasureBtn.IsChecked = False
      TestOff()
      DragRettangleOff()
+      SplitCurvWJOff()
      Select Case m_ActivePage
         Case Pages.WorkInProgress
            WorkInProgressBtn.IsChecked = False
@@ -789,6 +794,7 @@ Class MainWindow
      m_CurrentProjectPageUC.m_SceneButtons.MeasureBtn.IsChecked = False
      TestOff()
      DragRettangleOff()
+      SplitCurvWJOff()
      Select Case m_ActivePage
         Case Pages.WorkInProgress
            WorkInProgressBtn.IsChecked = False
@@ -838,6 +844,7 @@ Class MainWindow
      m_CurrentProjectPageUC.m_SceneButtons.MeasureBtn.IsChecked = False
      TestOff()
      DragRettangleOff()
+      SplitCurvWJOff()
      Select Case m_ActivePage
         Case Pages.WorkInProgress
            WorkInProgressBtn.IsChecked = False
@@ -1905,4 +1912,11 @@ Class MainWindow

   End Sub

+   Public Sub SplitCurvWJOff()
+      m_CadCutPageUC.m_NestPage.SplitCurveWJBtn.IsChecked = False
+      Me.m_CadCutPageUC.m_NestPage.m_bIsCheckedSplitCurveWJ = False
+      m_CadCutPageUC.m_NestPage.ResetSplitCurvWJParam()
+
+   End Sub
+
 End Class