EgtCAM5 1.6s3 :

- modifiche varie per gestione chiave, istanze, log e log dei comandi.

ProjectPage/ProjectViewModel.vb

@@ -12,6 +12,8 @@ Namespace EgtCAM5
 
       Private m_CloseProgram As Boolean = False
 
+      Private m_bLoaded As Boolean = False
+
       'PROJECT PAGE'S PANELS
       Private m_GridViewPanel As BaseWindowView
       Private m_DrawPanel As BaseWindowView
@@ -121,6 +123,8 @@ Namespace EgtCAM5
       ''' Execute the Point.  This method is invoked by the PointCommand.
       ''' </summary>
       Public Sub Loaded(ByVal param As Object)
+         If m_bLoaded Then Return
+         m_bLoaded = True
          ' Creazione scena
          PreInitializeScene()
          If Not m_ProjectScene.Init() Then
@@ -197,16 +201,17 @@ Namespace EgtCAM5
       End Sub
 
       Private Sub PostInitializeScene()
-         'Impostazioni Controller
+         ' Impostazioni Controller
          m_Controller.SetScene(m_ProjectScene)
          Dim bLuaReg As Boolean = (GetPrivateProfileInt(S_GENERAL, K_COMMANDLOG, 0) <> 0)
-         'If Not m_Controller.SetCommandLog(bLuaReg, m_sTempDir, sCmdLogFile) Then
-         EgtOutLog("Command log not started")
-         If Environment.GetCommandLineArgs.Count() = 0 Then
-            MessageBox.Show("Command log not started", "TestEIn Warning",
-                            MessageBoxButton.OK, MessageBoxImage.Warning)
+         Dim sCmdLogFile As String = CMDLOG_FILE_NAME.Replace("#", m_nInstance.ToString())
+         If Not m_Controller.SetCommandLog(bLuaReg, m_sTempDir, sCmdLogFile) Then
+            EgtOutLog("Command log not started")
+            If Environment.GetCommandLineArgs.Count() = 0 Then
+               MessageBox.Show("Command log not started", "TestEIn Warning",
+                               MessageBoxButton.OK, MessageBoxImage.Warning)
+            End If
          End If
-         'End If
          ' imposto unità di misura per interfaccia utente
          m_bMmUnits = (GetPrivateProfileInt(S_SCENE, K_MMUNITS, 1) <> 0)
          Application.Msn.NotifyColleagues(Application.UPDATESTATUSUNITS, m_bMmUnits)