diff --git a/EgtCAM5.vbproj b/EgtCAM5.vbproj index f3f7af7..9dc928f 100644 --- a/EgtCAM5.vbproj +++ b/EgtCAM5.vbproj @@ -1014,6 +1014,9 @@ + + + IF "$(PlatformName)"=="x86" IF "$(ConfigurationName)" == "Release" copy $(TargetPath) c:\EgtProg\EgtCAM5\EgtCAM5R32.exe diff --git a/GridPanel/GridPanelVM.vb b/GridPanel/GridPanelVM.vb index 10b3910..1f37845 100644 --- a/GridPanel/GridPanelVM.vb +++ b/GridPanel/GridPanelVM.vb @@ -12,13 +12,8 @@ Public Class GridPanelVM 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 #Region "ToolTip" diff --git a/PopUpGridPanel/PopUpGridPanelV.xaml b/PopUpGridPanel/PopUpGridPanelV.xaml index d002967..aa8b2fb 100644 --- a/PopUpGridPanel/PopUpGridPanelV.xaml +++ b/PopUpGridPanel/PopUpGridPanelV.xaml @@ -6,6 +6,9 @@ + diff --git a/PopUpGridPanel/PopUpGridPanelViewModel.vb b/PopUpGridPanel/PopUpGridPanelViewModel.vb index 89599bb..77bc96f 100644 --- a/PopUpGridPanel/PopUpGridPanelViewModel.vb +++ b/PopUpGridPanel/PopUpGridPanelViewModel.vb @@ -7,6 +7,7 @@ Public Class PopUpGridPanelVM ' Definizione comandi Private m_cmdCPlaneView As ICommand + Private m_cmdCPlaneInvert As ICommand Private m_cmdCPlaneRotate As ICommand Private m_cmdCPlane3P As ICommand Private m_cmdCPlanePerpObj As ICommand @@ -19,6 +20,11 @@ Public Class PopUpGridPanelVM Return EgtMsg(MSG_GRIDVIEWPANEL + 25) End Get End Property + Public ReadOnly Property CPlaneInvertToolTip As String + Get + Return EgtMsg(5285) + End Get + End Property Public ReadOnly Property CPlaneRotateToolTip As String Get Return EgtMsg(MSG_GRIDVIEWPANEL + 28) @@ -70,6 +76,29 @@ Public Class PopUpGridPanelVM #End Region ' CPlaneViewCommand +#Region "CPlaneInvertCommand" + + ''' + ''' Returns a command that do CPlaneInvert. + ''' + Public ReadOnly Property CPlaneInvertCommand As ICommand + Get + If m_cmdCPlaneInvert Is Nothing Then + m_cmdCPlaneInvert = New RelayCommand(AddressOf CPlaneInvert) + End If + Return m_cmdCPlaneInvert + End Get + End Property + + ''' + ''' Execute the CPlaneInvert. This method is invoked by the CPlaneInvertCommand. + ''' + Public Sub CPlaneInvert(ByVal param As Object) + Map.refProjectVM.GetController.ExecuteCommand(Controller.CMD.GRID_INVERT) + End Sub + +#End Region + #Region "CPlaneRotateCommand" ''' diff --git a/Resources/GridViewPanel/CplaneINVERT.png b/Resources/GridViewPanel/CplaneINVERT.png new file mode 100644 index 0000000..0a05f66 Binary files /dev/null and b/Resources/GridViewPanel/CplaneINVERT.png differ