EgtCAM5 :

- aggiunta gestione estensione partprogram da file Ini di macchina ([PartProgram] Extension=.XXX).
2025-04-15 16:27:16 +02:00
parent 1d156eddc1
commit 7be4dd9c75
2 changed files with 9 additions and 17 deletions
@@ -439,14 +439,15 @@ 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 & ".cnc"
+               sCncFile &= "_" & sMGrpName
               sInfo &= "-" & sMGrpName
            End If
-         Else
-            sCncFile &= ".cnc"
+            sCncFile = Path.ChangeExtension(sCncFile, sExt)
         End If
      End If
      Return True