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-10 11:34:07 +00:00
parent ec2f7a38ef
commit f8b17066de
41 changed files with 1706 additions and 282 deletions
Download Patch File Download Diff File Expand all files Collapse all files
ProjectPage/ProjectViewModel.vb
+6 -53
View File
@@ -97,6 +97,7 @@ Namespace EgtCAM5
RegisterControllerCommands()
ManageTopCommandBar()
' Funzione che contiene la registrazione di tutti le funzioni del DrawPanel
RegisterGridViewPanelCommands()
RegisterDrawPanelCommands()
' Funzione che contiene la registrazione di tutti i comandi del DrawOptionPanel
RegisterDrawOptionPanelCommands()
@@ -241,7 +242,7 @@ Namespace EgtCAM5
''' <summary>
''' Method that manage the visibility of the ProjectPage's Panels
''' </summary>
Sub RegisterDrawPanelCommands()
Sub RegisterGridViewPanelCommands()
Application.Msn.Register(Application.WIREFRAME, Sub()
m_ProjectScene.WireFrame()
End Sub)
@@ -346,6 +347,9 @@ Namespace EgtCAM5
Application.Msn.Register(Application.CPLANEOBJ, Sub()
m_Controller.ExecuteCommand(Controller.CMD.GRID_OBJ)
End Sub)
End Sub
Sub RegisterDrawPanelCommands()
Application.Msn.Register(Application.POINT, Sub()
If (Keyboard.Modifiers And ModifierKeys.Control) = ModifierKeys.Control Then
m_Controller.ExecuteCommand(Controller.CMD.FRAME)
@@ -369,13 +373,6 @@ Namespace EgtCAM5
m_Controller.ExecuteCommand(Controller.CMD.LINEPVL)
End If
End Sub)
Application.Msn.Register(Application.CIRCLE, Sub()
If (Keyboard.Modifiers And ModifierKeys.Shift) <> ModifierKeys.Shift Then
m_Controller.ExecuteCommand(Controller.CMD.CIRCLECP)
Else
m_Controller.ExecuteCommand(Controller.CMD.CIRCLECD)
End If
End Sub)
Application.Msn.Register(Application.ARCPDP, Sub()
If (Keyboard.Modifiers And ModifierKeys.Shift) <> ModifierKeys.Shift Then
If (Keyboard.Modifiers And ModifierKeys.Control) = ModifierKeys.Control Then
@@ -387,14 +384,7 @@ Namespace EgtCAM5
m_Controller.ExecuteCommand(Controller.CMD.ARCPVP)
End If
End Sub)
Application.Msn.Register(Application.FILLET, Sub()
If (Keyboard.Modifiers And ModifierKeys.Shift) <> ModifierKeys.Shift Then
m_Controller.ExecuteCommand(Controller.CMD.FILLET)
Else
m_Controller.ExecuteCommand(Controller.CMD.CHAMFER)
End If
End Sub)
Application.Msn.Register(Application.POLYGON, Sub()
Application.Msn.Register(Application.POLYGON, Sub()
If (Keyboard.Modifiers And ModifierKeys.Shift) <> ModifierKeys.Shift Then
m_Controller.ExecuteCommand(Controller.CMD.POLYGON)
Else
@@ -419,22 +409,6 @@ Namespace EgtCAM5
m_Controller.SetLastInteger(GDB_ID.SEL)
m_Controller.ExecuteCommand(Controller.CMD.DELETE)
End Sub)
Application.Msn.Register(Application.CHANGECOLOR, Sub()
If (Keyboard.Modifiers And ModifierKeys.Control) = ModifierKeys.Control Then
m_Controller.ExecuteCommand(Controller.CMD.CHANGEALPHA)
ElseIf (Keyboard.Modifiers And ModifierKeys.Shift) = ModifierKeys.Shift Then
m_Controller.ExecuteCommand(Controller.CMD.RESETCOLOR)
Else
m_Controller.ExecuteCommand(Controller.CMD.CHANGECOLOR)
End If
End Sub)
Application.Msn.Register(Application.BREAKCURVE, Sub()
If (Keyboard.Modifiers And ModifierKeys.Shift) <> ModifierKeys.Shift Then
m_Controller.ExecuteCommand(Controller.CMD.BREAKCURVE)
Else
m_Controller.ExecuteCommand(Controller.CMD.SPLITCURVE)
End If
End Sub)
Application.Msn.Register(Application.JOINCURVE, Sub()
If (Keyboard.Modifiers And ModifierKeys.Shift) <> ModifierKeys.Shift Then
m_Controller.SetLastBoolean(False)
@@ -443,27 +417,6 @@ Namespace EgtCAM5
End If
m_Controller.ExecuteCommand(Controller.CMD.JOINCURVE)
End Sub)
Application.Msn.Register(Application.ROTATE, Sub()
If (Keyboard.Modifiers And ModifierKeys.Shift) <> ModifierKeys.Shift Then
m_Controller.ExecuteCommand(Controller.CMD.ROTATE)
Else
m_Controller.ExecuteCommand(Controller.CMD.ROTATE3D)
End If
End Sub)
Application.Msn.Register(Application.MIRROR, Sub()
If (Keyboard.Modifiers And ModifierKeys.Shift) <> ModifierKeys.Shift Then
m_Controller.ExecuteCommand(Controller.CMD.MIRROR)
Else
m_Controller.ExecuteCommand(Controller.CMD.MIRROR3D)
End If
End Sub)
Application.Msn.Register(Application.SCALE, Sub()
If (Keyboard.Modifiers And ModifierKeys.Shift) <> ModifierKeys.Shift Then
m_Controller.ExecuteCommand(Controller.CMD.SCALE)
Else
m_Controller.ExecuteCommand(Controller.CMD.SCALE3D)
End If
End Sub)
End Sub
Sub RegisterDrawOptionPanelCommands()