Imports EgtUILib

Namespace EgtCAM5

   Public Class DrawPanelViewModel
      Inherits ViewModelBase

      'Proprietà ToolTip
      Public ReadOnly Property PointToolTip As String
         Get
            Return EgtMsg(MSG_DRAWMODE + 1)
         End Get
      End Property
      Public ReadOnly Property Line2PToolTip As String
         Get
            Return EgtMsg(MSG_DRAWMODE + 2)
         End Get
      End Property
      Public ReadOnly Property LinePDLToolTip As String
         Get
            Return EgtMsg(MSG_DRAWMODE + 3)
         End Get
      End Property
      Public ReadOnly Property CirclePDToolTip As String
         Get
            Return EgtMsg(MSG_DRAWMODE + 4)
         End Get
      End Property
      Public ReadOnly Property CircleCDToolTip As String
         Get
            Return EgtMsg(MSG_DRAWMODE + 5)
         End Get
      End Property
      Public ReadOnly Property ArcCSEToolTip As String
         Get
            Return EgtMsg(MSG_DRAWMODE + 6)
         End Get
      End Property
      Public ReadOnly Property Arc3PToolTip As String
         Get
            Return EgtMsg(MSG_DRAWMODE + 7)
         End Get
      End Property
      Public ReadOnly Property ArcPDPToolTip As String
         Get
            Return EgtMsg(MSG_DRAWMODE + 8)
         End Get
      End Property
      Public ReadOnly Property FilletToolTip As String
         Get
            Return EgtMsg(MSG_DRAWMODE + 9)
         End Get
      End Property
      Public ReadOnly Property ChamferToolTip As String
         Get
            Return EgtMsg(MSG_DRAWMODE + 10)
         End Get
      End Property
      Public ReadOnly Property Rectangle2PToolTip As String
         Get
            Return EgtMsg(MSG_DRAWMODE + 11)
         End Get
      End Property
      Public ReadOnly Property PolygonToolTip As String
         Get
            Return EgtMsg(MSG_DRAWMODE + 12)
         End Get
      End Property
      Public ReadOnly Property PolygonSideToolTip As String
         Get
            Return EgtMsg(MSG_DRAWMODE + 13)
         End Get
      End Property
      Public ReadOnly Property TextToolTip As String
         Get
            Return EgtMsg(MSG_DRAWMODE + 14)
         End Get
      End Property

      Public ReadOnly Property PlaneToolTip As String
         Get
            Return EgtMsg(MSG_DRAWMODE + 15)
         End Get
      End Property
      Public ReadOnly Property ExtrudeToolTip As String
         Get
            Return EgtMsg(MSG_DRAWMODE + 16)
         End Get
      End Property
      Public ReadOnly Property RevolveToolTip As String
         Get
            Return EgtMsg(MSG_DRAWMODE + 17)
         End Get
      End Property
      Public ReadOnly Property ScrewToolTip As String
         Get
            Return EgtMsg(MSG_DRAWMODE + 18)
         End Get
      End Property
      Public ReadOnly Property RuledToolTip As String
         Get
            Return EgtMsg(MSG_DRAWMODE + 19)
         End Get
      End Property
      Public ReadOnly Property MergeSurfToolTip As String
         Get
            Return EgtMsg(MSG_DRAWMODE + 20)
         End Get
      End Property
      Public ReadOnly Property ExplodeSurfToolTip As String
         Get
            Return EgtMsg(MSG_DRAWMODE + 21)
         End Get
      End Property
      Public ReadOnly Property InvertSurfToolTip As String
         Get
            Return EgtMsg(MSG_DRAWMODE + 22)
         End Get
      End Property

      Public ReadOnly Property DeleteToolTip As String
         Get
            Return EgtMsg(MSG_DRAWMODE + 23)
         End Get
      End Property

      Public ReadOnly Property ChangeLayerToolTip As String
         Get
            Return EgtMsg(MSG_DRAWMODE + 24)
         End Get
      End Property
      Public ReadOnly Property ChangeAlphaToolTip As String
         Get
            Return EgtMsg(MSG_DRAWMODE + 25)
         End Get
      End Property
      Public ReadOnly Property ResetColorToolTip As String
         Get
            Return EgtMsg(MSG_DRAWMODE + 26)
         End Get
      End Property
      Public ReadOnly Property ChangeColorToolTip As String
         Get
            Return EgtMsg(MSG_DRAWMODE + 27)
         End Get
      End Property

      Public ReadOnly Property InvertCurveToolTip As String
         Get
            Return EgtMsg(MSG_DRAWMODE + 28)
         End Get
      End Property
      Public ReadOnly Property ChangeStartToolTip As String
         Get
            Return EgtMsg(MSG_DRAWMODE + 29)
         End Get
      End Property
      Public ReadOnly Property ExtendCurveToolTip As String
         Get
            Return EgtMsg(MSG_DRAWMODE + 30)
         End Get
      End Property
      Public ReadOnly Property BreakCurveToolTip As String
         Get
            Return EgtMsg(MSG_DRAWMODE + 31)
         End Get
      End Property
      Public ReadOnly Property SplitCurveToolTip As String
         Get
            Return EgtMsg(MSG_DRAWMODE + 32)
         End Get
      End Property

      Public ReadOnly Property JoinCurveToolTip As String
         Get
            Return EgtMsg(MSG_DRAWMODE + 33)
         End Get
      End Property
      Public ReadOnly Property ExplodeCurveToolTip As String
         Get
            Return EgtMsg(MSG_DRAWMODE + 34)
         End Get
      End Property
      Public ReadOnly Property ThickCurveToolTip As String
         Get
            Return EgtMsg(MSG_DRAWMODE + 35)
         End Get
      End Property

      Public ReadOnly Property MoveToolTip As String
         Get
            Return EgtMsg(MSG_DRAWMODE + 36)
         End Get
      End Property
      Public ReadOnly Property RotateToolTip As String
         Get
            Return EgtMsg(MSG_DRAWMODE + 37)
         End Get
      End Property
      Public ReadOnly Property Rotate3DToolTip As String
         Get
            Return EgtMsg(MSG_DRAWMODE + 38)
         End Get
      End Property
      Public ReadOnly Property MirrorToolTip As String
         Get
            Return EgtMsg(MSG_DRAWMODE + 39)
         End Get
      End Property
      Public ReadOnly Property Mirror3DToolTip As String
         Get
            Return EgtMsg(MSG_DRAWMODE + 40)
         End Get
      End Property
      Public ReadOnly Property ScaleToolTip As String
         Get
            Return EgtMsg(MSG_DRAWMODE + 41)
         End Get
      End Property
      Public ReadOnly Property Scale3DToolTip As String
         Get
            Return EgtMsg(MSG_DRAWMODE + 42)
         End Get
      End Property

      Public ReadOnly Property OffsetToolTip As String
         Get
            Return EgtMsg(MSG_DRAWMODE + 43)
         End Get
      End Property

      ' Definizione comandi
      Private m_cmdPoint As ICommand
      Private m_cmdLine2P As ICommand
      Private m_cmdLinePDL As ICommand
      Private m_cmdCircleCP As ICommand
      Private m_cmdCircleCD As ICommand
      Private m_cmdArcCSE As ICommand
      Private m_cmdArc3P As ICommand
      Private m_cmdArcPDP As ICommand
      Private m_cmdFillet As ICommand
      Private m_cmdChamfer As ICommand
      Private m_cmdRectangle2P As ICommand
      Private m_cmdPolygon As ICommand
      Private m_cmdPolygonSide As ICommand
      Private m_cmdText As ICommand
      Private m_cmdPlane As ICommand
      Private m_cmdExtrude As ICommand
      Private m_cmdRevolve As ICommand
      Private m_cmdScrew As ICommand
      Private m_cmdRuled As ICommand
      Private m_cmdMergeSurf As ICommand
      Private m_cmdExplodeSurf As ICommand
      Private m_cmdInvertSurf As ICommand
      Private m_cmdDelete As ICommand
      Private m_cmdChangeLayer As ICommand
      Private m_cmdChangeAlpha As ICommand
      Private m_cmdResetColor As ICommand
      Private m_cmdChangeColor As ICommand
      Private m_cmdInvertCurve As ICommand
      Private m_cmdChangeStartCurve As ICommand
      Private m_cmdExtendCurve As ICommand
      Private m_cmdBreakCurve As ICommand
      Private m_cmdSplitCurve As ICommand
      Private m_cmdJoinCurve As ICommand
      Private m_cmdExplodeCurve As ICommand
      Private m_cmdSetCurveTh As ICommand
      Private m_cmdMove As ICommand
      Private m_cmdRotate As ICommand
      Private m_cmdRotate3D As ICommand
      Private m_cmdMirror As ICommand
      Private m_cmdMirror3D As ICommand
      Private m_cmdScale As ICommand
      Private m_cmdScale3D As ICommand
      Private m_cmdOffset As ICommand


      Sub New()

      End Sub

#Region "PointCommand"

      ''' <summary>
      ''' Returns a command that do Point.
      ''' </summary>
      Public ReadOnly Property PointCommand As ICommand
         Get
            If m_cmdPoint Is Nothing Then
               m_cmdPoint = New RelayCommand(AddressOf Point, AddressOf CanPoint)
            End If
            Return m_cmdPoint
         End Get
      End Property

      ''' <summary>
      ''' Execute the Point.  This method is invoked by the PointCommand.
      ''' </summary>
      Public Sub Point(ByVal param As Object)
         Application.Msn.NotifyColleagues(Application.POINT)
      End Sub

      ''' <summary>
      ''' Returns always true.
      ''' </summary>
      Private Function CanPoint(ByVal param As Object) As Boolean
         Return True
      End Function

#End Region ' PointCommand

#Region "Line2PCommand"

      ''' <summary>
      ''' Returns a command that do Line2P.
      ''' </summary>
      Public ReadOnly Property Line2PCommand As ICommand
         Get
            If m_cmdLine2P Is Nothing Then
               m_cmdLine2P = New RelayCommand(AddressOf Line2P, AddressOf CanLine2P)
            End If
            Return m_cmdLine2P
         End Get
      End Property

      ''' <summary>
      ''' Execute the Line2P.  This method is invoked by the Line2PCommand.
      ''' </summary>
      Public Sub Line2P(ByVal param As Object)
         Application.Msn.NotifyColleagues(Application.LINE2P)
      End Sub

      ''' <summary>
      ''' Returns always true.
      ''' </summary>
      Private Function CanLine2P(ByVal param As Object) As Boolean
         Return True
      End Function

#End Region ' Line2PCommand

#Region "LinePDLCommand"

      ''' <summary>
      ''' Returns a command that do LinePDL.
      ''' </summary>
      Public ReadOnly Property LinePDLCommand As ICommand
         Get
            If m_cmdLinePDL Is Nothing Then
               m_cmdLinePDL = New RelayCommand(AddressOf LinePDL, AddressOf CanLinePDL)
            End If
            Return m_cmdLinePDL
         End Get
      End Property

      ''' <summary>
      ''' Execute the LinePDL.  This method is invoked by the LinePDLCommand.
      ''' </summary>
      Public Sub LinePDL(ByVal param As Object)
         Application.Msn.NotifyColleagues(Application.LINEPDL)
      End Sub

      ''' <summary>
      ''' Returns always true.
      ''' </summary>
      Private Function CanLinePDL(ByVal param As Object) As Boolean
         Return True
      End Function

#End Region ' LinePDLCommand

#Region "CircleCPCommand"

      ''' <summary>
      ''' Returns a command that do CircleCP.
      ''' </summary>
      Public ReadOnly Property CircleCPCommand As ICommand
         Get
            If m_cmdCircleCP Is Nothing Then
               m_cmdCircleCP = New RelayCommand(AddressOf CircleCP, AddressOf CanCircleCP)
            End If
            Return m_cmdCircleCP
         End Get
      End Property

      ''' <summary>
      ''' Execute the CircleCP.  This method is invoked by the CircleCPCommand.
      ''' </summary>
      Public Sub CircleCP(ByVal param As Object)
         Application.Msn.NotifyColleagues(Application.EXECUTECOMMAND, Controller.CMD.CIRCLECP)
      End Sub

      ''' <summary>
      ''' Returns always true.
      ''' </summary>
      Private Function CanCircleCP(ByVal param As Object) As Boolean
         Return True
      End Function

#End Region ' CircleCPCommand

#Region "CircleCDCommand"

      ''' <summary>
      ''' Returns a command that do CircleCD.
      ''' </summary>
      Public ReadOnly Property CircleCDCommand As ICommand
         Get
            If m_cmdCircleCD Is Nothing Then
               m_cmdCircleCD = New RelayCommand(AddressOf CircleCD, AddressOf CanCircleCD)
            End If
            Return m_cmdCircleCD
         End Get
      End Property

      ''' <summary>
      ''' Execute the CircleCD.  This method is invoked by the CircleCDCommand.
      ''' </summary>
      Public Sub CircleCD(ByVal param As Object)
         Application.Msn.NotifyColleagues(Application.EXECUTECOMMAND, Controller.CMD.CIRCLECD)
      End Sub

      ''' <summary>
      ''' Returns always true.
      ''' </summary>
      Private Function CanCircleCD(ByVal param As Object) As Boolean
         Return True
      End Function

#End Region ' CircleCDCommand

#Region "ArcCSECommand"

      ''' <summary>
      ''' Returns a command that do ArcCSE.
      ''' </summary>
      Public ReadOnly Property ArcCSECommand As ICommand
         Get
            If m_cmdArcCSE Is Nothing Then
               m_cmdArcCSE = New RelayCommand(AddressOf ArcCSE, AddressOf CanArcCSE)
            End If
            Return m_cmdArcCSE
         End Get
      End Property

      ''' <summary>
      ''' Execute the ArcCSE.  This method is invoked by the ArcCSECommand.
      ''' </summary>
      Public Sub ArcCSE(ByVal param As Object)
         Application.Msn.NotifyColleagues(Application.EXECUTECOMMAND, Controller.CMD.ARCCSE)
      End Sub

      ''' <summary>
      ''' Returns always true.
      ''' </summary>
      Private Function CanArcCSE(ByVal param As Object) As Boolean
         Return True
      End Function

#End Region ' ArcCSECommand

#Region "Arc3PCommand"

      ''' <summary>
      ''' Returns a command that do Arc3P.
      ''' </summary>
      Public ReadOnly Property Arc3PCommand As ICommand
         Get
            If m_cmdArc3P Is Nothing Then
               m_cmdArc3P = New RelayCommand(AddressOf Arc3P, AddressOf CanArc3P)
            End If
            Return m_cmdArc3P
         End Get
      End Property

      ''' <summary>
      ''' Execute the Arc3P.  This method is invoked by the Arc3PCommand.
      ''' </summary>
      Public Sub Arc3P(ByVal param As Object)
         Application.Msn.NotifyColleagues(Application.EXECUTECOMMAND, Controller.CMD.ARC3P)
      End Sub

      ''' <summary>
      ''' Returns always true.
      ''' </summary>
      Private Function CanArc3P(ByVal param As Object) As Boolean
         Return True
      End Function

#End Region ' Arc3PCommand

#Region "ArcPDPCommand"

      ''' <summary>
      ''' Returns a command that do ArcPDP.
      ''' </summary>
      Public ReadOnly Property ArcPDPCommand As ICommand
         Get
            If m_cmdArcPDP Is Nothing Then
               m_cmdArcPDP = New RelayCommand(AddressOf ArcPDP, AddressOf CanArcPDP)
            End If
            Return m_cmdArcPDP
         End Get
      End Property

      ''' <summary>
      ''' Execute the ArcPDP.  This method is invoked by the ArcPDPCommand.
      ''' </summary>
      Public Sub ArcPDP(ByVal param As Object)
         Application.Msn.NotifyColleagues(Application.ARCPDP)
      End Sub

      ''' <summary>
      ''' Returns always true.
      ''' </summary>
      Private Function CanArcPDP(ByVal param As Object) As Boolean
         Return True
      End Function

#End Region ' ArcPDPCommand

#Region "FilletCommand"

      ''' <summary>
      ''' Returns a command that do Fillet.
      ''' </summary>
      Public ReadOnly Property FilletCommand As ICommand
         Get
            If m_cmdFillet Is Nothing Then
               m_cmdFillet = New RelayCommand(AddressOf Fillet, AddressOf CanFillet)
            End If
            Return m_cmdFillet
         End Get
      End Property

      ''' <summary>
      ''' Execute the Fillet.  This method is invoked by the FilletCommand.
      ''' </summary>
      Public Sub Fillet(ByVal param As Object)
         Application.Msn.NotifyColleagues(Application.FILLET)
      End Sub

      ''' <summary>
      ''' Returns always true.
      ''' </summary>
      Private Function CanFillet(ByVal param As Object) As Boolean
         Return True
      End Function

#End Region ' FilletCommand

#Region "ChamferCommand"

      ''' <summary>
      ''' Returns a command that do Chamfer.
      ''' </summary>
      Public ReadOnly Property ChamferCommand As ICommand
         Get
            If m_cmdChamfer Is Nothing Then
               m_cmdChamfer = New RelayCommand(AddressOf Chamfer, AddressOf CanChamfer)
            End If
            Return m_cmdChamfer
         End Get
      End Property

      ''' <summary>
      ''' Execute the Chamfer.  This method is invoked by the ChamferCommand.
      ''' </summary>
      Public Sub Chamfer(ByVal param As Object)
         Application.Msn.NotifyColleagues(Application.EXECUTECOMMAND, Controller.CMD.CHAMFER)
      End Sub

      ''' <summary>
      ''' Returns always true.
      ''' </summary>
      Private Function CanChamfer(ByVal param As Object) As Boolean
         Return True
      End Function

#End Region ' ChamferCommand

#Region "Rectangle2PCommand"

      ''' <summary>
      ''' Returns a command that do Rectangle2P.
      ''' </summary>
      Public ReadOnly Property Rectangle2PCommand As ICommand
         Get
            If m_cmdRectangle2P Is Nothing Then
               m_cmdRectangle2P = New RelayCommand(AddressOf Rectangle2P, AddressOf CanRectangle2P)
            End If
            Return m_cmdRectangle2P
         End Get
      End Property

      ''' <summary>
      ''' Execute the Rectangle2P.  This method is invoked by the Rectangle2PCommand.
      ''' </summary>
      Public Sub Rectangle2P(ByVal param As Object)
         Application.Msn.NotifyColleagues(Application.EXECUTECOMMAND, Controller.CMD.RECTANGLE2P)
      End Sub

      ''' <summary>
      ''' Returns always true.
      ''' </summary>
      Private Function CanRectangle2P(ByVal param As Object) As Boolean
         Return True
      End Function

#End Region ' Rectangle2PCommand

#Region "PolygonCommand"

      ''' <summary>
      ''' Returns a command that do Polygon.
      ''' </summary>
      Public ReadOnly Property PolygonCommand As ICommand
         Get
            If m_cmdPolygon Is Nothing Then
               m_cmdPolygon = New RelayCommand(AddressOf Polygon, AddressOf CanPolygon)
            End If
            Return m_cmdPolygon
         End Get
      End Property

      ''' <summary>
      ''' Execute the Polygon.  This method is invoked by the PolygonCommand.
      ''' </summary>
      Public Sub Polygon(ByVal param As Object)
         Application.Msn.NotifyColleagues(Application.POLYGON)
      End Sub

      ''' <summary>
      ''' Returns always true.
      ''' </summary>
      Private Function CanPolygon(ByVal param As Object) As Boolean
         Return True
      End Function

#End Region ' PolygonCommand

#Region "PolygonSideCommand"

      ''' <summary>
      ''' Returns a command that do PolygonSide.
      ''' </summary>
      Public ReadOnly Property PolygonSideCommand As ICommand
         Get
            If m_cmdPolygonSide Is Nothing Then
               m_cmdPolygonSide = New RelayCommand(AddressOf PolygonSide, AddressOf CanPolygonSide)
            End If
            Return m_cmdPolygonSide
         End Get
      End Property

      ''' <summary>
      ''' Execute the PolygonSide.  This method is invoked by the PolygonSideCommand.
      ''' </summary>
      Public Sub PolygonSide(ByVal param As Object)
         Application.Msn.NotifyColleagues(Application.EXECUTECOMMAND, Controller.CMD.POLYGONSIDE)
      End Sub

      ''' <summary>
      ''' Returns always true.
      ''' </summary>
      Private Function CanPolygonSide(ByVal param As Object) As Boolean
         Return True
      End Function

#End Region ' PolygonSideCommand

#Region "TextCommand"

      ''' <summary>
      ''' Returns a command that do Text.
      ''' </summary>
      Public ReadOnly Property TextCommand As ICommand
         Get
            If m_cmdText Is Nothing Then
               m_cmdText = New RelayCommand(AddressOf Text, AddressOf CanText)
            End If
            Return m_cmdText
         End Get
      End Property

      ''' <summary>
      ''' Execute the Text.  This method is invoked by the TextCommand.
      ''' </summary>
      Public Sub Text(ByVal param As Object)
         Application.Msn.NotifyColleagues(Application.TEXT)
      End Sub

      ''' <summary>
      ''' Returns always true.
      ''' </summary>
      Private Function CanText(ByVal param As Object) As Boolean
         Return True
      End Function

#End Region ' TextCommand

#Region "PlaneCommand"

      ''' <summary>
      ''' Returns a command that do Plane.
      ''' </summary>
      Public ReadOnly Property PlaneCommand As ICommand
         Get
            If m_cmdPlane Is Nothing Then
               m_cmdPlane = New RelayCommand(AddressOf Plane, AddressOf CanPlane)
            End If
            Return m_cmdPlane
         End Get
      End Property

      ''' <summary>
      ''' Execute the Plane.  This method is invoked by the PlaneCommand.
      ''' </summary>
      Public Sub Plane(ByVal param As Object)
         Application.Msn.NotifyColleagues(Application.PLANE)
      End Sub

      ''' <summary>
      ''' Returns always true.
      ''' </summary>
      Private Function CanPlane(ByVal param As Object) As Boolean
         Return True
      End Function

#End Region ' PlaneCommand

#Region "ExtrudeCommand"

      ''' <summary>
      ''' Returns a command that do Extrude.
      ''' </summary>
      Public ReadOnly Property ExtrudeCommand As ICommand
         Get
            If m_cmdExtrude Is Nothing Then
               m_cmdExtrude = New RelayCommand(AddressOf Extrude, AddressOf CanExtrude)
            End If
            Return m_cmdExtrude
         End Get
      End Property

      ''' <summary>
      ''' Execute the Extrude.  This method is invoked by the ExtrudeCommand.
      ''' </summary>
      Public Sub Extrude(ByVal param As Object)
         Application.Msn.NotifyColleagues(Application.EXECUTECOMMAND, Controller.CMD.EXTRUDE)
      End Sub

      ''' <summary>
      ''' Returns always true.
      ''' </summary>
      Private Function CanExtrude(ByVal param As Object) As Boolean
         Return True
      End Function

#End Region ' ExtrudeCommand

#Region "RevolveCommand"

      ''' <summary>
      ''' Returns a command that do Revolve.
      ''' </summary>
      Public ReadOnly Property RevolveCommand As ICommand
         Get
            If m_cmdRevolve Is Nothing Then
               m_cmdRevolve = New RelayCommand(AddressOf Revolve, AddressOf CanRevolve)
            End If
            Return m_cmdRevolve
         End Get
      End Property

      ''' <summary>
      ''' Execute the Revolve.  This method is invoked by the RevolveCommand.
      ''' </summary>
      Public Sub Revolve(ByVal param As Object)
         Application.Msn.NotifyColleagues(Application.EXECUTECOMMAND, Controller.CMD.REVOLVE)
      End Sub

      ''' <summary>
      ''' Returns always true.
      ''' </summary>
      Private Function CanRevolve(ByVal param As Object) As Boolean
         Return True
      End Function

#End Region ' RevolveCommand

#Region "ScrewCommand"

      ''' <summary>
      ''' Returns a command that do Screw.
      ''' </summary>
      Public ReadOnly Property ScrewCommand As ICommand
         Get
            If m_cmdScrew Is Nothing Then
               m_cmdScrew = New RelayCommand(AddressOf Screw, AddressOf CanScrew)
            End If
            Return m_cmdScrew
         End Get
      End Property

      ''' <summary>
      ''' Execute the Screw.  This method is invoked by the ScrewCommand.
      ''' </summary>
      Public Sub Screw(ByVal param As Object)
         Application.Msn.NotifyColleagues(Application.EXECUTECOMMAND, Controller.CMD.SCREW)
      End Sub

      ''' <summary>
      ''' Returns always true.
      ''' </summary>
      Private Function CanScrew(ByVal param As Object) As Boolean
         Return True
      End Function

#End Region ' ScrewCommand

#Region "RuledCommand"

      ''' <summary>
      ''' Returns a command that do Ruled.
      ''' </summary>
      Public ReadOnly Property RuledCommand As ICommand
         Get
            If m_cmdRuled Is Nothing Then
               m_cmdRuled = New RelayCommand(AddressOf Ruled, AddressOf CanRuled)
            End If
            Return m_cmdRuled
         End Get
      End Property

      ''' <summary>
      ''' Execute the Ruled.  This method is invoked by the RuledCommand.
      ''' </summary>
      Public Sub Ruled(ByVal param As Object)
         Application.Msn.NotifyColleagues(Application.EXECUTECOMMAND, Controller.CMD.RULED)
      End Sub

      ''' <summary>
      ''' Returns always true.
      ''' </summary>
      Private Function CanRuled(ByVal param As Object) As Boolean
         Return True
      End Function

#End Region ' RuledCommand

#Region "MergeSurfCommand"

      ''' <summary>
      ''' Returns a command that do MergeSurf.
      ''' </summary>
      Public ReadOnly Property MergeSurfCommand As ICommand
         Get
            If m_cmdMergeSurf Is Nothing Then
               m_cmdMergeSurf = New RelayCommand(AddressOf MergeSurf, AddressOf CanMergeSurf)
            End If
            Return m_cmdMergeSurf
         End Get
      End Property

      ''' <summary>
      ''' Execute the MergeSurf.  This method is invoked by the MergeSurfCommand.
      ''' </summary>
      Public Sub MergeSurf(ByVal param As Object)
         Application.Msn.NotifyColleagues(Application.EXECUTECOMMAND, Controller.CMD.MERGESURF)
      End Sub

      ''' <summary>
      ''' Returns always true.
      ''' </summary>
      Private Function CanMergeSurf(ByVal param As Object) As Boolean
         Return True
      End Function

#End Region ' MergeSurfCommand

#Region "ExplodeSurfCommand"

      ''' <summary>
      ''' Returns a command that do ExplodeSurf.
      ''' </summary>
      Public ReadOnly Property ExplodeSurfCommand As ICommand
         Get
            If m_cmdExplodeSurf Is Nothing Then
               m_cmdExplodeSurf = New RelayCommand(AddressOf ExplodeSurf, AddressOf CanExplodeSurf)
            End If
            Return m_cmdExplodeSurf
         End Get
      End Property

      ''' <summary>
      ''' Execute the ExplodeSurf.  This method is invoked by the ExplodeSurfCommand.
      ''' </summary>
      Public Sub ExplodeSurf(ByVal param As Object)
         Application.Msn.NotifyColleagues(Application.EXECUTECOMMAND, Controller.CMD.EXPLODESURF)
      End Sub

      ''' <summary>
      ''' Returns always true.
      ''' </summary>
      Private Function CanExplodeSurf(ByVal param As Object) As Boolean
         Return True
      End Function

#End Region ' ExplodeSurfCommand

#Region "InvertSurfCommand"

      ''' <summary>
      ''' Returns a command that do InvertSurf.
      ''' </summary>
      Public ReadOnly Property InvertSurfCommand As ICommand
         Get
            If m_cmdInvertSurf Is Nothing Then
               m_cmdInvertSurf = New RelayCommand(AddressOf InvertSurf, AddressOf CanInvertSurf)
            End If
            Return m_cmdInvertSurf
         End Get
      End Property

      ''' <summary>
      ''' Execute the InvertSurf.  This method is invoked by the InvertSurfCommand.
      ''' </summary>
      Public Sub InvertSurf(ByVal param As Object)
         Application.Msn.NotifyColleagues(Application.EXECUTECOMMAND, Controller.CMD.INVERTSURF)
      End Sub

      ''' <summary>
      ''' Returns always true.
      ''' </summary>
      Private Function CanInvertSurf(ByVal param As Object) As Boolean
         Return True
      End Function

#End Region ' InvertSurfCommand

#Region "DeleteCommand"

      ''' <summary>
      ''' Returns a command that do Delete.
      ''' </summary>
      Public ReadOnly Property DeleteCommand As ICommand
         Get
            If m_cmdDelete Is Nothing Then
               m_cmdDelete = New RelayCommand(AddressOf Delete, AddressOf CanDelete)
            End If
            Return m_cmdDelete
         End Get
      End Property

      ''' <summary>
      ''' Execute the Delete.  This method is invoked by the DeleteCommand.
      ''' </summary>
      Public Sub Delete(ByVal param As Object)
         Application.Msn.NotifyColleagues(Application.DELETE)
      End Sub

      ''' <summary>
      ''' Returns always true.
      ''' </summary>
      Private Function CanDelete(ByVal param As Object) As Boolean
         Return True
      End Function

#End Region ' DeleteCommand

#Region "ChangeLayerCommand"

      ''' <summary>
      ''' Returns a command that do ChangeLayer.
      ''' </summary>
      Public ReadOnly Property ChangeLayerCommand As ICommand
         Get
            If m_cmdChangeLayer Is Nothing Then
               m_cmdChangeLayer = New RelayCommand(AddressOf ChangeLayer, AddressOf CanChangeLayer)
            End If
            Return m_cmdChangeLayer
         End Get
      End Property

      ''' <summary>
      ''' Execute the ChangeLayer.  This method is invoked by the ChangeLayerCommand.
      ''' </summary>
      Public Sub ChangeLayer(ByVal param As Object)
         Application.Msn.NotifyColleagues(Application.EXECUTECOMMAND, Controller.CMD.CHANGELAYER)
      End Sub

      ''' <summary>
      ''' Returns always true.
      ''' </summary>
      Private Function CanChangeLayer(ByVal param As Object) As Boolean
         Return True
      End Function

#End Region ' ChangeLayerCommand

#Region "ChangeAlphaCommand"

      ''' <summary>
      ''' Returns a command that do ChangeAlpha.
      ''' </summary>
      Public ReadOnly Property ChangeAlphaCommand As ICommand
         Get
            If m_cmdChangeAlpha Is Nothing Then
               m_cmdChangeAlpha = New RelayCommand(AddressOf ChangeAlpha, AddressOf CanChangeAlpha)
            End If
            Return m_cmdChangeAlpha
         End Get
      End Property

      ''' <summary>
      ''' Execute the ChangeAlpha.  This method is invoked by the ChangeAlphaCommand.
      ''' </summary>
      Public Sub ChangeAlpha(ByVal param As Object)
         Application.Msn.NotifyColleagues(Application.EXECUTECOMMAND, Controller.CMD.CHANGEALPHA)
      End Sub

      ''' <summary>
      ''' Returns always true.
      ''' </summary>
      Private Function CanChangeAlpha(ByVal param As Object) As Boolean
         Return True
      End Function

#End Region ' ChangeAlphaCommand

#Region "ResetColorCommand"

      ''' <summary>
      ''' Returns a command that do ResetColor.
      ''' </summary>
      Public ReadOnly Property ResetColorCommand As ICommand
         Get
            If m_cmdResetColor Is Nothing Then
               m_cmdResetColor = New RelayCommand(AddressOf ResetColor, AddressOf CanResetColor)
            End If
            Return m_cmdResetColor
         End Get
      End Property

      ''' <summary>
      ''' Execute the ResetColor.  This method is invoked by the ResetColorCommand.
      ''' </summary>
      Public Sub ResetColor(ByVal param As Object)
         Application.Msn.NotifyColleagues(Application.EXECUTECOMMAND, Controller.CMD.RESETCOLOR)
      End Sub

      ''' <summary>
      ''' Returns always true.
      ''' </summary>
      Private Function CanResetColor(ByVal param As Object) As Boolean
         Return True
      End Function

#End Region ' ResetColorCommand

#Region "ChangeColorCommand"

      ''' <summary>
      ''' Returns a command that do ChangeColor.
      ''' </summary>
      Public ReadOnly Property ChangeColorCommand As ICommand
         Get
            If m_cmdChangeColor Is Nothing Then
               m_cmdChangeColor = New RelayCommand(AddressOf ChangeColor, AddressOf CanChangeColor)
            End If
            Return m_cmdChangeColor
         End Get
      End Property

      ''' <summary>
      ''' Execute the ChangeColor.  This method is invoked by the ChangeColorCommand.
      ''' </summary>
      Public Sub ChangeColor(ByVal param As Object)
         Application.Msn.NotifyColleagues(Application.EXECUTECOMMAND, Controller.CMD.CHANGECOLOR)
      End Sub

      ''' <summary>
      ''' Returns always true.
      ''' </summary>
      Private Function CanChangeColor(ByVal param As Object) As Boolean
         Return True
      End Function

#End Region ' ChangeColorCommand

#Region "InvertCurveCommand"

      ''' <summary>
      ''' Returns a command that do InvertCurve.
      ''' </summary>
      Public ReadOnly Property InvertCurveCommand As ICommand
         Get
            If m_cmdInvertCurve Is Nothing Then
               m_cmdInvertCurve = New RelayCommand(AddressOf InvertCurve, AddressOf CanInvertCurve)
            End If
            Return m_cmdInvertCurve
         End Get
      End Property

      ''' <summary>
      ''' Execute the InvertCurve.  This method is invoked by the InvertCurveCommand.
      ''' </summary>
      Public Sub InvertCurve(ByVal param As Object)
         Application.Msn.NotifyColleagues(Application.EXECUTECOMMAND, Controller.CMD.INVERTCURVE)
      End Sub

      ''' <summary>
      ''' Returns always true.
      ''' </summary>
      Private Function CanInvertCurve(ByVal param As Object) As Boolean
         Return True
      End Function

#End Region ' InvertCurveCommand

#Region "ChangeStartCurveCommand"

      ''' <summary>
      ''' Returns a command that do ChangeStartCurve.
      ''' </summary>
      Public ReadOnly Property ChangeStartCurveCommand As ICommand
         Get
            If m_cmdChangeStartCurve Is Nothing Then
               m_cmdChangeStartCurve = New RelayCommand(AddressOf ChangeStartCurve, AddressOf CanChangeStartCurve)
            End If
            Return m_cmdChangeStartCurve
         End Get
      End Property

      ''' <summary>
      ''' Execute the ChangeStartCurve.  This method is invoked by the InvertCurveCommand.
      ''' </summary>
      Public Sub ChangeStartCurve(ByVal param As Object)
         Application.Msn.NotifyColleagues(Application.EXECUTECOMMAND, Controller.CMD.CHANGESTARTCURVE)
      End Sub

      ''' <summary>
      ''' Returns always true.
      ''' </summary>
      Private Function CanChangeStartCurve(ByVal param As Object) As Boolean
         Return True
      End Function

#End Region ' ChangeStartCurveCommand

#Region "ExtendCurveCommand"

      ''' <summary>
      ''' Returns a command that do ExtendCurve.
      ''' </summary>
      Public ReadOnly Property ExtendCurveCommand As ICommand
         Get
            If m_cmdExtendCurve Is Nothing Then
               m_cmdExtendCurve = New RelayCommand(AddressOf ExtendCurve, AddressOf CanExtendCurve)
            End If
            Return m_cmdExtendCurve
         End Get
      End Property

      ''' <summary>
      ''' Execute the ExtendCurve.  This method is invoked by the ExtendCurveCommand.
      ''' </summary>
      Public Sub ExtendCurve(ByVal param As Object)
         Application.Msn.NotifyColleagues(Application.EXECUTECOMMAND, Controller.CMD.TRIMEXTENDCURVE)
      End Sub

      ''' <summary>
      ''' Returns always true.
      ''' </summary>
      Private Function CanExtendCurve(ByVal param As Object) As Boolean
         Return True
      End Function

#End Region ' ExtendCurveCommand

#Region "BreakCurveCommand"

      ''' <summary>
      ''' Returns a command that do BreakCurve.
      ''' </summary>
      Public ReadOnly Property BreakCurveCommand As ICommand
         Get
            If m_cmdBreakCurve Is Nothing Then
               m_cmdBreakCurve = New RelayCommand(AddressOf BreakCurve, AddressOf CanBreakCurve)
            End If
            Return m_cmdBreakCurve
         End Get
      End Property

      ''' <summary>
      ''' Execute the BreakCurve.  This method is invoked by the BreakCurveCommand.
      ''' </summary>
      Public Sub BreakCurve(ByVal param As Object)
         Application.Msn.NotifyColleagues(Application.EXECUTECOMMAND, Controller.CMD.BREAKCURVE)
      End Sub

      ''' <summary>
      ''' Returns always true.
      ''' </summary>
      Private Function CanBreakCurve(ByVal param As Object) As Boolean
         Return True
      End Function

#End Region ' BreakCurveCommand

#Region "SplitCurveCommand"

      ''' <summary>
      ''' Returns a command that do SplitCurve.
      ''' </summary>
      Public ReadOnly Property SplitCurveCommand As ICommand
         Get
            If m_cmdSplitCurve Is Nothing Then
               m_cmdSplitCurve = New RelayCommand(AddressOf SplitCurve, AddressOf CanSplitCurve)
            End If
            Return m_cmdSplitCurve
         End Get
      End Property

      ''' <summary>
      ''' Execute the SplitCurve.  This method is invoked by the SplitCurveCommand.
      ''' </summary>
      Public Sub SplitCurve(ByVal param As Object)
         Application.Msn.NotifyColleagues(Application.EXECUTECOMMAND, Controller.CMD.SPLITCURVE)
      End Sub

      ''' <summary>
      ''' Returns always true.
      ''' </summary>
      Private Function CanSplitCurve(ByVal param As Object) As Boolean
         Return True
      End Function

#End Region ' SplitCurveCommand

#Region "JoinCurveCommand"

      ''' <summary>
      ''' Returns a command that do JoinCurve.
      ''' </summary>
      Public ReadOnly Property JoinCurveCommand As ICommand
         Get
            If m_cmdJoinCurve Is Nothing Then
               m_cmdJoinCurve = New RelayCommand(AddressOf JoinCurve, AddressOf CanJoinCurve)
            End If
            Return m_cmdJoinCurve
         End Get
      End Property

      ''' <summary>
      ''' Execute the JoinCurve.  This method is invoked by the JoinCurveCommand.
      ''' </summary>
      Public Sub JoinCurve(ByVal param As Object)
         Application.Msn.NotifyColleagues(Application.JOINCURVE)
      End Sub

      ''' <summary>
      ''' Returns always true.
      ''' </summary>
      Private Function CanJoinCurve(ByVal param As Object) As Boolean
         Return True
      End Function

#End Region ' JoinCurveCommand

#Region "ExplodeCurveCommand"

      ''' <summary>
      ''' Returns a command that do ExplodeCurve.
      ''' </summary>
      Public ReadOnly Property ExplodeCurveCommand As ICommand
         Get
            If m_cmdExplodeCurve Is Nothing Then
               m_cmdExplodeCurve = New RelayCommand(AddressOf ExplodeCurve, AddressOf CanExplodeCurve)
            End If
            Return m_cmdExplodeCurve
         End Get
      End Property

      ''' <summary>
      ''' Execute the ExplodeCurve.  This method is invoked by the ExplodeCurveCommand.
      ''' </summary>
      Public Sub ExplodeCurve(ByVal param As Object)
         Application.Msn.NotifyColleagues(Application.EXECUTECOMMAND, Controller.CMD.EXPLODECURVE)
      End Sub

      ''' <summary>
      ''' Returns always true.
      ''' </summary>
      Private Function CanExplodeCurve(ByVal param As Object) As Boolean
         Return True
      End Function

#End Region ' ExplodeCurveCommand

#Region "SetCurveThCommand"

      ''' <summary>
      ''' Returns a command that do SetCurveTh.
      ''' </summary>
      Public ReadOnly Property SetCurveThCommand As ICommand
         Get
            If m_cmdSetCurveTh Is Nothing Then
               m_cmdSetCurveTh = New RelayCommand(AddressOf SetCurveTh, AddressOf CanSetCurveTh)
            End If
            Return m_cmdSetCurveTh
         End Get
      End Property

      ''' <summary>
      ''' Execute the SetCurveTh.  This method is invoked by the SetCurveThCommand.
      ''' </summary>
      Public Sub SetCurveTh(ByVal param As Object)
         Application.Msn.NotifyColleagues(Application.EXECUTECOMMAND, Controller.CMD.SETCURVETHICKNESS)
      End Sub

      ''' <summary>
      ''' Returns always true.
      ''' </summary>
      Private Function CanSetCurveTh(ByVal param As Object) As Boolean
         Return True
      End Function

#End Region ' SetCurveThCommand

#Region "MoveCommand"

      ''' <summary>
      ''' Returns a command that do Move.
      ''' </summary>
      Public ReadOnly Property MoveCommand As ICommand
         Get
            If m_cmdMove Is Nothing Then
               m_cmdMove = New RelayCommand(AddressOf Move, AddressOf CanMove)
            End If
            Return m_cmdMove
         End Get
      End Property

      ''' <summary>
      ''' Execute the Move.  This method is invoked by the MoveCommand.
      ''' </summary>
      Public Sub Move(ByVal param As Object)
         Application.Msn.NotifyColleagues(Application.EXECUTECOMMAND, Controller.CMD.MOVE)
      End Sub

      ''' <summary>
      ''' Returns always true.
      ''' </summary>
      Private Function CanMove(ByVal param As Object) As Boolean
         Return True
      End Function

#End Region ' MoveCommand

#Region "RotateCommand"

      ''' <summary>
      ''' Returns a command that do Rotate.
      ''' </summary>
      Public ReadOnly Property RotateCommand As ICommand
         Get
            If m_cmdRotate Is Nothing Then
               m_cmdRotate = New RelayCommand(AddressOf Rotate, AddressOf CanRotate)
            End If
            Return m_cmdRotate
         End Get
      End Property

      ''' <summary>
      ''' Execute the Rotate.  This method is invoked by the RotateCommand.
      ''' </summary>
      Public Sub Rotate(ByVal param As Object)
         Application.Msn.NotifyColleagues(Application.EXECUTECOMMAND, Controller.CMD.ROTATE)
      End Sub

      ''' <summary>
      ''' Returns always true.
      ''' </summary>
      Private Function CanRotate(ByVal param As Object) As Boolean
         Return True
      End Function

#End Region ' RotateCommand

#Region "Rotate3DCommand"

      ''' <summary>
      ''' Returns a command that do Rotate3D.
      ''' </summary>
      Public ReadOnly Property Rotate3DCommand As ICommand
         Get
            If m_cmdRotate3D Is Nothing Then
               m_cmdRotate3D = New RelayCommand(AddressOf Rotate3D, AddressOf CanRotate3D)
            End If
            Return m_cmdRotate3D
         End Get
      End Property

      ''' <summary>
      ''' Execute the Rotate3D.  This method is invoked by the Rotate3DCommand.
      ''' </summary>
      Public Sub Rotate3D(ByVal param As Object)
         Application.Msn.NotifyColleagues(Application.EXECUTECOMMAND, Controller.CMD.ROTATE3D)
      End Sub

      ''' <summary>
      ''' Returns always true.
      ''' </summary>
      Private Function CanRotate3D(ByVal param As Object) As Boolean
         Return True
      End Function

#End Region ' Rotate3DCommand

#Region "MirrorCommand"

      ''' <summary>
      ''' Returns a command that do Mirror.
      ''' </summary>
      Public ReadOnly Property MirrorCommand As ICommand
         Get
            If m_cmdMirror Is Nothing Then
               m_cmdMirror = New RelayCommand(AddressOf Mirror, AddressOf CanMirror)
            End If
            Return m_cmdMirror
         End Get
      End Property

      ''' <summary>
      ''' Execute the Mirror.  This method is invoked by the MirrorCommand.
      ''' </summary>
      Public Sub Mirror(ByVal param As Object)
         Application.Msn.NotifyColleagues(Application.EXECUTECOMMAND, Controller.CMD.MIRROR)
      End Sub

      ''' <summary>
      ''' Returns always true.
      ''' </summary>
      Private Function CanMirror(ByVal param As Object) As Boolean
         Return True
      End Function

#End Region ' MirrorCommand

#Region "Mirror3DCommand"

      ''' <summary>
      ''' Returns a command that do Mirror3D.
      ''' </summary>
      Public ReadOnly Property Mirror3DCommand As ICommand
         Get
            If m_cmdMirror3D Is Nothing Then
               m_cmdMirror3D = New RelayCommand(AddressOf Mirror3D, AddressOf CanMirror3D)
            End If
            Return m_cmdMirror3D
         End Get
      End Property

      ''' <summary>
      ''' Execute the Mirror3D.  This method is invoked by the Mirror3DCommand.
      ''' </summary>
      Public Sub Mirror3D(ByVal param As Object)
         Application.Msn.NotifyColleagues(Application.EXECUTECOMMAND, Controller.CMD.MIRROR3D)
      End Sub

      ''' <summary>
      ''' Returns always true.
      ''' </summary>
      Private Function CanMirror3D(ByVal param As Object) As Boolean
         Return True
      End Function

#End Region ' Mirror3DCommand

#Region "ScaleCommand"

      ''' <summary>
      ''' Returns a command that do Scale.
      ''' </summary>
      Public ReadOnly Property ScaleCommand As ICommand
         Get
            If m_cmdScale Is Nothing Then
               m_cmdScale = New RelayCommand(AddressOf Scale, AddressOf CanScale)
            End If
            Return m_cmdScale
         End Get
      End Property

      ''' <summary>
      ''' Execute the Scale.  This method is invoked by the ScaleCommand.
      ''' </summary>
      Public Sub Scale(ByVal param As Object)
         Application.Msn.NotifyColleagues(Application.EXECUTECOMMAND, Controller.CMD.SCALE)
      End Sub

      ''' <summary>
      ''' Returns always true.
      ''' </summary>
      Private Function CanScale(ByVal param As Object) As Boolean
         Return True
      End Function

#End Region ' ScaleCommand

#Region "Scale3DCommand"

      ''' <summary>
      ''' Returns a command that do Scale3D.
      ''' </summary>
      Public ReadOnly Property Scale3DCommand As ICommand
         Get
            If m_cmdScale3D Is Nothing Then
               m_cmdScale3D = New RelayCommand(AddressOf Scale3D, AddressOf CanScale3D)
            End If
            Return m_cmdScale3D
         End Get
      End Property

      ''' <summary>
      ''' Execute the Scale3D.  This method is invoked by the Scale3DCommand.
      ''' </summary>
      Public Sub Scale3D(ByVal param As Object)
         Application.Msn.NotifyColleagues(Application.EXECUTECOMMAND, Controller.CMD.SCALE3D)
      End Sub

      ''' <summary>
      ''' Returns always true.
      ''' </summary>
      Private Function CanScale3D(ByVal param As Object) As Boolean
         Return True
      End Function

#End Region ' Scale3DCommand

#Region "OffsetCommand"

      ''' <summary>
      ''' Returns a command that do Offset.
      ''' </summary>
      Public ReadOnly Property OffsetCommand As ICommand
         Get
            If m_cmdOffset Is Nothing Then
               m_cmdOffset = New RelayCommand(AddressOf Offset, AddressOf CanOffset)
            End If
            Return m_cmdOffset
         End Get
      End Property

      ''' <summary>
      ''' Execute the Offset.  This method is invoked by the OffsetCommand.
      ''' </summary>
      Public Sub Offset(ByVal param As Object)
         Application.Msn.NotifyColleagues(Application.EXECUTECOMMAND, Controller.CMD.OFFSET)
      End Sub

      ''' <summary>
      ''' Returns always true.
      ''' </summary>
      Private Function CanOffset(ByVal param As Object) As Boolean
         Return True
      End Function

#End Region ' OffsetCommand

   End Class

End Namespace