EgtCAM5 2.4e2 :

- modifiche per lancio script Beam e Wall con parametro BW (per ottimizzazioni)
- modifiche per passare agli stessi script il direttorio di esecuzione
- possibilità di settare direttori a parte per 64 bit per esecuzione script Beam e Wall (solo uso interno).

Project/ProjectVM.vb

@@ -11,6 +11,9 @@ Public Class ProjectVM
 
 #Region "FIELDS"
 
+    Friend Event OnPreControllerExec(sFilePath As String)
+    Friend Event OnPostControllerExec()
+
     ' Variabili in cui salvo i filtri di selezione della modalità Draw e che poi ripristino all'uscita dalla modalità Machining
     Private m_bSelZeroDim As Boolean = True
     Private m_bSelCurve As Boolean = True
@@ -64,8 +67,9 @@ Public Class ProjectVM
 #Region "CONSTRUCTOR"
 
     Sub New()
-        ' Creo riferimento a questa classe in EgtCAM5Map
+        ' Creo riferimento a questa classe in EgtCAM5Map e in ButtonItem
         Map.SetRefProjectVM(Me)
+        ButtonItem.m_ProjectVM = Me
         ' Creo classe di supporto per la visualizzazione dei parametri utensile e di lavorazione per Db e operazioni
         TMDbParamVisibility.bFirst = True
         ' Inizializza i parametri della scena
@@ -228,7 +232,6 @@ Public Class ProjectVM
 
    Private Sub PostInitializeScene()
       ' Impostazioni Controller
-      m_Controller.SetUserLevel( IniFile.m_nUserLevel)
       m_Controller.SetScene(m_ProjectScene)
       Dim bLuaReg As Boolean = (GetPrivateProfileInt(S_GENERAL, K_COMMANDLOG, 0) <> 0)
       Dim sCmdLogFile As String = CMDLOG_FILE_NAME.Replace("#", IniFile.m_nInstance.ToString())
@@ -236,7 +239,7 @@ Public Class ProjectVM
          EgtOutLog("Command log not started")
          If Environment.GetCommandLineArgs.Count() <= 1 Then
                MessageBox.Show("Command log not started", "EgtCAM5 Warning",
-                           MessageBoxButton.OK, MessageBoxImage.Warning)
+                               MessageBoxButton.OK, MessageBoxImage.Warning)
          End If
       End If
       m_Controller.SetSurfTmTolerance(OptionModule.m_dGeometryTolerance)
@@ -644,13 +647,15 @@ Public Class ProjectVM
       m_bScriptInMru = bScriptInMru
    End Sub
 
-   Friend Sub ExecScript(sFilePath As String)
+   Friend Sub ExecScript(sFilePath As String, Optional bRaiseEvent As Boolean = False)
       If String.IsNullOrEmpty(sFilePath) Then
          Dim sDir As String = String.Empty
          GetPrivateProfileString(S_GENERAL, K_LASTLUADIR, "", sDir)
          m_Controller.Exec(sDir)
       Else
+         If bRaiseEvent Then RaiseEvent OnPreControllerExec( sFilePath)
          m_Controller.Exec(sFilePath, False)
+         If bRaiseEvent Then RaiseEvent OnPostControllerExec()
       End If
       Dim bMachiningMode As Boolean = EgtGetCurrMachGroup() <> GDB_ID.NULL
       If Not bMachiningMode And EgtGetCurrLayer() = GDB_ID.NULL Then