EgtCAM5 :

- migliorie per macchina con DB utensili e lavorazioni al cambio progetto.
2016-07-15 06:46:47 +00:00
parent d88d8f5b10
commit 936eb5ba44
6 changed files with 37 additions and 8 deletions
@@ -266,6 +266,17 @@ Namespace EgtCAM5
                                                                      m_ToolsList.Clear()
                                                                      LoadSelectedMachineTools()
                                                                   End Sub)
+         Application.Msn.Register(Application.SETFIRSTTOOLFAMILY, Sub()
+                                                                          For Each ToolFamily In ToolsList
+                                                                             For Each Tool In ToolFamily.Items
+                                                                                Tool.IsSelected = False
+                                                                             Next
+                                                                             ToolFamily.IsExpanded = False
+                                                                             ToolFamily.IsSelected = False
+                                                                          Next
+                                                                          If ToolsList.Count > 0 Then
+                                                                             ToolsList(0).IsSelected = True
+                                                                          End If
                                                                       End Sub)

      End Sub