diff --git a/Icarus/SceneHost/MySceneHostVM.vb b/Icarus/SceneHost/MySceneHostVM.vb index d8bb87b..8cb2eb7 100644 --- a/Icarus/SceneHost/MySceneHostVM.vb +++ b/Icarus/SceneHost/MySceneHostVM.vb @@ -865,9 +865,20 @@ Public Class MySceneHostVM End If MessageBox.Show(Application.Current.MainWindow, sMsg, EgtMsg(10001), MessageBoxButton.OK, MessageBoxImage.Error) 'Error End If - ' leggo materiale + ' leggo materiale e macchina Dim nTabPartId As Integer = EgtGetFirstNameInGroup(GDB_ID.ROOT, TABLE) If nTabPartId <> GDB_ID.NULL Then + Dim sMachineName As String = "" + EgtGetInfo(nTabPartId, KEY_MACHINE_NAME, sMachineName) + Dim ProjectMachine As Machine = Map.refMachinePanelVM.MachineList.FirstOrDefault(Function(x) x.Name = sMachineName) + If Not IsNothing(ProjectMachine) Then + ' imposto la macchina + Map.refMachinePanelVM.SelectedMachine = ProjectMachine + Else + MessageBox.Show("Project machine not found! Impossible to open the project.", "Error", MessageBoxButton.OK, MessageBoxImage.Error) + Map.refProjManagerVM.NewProject(False) + Return + End If Dim sMaterialGuid As String = "" EgtGetInfo(nTabPartId, KEY_MATERIAL_GUID, sMaterialGuid) Dim MaterialGuid As Guid diff --git a/Icarus/TSFEditor/TFSEditorV.xaml b/Icarus/TSFEditor/TFSEditorV.xaml index 03f40e0..bd8369b 100644 --- a/Icarus/TSFEditor/TFSEditorV.xaml +++ b/Icarus/TSFEditor/TFSEditorV.xaml @@ -17,7 +17,7 @@ @@ -31,11 +31,13 @@ @@ -45,11 +47,13 @@ @@ -59,11 +63,13 @@