EgtCAM5 :

- Correzzione EgtSaveFile Dialog.
- Eliminazione Can da tutti i comandi dei bottoni nel programma.

ProjectPage/DrawPanel/DrawPanelViewModel.vb

@@ -264,18 +264,6 @@ Namespace EgtCAM5
 
       ' Definizione layer corrente
       Private m_CurrentLayer As Integer
-      Public ReadOnly Property bLayerOk As Boolean
-         Get
-            Return m_CurrentLayer <> GDB_ID.NULL
-         End Get
-      End Property
-      ' Definizione layer corrente
-      Private m_bSelOk As Boolean = False
-      Public ReadOnly Property bSelOk As Boolean
-         Get
-            Return m_bSelOk
-         End Get
-      End Property
 
       ' Proprietà che permettono di aprire e chiudere gli expander
       Private m_Draw2DIsExpanded As Boolean
@@ -318,6 +306,41 @@ Namespace EgtCAM5
          End Set
       End Property
 
+#Region "Button state"
+
+      Private m_bLayerOk As Boolean
+      Public Property bLayerOk As Boolean
+         Get
+            Return m_bLayerOk
+         End Get
+         Set(value As Boolean)
+            m_bLayerOk = value
+            OnPropertyChanged("bLayerOk")
+         End Set
+      End Property
+      Private m_bSelOk As Boolean
+      Public Property bSelOk As Boolean
+         Get
+            Return m_bSelOk
+         End Get
+         Set(value As Boolean)
+            m_bSelOk = value
+            OnPropertyChanged("bSelOk")
+         End Set
+      End Property
+      Private m_bLayerOkAndSelOk As Boolean
+      Public Property bLayerOkAndSelOk As Boolean
+         Get
+            Return m_bLayerOkAndSelOk
+         End Get
+         Set(value As Boolean)
+            m_bLayerOkAndSelOk = value
+            OnPropertyChanged("bLayerOkAndSelOk")
+         End Set
+      End Property
+
+#End Region    ' Button state
+
       ' Definizione comandi
       Private m_cmdPoint As ICommand
       Private m_cmdLine2P As ICommand
@@ -397,7 +420,7 @@ Namespace EgtCAM5
       Public ReadOnly Property PointCommand As ICommand
          Get
             If m_cmdPoint Is Nothing Then
-               m_cmdPoint = New RelayCommand(AddressOf Point, AddressOf CanPoint)
+               m_cmdPoint = New RelayCommand(AddressOf Point)
             End If
             Return m_cmdPoint
          End Get
@@ -410,14 +433,6 @@ Namespace EgtCAM5
          Application.Msn.NotifyColleagues(Application.POINT)
       End Sub
 
-      ''' <summary>
-      ''' Returns always true.
-      ''' </summary>
-      Private Function CanPoint(ByVal param As Object) As Boolean
-         Application.Msn.NotifyColleagues(Application.GETCURRLAYER)
-         Return bLayerOk
-      End Function
-
 #End Region ' PointCommand
 
 #Region "Line2PCommand"
@@ -428,7 +443,7 @@ Namespace EgtCAM5
       Public ReadOnly Property Line2PCommand As ICommand
          Get
             If m_cmdLine2P Is Nothing Then
-               m_cmdLine2P = New RelayCommand(AddressOf Line2P, AddressOf CanLine2P)
+               m_cmdLine2P = New RelayCommand(AddressOf Line2P)
             End If
             Return m_cmdLine2P
          End Get
@@ -441,12 +456,6 @@ Namespace EgtCAM5
          Application.Msn.NotifyColleagues(Application.LINE2P)
       End Sub
 
-      ''' <summary>
-      ''' Returns always true.
-      ''' </summary>
-      Private Function CanLine2P(ByVal param As Object) As Boolean
-         Return bLayerOk
-      End Function
 
 #End Region ' Line2PCommand
 
@@ -458,7 +467,7 @@ Namespace EgtCAM5
       Public ReadOnly Property LinePDLCommand As ICommand
          Get
             If m_cmdLinePDL Is Nothing Then
-               m_cmdLinePDL = New RelayCommand(AddressOf LinePDL, AddressOf CanLinePDL)
+               m_cmdLinePDL = New RelayCommand(AddressOf LinePDL)
             End If
             Return m_cmdLinePDL
          End Get
@@ -471,13 +480,6 @@ Namespace EgtCAM5
          Application.Msn.NotifyColleagues(Application.LINEPDL)
       End Sub
 
-      ''' <summary>
-      ''' Returns always true.
-      ''' </summary>
-      Private Function CanLinePDL(ByVal param As Object) As Boolean
-         Return bLayerOk
-      End Function
-
 #End Region ' LinePDLCommand
 
 #Region "CircleCPCommand"
@@ -488,7 +490,7 @@ Namespace EgtCAM5
       Public ReadOnly Property CircleCPCommand As ICommand
          Get
             If m_cmdCircleCP Is Nothing Then
-               m_cmdCircleCP = New RelayCommand(AddressOf CircleCP, AddressOf CanCircleCP)
+               m_cmdCircleCP = New RelayCommand(AddressOf CircleCP)
             End If
             Return m_cmdCircleCP
          End Get
@@ -501,13 +503,6 @@ Namespace EgtCAM5
          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 bLayerOk
-      End Function
-
 #End Region ' CircleCPCommand
 
 #Region "CircleCDCommand"
@@ -518,7 +513,7 @@ Namespace EgtCAM5
       Public ReadOnly Property CircleCDCommand As ICommand
          Get
             If m_cmdCircleCD Is Nothing Then
-               m_cmdCircleCD = New RelayCommand(AddressOf CircleCD, AddressOf CanCircleCD)
+               m_cmdCircleCD = New RelayCommand(AddressOf CircleCD)
             End If
             Return m_cmdCircleCD
          End Get
@@ -531,13 +526,6 @@ Namespace EgtCAM5
          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 bLayerOk
-      End Function
-
 #End Region ' CircleCDCommand
 
 #Region "ArcCSECommand"
@@ -548,7 +536,7 @@ Namespace EgtCAM5
       Public ReadOnly Property ArcCSECommand As ICommand
          Get
             If m_cmdArcCSE Is Nothing Then
-               m_cmdArcCSE = New RelayCommand(AddressOf ArcCSE, AddressOf CanArcCSE)
+               m_cmdArcCSE = New RelayCommand(AddressOf ArcCSE)
             End If
             Return m_cmdArcCSE
          End Get
@@ -561,13 +549,6 @@ Namespace EgtCAM5
          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 bLayerOk
-      End Function
-
 #End Region ' ArcCSECommand
 
 #Region "Arc3PCommand"
@@ -578,7 +559,7 @@ Namespace EgtCAM5
       Public ReadOnly Property Arc3PCommand As ICommand
          Get
             If m_cmdArc3P Is Nothing Then
-               m_cmdArc3P = New RelayCommand(AddressOf Arc3P, AddressOf CanArc3P)
+               m_cmdArc3P = New RelayCommand(AddressOf Arc3P)
             End If
             Return m_cmdArc3P
          End Get
@@ -591,13 +572,6 @@ Namespace EgtCAM5
          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 bLayerOk
-      End Function
-
 #End Region ' Arc3PCommand
 
 #Region "ArcPDPCommand"
@@ -608,7 +582,7 @@ Namespace EgtCAM5
       Public ReadOnly Property ArcPDPCommand As ICommand
          Get
             If m_cmdArcPDP Is Nothing Then
-               m_cmdArcPDP = New RelayCommand(AddressOf ArcPDP, AddressOf CanArcPDP)
+               m_cmdArcPDP = New RelayCommand(AddressOf ArcPDP)
             End If
             Return m_cmdArcPDP
          End Get
@@ -621,13 +595,6 @@ Namespace EgtCAM5
          Application.Msn.NotifyColleagues(Application.ARCPDP)
       End Sub
 
-      ''' <summary>
-      ''' Returns always true.
-      ''' </summary>
-      Private Function CanArcPDP(ByVal param As Object) As Boolean
-         Return bLayerOk
-      End Function
-
 #End Region ' ArcPDPCommand
 
 #Region "FilletCommand"
@@ -638,7 +605,7 @@ Namespace EgtCAM5
       Public ReadOnly Property FilletCommand As ICommand
          Get
             If m_cmdFillet Is Nothing Then
-               m_cmdFillet = New RelayCommand(AddressOf Fillet, AddressOf CanFillet)
+               m_cmdFillet = New RelayCommand(AddressOf Fillet)
             End If
             Return m_cmdFillet
          End Get
@@ -651,13 +618,6 @@ Namespace EgtCAM5
          Application.Msn.NotifyColleagues(Application.EXECUTECOMMAND, Controller.CMD.FILLET)
       End Sub
 
-      ''' <summary>
-      ''' Returns always true.
-      ''' </summary>
-      Private Function CanFillet(ByVal param As Object) As Boolean
-         Return bLayerOk
-      End Function
-
 #End Region ' FilletCommand
 
 #Region "ChamferCommand"
@@ -668,7 +628,7 @@ Namespace EgtCAM5
       Public ReadOnly Property ChamferCommand As ICommand
          Get
             If m_cmdChamfer Is Nothing Then
-               m_cmdChamfer = New RelayCommand(AddressOf Chamfer, AddressOf CanChamfer)
+               m_cmdChamfer = New RelayCommand(AddressOf Chamfer)
             End If
             Return m_cmdChamfer
          End Get
@@ -681,13 +641,6 @@ Namespace EgtCAM5
          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 bLayerOk
-      End Function
-
 #End Region ' ChamferCommand
 
 #Region "Rectangle2PCommand"
@@ -698,7 +651,7 @@ Namespace EgtCAM5
       Public ReadOnly Property Rectangle2PCommand As ICommand
          Get
             If m_cmdRectangle2P Is Nothing Then
-               m_cmdRectangle2P = New RelayCommand(AddressOf Rectangle2P, AddressOf CanRectangle2P)
+               m_cmdRectangle2P = New RelayCommand(AddressOf Rectangle2P)
             End If
             Return m_cmdRectangle2P
          End Get
@@ -711,13 +664,6 @@ Namespace EgtCAM5
          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 bLayerOk
-      End Function
-
 #End Region ' Rectangle2PCommand
 
 #Region "PolygonCommand"
@@ -728,7 +674,7 @@ Namespace EgtCAM5
       Public ReadOnly Property PolygonCommand As ICommand
          Get
             If m_cmdPolygon Is Nothing Then
-               m_cmdPolygon = New RelayCommand(AddressOf Polygon, AddressOf CanPolygon)
+               m_cmdPolygon = New RelayCommand(AddressOf Polygon)
             End If
             Return m_cmdPolygon
          End Get
@@ -741,13 +687,6 @@ Namespace EgtCAM5
          Application.Msn.NotifyColleagues(Application.POLYGON)
       End Sub
 
-      ''' <summary>
-      ''' Returns always true.
-      ''' </summary>
-      Private Function CanPolygon(ByVal param As Object) As Boolean
-         Return bLayerOk
-      End Function
-
 #End Region ' PolygonCommand
 
 #Region "PolygonSideCommand"
@@ -758,7 +697,7 @@ Namespace EgtCAM5
       Public ReadOnly Property PolygonSideCommand As ICommand
          Get
             If m_cmdPolygonSide Is Nothing Then
-               m_cmdPolygonSide = New RelayCommand(AddressOf PolygonSide, AddressOf CanPolygonSide)
+               m_cmdPolygonSide = New RelayCommand(AddressOf PolygonSide)
             End If
             Return m_cmdPolygonSide
          End Get
@@ -771,13 +710,6 @@ Namespace EgtCAM5
          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 bLayerOk
-      End Function
-
 #End Region ' PolygonSideCommand
 
 #Region "TextCommand"
@@ -788,7 +720,7 @@ Namespace EgtCAM5
       Public ReadOnly Property TextCommand As ICommand
          Get
             If m_cmdText Is Nothing Then
-               m_cmdText = New RelayCommand(AddressOf Text, AddressOf CanText)
+               m_cmdText = New RelayCommand(AddressOf Text)
             End If
             Return m_cmdText
          End Get
@@ -801,13 +733,6 @@ Namespace EgtCAM5
          Application.Msn.NotifyColleagues(Application.TEXT)
       End Sub
 
-      ''' <summary>
-      ''' Returns always true.
-      ''' </summary>
-      Private Function CanText(ByVal param As Object) As Boolean
-         Return bLayerOk
-      End Function
-
 #End Region ' TextCommand
 
 #Region "PlaneCommand"
@@ -818,7 +743,7 @@ Namespace EgtCAM5
       Public ReadOnly Property PlaneCommand As ICommand
          Get
             If m_cmdPlane Is Nothing Then
-               m_cmdPlane = New RelayCommand(AddressOf Plane, AddressOf CanPlane)
+               m_cmdPlane = New RelayCommand(AddressOf Plane)
             End If
             Return m_cmdPlane
          End Get
@@ -831,15 +756,6 @@ Namespace EgtCAM5
          Application.Msn.NotifyColleagues(Application.PLANE)
       End Sub
 
-      ''' <summary>
-      ''' Returns always true.
-      ''' </summary>
-      Private Function CanPlane(ByVal param As Object) As Boolean
-         If IniFile.m_ProjectSceneContext = 0 Then Return False
-         m_bSelOk = EgtGetFirstSelectedObj() <> GDB_ID.NULL
-         Return bLayerOk And bSelOk
-      End Function
-
 #End Region ' PlaneCommand
 
 #Region "ExtrudeCommand"
@@ -850,7 +766,7 @@ Namespace EgtCAM5
       Public ReadOnly Property ExtrudeCommand As ICommand
          Get
             If m_cmdExtrude Is Nothing Then
-               m_cmdExtrude = New RelayCommand(AddressOf Extrude, AddressOf CanExtrude)
+               m_cmdExtrude = New RelayCommand(AddressOf Extrude)
             End If
             Return m_cmdExtrude
          End Get
@@ -863,13 +779,6 @@ Namespace EgtCAM5
          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 bLayerOk And bSelOk
-      End Function
-
 #End Region ' ExtrudeCommand
 
 #Region "RevolveCommand"
@@ -880,7 +789,7 @@ Namespace EgtCAM5
       Public ReadOnly Property RevolveCommand As ICommand
          Get
             If m_cmdRevolve Is Nothing Then
-               m_cmdRevolve = New RelayCommand(AddressOf Revolve, AddressOf CanRevolve)
+               m_cmdRevolve = New RelayCommand(AddressOf Revolve)
             End If
             Return m_cmdRevolve
          End Get
@@ -893,13 +802,6 @@ Namespace EgtCAM5
          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 bLayerOk And bSelOk
-      End Function
-
 #End Region ' RevolveCommand
 
 #Region "ScrewCommand"
@@ -910,7 +812,7 @@ Namespace EgtCAM5
       Public ReadOnly Property ScrewCommand As ICommand
          Get
             If m_cmdScrew Is Nothing Then
-               m_cmdScrew = New RelayCommand(AddressOf Screw, AddressOf CanScrew)
+               m_cmdScrew = New RelayCommand(AddressOf Screw)
             End If
             Return m_cmdScrew
          End Get
@@ -923,13 +825,6 @@ Namespace EgtCAM5
          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 bLayerOk And bSelOk
-      End Function
-
 #End Region ' ScrewCommand
 
 #Region "RuledCommand"
@@ -940,7 +835,7 @@ Namespace EgtCAM5
       Public ReadOnly Property RuledCommand As ICommand
          Get
             If m_cmdRuled Is Nothing Then
-               m_cmdRuled = New RelayCommand(AddressOf Ruled, AddressOf CanRuled)
+               m_cmdRuled = New RelayCommand(AddressOf Ruled)
             End If
             Return m_cmdRuled
          End Get
@@ -953,13 +848,6 @@ Namespace EgtCAM5
          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 bLayerOk And bSelOk
-      End Function
-
 #End Region ' RuledCommand
 
 #Region "MergeSurfCommand"
@@ -970,7 +858,7 @@ Namespace EgtCAM5
       Public ReadOnly Property MergeSurfCommand As ICommand
          Get
             If m_cmdMergeSurf Is Nothing Then
-               m_cmdMergeSurf = New RelayCommand(AddressOf MergeSurf, AddressOf CanMergeSurf)
+               m_cmdMergeSurf = New RelayCommand(AddressOf MergeSurf)
             End If
             Return m_cmdMergeSurf
          End Get
@@ -983,13 +871,6 @@ Namespace EgtCAM5
          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 bSelOk
-      End Function
-
 #End Region ' MergeSurfCommand
 
 #Region "ExplodeSurfCommand"
@@ -1000,7 +881,7 @@ Namespace EgtCAM5
       Public ReadOnly Property ExplodeSurfCommand As ICommand
          Get
             If m_cmdExplodeSurf Is Nothing Then
-               m_cmdExplodeSurf = New RelayCommand(AddressOf ExplodeSurf, AddressOf CanExplodeSurf)
+               m_cmdExplodeSurf = New RelayCommand(AddressOf ExplodeSurf)
             End If
             Return m_cmdExplodeSurf
          End Get
@@ -1013,13 +894,6 @@ Namespace EgtCAM5
          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 bSelOk
-      End Function
-
 #End Region ' ExplodeSurfCommand
 
 #Region "InvertSurfCommand"
@@ -1030,7 +904,7 @@ Namespace EgtCAM5
       Public ReadOnly Property InvertSurfCommand As ICommand
          Get
             If m_cmdInvertSurf Is Nothing Then
-               m_cmdInvertSurf = New RelayCommand(AddressOf InvertSurf, AddressOf CanInvertSurf)
+               m_cmdInvertSurf = New RelayCommand(AddressOf InvertSurf)
             End If
             Return m_cmdInvertSurf
          End Get
@@ -1043,13 +917,6 @@ Namespace EgtCAM5
          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 bSelOk
-      End Function
-
 #End Region ' InvertSurfCommand
 
 #Region "DeleteCommand"
@@ -1060,7 +927,7 @@ Namespace EgtCAM5
       Public ReadOnly Property DeleteCommand As ICommand
          Get
             If m_cmdDelete Is Nothing Then
-               m_cmdDelete = New RelayCommand(AddressOf Delete, AddressOf CanDelete)
+               m_cmdDelete = New RelayCommand(AddressOf Delete)
             End If
             Return m_cmdDelete
          End Get
@@ -1073,13 +940,6 @@ Namespace EgtCAM5
          Application.Msn.NotifyColleagues(Application.DELETE)
       End Sub
 
-      ''' <summary>
-      ''' Returns always true.
-      ''' </summary>
-      Private Function CanDelete(ByVal param As Object) As Boolean
-         Return bSelOk
-      End Function
-
 #End Region ' DeleteCommand
 
 #Region "ChangeLayerCommand"
@@ -1090,7 +950,7 @@ Namespace EgtCAM5
       Public ReadOnly Property ChangeLayerCommand As ICommand
          Get
             If m_cmdChangeLayer Is Nothing Then
-               m_cmdChangeLayer = New RelayCommand(AddressOf ChangeLayer, AddressOf CanChangeLayer)
+               m_cmdChangeLayer = New RelayCommand(AddressOf ChangeLayer)
             End If
             Return m_cmdChangeLayer
          End Get
@@ -1107,13 +967,6 @@ Namespace EgtCAM5
          End If
       End Sub
 
-      ''' <summary>
-      ''' Returns always true.
-      ''' </summary>
-      Private Function CanChangeLayer(ByVal param As Object) As Boolean
-         Return bSelOk
-      End Function
-
 #End Region ' ChangeLayerCommand
 
 #Region "ChangeAlphaCommand"
@@ -1124,7 +977,7 @@ Namespace EgtCAM5
       Public ReadOnly Property ChangeAlphaCommand As ICommand
          Get
             If m_cmdChangeAlpha Is Nothing Then
-               m_cmdChangeAlpha = New RelayCommand(AddressOf ChangeAlpha, AddressOf CanChangeAlpha)
+               m_cmdChangeAlpha = New RelayCommand(AddressOf ChangeAlpha)
             End If
             Return m_cmdChangeAlpha
          End Get
@@ -1137,13 +990,6 @@ Namespace EgtCAM5
          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 bSelOk
-      End Function
-
 #End Region ' ChangeAlphaCommand
 
 #Region "ResetColorCommand"
@@ -1154,7 +1000,7 @@ Namespace EgtCAM5
       Public ReadOnly Property ResetColorCommand As ICommand
          Get
             If m_cmdResetColor Is Nothing Then
-               m_cmdResetColor = New RelayCommand(AddressOf ResetColor, AddressOf CanResetColor)
+               m_cmdResetColor = New RelayCommand(AddressOf ResetColor)
             End If
             Return m_cmdResetColor
          End Get
@@ -1167,13 +1013,6 @@ Namespace EgtCAM5
          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 bSelOk
-      End Function
-
 #End Region ' ResetColorCommand
 
 #Region "ChangeColorCommand"
@@ -1184,7 +1023,7 @@ Namespace EgtCAM5
       Public ReadOnly Property ChangeColorCommand As ICommand
          Get
             If m_cmdChangeColor Is Nothing Then
-               m_cmdChangeColor = New RelayCommand(AddressOf ChangeColor, AddressOf CanChangeColor)
+               m_cmdChangeColor = New RelayCommand(AddressOf ChangeColor)
             End If
             Return m_cmdChangeColor
          End Get
@@ -1197,13 +1036,6 @@ Namespace EgtCAM5
          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 bSelOk
-      End Function
-
 #End Region ' ChangeColorCommand
 
 #Region "InvertCurveCommand"
@@ -1214,7 +1046,7 @@ Namespace EgtCAM5
       Public ReadOnly Property InvertCurveCommand As ICommand
          Get
             If m_cmdInvertCurve Is Nothing Then
-               m_cmdInvertCurve = New RelayCommand(AddressOf InvertCurve, AddressOf CanInvertCurve)
+               m_cmdInvertCurve = New RelayCommand(AddressOf InvertCurve)
             End If
             Return m_cmdInvertCurve
          End Get
@@ -1227,13 +1059,6 @@ Namespace EgtCAM5
          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 bSelOk
-      End Function
-
 #End Region ' InvertCurveCommand
 
 #Region "ChangeStartCurveCommand"
@@ -1244,7 +1069,7 @@ Namespace EgtCAM5
       Public ReadOnly Property ChangeStartCurveCommand As ICommand
          Get
             If m_cmdChangeStartCurve Is Nothing Then
-               m_cmdChangeStartCurve = New RelayCommand(AddressOf ChangeStartCurve, AddressOf CanChangeStartCurve)
+               m_cmdChangeStartCurve = New RelayCommand(AddressOf ChangeStartCurve)
             End If
             Return m_cmdChangeStartCurve
          End Get
@@ -1257,13 +1082,6 @@ Namespace EgtCAM5
          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 bSelOk
-      End Function
-
 #End Region ' ChangeStartCurveCommand
 
 #Region "ExtendCurveCommand"
@@ -1274,7 +1092,7 @@ Namespace EgtCAM5
       Public ReadOnly Property ExtendCurveCommand As ICommand
          Get
             If m_cmdExtendCurve Is Nothing Then
-               m_cmdExtendCurve = New RelayCommand(AddressOf ExtendCurve, AddressOf CanExtendCurve)
+               m_cmdExtendCurve = New RelayCommand(AddressOf ExtendCurve)
             End If
             Return m_cmdExtendCurve
          End Get
@@ -1287,13 +1105,6 @@ Namespace EgtCAM5
          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 bSelOk
-      End Function
-
 #End Region ' ExtendCurveCommand
 
 #Region "BreakCurveCommand"
@@ -1304,7 +1115,7 @@ Namespace EgtCAM5
       Public ReadOnly Property BreakCurveCommand As ICommand
          Get
             If m_cmdBreakCurve Is Nothing Then
-               m_cmdBreakCurve = New RelayCommand(AddressOf BreakCurve, AddressOf CanBreakCurve)
+               m_cmdBreakCurve = New RelayCommand(AddressOf BreakCurve)
             End If
             Return m_cmdBreakCurve
          End Get
@@ -1317,13 +1128,6 @@ Namespace EgtCAM5
          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 bSelOk
-      End Function
-
 #End Region ' BreakCurveCommand
 
 #Region "SplitCurveCommand"
@@ -1334,7 +1138,7 @@ Namespace EgtCAM5
       Public ReadOnly Property SplitCurveCommand As ICommand
          Get
             If m_cmdSplitCurve Is Nothing Then
-               m_cmdSplitCurve = New RelayCommand(AddressOf SplitCurve, AddressOf CanSplitCurve)
+               m_cmdSplitCurve = New RelayCommand(AddressOf SplitCurve)
             End If
             Return m_cmdSplitCurve
          End Get
@@ -1347,13 +1151,6 @@ Namespace EgtCAM5
          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 bSelOk
-      End Function
-
 #End Region ' SplitCurveCommand
 
 #Region "JoinCurveCommand"
@@ -1364,7 +1161,7 @@ Namespace EgtCAM5
       Public ReadOnly Property JoinCurveCommand As ICommand
          Get
             If m_cmdJoinCurve Is Nothing Then
-               m_cmdJoinCurve = New RelayCommand(AddressOf JoinCurve, AddressOf CanJoinCurve)
+               m_cmdJoinCurve = New RelayCommand(AddressOf JoinCurve)
             End If
             Return m_cmdJoinCurve
          End Get
@@ -1377,13 +1174,6 @@ Namespace EgtCAM5
          Application.Msn.NotifyColleagues(Application.JOINCURVE)
       End Sub
 
-      ''' <summary>
-      ''' Returns always true.
-      ''' </summary>
-      Private Function CanJoinCurve(ByVal param As Object) As Boolean
-         Return bLayerOk And bSelOk
-      End Function
-
 #End Region ' JoinCurveCommand
 
 #Region "ExplodeCurveCommand"
@@ -1394,7 +1184,7 @@ Namespace EgtCAM5
       Public ReadOnly Property ExplodeCurveCommand As ICommand
          Get
             If m_cmdExplodeCurve Is Nothing Then
-               m_cmdExplodeCurve = New RelayCommand(AddressOf ExplodeCurve, AddressOf CanExplodeCurve)
+               m_cmdExplodeCurve = New RelayCommand(AddressOf ExplodeCurve)
             End If
             Return m_cmdExplodeCurve
          End Get
@@ -1407,13 +1197,6 @@ Namespace EgtCAM5
          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 bSelOk
-      End Function
-
 #End Region ' ExplodeCurveCommand
 
 #Region "SetCurveThCommand"
@@ -1424,7 +1207,7 @@ Namespace EgtCAM5
       Public ReadOnly Property SetCurveThCommand As ICommand
          Get
             If m_cmdSetCurveTh Is Nothing Then
-               m_cmdSetCurveTh = New RelayCommand(AddressOf SetCurveTh, AddressOf CanSetCurveTh)
+               m_cmdSetCurveTh = New RelayCommand(AddressOf SetCurveTh)
             End If
             Return m_cmdSetCurveTh
          End Get
@@ -1437,13 +1220,6 @@ Namespace EgtCAM5
          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 bSelOk
-      End Function
-
 #End Region ' SetCurveThCommand
 
 #Region "MoveCommand"
@@ -1454,7 +1230,7 @@ Namespace EgtCAM5
       Public ReadOnly Property MoveCommand As ICommand
          Get
             If m_cmdMove Is Nothing Then
-               m_cmdMove = New RelayCommand(AddressOf Move, AddressOf CanMove)
+               m_cmdMove = New RelayCommand(AddressOf Move)
             End If
             Return m_cmdMove
          End Get
@@ -1467,13 +1243,6 @@ Namespace EgtCAM5
          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 bSelOk
-      End Function
-
 #End Region ' MoveCommand
 
 #Region "RotateCommand"
@@ -1484,7 +1253,7 @@ Namespace EgtCAM5
       Public ReadOnly Property RotateCommand As ICommand
          Get
             If m_cmdRotate Is Nothing Then
-               m_cmdRotate = New RelayCommand(AddressOf Rotate, AddressOf CanRotate)
+               m_cmdRotate = New RelayCommand(AddressOf Rotate)
             End If
             Return m_cmdRotate
          End Get
@@ -1497,13 +1266,6 @@ Namespace EgtCAM5
          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 bSelOk
-      End Function
-
 #End Region ' RotateCommand
 
 #Region "Rotate3DCommand"
@@ -1514,7 +1276,7 @@ Namespace EgtCAM5
       Public ReadOnly Property Rotate3DCommand As ICommand
          Get
             If m_cmdRotate3D Is Nothing Then
-               m_cmdRotate3D = New RelayCommand(AddressOf Rotate3D, AddressOf CanRotate3D)
+               m_cmdRotate3D = New RelayCommand(AddressOf Rotate3D)
             End If
             Return m_cmdRotate3D
          End Get
@@ -1527,13 +1289,6 @@ Namespace EgtCAM5
          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 bSelOk
-      End Function
-
 #End Region ' Rotate3DCommand
 
 #Region "MirrorCommand"
@@ -1544,7 +1299,7 @@ Namespace EgtCAM5
       Public ReadOnly Property MirrorCommand As ICommand
          Get
             If m_cmdMirror Is Nothing Then
-               m_cmdMirror = New RelayCommand(AddressOf Mirror, AddressOf CanMirror)
+               m_cmdMirror = New RelayCommand(AddressOf Mirror)
             End If
             Return m_cmdMirror
          End Get
@@ -1557,13 +1312,6 @@ Namespace EgtCAM5
          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 bSelOk
-      End Function
-
 #End Region ' MirrorCommand
 
 #Region "Mirror3DCommand"
@@ -1574,7 +1322,7 @@ Namespace EgtCAM5
       Public ReadOnly Property Mirror3DCommand As ICommand
          Get
             If m_cmdMirror3D Is Nothing Then
-               m_cmdMirror3D = New RelayCommand(AddressOf Mirror3D, AddressOf CanMirror3D)
+               m_cmdMirror3D = New RelayCommand(AddressOf Mirror3D)
             End If
             Return m_cmdMirror3D
          End Get
@@ -1587,13 +1335,6 @@ Namespace EgtCAM5
          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 bSelOk
-      End Function
-
 #End Region ' Mirror3DCommand
 
 #Region "ScaleCommand"
@@ -1604,7 +1345,7 @@ Namespace EgtCAM5
       Public ReadOnly Property ScaleCommand As ICommand
          Get
             If m_cmdScale Is Nothing Then
-               m_cmdScale = New RelayCommand(AddressOf Scale, AddressOf CanScale)
+               m_cmdScale = New RelayCommand(AddressOf Scale)
             End If
             Return m_cmdScale
          End Get
@@ -1617,13 +1358,6 @@ Namespace EgtCAM5
          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 bSelOk
-      End Function
-
 #End Region ' ScaleCommand
 
 #Region "Scale3DCommand"
@@ -1634,7 +1368,7 @@ Namespace EgtCAM5
       Public ReadOnly Property Scale3DCommand As ICommand
          Get
             If m_cmdScale3D Is Nothing Then
-               m_cmdScale3D = New RelayCommand(AddressOf Scale3D, AddressOf CanScale3D)
+               m_cmdScale3D = New RelayCommand(AddressOf Scale3D)
             End If
             Return m_cmdScale3D
          End Get
@@ -1647,13 +1381,6 @@ Namespace EgtCAM5
          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 bSelOk
-      End Function
-
 #End Region ' Scale3DCommand
 
 #Region "OffsetCommand"
@@ -1664,7 +1391,7 @@ Namespace EgtCAM5
       Public ReadOnly Property OffsetCommand As ICommand
          Get
             If m_cmdOffset Is Nothing Then
-               m_cmdOffset = New RelayCommand(AddressOf Offset, AddressOf CanOffset)
+               m_cmdOffset = New RelayCommand(AddressOf Offset)
             End If
             Return m_cmdOffset
          End Get
@@ -1677,19 +1404,19 @@ Namespace EgtCAM5
          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 bSelOk
-      End Function
-
 #End Region ' OffsetCommand
 
 #End Region    ' Commands
 
       Private Sub OnIdle()
-         CommandManager.InvalidateRequerySuggested()
+         If IniFile.m_ProjectMode = ProjectModeOpt.DRAW Then
+            Application.Msn.NotifyColleagues(Application.GETCURRLAYER)
+            bLayerOk = m_CurrentLayer <> GDB_ID.NULL
+            If Not IniFile.m_ProjectSceneContext = 0 Then
+               bSelOk = EgtGetFirstSelectedObj() <> GDB_ID.NULL
+               bLayerOkAndSelOk = m_bLayerOk And m_bSelOk
+            End If
+         End If
       End Sub
 
    End Class