EgtCAM5 :

- Migliorie varie.
This commit is contained in:
Emmanuele Sassi
2016-07-10 13:35:23 +00:00
parent f998a8d632
commit f2def4d859
+2 -2
View File
@@ -27,8 +27,8 @@ Namespace EgtCAM5
Set(value As Machine)
If value IsNot m_SelectedMachine Then
m_SelectedMachine = value
'EgtSetCurrentContext(IniFile.m_ProjectSceneContext)
EgtSetCurrMachine(m_SelectedMachine.Name)
EgtSetCurrentContext(IniFile.m_ProjectSceneContext)
Dim x = EgtSetCurrMachine(m_SelectedMachine.Name)
IniFile.m_sDbsCurrMachIniFilePath = m_SelectedMachine.MachineDirPath & "\" & m_SelectedMachine.Name & ".ini"
'IniFile.m_sTdbCurrMachToolsDirPath = m_SelectedMachine.MachineDirPath & "\Tools"
m_MachiningsList.Clear()