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-09 10:44:36 +00:00
parent f77e074d23
commit bca8754b82
18 changed files with 653 additions and 267 deletions
Download Patch File Download Diff File Expand all files Collapse all files
ProjectPage/DrawPanel/DrawPanelViewModel.vb
+21 -19
View File
@@ -1,4 +1,6 @@
Namespace EgtCAM5
Imports EgtUILib
Namespace EgtCAM5
Public Class DrawPanelViewModel
Inherits ViewModelBase
@@ -182,7 +184,7 @@
''' Execute the ArcCSE. This method is invoked by the ArcCSECommand.
''' </summary>
Public Sub ArcCSE(ByVal param As Object)
Application.Msn.NotifyColleagues(Application.ARCCSE)
Application.Msn.NotifyColleagues(Application.EXECUTECOMMAND, Controller.CMD.ARCCSE)
End Sub
''' <summary>
@@ -212,7 +214,7 @@
''' Execute the Arc3P. This method is invoked by the Arc3PCommand.
''' </summary>
Public Sub Arc3P(ByVal param As Object)
Application.Msn.NotifyColleagues(Application.ARC3P)
Application.Msn.NotifyColleagues(Application.EXECUTECOMMAND, Controller.CMD.ARC3P)
End Sub
''' <summary>
@@ -302,7 +304,7 @@
''' Execute the Rectangle2P. This method is invoked by the Rectangle2PCommand.
''' </summary>
Public Sub Rectangle2P(ByVal param As Object)
Application.Msn.NotifyColleagues(Application.RECTANGLE2P)
Application.Msn.NotifyColleagues(Application.EXECUTECOMMAND, Controller.CMD.RECTANGLE2P)
End Sub
''' <summary>
@@ -422,7 +424,7 @@
''' Execute the Extrude. This method is invoked by the ExtrudeCommand.
''' </summary>
Public Sub Extrude(ByVal param As Object)
Application.Msn.NotifyColleagues(Application.EXTRUDE)
Application.Msn.NotifyColleagues(Application.EXECUTECOMMAND, Controller.CMD.EXTRUDE)
End Sub
''' <summary>
@@ -452,7 +454,7 @@
''' Execute the Revolve. This method is invoked by the RevolveCommand.
''' </summary>
Public Sub Revolve(ByVal param As Object)
Application.Msn.NotifyColleagues(Application.REVOLVE)
Application.Msn.NotifyColleagues(Application.EXECUTECOMMAND, Controller.CMD.REVOLVE)
End Sub
''' <summary>
@@ -482,7 +484,7 @@
''' Execute the Screw. This method is invoked by the ScrewCommand.
''' </summary>
Public Sub Screw(ByVal param As Object)
Application.Msn.NotifyColleagues(Application.SCREW)
Application.Msn.NotifyColleagues(Application.EXECUTECOMMAND, Controller.CMD.SCREW)
End Sub
''' <summary>
@@ -512,7 +514,7 @@
''' Execute the Ruled. This method is invoked by the RuledCommand.
''' </summary>
Public Sub Ruled(ByVal param As Object)
Application.Msn.NotifyColleagues(Application.RULED)
Application.Msn.NotifyColleagues(Application.EXECUTECOMMAND, Controller.CMD.RULED)
End Sub
''' <summary>
@@ -542,7 +544,7 @@
''' Execute the MergeSurf. This method is invoked by the MergeSurfCommand.
''' </summary>
Public Sub MergeSurf(ByVal param As Object)
Application.Msn.NotifyColleagues(Application.MERGESURF)
Application.Msn.NotifyColleagues(Application.EXECUTECOMMAND, Controller.CMD.MERGESURF)
End Sub
''' <summary>
@@ -572,7 +574,7 @@
''' Execute the ExplodeSurf. This method is invoked by the ExplodeSurfCommand.
''' </summary>
Public Sub ExplodeSurf(ByVal param As Object)
Application.Msn.NotifyColleagues(Application.MERGESURF)
Application.Msn.NotifyColleagues(Application.EXECUTECOMMAND, Controller.CMD.EXPLODESURF)
End Sub
''' <summary>
@@ -602,7 +604,7 @@
''' Execute the InvertSurf. This method is invoked by the InvertSurfCommand.
''' </summary>
Public Sub InvertSurf(ByVal param As Object)
Application.Msn.NotifyColleagues(Application.INVERTSURF)
Application.Msn.NotifyColleagues(Application.EXECUTECOMMAND, Controller.CMD.INVERTSURF)
End Sub
''' <summary>
@@ -662,7 +664,7 @@
''' Execute the ChangeLayer. This method is invoked by the ChangeLayerCommand.
''' </summary>
Public Sub ChangeLayer(ByVal param As Object)
Application.Msn.NotifyColleagues(Application.CHANGELAYER)
Application.Msn.NotifyColleagues(Application.EXECUTECOMMAND, Controller.CMD.CHANGELAYER)
End Sub
''' <summary>
@@ -722,7 +724,7 @@
''' Execute the InvertCurve. This method is invoked by the InvertCurveCommand.
''' </summary>
Public Sub InvertCurve(ByVal param As Object)
Application.Msn.NotifyColleagues(Application.INVERTCURVE)
Application.Msn.NotifyColleagues(Application.EXECUTECOMMAND, Controller.CMD.INVERTCURVE)
End Sub
''' <summary>
@@ -752,7 +754,7 @@
''' Execute the ChangeStartCurve. This method is invoked by the InvertCurveCommand.
''' </summary>
Public Sub ChangeStartCurve(ByVal param As Object)
Application.Msn.NotifyColleagues(Application.CHANGESTARTCURVE)
Application.Msn.NotifyColleagues(Application.EXECUTECOMMAND, Controller.CMD.CHANGESTARTCURVE)
End Sub
''' <summary>
@@ -782,7 +784,7 @@
''' Execute the ExtendCurve. This method is invoked by the ExtendCurveCommand.
''' </summary>
Public Sub ExtendCurve(ByVal param As Object)
Application.Msn.NotifyColleagues(Application.EXTENDCURVE)
Application.Msn.NotifyColleagues(Application.EXECUTECOMMAND, Controller.CMD.TRIMEXTENDCURVE)
End Sub
''' <summary>
@@ -872,7 +874,7 @@
''' Execute the ExplodeCurve. This method is invoked by the ExplodeCurveCommand.
''' </summary>
Public Sub ExplodeCurve(ByVal param As Object)
Application.Msn.NotifyColleagues(Application.JOINCURVE)
Application.Msn.NotifyColleagues(Application.EXECUTECOMMAND, Controller.CMD.EXPLODECURVE)
End Sub
''' <summary>
@@ -902,7 +904,7 @@
''' Execute the SetCurveTh. This method is invoked by the SetCurveThCommand.
''' </summary>
Public Sub SetCurveTh(ByVal param As Object)
Application.Msn.NotifyColleagues(Application.SETCURVETH)
Application.Msn.NotifyColleagues(Application.EXECUTECOMMAND, Controller.CMD.SETCURVETHICKNESS)
End Sub
''' <summary>
@@ -932,7 +934,7 @@
''' Execute the Move. This method is invoked by the MoveCommand.
''' </summary>
Public Sub Move(ByVal param As Object)
Application.Msn.NotifyColleagues(Application.MOVE)
Application.Msn.NotifyColleagues(Application.EXECUTECOMMAND, Controller.CMD.MOVE)
End Sub
''' <summary>
@@ -1052,7 +1054,7 @@
''' Execute the Offset. This method is invoked by the OffsetCommand.
''' </summary>
Public Sub Offset(ByVal param As Object)
Application.Msn.NotifyColleagues(Application.OFFSET)
Application.Msn.NotifyColleagues(Application.EXECUTECOMMAND, Controller.CMD.OFFSET)
End Sub
''' <summary>