EgtCAM5 :

- Migliorie varie.

ProjectPage/GridViewPanel/GridViewPanelViewModel.vb

@@ -160,6 +160,11 @@ Namespace EgtCAM5
             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
@@ -273,6 +278,7 @@ Namespace EgtCAM5
       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
@@ -740,95 +746,35 @@ Namespace EgtCAM5
 
 #End Region ' IsoViewNWCommand
 
-      '#Region "CurveDirCommand"
+#Region "ViewToCPlaneCommand"
 
-      '      ''' <summary>
-      '      ''' Returns a command that do CurveDir.
-      '      ''' </summary>
-      '      Public ReadOnly Property CurveDirCommand As ICommand
-      '         Get
-      '            If m_cmdCurveDir Is Nothing Then
-      '               m_cmdCurveDir = New RelayCommand(AddressOf CurveDir, AddressOf CanCurveDir)
-      '            End If
-      '            Return m_cmdCurveDir
-      '         End Get
-      '      End Property
+      ''' <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 CurveDir.  This method is invoked by the CurveDirCommand.
-      '      ''' </summary>
-      '      Public Sub CurveDir(ByVal param As Object)
-      '         Application.Msn.NotifyColleagues(Application.CURVEDIR)
-      '      End Sub
+      ''' <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 CanCurveDir(ByVal param As Object) As Boolean
-      '         Return True
-      '      End Function
+      ''' <summary>
+      ''' Returns always true.
+      ''' </summary>
+      Private Function CanViewToCPlane(ByVal param As Object) As Boolean
+         Return True
+      End Function
 
-      '#End Region ' CurveDirCommand
-
-      '#Region "AnalyzeCommand"
-
-      '      ''' <summary>
-      '      ''' Returns a command that do Analyze.
-      '      ''' </summary>
-      '      Public ReadOnly Property AnalyzeCommand As ICommand
-      '         Get
-      '            If m_cmdAnalyze Is Nothing Then
-      '               m_cmdAnalyze = New RelayCommand(AddressOf Analyze, AddressOf CanAnalyze)
-      '            End If
-      '            Return m_cmdAnalyze
-      '         End Get
-      '      End Property
-
-      '      ''' <summary>
-      '      ''' Execute the Analyze.  This method is invoked by the AnalyzeCommand.
-      '      ''' </summary>
-      '      Public Sub Analyze(ByVal param As Object)
-      '         Application.Msn.NotifyColleagues(Application.ANALYZE)
-      '      End Sub
-
-      '      ''' <summary>
-      '      ''' Returns always true.
-      '      ''' </summary>
-      '      Private Function CanAnalyze(ByVal param As Object) As Boolean
-      '         Return True
-      '      End Function
-
-      '#End Region ' AnalyzeCommand
-
-      '#Region "GetDistCommand"
-
-      '      ''' <summary>
-      '      ''' Returns a command that do GetDist.
-      '      ''' </summary>
-      '      Public ReadOnly Property GetDistCommand As ICommand
-      '         Get
-      '            If m_cmdGetDist Is Nothing Then
-      '               m_cmdGetDist = New RelayCommand(AddressOf GetDist, AddressOf CanGetDist)
-      '            End If
-      '            Return m_cmdGetDist
-      '         End Get
-      '      End Property
-
-      '      ''' <summary>
-      '      ''' Execute the GetDist.  This method is invoked by the GetDistCommand.
-      '      ''' </summary>
-      '      Public Sub GetDist(ByVal param As Object)
-      '         Application.Msn.NotifyColleagues(Application.GETDIST)
-      '      End Sub
-
-      '      ''' <summary>
-      '      ''' Returns always true.
-      '      ''' </summary>
-      '      Private Function CanGetDist(ByVal param As Object) As Boolean
-      '         Return True
-      '      End Function
-
-      '#End Region ' GetDistCommand
+#End Region ' ViewToCPlaneCommand
 
 #Region "CPlaneTopCommand"