Egalware/EgtCAM5
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

EgtCAM5 :

Browse Source 
- Migliorie varie.
This commit is contained in:
Emmanuele Sassi
2016-07-12 12:48:33 +00:00
parent a6281d384f
commit dffec5fc1d
17 changed files with 2797 additions and 2670 deletions
Download Patch File Download Diff File Expand all files Collapse all files
ProjectPage/ProjectViewModel.vb
+10 -3
View File
@@ -142,7 +142,9 @@ Namespace EgtCAM5
' inizializzo gestore lavorazioni
EgtInitMachMgr(IniFile.m_sMachinesRoot)
End If
' Seleziono la macchina impostata nel file ini
Application.Msn.NotifyColleagues(Application.LOADCURRENTMACHINE)
EgtSetCurrentContext(IniFile.m_ProjectSceneContext)
End Sub
''' <summary>
@@ -552,7 +554,7 @@ Namespace EgtCAM5
End Sub)
Application.Msn.Register(Application.SAVEPROJECT, Sub()
Dim nType As NGE = GetPrivateProfileInt(S_GEOMDB, K_SAVETYPE, NGE.CMPTEXT)
Dim nType As NGE = DirectCast(GetPrivateProfileInt(S_GEOMDB, K_SAVETYPE, NGE.CMPTEXT), NGE)
If Not String.IsNullOrWhiteSpace(m_Controller.GetCurrFile()) Then
m_Controller.SaveProject(nType)
Else
@@ -565,7 +567,7 @@ Namespace EgtCAM5
End Sub)
Application.Msn.Register(Application.SAVEASPROJECT, Sub()
Dim nType As NGE = GetPrivateProfileInt(S_GEOMDB, K_SAVETYPE, NGE.CMPTEXT)
Dim nType As NGE = DirectCast(GetPrivateProfileInt(S_GEOMDB, K_SAVETYPE, NGE.CMPTEXT), NGE)
Dim sFile As String = m_Controller.GetCurrFile()
If String.IsNullOrWhiteSpace(sFile) Then
GetPrivateProfileString(S_GENERAL, K_LASTNGEDIR, "", sFile)
@@ -599,6 +601,11 @@ Namespace EgtCAM5
'End If
End Sub)
Application.Msn.Register(Application.DOORSPROJECT, Sub()
Dim bOk As Boolean = ExecDoors(m_ProjectScene)
OnUpdateUI(Nothing, True)
If Not bOk Then Application.Msn.NotifyColleagues(Application.NOTIFYSTATUSOUTPUT, "Error running Ddf file")
End Sub)
End Sub