EgtCAM5 :

- Chiusura automatica expander nel DrawPanel e nel OperationParameters Expander.
- Migliorie varie.

ProjectPage/OptionPanel/MachiningOptionPanel/SimulationExpander/SimulationExpanderViewModel.vb

@@ -1,4 +1,6 @@
-Imports EgtUILib
+Imports System.IO
+Imports EgtUILib
+
 Namespace EgtCAM5
 
    Public Class SimulationExpanderViewModel
@@ -259,6 +261,7 @@ Namespace EgtCAM5
       Private m_cmdStep As ICommand
       Private m_cmdPlayPause As ICommand
       Private m_cmdStop As ICommand
+      Private m_cmdGenerate As ICommand
 
 #End Region
 
@@ -422,6 +425,39 @@ Namespace EgtCAM5
 
 #End Region ' StopCommand
 
+#Region "GenerateCommand"
+
+      ''' <summary>
+      ''' Returns a command that create a new tool.
+      ''' </summary>
+      Public ReadOnly Property GenerateCommand As ICommand
+         Get
+            If m_cmdGenerate Is Nothing Then
+               m_cmdGenerate = New RelayCommand(AddressOf Generate, AddressOf CanGenerate)
+            End If
+            Return m_cmdGenerate
+         End Get
+      End Property
+
+      ''' <summary>
+      ''' Creata the new tool.  This method is invoked by the NewCommand.
+      ''' </summary>
+      Public Sub Generate(ByVal param As Object)
+         Dim sInfo As String = "EgtCAM5"
+         Dim sCurrFilePath As String = String.Empty
+         EgtGetCurrFilePath(sCurrFilePath)
+         EgtGenerate(Path.ChangeExtension(sCurrFilePath, ".cnc"), sInfo)
+      End Sub
+
+      ''' <summary>
+      ''' Returns true if the selected treeviewitem is valid for new tool creation.
+      ''' </summary>
+      Private Function CanGenerate(ByVal param As Object) As Boolean
+         Return True
+      End Function
+
+#End Region ' GenerateCommand
+
 #End Region
 
 #Region "METHODS"