EgtCAM5 1.8j2 :

- nel caso di progetti con più macchinate il programma CN di ogni macchinata prende il nome del progetto più quello della macchinata - migliorata visualizzazione testi in status bar.
2017-10-12 18:18:05 +00:00
parent 14fcb9e5bb
commit 865afe4279
3 changed files with 18 additions and 4 deletions
@@ -414,11 +414,22 @@ Namespace EgtCAM5
      Public Sub Generate(ByVal param As Object)
         Dim sCurrFilePath As String = String.Empty
         EgtGetCurrFilePath(sCurrFilePath)
-         If String.IsNullOrEmpty(sCurrFilePath) Then
+         If String.IsNullOrEmpty(sCurrFilePath) OrElse EgtGetModified() Then
            MessageBox.Show(EgtMsg(MSG_SIMULATION + 31), EgtMsg(MSG_SIMULATION + 5), MessageBoxButton.OK, MessageBoxImage.Stop)
+            Return
         End If
+         Dim sCncFile As String = Path.ChangeExtension(sCurrFilePath, Nothing)
         Dim sInfo As String = "EgtCAM5 - " & sCurrFilePath
-         If Not EgtGenerate(Path.ChangeExtension(sCurrFilePath, ".cnc"), sInfo) Then
+         If IniFile.m_bMachiningGroup Then
+            Dim sMGrpName As String = String.Empty
+            If EgtGetMachGroupName(EgtGetCurrMachGroup(), sMGrpName) Then
+               sCncFile &= "_" & sMGrpName & ".cnc"
+               sInfo &= "-" & sMGrpName
+            End If
+         Else
+            sCncFile &= ".cnc"
+         End If
+         If Not EgtGenerate(sCncFile, sInfo) Then
            If EgtGetLastMachMgrErrorId() <> 0 Then
               Dim sErr As String = EgtGetLastMachMgrErrorString()
               MessageBox.Show(sErr, EgtMsg(MSG_SIMULATION + 5), MessageBoxButton.OK, MessageBoxImage.Exclamation)