EgtCAM5 2.7l3 :

- versione patch per COMI-ABB con correzione assegnazione estensione partprogram in generazione.
2026-01-07 11:24:22 +01:00
parent 4a7f552db6
commit 1d32d9b634
3 changed files with 7 additions and 7 deletions
@@ -451,16 +451,16 @@ Public Class SimulationExpanderVM
         sCncFile = Path.GetDirectoryName(sCurrFilePath) & "\" & sCncFile
      Else
         sCncFile = Path.ChangeExtension(sCurrFilePath, Nothing)
-         Dim sExt As String =  ".cnc"
-         EgtUILib.GetPrivateProfileString(S_PARTPROGRAM, K_EXTENSION, sExt, sExt, IniFile.m_sCurrMachIniFilePath)
         If IniFile.m_bMachiningGroup Then
            Dim sMGrpName As String = String.Empty
            If EgtGetMachGroupName(EgtGetCurrMachGroup(), sMGrpName) Then
               sCncFile &= "_" & sMGrpName
               sInfo &= "-" & sMGrpName
            End If
-            sCncFile = Path.ChangeExtension(sCncFile, sExt)
         End If
+         Dim sExt As String =  ".cnc"
+         EgtUILib.GetPrivateProfileString(S_PARTPROGRAM, K_EXTENSION, sExt, sExt, IniFile.m_sCurrMachIniFilePath)
+         sCncFile = Path.ChangeExtension(sCncFile, sExt)
      End If
      Return True
   End Function