EgtCAM5/ProjectPage/GridViewPanel/GridViewPanelViewModel.vb

Imports EgtUILib

Namespace EgtCAM5

   Public Class GridViewPanelViewModel
      Inherits ViewModelBase

      Private m_TitleBarOrientation As Orientation
      Public Property TitleBarOrientation As Orientation
         Get
            Return m_TitleBarOrientation
         End Get
         Set(value As Orientation)
            m_TitleBarOrientation = value
         End Set
      End Property

      Private m_CurveDirIsChecked As Boolean
      Public Property CurveDirIsChecked As Boolean
         Get
            Return m_CurveDirIsChecked
         End Get
         Set(value As Boolean)
            If value <> m_CurveDirIsChecked Then
               m_CurveDirIsChecked = value
               EgtSetShowCurveDirection(value)
               OnPropertyChanged("CurveDirIsChecked")
            End If
         End Set
      End Property

      Private m_AnalyzeIsChecked As Boolean
      Public Property AnalyzeIsChecked As Boolean
         Get
            Return m_AnalyzeIsChecked
         End Get
         Set(value As Boolean)
            If value <> m_AnalyzeIsChecked Then
               m_AnalyzeIsChecked = value
               GetDistIsChecked = False
               If value Then
                  Application.Msn.NotifyColleagues(Application.SETSTATUSANALYZE)
               Else
                  Application.Msn.NotifyColleagues(Application.RESETSTATUSANALYZE)
               End If
               OnPropertyChanged("GetDistIsChecked")
               OnPropertyChanged("AnalyzeIsChecked")
            End If
         End Set
      End Property

      Private m_GetDistIsChecked As Boolean
      Public Property GetDistIsChecked As Boolean
         Get
            Return m_GetDistIsChecked
         End Get
         Set(value As Boolean)
            If value <> m_GetDistIsChecked Then
               m_GetDistIsChecked = value
               AnalyzeIsChecked = False
               If value Then
                  Application.Msn.NotifyColleagues(Application.SETSTATUSGETDISTANCE)
               Else
                  Application.Msn.NotifyColleagues(Application.RESETSTATUSGETDISTANCE)
               End If
               OnPropertyChanged("GetDistIsChecked")
               OnPropertyChanged("AnalyzeIsChecked")
            End If
         End Set
      End Property

      'Proprietà ToolTip
      Public ReadOnly Property RenderingWFToolTip As String
         Get
            Return EgtMsg(MSG_GRIDVIEWPANEL + 1)
         End Get
      End Property

      'Proprietà ToolTip
      Public ReadOnly Property RenderingHLToolTip As String
         Get
            Return EgtMsg(MSG_GRIDVIEWPANEL + 2)
         End Get
      End Property
      'Proprietà ToolTip
      Public ReadOnly Property RenderingSHToolTip As String
         Get
            Return EgtMsg(MSG_GRIDVIEWPANEL + 3)
         End Get
      End Property
      'Proprietà ToolTip
      Public ReadOnly Property ZoomAllToolTip As String
         Get
            Return EgtMsg(MSG_GRIDVIEWPANEL + 4)
         End Get
      End Property
      'Proprietà ToolTip
      Public ReadOnly Property ZoomInToolTip As String
         Get
            Return EgtMsg(MSG_GRIDVIEWPANEL + 5)
         End Get
      End Property
      'Proprietà ToolTip
      Public ReadOnly Property ZoomOutToolTip As String
         Get
            Return EgtMsg(MSG_GRIDVIEWPANEL + 6)
         End Get
      End Property
      'Proprietà ToolTip
      Public ReadOnly Property LookFromTopToolTip As String
         Get
            Return EgtMsg(MSG_GRIDVIEWPANEL + 7)
         End Get
      End Property
      'Proprietà ToolTip
      Public ReadOnly Property LookFromFrontToolTip As String
         Get
            Return EgtMsg(MSG_GRIDVIEWPANEL + 8)
         End Get
      End Property
      'Proprietà ToolTip
      Public ReadOnly Property LookFromLeftToolTip As String
         Get
            Return EgtMsg(MSG_GRIDVIEWPANEL + 9)
         End Get
      End Property
      'Proprietà ToolTip
      Public ReadOnly Property LookFromBackToolTip As String
         Get
            Return EgtMsg(MSG_GRIDVIEWPANEL + 10)
         End Get
      End Property
      'Proprietà ToolTip
      Public ReadOnly Property LookFromRightToolTip As String
         Get
            Return EgtMsg(MSG_GRIDVIEWPANEL + 11)
         End Get
      End Property
      'Proprietà ToolTip
      Public ReadOnly Property LookFromIso_SWToolTip As String
         Get
            Return EgtMsg(MSG_GRIDVIEWPANEL + 12)
         End Get
      End Property
      'Proprietà ToolTip
      Public ReadOnly Property LookFromIso_SEToolTip As String
         Get
            Return EgtMsg(MSG_GRIDVIEWPANEL + 13)
         End Get
      End Property
      'Proprietà ToolTip
      Public ReadOnly Property LookFromIso_NEToolTip As String
         Get
            Return EgtMsg(MSG_GRIDVIEWPANEL + 14)
         End Get
      End Property
      'Proprietà ToolTip
      Public ReadOnly Property LookFromIso_NWToolTip As String
         Get
            Return EgtMsg(MSG_GRIDVIEWPANEL + 15)
         End Get
      End Property
      Public ReadOnly Property ViewToCPlaneToolTip As String
         Get
            Return EgtMsg(MSG_GRIDVIEWPANEL + 32)
         End Get
      End Property
      'Proprietà ToolTip
      Public ReadOnly Property CurveDirToolTip As String
         Get
            Return EgtMsg(MSG_GRIDVIEWPANEL + 16)
         End Get
      End Property
      'Proprietà ToolTip
      Public ReadOnly Property AnalyzeToolTip As String
         Get
            Return EgtMsg(MSG_GRIDVIEWPANEL + 17)
         End Get
      End Property
      'Proprietà ToolTip
      Public ReadOnly Property GetDistToolTip As String
         Get
            Return EgtMsg(MSG_GRIDVIEWPANEL + 18)
         End Get
      End Property
      'Proprietà ToolTip
      Public ReadOnly Property CPlaneTopToolTip As String
         Get
            Return EgtMsg(MSG_GRIDVIEWPANEL + 19)
         End Get
      End Property
      'Proprietà ToolTip
      Public ReadOnly Property CPlaneFrontToolTip As String
         Get
            Return EgtMsg(MSG_GRIDVIEWPANEL + 20)
         End Get
      End Property
      'Proprietà ToolTip
      Public ReadOnly Property CPlaneRightToolTip As String
         Get
            Return EgtMsg(MSG_GRIDVIEWPANEL + 21)
         End Get
      End Property
      'Proprietà ToolTip
      Public ReadOnly Property CPlaneBackToolTip As String
         Get
            Return EgtMsg(MSG_GRIDVIEWPANEL + 22)
         End Get
      End Property
      'Proprietà ToolTip
      Public ReadOnly Property CPlaneLeftToolTip As String
         Get
            Return EgtMsg(MSG_GRIDVIEWPANEL + 23)
         End Get
      End Property
      'Proprietà ToolTip
      Public ReadOnly Property CPlaneBottomToolTip As String
         Get
            Return EgtMsg(MSG_GRIDVIEWPANEL + 24)
         End Get
      End Property
      'Proprietà ToolTip
      Public ReadOnly Property CPlaneViewToolTip As String
         Get
            Return EgtMsg(MSG_GRIDVIEWPANEL + 25)
         End Get
      End Property
      'Proprietà ToolTip
      Public ReadOnly Property CPlaneElevationToolTip As String
         Get
            Return EgtMsg(MSG_GRIDVIEWPANEL + 26)
         End Get
      End Property
      'Proprietà ToolTip
      Public ReadOnly Property CPlaneOriginToolTip As String
         Get
            Return EgtMsg(MSG_GRIDVIEWPANEL + 27)
         End Get
      End Property
      'Proprietà ToolTip
      Public ReadOnly Property CPlaneRotateToolTip As String
         Get
            Return EgtMsg(MSG_GRIDVIEWPANEL + 28)
         End Get
      End Property
      'Proprietà ToolTip
      Public ReadOnly Property CPlane3PointsToolTip As String
         Get
            Return EgtMsg(MSG_GRIDVIEWPANEL + 29)
         End Get
      End Property
      'Proprietà ToolTip
      Public ReadOnly Property CPlanePerpCurveToolTip As String
         Get
            Return EgtMsg(MSG_GRIDVIEWPANEL + 30)
         End Get
      End Property
      'Proprietà ToolTip
      Public ReadOnly Property CPlaneObjectToolTip As String
         Get
            Return EgtMsg(MSG_GRIDVIEWPANEL + 31)
         End Get
      End Property

      ' Definizione comandi
      Private m_cmdWireframe As ICommand
      Private m_cmdHiddenLine As ICommand
      Private m_cmdShading As ICommand
      Private m_cmdZoomAll As ICommand
      Private m_cmdZoomIn As ICommand
      Private m_cmdZoomOut As ICommand
      Private m_cmdTopView As ICommand
      Private m_cmdFrontView As ICommand
      Private m_cmdLeftView As ICommand
      Private m_cmdBackView As ICommand
      Private m_cmdRightView As ICommand
      Private m_cmdIsoViewSW As ICommand
      Private m_cmdIsoViewSE As ICommand
      Private m_cmdIsoViewNE As ICommand
      Private m_cmdIsoViewNW As ICommand
      Private m_cmdViewToCPlane As ICommand
      Private m_cmdCurveDir As ICommand
      Private m_cmdAnalyze As ICommand
      Private m_cmdGetDist As ICommand
      Private m_cmdCPlaneTop As ICommand
      Private m_cmdCPlaneFront As ICommand
      Private m_cmdCPlaneRight As ICommand
      Private m_cmdCPlaneBack As ICommand
      Private m_cmdCPlaneLeft As ICommand
      Private m_cmdCPlaneBottom As ICommand
      Private m_cmdCPlaneView As ICommand
      Private m_cmdCPlaneElevation As ICommand
      Private m_cmdCPlaneOrigin As ICommand
      Private m_cmdCPlaneRotate As ICommand
      Private m_cmdCPlane3P As ICommand
      Private m_cmdCPlanePerpObj As ICommand
      Private m_cmdCPlaneObj As ICommand


      ' Costruttore
      Sub New()

      End Sub

#Region "WireframeCommand"

      ''' <summary>
      ''' Returns a command that manage the MainWindow_ContentRendered command
      ''' </summary>
      Public ReadOnly Property WireframeCommand() As ICommand
         Get
            If m_cmdWireframe Is Nothing Then
               m_cmdWireframe = New RelayCommand(AddressOf Wireframe)
            End If
            Return m_cmdWireframe
         End Get
      End Property

      ''' <summary>
      ''' Manage the MainWindow_ContentRendered event. This method is invoked by the cmdMainWindow_ContentRendered.
      ''' </summary>
      Public Sub Wireframe(ByVal param As Object)
         ' Notify the ContentRendered event
         Application.Msn.NotifyColleagues(Application.WIREFRAME)
      End Sub

#End Region ' WireframeCommand

#Region "HiddenLineCommand"

      ''' <summary>
      ''' Returns a command that swith the view mode to HiddenLine.
      ''' </summary>
      Public ReadOnly Property HiddenLineCommand As ICommand
         Get
            If m_cmdHiddenLine Is Nothing Then
               m_cmdHiddenLine = New RelayCommand(AddressOf HiddenLine, AddressOf CanHiddenLine)
            End If
            Return m_cmdHiddenLine
         End Get
      End Property

      ''' <summary>
      ''' Swith the view mode to HiddenLine.  This method is invoked by the HiddenLineCommand.
      ''' </summary>
      Public Sub HiddenLine(ByVal param As Object)
         Application.Msn.NotifyColleagues(Application.HIDDENLINE)
      End Sub

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

#End Region ' HiddenLineCommand

#Region "ShadingCommand"

      ''' <summary>
      ''' Returns a command that swith the view mode to Shading.
      ''' </summary>
      Public ReadOnly Property ShadingCommand As ICommand
         Get
            If m_cmdShading Is Nothing Then
               m_cmdShading = New RelayCommand(AddressOf Shading, AddressOf CanShading)
            End If
            Return m_cmdShading
         End Get
      End Property

      ''' <summary>
      ''' Swith the view mode to Shading.  This method is invoked by the ShadingCommand.
      ''' </summary>
      Public Sub Shading(ByVal param As Object)
         Application.Msn.NotifyColleagues(Application.SHADING)
      End Sub

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

#End Region ' ShadingCommand

#Region "ZoomAllCommand"

      ''' <summary>
      ''' Returns a command that do ZoomAll.
      ''' </summary>
      Public ReadOnly Property ZoomAllCommand As ICommand
         Get
            If m_cmdZoomAll Is Nothing Then
               m_cmdZoomAll = New RelayCommand(AddressOf ZoomAll, AddressOf CanZoomAll)
            End If
            Return m_cmdZoomAll
         End Get
      End Property

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

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

#End Region ' ZoomAllCommand

#Region "ZoomInCommand"

      ''' <summary>
      ''' Returns a command that do ZoomIn.
      ''' </summary>
      Public ReadOnly Property ZoomInCommand As ICommand
         Get
            If m_cmdZoomIn Is Nothing Then
               m_cmdZoomIn = New RelayCommand(AddressOf ZoomIn, AddressOf CanZoomIn)
            End If
            Return m_cmdZoomIn
         End Get
      End Property

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

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

#End Region ' ZoomInCommand

#Region "ZoomOutCommand"

      ''' <summary>
      ''' Returns a command that do ZoomOut.
      ''' </summary>
      Public ReadOnly Property ZoomOutCommand As ICommand
         Get
            If m_cmdZoomOut Is Nothing Then
               m_cmdZoomOut = New RelayCommand(AddressOf ZoomOut, AddressOf CanZoomOut)
            End If
            Return m_cmdZoomOut
         End Get
      End Property

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

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

#End Region ' ZoomOutCommand

#Region "TopViewCommand"

      ''' <summary>
      ''' Returns a command that do TopView.
      ''' </summary>
      Public ReadOnly Property TopViewCommand As ICommand
         Get
            If m_cmdTopView Is Nothing Then
               m_cmdTopView = New RelayCommand(AddressOf TopView, AddressOf CanTopView)
            End If
            Return m_cmdTopView
         End Get
      End Property

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

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

#End Region ' TopViewCommand

#Region "FrontViewCommand"

      ''' <summary>
      ''' Returns a command that do FrontView.
      ''' </summary>
      Public ReadOnly Property FrontViewCommand As ICommand
         Get
            If m_cmdFrontView Is Nothing Then
               m_cmdFrontView = New RelayCommand(AddressOf FrontView, AddressOf CanFrontView)
            End If
            Return m_cmdFrontView
         End Get
      End Property

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

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

#End Region ' FrontViewCommand

#Region "LeftViewCommand"

      ''' <summary>
      ''' Returns a command that do LeftView.
      ''' </summary>
      Public ReadOnly Property LeftViewCommand As ICommand
         Get
            If m_cmdLeftView Is Nothing Then
               m_cmdLeftView = New RelayCommand(AddressOf LeftView, AddressOf CanLeftView)
            End If
            Return m_cmdLeftView
         End Get
      End Property

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

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

#End Region ' LeftViewCommand

#Region "BackViewCommand"

      ''' <summary>
      ''' Returns a command that do BackView.
      ''' </summary>
      Public ReadOnly Property BackViewCommand As ICommand
         Get
            If m_cmdBackView Is Nothing Then
               m_cmdBackView = New RelayCommand(AddressOf BackView, AddressOf CanBackView)
            End If
            Return m_cmdBackView
         End Get
      End Property

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

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

#End Region ' BackViewCommand

#Region "RightViewCommand"

      ''' <summary>
      ''' Returns a command that do RightView.
      ''' </summary>
      Public ReadOnly Property RightViewCommand As ICommand
         Get
            If m_cmdRightView Is Nothing Then
               m_cmdRightView = New RelayCommand(AddressOf RightView, AddressOf CanRightView)
            End If
            Return m_cmdRightView
         End Get
      End Property

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

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

#End Region ' RightViewCommand

#Region "IsoViewSWCommand"

      ''' <summary>
      ''' Returns a command that do IsoViewSW.
      ''' </summary>
      Public ReadOnly Property IsoViewSWCommand As ICommand
         Get
            If m_cmdIsoViewSW Is Nothing Then
               m_cmdIsoViewSW = New RelayCommand(AddressOf IsoViewSW, AddressOf CanIsoViewSW)
            End If
            Return m_cmdIsoViewSW
         End Get
      End Property

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

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

#End Region ' IsoViewSWCommand

#Region "IsoViewSECommand"

      ''' <summary>
      ''' Returns a command that do IsoViewSE.
      ''' </summary>
      Public ReadOnly Property IsoViewSECommand As ICommand
         Get
            If m_cmdIsoViewSE Is Nothing Then
               m_cmdIsoViewSE = New RelayCommand(AddressOf IsoViewSE, AddressOf CanIsoViewSE)
            End If
            Return m_cmdIsoViewSE
         End Get
      End Property

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

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

#End Region ' IsoViewSECommand

#Region "IsoViewNECommand"

      ''' <summary>
      ''' Returns a command that do IsoViewNE.
      ''' </summary>
      Public ReadOnly Property IsoViewNECommand As ICommand
         Get
            If m_cmdIsoViewNE Is Nothing Then
               m_cmdIsoViewNE = New RelayCommand(AddressOf IsoViewNE, AddressOf CanIsoViewNE)
            End If
            Return m_cmdIsoViewNE
         End Get
      End Property

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

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

#End Region ' IsoViewNECommand

#Region "IsoViewNWCommand"

      ''' <summary>
      ''' Returns a command that do IsoViewNW.
      ''' </summary>
      Public ReadOnly Property IsoViewNWCommand As ICommand
         Get
            If m_cmdIsoViewNW Is Nothing Then
               m_cmdIsoViewNW = New RelayCommand(AddressOf IsoViewNW, AddressOf CanIsoViewNW)
            End If
            Return m_cmdIsoViewNW
         End Get
      End Property

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

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

#End Region ' IsoViewNWCommand

#Region "ViewToCPlaneCommand"

      ''' <summary>
      ''' Returns a command that do GetDist.
      ''' </summary>
      Public ReadOnly Property ViewToCPlaneCommand As ICommand
         Get
            If m_cmdViewToCPlane Is Nothing Then
               m_cmdViewToCPlane = New RelayCommand(AddressOf ViewToCPlane, AddressOf CanViewToCPlane)
            End If
            Return m_cmdViewToCPlane
         End Get
      End Property

      ''' <summary>
      ''' Execute the GetDist.  This method is invoked by the GetDistCommand.
      ''' </summary>
      Public Sub ViewToCPlane(ByVal param As Object)
         Application.Msn.NotifyColleagues(Application.VIEWTOCPLANE)
      End Sub

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

#End Region ' ViewToCPlaneCommand

#Region "CPlaneTopCommand"

      ''' <summary>
      ''' Returns a command that do CPlaneTop.
      ''' </summary>
      Public ReadOnly Property CPlaneTopCommand As ICommand
         Get
            If m_cmdCPlaneTop Is Nothing Then
               m_cmdCPlaneTop = New RelayCommand(AddressOf CPlaneTop, AddressOf CanCPlaneTop)
            End If
            Return m_cmdCPlaneTop
         End Get
      End Property

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

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

#End Region ' CPlaneTopCommand

#Region "CPlaneFrontCommand"

      ''' <summary>
      ''' Returns a command that do CPlaneFront.
      ''' </summary>
      Public ReadOnly Property CPlaneFrontCommand As ICommand
         Get
            If m_cmdCPlaneFront Is Nothing Then
               m_cmdCPlaneFront = New RelayCommand(AddressOf CPlaneFront, AddressOf CanCPlaneFront)
            End If
            Return m_cmdCPlaneFront
         End Get
      End Property

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

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

#End Region ' CPlaneFrontCommand

#Region "CPlaneRightCommand"

      ''' <summary>
      ''' Returns a command that do CPlaneRight.
      ''' </summary>
      Public ReadOnly Property CPlaneRightCommand As ICommand
         Get
            If m_cmdCPlaneRight Is Nothing Then
               m_cmdCPlaneRight = New RelayCommand(AddressOf CPlaneRight, AddressOf CanCPlaneRight)
            End If
            Return m_cmdCPlaneRight
         End Get
      End Property

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

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

#End Region ' CPlaneRightCommand

#Region "CPlaneBackCommand"

      ''' <summary>
      ''' Returns a command that do CPlaneBack.
      ''' </summary>
      Public ReadOnly Property CPlaneBackCommand As ICommand
         Get
            If m_cmdCPlaneBack Is Nothing Then
               m_cmdCPlaneBack = New RelayCommand(AddressOf CPlaneBack, AddressOf CanCPlaneBack)
            End If
            Return m_cmdCPlaneBack
         End Get
      End Property

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

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

#End Region ' CPlaneBackCommand

#Region "CPlaneLeftCommand"

      ''' <summary>
      ''' Returns a command that do CPlaneLeft.
      ''' </summary>
      Public ReadOnly Property CPlaneLeftCommand As ICommand
         Get
            If m_cmdCPlaneLeft Is Nothing Then
               m_cmdCPlaneLeft = New RelayCommand(AddressOf CPlaneLeft, AddressOf CanCPlaneLeft)
            End If
            Return m_cmdCPlaneLeft
         End Get
      End Property

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

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

#End Region ' CPlaneLeftCommand

#Region "CPlaneBottomCommand"

      ''' <summary>
      ''' Returns a command that do CPlaneBottom.
      ''' </summary>
      Public ReadOnly Property CPlaneBottomCommand As ICommand
         Get
            If m_cmdCPlaneBottom Is Nothing Then
               m_cmdCPlaneBottom = New RelayCommand(AddressOf CPlaneBottom, AddressOf CanCPlaneBottom)
            End If
            Return m_cmdCPlaneBottom
         End Get
      End Property

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

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

#End Region ' CPlaneBottomCommand

#Region "CPlaneViewCommand"

      ''' <summary>
      ''' Returns a command that do CPlaneView.
      ''' </summary>
      Public ReadOnly Property CPlaneViewCommand As ICommand
         Get
            If m_cmdCPlaneView Is Nothing Then
               m_cmdCPlaneView = New RelayCommand(AddressOf CPlaneView, AddressOf CanCPlaneView)
            End If
            Return m_cmdCPlaneView
         End Get
      End Property

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

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

#End Region ' CPlaneViewCommand

#Region "CPlaneElevationCommand"

      ''' <summary>
      ''' Returns a command that do CPlaneElevation.
      ''' </summary>
      Public ReadOnly Property CPlaneElevationCommand As ICommand
         Get
            If m_cmdCPlaneElevation Is Nothing Then
               m_cmdCPlaneElevation = New RelayCommand(AddressOf CPlaneElevation, AddressOf CanCPlaneElevation)
            End If
            Return m_cmdCPlaneElevation
         End Get
      End Property

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

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

#End Region ' CPlaneElevationCommand

#Region "CPlaneOriginCommand"

      ''' <summary>
      ''' Returns a command that do CPlaneOrigin.
      ''' </summary>
      Public ReadOnly Property CPlaneOriginCommand As ICommand
         Get
            If m_cmdCPlaneOrigin Is Nothing Then
               m_cmdCPlaneOrigin = New RelayCommand(AddressOf CPlaneOrigin, AddressOf CanCPlaneOrigin)
            End If
            Return m_cmdCPlaneOrigin
         End Get
      End Property

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

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

#End Region ' CPlaneOriginCommand

#Region "CPlaneRotateCommand"

      ''' <summary>
      ''' Returns a command that do CPlaneRotate.
      ''' </summary>
      Public ReadOnly Property CPlaneRotateCommand As ICommand
         Get
            If m_cmdCPlaneRotate Is Nothing Then
               m_cmdCPlaneRotate = New RelayCommand(AddressOf CPlaneRotate, AddressOf CanCPlaneRotate)
            End If
            Return m_cmdCPlaneRotate
         End Get
      End Property

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

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

#End Region ' CPlaneRotateCommand

#Region "CPlane3PCommand"

      ''' <summary>
      ''' Returns a command that do CPlane3P.
      ''' </summary>
      Public ReadOnly Property CPlane3PCommand As ICommand
         Get
            If m_cmdCPlane3P Is Nothing Then
               m_cmdCPlane3P = New RelayCommand(AddressOf CPlane3P, AddressOf CanCPlane3P)
            End If
            Return m_cmdCPlane3P
         End Get
      End Property

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

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

#End Region ' CPlane3PCommand

#Region "CPlanePerpObjCommand"

      ''' <summary>
      ''' Returns a command that do CPlanePerpObj.
      ''' </summary>
      Public ReadOnly Property CPlanePerpObjCommand As ICommand
         Get
            If m_cmdCPlanePerpObj Is Nothing Then
               m_cmdCPlanePerpObj = New RelayCommand(AddressOf CPlanePerpObj, AddressOf CanCPlanePerpObj)
            End If
            Return m_cmdCPlanePerpObj
         End Get
      End Property

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

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

#End Region ' CPlanePerpObjCommand

#Region "CPlaneObjCommand"

      ''' <summary>
      ''' Returns a command that do CPlanepObj.
      ''' </summary>
      Public ReadOnly Property CPlaneObjCommand As ICommand
         Get
            If m_cmdCPlaneObj Is Nothing Then
               m_cmdCPlaneObj = New RelayCommand(AddressOf CPlaneObj, AddressOf CanCPlaneObj)
            End If
            Return m_cmdCPlaneObj
         End Get
      End Property

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

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

#End Region ' CPlaneObjCommand

   End Class

End Namespace