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

EgtCAM5 :

Browse Source 
- migliorie gestione albero geometrie.
This commit is contained in:
Dario Sassi
2016-09-16 07:45:38 +00:00
parent 77e8258c1f
commit d4dbb41255
5 changed files with 84 additions and 39 deletions
Download Patch File Download Diff File Expand all files Collapse all files
ProjectPage/ProjectViewModel.vb
+8 -4
View File
@@ -221,7 +221,7 @@ Namespace EgtCAM5
' nascondo input box
Application.Msn.NotifyColleagues(Application.RESETINPUTBOX)
' Apro progetto vuoto
m_Controller.NewProject(True)
Application.Msn.NotifyColleagues(Application.NEWPROJECT)
End Sub
@@ -538,8 +538,8 @@ Namespace EgtCAM5
End Sub
Sub RegisterControllerCommands()
Application.Msn.Register(Application.EXECUTECOMMAND, Sub(sString As Controller.CMD)
m_Controller.ExecuteCommand(sString)
Application.Msn.Register(Application.EXECUTECOMMAND, Sub(nCmd As Controller.CMD)
m_Controller.ExecuteCommand(nCmd)
End Sub)
Application.Msn.Register(Application.MANAGEMODIFIED, Sub()
Dim AllowClose = m_Controller.ManageModified()
@@ -566,12 +566,14 @@ Namespace EgtCAM5
Private Sub ManageTopCommandBar()
Application.Msn.Register(Application.NEWPROJECT, Sub()
m_Controller.NewProject(True)
Application.Msn.NotifyColleagues(Application.SELECTIDINOBJTREENOMARK, EgtGetCurrLayer())
End Sub)
Application.Msn.Register(Application.OPENPROJECT, Sub()
If (Keyboard.Modifiers And ModifierKeys.Shift) <> ModifierKeys.Shift Then
Dim sDir As String = String.Empty
GetPrivateProfileString(S_GENERAL, K_LASTNGEDIR, "", sDir)
m_Controller.OpenProject(sDir)
Application.Msn.NotifyColleagues(Application.SELECTIDINOBJTREENOMARK, EgtGetCurrLayer())
Else
'ShowMenuMruFiles(btnOpen, New Point(0, btnOpen.Height))
End If
@@ -598,7 +600,6 @@ Namespace EgtCAM5
sFile += "\New" & m_nInstance.ToString() & ".nge"
End If
m_Controller.SaveAsProject(sFile, nType)
End Sub)
Application.Msn.Register(Application.INSERTPROJECT, Sub()
' eseguo
@@ -610,6 +611,7 @@ Namespace EgtCAM5
Dim sDir As String = String.Empty
GetPrivateProfileString(S_GENERAL, K_LASTIMPDIR, "", sDir)
m_Controller.ImportProject(sDir)
Application.Msn.NotifyColleagues(Application.SELECTIDINOBJTREENOMARK, EgtGetCurrLayer())
End Sub)
Application.Msn.Register(Application.EXPORTPROJECT, Sub()
m_Controller.ExportProject(Path.ChangeExtension(m_Controller.GetCurrFile(), "dxf"))
@@ -619,6 +621,7 @@ Namespace EgtCAM5
Dim sDir As String = String.Empty
GetPrivateProfileString(S_GENERAL, K_LASTLUADIR, "", sDir)
m_Controller.Exec(sDir)
Application.Msn.NotifyColleagues(Application.SELECTIDINOBJTREE, EgtGetCurrLayer())
'Else
' ShowMenuMruScripts(btnExec, New Point(0, btnExec.Height))
'End If
@@ -626,6 +629,7 @@ Namespace EgtCAM5
Application.Msn.Register(Application.DOORSSCRIPT, Sub()
Dim bOk As Boolean = ExecDoors(m_ProjectScene)
OnUpdateUI(Nothing, True)
Application.Msn.NotifyColleagues(Application.SELECTIDINOBJTREE, EgtGetCurrLayer())
If Not bOk Then Application.Msn.NotifyColleagues(Application.NOTIFYSTATUSOUTPUT, "Error running Ddf file")
End Sub)
Application.Msn.Register(Application.DMACHSCRIPT, Sub()