Imports EgtUILib

Public Class DrawPanelVM
   Inherits ViewModelBase

   Private WithEvents IdleTimer As New System.Windows.Threading.DispatcherTimer(TimeSpan.FromMilliseconds(200), Windows.Threading.DispatcherPriority.ApplicationIdle, AddressOf OnIdle, Application.Current.Dispatcher)

#Region "FIELDS & PROPERTIES"

#Region "Messages"

   Public ReadOnly Property Draw2DMsg As String
      Get
         Return EgtMsg(5244)     ' Disegno 2D
      End Get
   End Property
   Public ReadOnly Property Draw3DMsg As String
      Get
         Return EgtMsg(5245)     ' Disegno 3D
      End Get
   End Property
   Public ReadOnly Property ModifyMsg As String
      Get
         Return EgtMsg(5246)     ' Modifica
      End Get
   End Property
   Public ReadOnly Property TransformMsg As String
      Get
         Return EgtMsg(5247)     ' Trasforma
      End Get
   End Property

#End Region    ' Messages

#Region "ToolTip"

   'Proprietà ToolTip
   Public ReadOnly Property PointToolTip As String
      Get
         Return EgtMsg(5201)     ' Punto<br/>Vettore (Shift)<br/>Riferimento (Ctrl)
      End Get
   End Property
   Public ReadOnly Property Line2PToolTip As String
      Get
         Return EgtMsg(5202)     ' Linea 2 Punti<br/>Linea 2 Punti con Continuazione (Ctrl)
      End Get
   End Property
   Public ReadOnly Property LinePDLToolTip As String
      Get
         Return EgtMsg(5203)     ' Linea Punto Direzione Lunghezza<br/>Linea Punto Vettore Direzione Lunghezza (Shift)
      End Get
   End Property
   Public ReadOnly Property CirclePDToolTip As String
      Get
         Return EgtMsg(5204)     ' Cerchio Centro Punto
      End Get
   End Property
   Public ReadOnly Property CircleCDToolTip As String
      Get
         Return EgtMsg(5205)     ' Cerchio Centro Diametro
      End Get
   End Property
   Public ReadOnly Property Circle3PToolTip As String
      Get
         Return EgtMsg(5156)     ' Cerchio 3 Punti
      End Get
   End Property
   Public ReadOnly Property ArcCSEToolTip As String
      Get
         Return EgtMsg(5206)     ' Arco Centro Punti Inizio e Fine
      End Get
   End Property
   Public ReadOnly Property Arc3PToolTip As String
      Get
         Return EgtMsg(5207)     ' Arco 3 Punti<br/>Arco 2 Punti Raggio (Shift)
      End Get
   End Property
   Public ReadOnly Property ArcPDPToolTip As String
      Get
         Return EgtMsg(5208)     ' Arco Punto e Direzione Inizio Punto Fine<br/>Arco Punto e Vettore Direzione Inizio Punto Fine (Shift)<br/>Arco Punto e Direzione Inizio Punto Fine con Continuazione (Ctrl)
      End Get
   End Property
   Public ReadOnly Property Rectangle2PToolTip As String
      Get
         Return EgtMsg(5211)     ' Rettangolo 2 Punti
      End Get
   End Property
   Public ReadOnly Property PolygonToolTip As String
      Get
         Return EgtMsg(5212)     ' Poligono
      End Get
   End Property
   Public ReadOnly Property PolygonSideToolTip As String
      Get
         Return EgtMsg(5213)     ' Poligono da Lato
      End Get
   End Property
   Public ReadOnly Property TextToolTip As String
      Get
         Return EgtMsg(5214)    ' Testo<br/>Testo Avanzato (Shift)
      End Get
   End Property
   Public ReadOnly Property LinearDimensionToolTip As String
      Get
         Return EgtMsg(5155)    ' Quota Lineare<br/>Quota Allineata (Shift)
      End Get
   End Property
   Public ReadOnly Property AngularDimensionToolTip As String
      Get
         Return EgtMsg(5167)     ' Quota Angolare<br/>Quota Angolare Avanzata (Shift)
      End Get
   End Property
   Public ReadOnly Property DiamRadDimensionToolTip As String
      Get
         Return EgtMsg(5168)     ' Quota Diametrale<br/>Quota Radiale (Shift)
      End Get
   End Property

   Public ReadOnly Property PlaneToolTip As String
      Get
         Return EgtMsg(5215)     ' Piano contornato<br/>Regione piana (Shift)
      End Get
   End Property
   Public ReadOnly Property ExtrudeToolTip As String
      Get
         Return EgtMsg(5216)     ' Estrusione
      End Get
   End Property
   Public ReadOnly Property RevolveToolTip As String
      Get
         Return EgtMsg(5217)     ' Rivoluzione
      End Get
   End Property
   Public ReadOnly Property ScrewToolTip As String
      Get
         Return EgtMsg(5218)     ' Avvitamento
      End Get
   End Property
   Public ReadOnly Property SweptToolTip As String
      Get
         Return EgtMsg(5248)     ' Swept (Sezione, Guida)
      End Get
   End Property
   Public ReadOnly Property RuledToolTip As String
      Get
         Return EgtMsg(5219)     ' Rigata
      End Get
   End Property
   Public ReadOnly Property MergeSurfToolTip As String
      Get
         Return EgtMsg(5220)     ' Unisci Superfici
      End Get
   End Property
   Public ReadOnly Property ExplodeSurfToolTip As String
      Get
         Return EgtMsg(5221)     ' Esplodi Superfici e Regioni Piane
      End Get
   End Property
   Public ReadOnly Property ApproxSurfToolTip As String
      Get
         Return EgtMsg(5165)    ' Approssima Superfici e Regioni Piane
      End Get
   End Property
   Public ReadOnly Property StmMoveVertexFacetToolTip As String
      Get
         Return EgtMsg(5166)     ' Muovi Vertice di Superficie<br/>Muovi Faccia di Superficie (Shift)
      End Get
   End Property
   Public ReadOnly Property ExtractSurfFacetToolTip As String
      Get
         Return EgtMsg(5158)     ' Estrai Faccia da Superficie
      End Get
   End Property
   Public ReadOnly Property InvertSurfToolTip As String
      Get
         Return EgtMsg(5222)     ' Inverti Superfici e Regioni Piane
      End Get
   End Property
   Public ReadOnly Property ExtractLoopsToolTip As String
      Get
         Return EgtMsg(5150)     ' Estrai Bordi Liberi di Superfici e Regioni Piane
      End Get
   End Property
   Public ReadOnly Property ExtractFacetLoopsToolTip As String
      Get
         Return EgtMsg(5157)     ' Estrai Bordi di Faccia di superficie e di Parti di Regioni Piane
      End Get
   End Property
   Public ReadOnly Property SolidAddSurfToolTip As String
      Get
         Return EgtMsg(5151)     ' Unisci Superfici e Regioni Piane
      End Get
   End Property
   Public ReadOnly Property SolidSubtractSurfToolTip As String
      Get
         Return EgtMsg(5152)     ' Sottrai Superfici e Regioni Piane
      End Get
   End Property
   Public ReadOnly Property SolidIntersectSurfToolTip As String
      Get
         Return EgtMsg(5153)     ' Interseca Superfici e Regioni Piane
      End Get
   End Property
   Public ReadOnly Property IntersectSurfSurfToolTip As String
      Get
         Return EgtMsg(5154)     ' Punti, Curve e Facce di Intersezione Tra Superfici
      End Get
   End Property

   Public ReadOnly Property DeleteToolTip As String
      Get
         Return EgtMsg(5223)     ' Cancella
      End Get
   End Property
   Public ReadOnly Property ChangeLayerToolTip As String
      Get
         Return EgtMsg(5224)     ' Cambia Layer<br/>Cambia Layer con Trasformazioni (Shift)
      End Get
   End Property
   Public ReadOnly Property ChangeStatusToolTip As String
      Get
         Return EgtMsg(5250)     ' Nascondi<br/>Visualizza Layer (Shift)<br/>Visualizza Pezzo (Ctrl)
      End Get
   End Property

   Public ReadOnly Property ChangeAlphaToolTip As String
      Get
         Return EgtMsg(5225)     ' Cambia Trasparenza
      End Get
   End Property
   Public ReadOnly Property ResetColorToolTip As String
      Get
         Return EgtMsg(5226)     ' Annulla Colore
      End Get
   End Property
   Public ReadOnly Property ChangeColorToolTip As String
      Get
         Return EgtMsg(5227)     ' Cambia Colore
      End Get
   End Property
   Public ReadOnly Property InvertCurveToolTip As String
      Get
         Return EgtMsg(5228)     ' Inverti Curva
      End Get
   End Property
   Public ReadOnly Property ChangeStartToolTip As String
      Get
         Return EgtMsg(5229)     ' Cambia Punto Iniziale di Curva Chiusa
      End Get
   End Property
   Public ReadOnly Property ExtendCurveToolTip As String
      Get
         Return EgtMsg(5230)     ' Estendi o Accorcia Curva
      End Get
   End Property
   Public ReadOnly Property BreakCurveToolTip As String
      Get
         Return EgtMsg(5231)     ' Spezza Curva
      End Get
   End Property
   Public ReadOnly Property SplitCurveToolTip As String
      Get
         Return EgtMsg(5232)     ' Dividi Curva
      End Get
   End Property
   Public ReadOnly Property JoinCurveToolTip As String
      Get
         Return EgtMsg(5233)     ' Unisci Curve<br/>Unisci Curve creando una Copia (Shift)<br/>Fondi Curve nella Composita (Ctrl)
      End Get
   End Property
   Public ReadOnly Property ExplodeCurveToolTip As String
      Get
         Return EgtMsg(5234)     ' Esplodi Curve e Testi
      End Get
   End Property
   Public ReadOnly Property ThickCurveToolTip As String
      Get
         Return EgtMsg(5235)     ' Spessore e Estrusione Curva
      End Get
   End Property
   Public ReadOnly Property FilletToolTip As String
      Get
         Return EgtMsg(5209)     ' Raccordo
      End Get
   End Property
   Public ReadOnly Property ChamferToolTip As String
      Get
         Return EgtMsg(5210)     ' Smusso
      End Get
   End Property
   Public ReadOnly Property ArcFlipToolTip As String
      Get
         Return EgtMsg(5159)     ' Arco Capovolto<br/>Arco Esplementare (Shift)
      End Get
   End Property
   Public ReadOnly Property OffsetToolTip As String
      Get
         Return EgtMsg(5243)     ' Offset
      End Get
   End Property
   Public ReadOnly Property ModifyCurveToolTip As String
      Get
         Return EgtMsg(5160)     ' Modifica forma
      End Get
   End Property
   Public ReadOnly Property AddPointCurveToolTip As String
      Get
         Return EgtMsg(5161)     ' Aggiungi Punto<br/>Trasforma in Arco (Shift)<br/>Chiudi Curva Composita (Ctrl)
      End Get
   End Property
   Public ReadOnly Property RemovePointCurveToolTip As String
      Get
         Return EgtMsg(5162)     ' Rimuovi Punto<br/>Trasforma in Retta (Shift)<br/>Apri Curva Composita (Ctrl)
      End Get
   End Property
   Public ReadOnly Property ApproxCurveToolTip As String
      Get
         Return EgtMsg(5163)     ' Approssima Curva<br/>Approssima Curva con Linee (Shift)
      End Get
   End Property
   Public ReadOnly Property ModifyArcRadiusToolTip As String
      Get
         Return EgtMsg(5164)     ' Modifica Raggio di Arco o Circonferenza
      End Get
   End Property
   Public ReadOnly Property ModifyTextToolTip As String
      Get
         Return EgtMsg(5249)     ' Modifica Testo
      End Get
   End Property

   Public ReadOnly Property MoveToolTip As String
      Get
         Return EgtMsg(5236)     ' Muovi
      End Get
   End Property
   Public ReadOnly Property RotateToolTip As String
      Get
         Return EgtMsg(5237)     ' Ruota
      End Get
   End Property
   Public ReadOnly Property Rotate3DToolTip As String
      Get
         Return EgtMsg(5238)     ' Ruota 3D
      End Get
   End Property
   Public ReadOnly Property MirrorToolTip As String
      Get
         Return EgtMsg(5239)     ' Specchia
      End Get
   End Property
   Public ReadOnly Property Mirror3DToolTip As String
      Get
         Return EgtMsg(5240)     ' Specchia 3D
      End Get
   End Property
   Public ReadOnly Property ScaleToolTip As String
      Get
         Return EgtMsg(5241)     ' Scala
      End Get
   End Property
   Public ReadOnly Property Scale3DToolTip As String
      Get
         Return EgtMsg(5242)     ' Scala 3D
      End Get
   End Property

#End Region    ' ToolTip

   ' Proprietà che permettono di aprire e chiudere gli expander
   Private m_Draw2DIsExpanded As Boolean
   Public Property Draw2DIsExpanded As Boolean
      Get
         Return m_Draw2DIsExpanded
      End Get
      Set(value As Boolean)
         m_Draw2DIsExpanded = value
      End Set
   End Property

   Public ReadOnly Property Draw3DVisibility As Visibility
      Get
         Return If( (IniFile.m_nKeyOptions And KEY_OPT.CAD2D) = 0, Visibility.Visible, Visibility.Collapsed)
      End Get
   End Property

   Private m_Draw3DIsExpanded As Boolean
   Public Property Draw3DIsExpanded As Boolean
      Get
         Return m_Draw3DIsExpanded
      End Get
      Set(value As Boolean)
         m_Draw3DIsExpanded = value
      End Set
   End Property

   Private m_ModifyIsExpanded As Boolean
   Public Property ModifyIsExpanded As Boolean
      Get
         Return m_ModifyIsExpanded
      End Get
      Set(value As Boolean)
         m_ModifyIsExpanded = value
      End Set
   End Property

   Private m_TransformIsExpanded As Boolean
   Public Property TransformIsExpanded As Boolean
      Get
         Return m_TransformIsExpanded
      End Get
      Set(value As Boolean)
         m_TransformIsExpanded = value
      End Set
   End Property

   Private m_DrawPanel_Visibility As Visibility
   Public ReadOnly Property DrawPanel_Visibility As Visibility
      Get
         Return m_DrawPanel_Visibility
      End Get
   End Property
   Friend Sub SetDrawPanelVisibility(bValue As Boolean)
      m_DrawPanel_Visibility = If(bValue, Visibility.Visible, Visibility.Collapsed)
      OnPropertyChanged(NameOf(DrawPanel_Visibility))
   End Sub

#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(NameOf(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(NameOf(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(NameOf(bLayerOkAndSelOk))
      End Set
   End Property

#End Region    ' Button state

   ' 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_cmdCircle3P As ICommand
   Private m_cmdArcCSE As ICommand
   Private m_cmdArc3P As ICommand
   Private m_cmdArcPDP As ICommand
   Private m_cmdRectangle2P As ICommand
   Private m_cmdPolygon As ICommand
   Private m_cmdPolygonSide As ICommand
   Private m_cmdText As ICommand
   Private m_cmdLinDim As ICommand
   Private m_cmdAngDim As ICommand
   Private m_cmdDiamRadDim As ICommand
   Private m_cmdModifyCurve As ICommand
   Private m_cmdAddPointCurve As ICommand
   Private m_cmdPlane As ICommand
   Private m_cmdExtrude As ICommand
   Private m_cmdRevolve As ICommand
   Private m_cmdScrew As ICommand
   Private m_cmdSwept As ICommand
   Private m_cmdRuled As ICommand
   Private m_cmdMergeSurf As ICommand
   Private m_cmdExplodeSurf As ICommand
   Private m_cmdApproxSurf As ICommand
   Private m_cmdMoveStmVertexFacet As ICommand
   Private m_cmdExtractSurfFacet As ICommand
   Private m_cmdInvertSurf As ICommand
   Private m_cmdExtractLoops As ICommand
   Private m_cmdExtractFacetLoops As ICommand
   Private m_cmdSolidAddSurf As ICommand
   Private m_cmdSolidSubtractSurf As ICommand
   Private m_cmdSolidIntersectSurf As ICommand
   Private m_cmdIntersectSurfSurf As ICommand
   Private m_cmdDelete As ICommand
   Private m_cmdChangeLayer As ICommand
   Private m_cmdChangeStatus 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_cmdFillet As ICommand
   Private m_cmdChamfer As ICommand
   Private m_cmdArcFlip As ICommand
   Private m_cmdModifyArcRadius As ICommand
   Private m_cmdModifyText 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
   Private m_cmdRemovePointCurve As ICommand
   Private m_cmdApproxCurve As ICommand
   

#End Region    ' Fileds & Properties

#Region "CONSTRUCTOR"

   Sub New()
      ' Creo riferimento a questa classe in Map
      Map.SetRefDrawPanelVM(Me)
      ' Leggo stato expander da file ini
      Draw2DIsExpanded = If(GetPrivateProfileInt(S_GENERAL, K_DRAW2D, 0) = 0, False, True)
      Draw3DIsExpanded = If(GetPrivateProfileInt(S_GENERAL, K_DRAW3D, 0) = 0, False, True)
      ModifyIsExpanded = If(GetPrivateProfileInt(S_GENERAL, K_MODIFY, 0) = 0, False, True)
      TransformIsExpanded = If(GetPrivateProfileInt(S_GENERAL, K_TRANSFORM, 0) = 0, False, True)
   End Sub

#End Region    ' Constructor

#Region "COMMANDS"

#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)
         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)
      If (Keyboard.Modifiers And ModifierKeys.Control) = ModifierKeys.Control Then
         Map.refProjectVM.GetController.ExecuteCommand(Controller.CMD.FRAME)
      ElseIf (Keyboard.Modifiers And ModifierKeys.Shift) = ModifierKeys.Shift Then
         Map.refProjectVM.GetController.ExecuteCommand(Controller.CMD.VECTOR)
      Else
         Map.refProjectVM.GetController.ExecuteCommand(Controller.CMD.POINT)
      End If
   End Sub

#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)
         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)
      If (Keyboard.Modifiers And ModifierKeys.Control) = ModifierKeys.Control Then
         Map.refProjectVM.GetController.SetContinue()
      End If
      Map.refProjectVM.GetController.ExecuteCommand(Controller.CMD.LINE2P)
   End Sub

#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)
         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)
      If (Keyboard.Modifiers And ModifierKeys.Shift) <> ModifierKeys.Shift Then
         Map.refProjectVM.GetController.ExecuteCommand(Controller.CMD.LINEPDL)
      Else
         Map.refProjectVM.GetController.ExecuteCommand(Controller.CMD.LINEPVL)
      End If
   End Sub

#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)
         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)
      Map.refProjectVM.GetController.ExecuteCommand(Controller.CMD.CIRCLECP)
   End Sub

#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)
         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)
      Map.refProjectVM.GetController.ExecuteCommand(Controller.CMD.CIRCLECD)
   End Sub

#End Region ' CircleCDCommand

#Region "Circle3PCommand"

   ''' <summary>
   ''' Returns a command that do Circle3P.
   ''' </summary>
   Public ReadOnly Property Circle3PCommand As ICommand
      Get
         If m_cmdCircle3P Is Nothing Then
            m_cmdCircle3P = New RelayCommand(AddressOf Circle3P)
         End If
         Return m_cmdCircle3P
      End Get
   End Property

   ''' <summary>
   ''' Execute the Circle3P.  This method is invoked by the Circle3PDCommand.
   ''' </summary>
   Public Sub Circle3P(ByVal param As Object)
      Map.refProjectVM.GetController.ExecuteCommand(Controller.CMD.CIRCLE3P)
   End Sub

#End Region ' Circle3PCommand

#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)
         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)
      Map.refProjectVM.GetController.ExecuteCommand(Controller.CMD.ARCCSE)
   End Sub

#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)
         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)
      If (Keyboard.Modifiers And ModifierKeys.Shift) = ModifierKeys.Shift Then
         Map.refProjectVM.GetController.ExecuteCommand(Controller.CMD.ARC2PR)
      Else
         Map.refProjectVM.GetController.ExecuteCommand(Controller.CMD.ARC3P)
      End If
   End Sub

#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)
         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)
      If (Keyboard.Modifiers And ModifierKeys.Shift) = ModifierKeys.Shift Then
         Map.refProjectVM.GetController.ExecuteCommand(Controller.CMD.ARCPVP)
      ElseIf (Keyboard.Modifiers And ModifierKeys.Control) = ModifierKeys.Control Then
         Map.refProjectVM.GetController.SetContinue()
         Map.refProjectVM.GetController.ExecuteCommand(Controller.CMD.ARCPDP)
      Else
         Map.refProjectVM.GetController.ExecuteCommand(Controller.CMD.ARCPDP)
      End If
   End Sub

#End Region ' ArcPDPCommand

#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)
         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)
      Map.refProjectVM.GetController.ExecuteCommand(Controller.CMD.RECTANGLE2P)
   End Sub

#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)
         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)
      Map.refProjectVM.GetController.ExecuteCommand(Controller.CMD.POLYGON)
   End Sub

#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)
         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)
      Map.refProjectVM.GetController.ExecuteCommand(Controller.CMD.POLYGONSIDE)
   End Sub

#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)
         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)
      If (Keyboard.Modifiers And ModifierKeys.Shift) <> ModifierKeys.Shift Then
         Map.refProjectVM.GetController.ExecuteCommand(Controller.CMD.TEXT)
      Else
         Map.refProjectVM.GetController.ExecuteCommand(Controller.CMD.TEXTPLUS)
      End If
   End Sub

#End Region ' TextCommand

#Region "LinearDimensionCommand"

   ''' <summary>
   ''' Returns a command that do Linear Dimension.
   ''' </summary>
   Public ReadOnly Property LinearDimensionCommand As ICommand
      Get
         If m_cmdLinDim Is Nothing Then
            m_cmdLinDim = New RelayCommand(AddressOf LinearDimension)
         End If
         Return m_cmdLinDim
      End Get
   End Property

   ''' <summary>
   ''' Execute the LinearDimension.  This method is invoked by the LinDimCommand.
   ''' </summary>
   Public Sub LinearDimension(ByVal param As Object)
      If (Keyboard.Modifiers And ModifierKeys.Shift) <> ModifierKeys.Shift Then
         Map.refProjectVM.GetController.ExecuteCommand(Controller.CMD.LINEARDIMENSION)
      Else
         Map.refProjectVM.GetController.ExecuteCommand(Controller.CMD.ALIGNEDDIMENSION)
      End If
   End Sub

#End Region ' LinearDimensionCommand

#Region "AngularDimensionCommand"

   ''' <summary>
   ''' Returns a command that do Angular Dimension.
   ''' </summary>
   Public ReadOnly Property AngularDimensionCommand As ICommand
      Get
         If m_cmdAngDim Is Nothing Then
            m_cmdAngDim = New RelayCommand(AddressOf AngularDimension)
         End If
         Return m_cmdAngDim
      End Get
   End Property

   ''' <summary>
   ''' Execute the AngularDimension.  This method is invoked by the AngDimCommand.
   ''' </summary>
   Public Sub AngularDimension(ByVal param As Object)
      If (Keyboard.Modifiers And ModifierKeys.Shift) = ModifierKeys.Shift Then
         Map.refProjectVM.GetController.ExecuteCommand(Controller.CMD.ANGULARDIMENSIONPLUS)
      Else
         Map.refProjectVM.GetController.ExecuteCommand(Controller.CMD.ANGULARDIMENSION)
      End If
   End Sub

#End Region ' AngularDimensionCommand

#Region "DiamRadDimensionCommand"

   ''' <summary>
   ''' Returns a command that do DiamRad Dimension.
   ''' </summary>
   Public ReadOnly Property DiamRadDimensionCommand As ICommand
      Get
         If m_cmdDiamRadDim Is Nothing Then
            m_cmdDiamRadDim = New RelayCommand(AddressOf DiamRadDimension)
         End If
         Return m_cmdDiamRadDim
      End Get
   End Property

   ''' <summary>
   ''' Execute the DiamRadDimension.  This method is invoked by the DiamRadDimCommand.
   ''' </summary>
   Public Sub DiamRadDimension(ByVal param As Object)
      If (Keyboard.Modifiers And ModifierKeys.Shift) = ModifierKeys.Shift Then
         Map.refProjectVM.GetController.ExecuteCommand(Controller.CMD.RADIALDIMENSION)
      Else
         Map.refProjectVM.GetController.ExecuteCommand(Controller.CMD.DIAMETRALDIMENSION)
      End If
   End Sub

#End Region ' DiamRadDimensionCommand

#Region "ModifyCurve"

   ''' <summary>
   ''' Returns a command that do Linear Dimension.
   ''' </summary>
   Public ReadOnly Property ModifyCurveCommand As ICommand
      Get
         If m_cmdModifyCurve Is Nothing Then
            m_cmdModifyCurve = New RelayCommand(AddressOf ModifyCurve)
         End If
         Return m_cmdModifyCurve
      End Get
   End Property

   ''' <summary>
   ''' Execute the LinearDimension.  This method is invoked by the LinDimCommand.
   ''' </summary>
   Public Sub ModifyCurve(ByVal param As Object)
      Map.refProjectVM.GetController.ExecuteCommand(Controller.CMD.MODIFYCURVE)
   End Sub

#End Region ' ModifyCurve

#Region "AddPointCurve"

   ''' <summary>
   ''' Returns a command that do Linear Dimension.
   ''' </summary>
   Public ReadOnly Property AddPointCurveCommand As ICommand
      Get
         If m_cmdAddPointCurve Is Nothing Then
            m_cmdAddPointCurve = New RelayCommand(AddressOf AddPointCurve)
         End If
         Return m_cmdAddPointCurve
      End Get
   End Property

   ''' <summary>
   ''' Execute the LinearDimension.  This method is invoked by the LinDimCommand.
   ''' </summary>
   Public Sub AddPointCurve(ByVal param As Object)
      If (Keyboard.Modifiers And ModifierKeys.Control) = ModifierKeys.Control Then
         Map.refProjectVM.GetController.ExecuteCommand(Controller.CMD.CLOSECOMPO)
      Else If (Keyboard.Modifiers And ModifierKeys.Shift) = ModifierKeys.Shift Then
         Map.refProjectVM.GetController.ExecuteCommand(Controller.CMD.CURVETOARC)
      Else
         Map.refProjectVM.GetController.ExecuteCommand(Controller.CMD.ADDPOINTCURVE)
      End If
   End Sub

#End Region ' AddPointCurve

#Region "RemovePointCurve"

   ''' <summary>
   ''' Returns a command that do Linear Dimension.
   ''' </summary>
   Public ReadOnly Property RemovePointCurveCommand As ICommand
      Get
         If m_cmdRemovePointCurve Is Nothing Then
            m_cmdRemovePointCurve = New RelayCommand(AddressOf RemovePointCurve)
         End If
         Return m_cmdRemovePointCurve
      End Get
   End Property

   ''' <summary>
   ''' Execute the LinearDimension.  This method is invoked by the LinDimCommand.
   ''' </summary>
   Public Sub RemovePointCurve(ByVal param As Object)
      If (Keyboard.Modifiers And ModifierKeys.Control) = ModifierKeys.Control Then
         Map.refProjectVM.GetController.ExecuteCommand(Controller.CMD.OPENCOMPO)
      Else If (Keyboard.Modifiers And ModifierKeys.Shift) = ModifierKeys.Shift Then
         Map.refProjectVM.GetController.ExecuteCommand(Controller.CMD.CURVETOLINE)
      Else
         Map.refProjectVM.GetController.ExecuteCommand(Controller.CMD.REMOVEPOINTCURVE)
      End If
   End Sub

#End Region ' RemovePointCurve

#Region "ApproxCurve"

   ''' <summary>
   ''' Returns a command that do ApproxCurve.
   ''' </summary>
   Public ReadOnly Property ApproxCurveCommand As ICommand
      Get
         If m_cmdApproxCurve Is Nothing Then
            m_cmdApproxCurve = New RelayCommand(AddressOf ApproxCurve)
         End If
         Return m_cmdApproxCurve
      End Get
   End Property

   ''' <summary>
   ''' Execute the ApproxCurve.  This method is invoked by the ApproxCurveCommand.
   ''' </summary>
   Public Sub ApproxCurve(ByVal param As Object)
      If (Keyboard.Modifiers And ModifierKeys.Shift) = ModifierKeys.Shift Then 
         Map.refProjectVM.GetController.ExecuteCommand(Controller.CMD.APPROXCURVEWITHLINES)
      Else
         Map.refProjectVM.GetController.ExecuteCommand(Controller.CMD.APPROXCURVE)
      End If
   End Sub

#End Region ' ApproxCurve

#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)
         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)
      If (Keyboard.Modifiers And ModifierKeys.Shift) = ModifierKeys.Shift Then
         Map.refProjectVM.GetController.ExecuteCommand(Controller.CMD.REGION)
      Else
         Map.refProjectVM.GetController.ExecuteCommand(Controller.CMD.PLANE)
      End If
   End Sub

#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)
         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)
      Map.refProjectVM.GetController.ExecuteCommand(Controller.CMD.EXTRUDE)
   End Sub

#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)
         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)
      Map.refProjectVM.GetController.ExecuteCommand(Controller.CMD.REVOLVE)
   End Sub

#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)
         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)
      Map.refProjectVM.GetController.ExecuteCommand(Controller.CMD.SCREW)
   End Sub

#End Region ' ScrewCommand

#Region "SweptCommand"

   ''' <summary>
   ''' Returns a command that do Swept.
   ''' </summary>
   Public ReadOnly Property SweptCommand As ICommand
      Get
         If m_cmdSwept Is Nothing Then
            m_cmdSwept = New RelayCommand(AddressOf Swept)
         End If
         Return m_cmdSwept
      End Get
   End Property

   ''' <summary>
   ''' Execute the Ruled.  This method is invoked by the SweptCommand.
   ''' </summary>
   Public Sub Swept(ByVal param As Object)
      Map.refProjectVM.GetController.ExecuteCommand(Controller.CMD.SWEPT)
   End Sub

#End Region ' SweptCommand

#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)
         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)
      Map.refProjectVM.GetController.ExecuteCommand(Controller.CMD.RULED)
   End Sub

#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)
         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)
      Map.refProjectVM.GetController.ExecuteCommand(Controller.CMD.MERGESURF)
   End Sub

#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)
         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)
      If (Keyboard.Modifiers And ModifierKeys.Shift) = ModifierKeys.Shift Then
         Map.refProjectVM.GetController.ExecuteCommand(Controller.CMD.SURFTMTOTRIANGLES)
      Else
         Map.refProjectVM.GetController.ExecuteCommand(Controller.CMD.EXPLODESURF)
      End If
   End Sub

#End Region ' ExplodeSurfCommand

#Region "ApproxSurfCommand"

   ''' <summary>
   ''' Returns a command that do ApproxSurf.
   ''' </summary>
   Public ReadOnly Property ApproxSurfCommand As ICommand
      Get
         If m_cmdApproxSurf Is Nothing Then
            m_cmdApproxSurf = New RelayCommand(AddressOf ApproxSurf)
         End If
         Return m_cmdApproxSurf
      End Get
   End Property

   ''' <summary>
   ''' Execute the ApproxSurf.  This method is invoked by the ApproxSurfCommand.
   ''' </summary>
   Public Sub ApproxSurf(ByVal param As Object)
      Map.refProjectVM.GetController.ExecuteCommand(Controller.CMD.APPROXSURF)
   End Sub

#End Region ' ApproxSurfCommand

#Region "MoveStmVertexFacetCommand"

   ''' <summary>
   ''' Returns a command that do MoveStmVertex.
   ''' </summary>
   Public ReadOnly Property MoveStmVertexFacetCommand As ICommand
      Get
         If m_cmdMoveStmVertexFacet Is Nothing Then
            m_cmdMoveStmVertexFacet = New RelayCommand(AddressOf MoveStmVertexFacet)
         End If
         Return m_cmdMoveStmVertexFacet
      End Get
   End Property

   ''' <summary>
   ''' Execute the MoveStmVertexFacet.  This method is invoked by the MoveStmVertexFacetCommand.
   ''' </summary>
   Public Sub MoveStmVertexFacet(ByVal param As Object)
      If (Keyboard.Modifiers And ModifierKeys.Shift) = ModifierKeys.Shift Then
         Map.refProjectVM.GetController.ExecuteCommand(Controller.CMD.MOVESURFFACET)
      Else
         Map.refProjectVM.GetController.ExecuteCommand(Controller.CMD.MOVESURFVERTEX)
      End If
   End Sub

#End Region ' MoveStmVertexFacetCommand

#Region "ExtractSurfFacetCommand"

   ''' <summary>
   ''' Returns a command that do ExtractSurfFacet.
   ''' </summary>
   Public ReadOnly Property ExtractSurfFacetCommand As ICommand
      Get
         If m_cmdExtractSurfFacet Is Nothing Then
            m_cmdExtractSurfFacet = New RelayCommand(AddressOf ExtractSurfFacet)
         End If
         Return m_cmdExtractSurfFacet
      End Get
   End Property

   ''' <summary>
   ''' Execute the ExtractSurfFacet.  This method is invoked by the ExtractSurfFacetCommand.
   ''' </summary>
   Public Sub ExtractSurfFacet(ByVal param As Object)
      Map.refProjectVM.GetController.ExecuteCommand(Controller.CMD.EXTRACTSURFFACET)
   End Sub

#End Region ' ExtractSurfFacetCommand

#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)
         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)
      Map.refProjectVM.GetController.ExecuteCommand(Controller.CMD.INVERTSURF)
   End Sub

#End Region ' InvertSurfCommand

#Region "ExtractLoopsCommand"

   ''' <summary>
   ''' Returns a command that do ExtractLoops.
   ''' </summary>
   Public ReadOnly Property ExtractLoopsCommand As ICommand
      Get
         If m_cmdExtractLoops Is Nothing Then
            m_cmdExtractLoops = New RelayCommand(AddressOf ExtractLoops)
         End If
         Return m_cmdExtractLoops
      End Get
   End Property

   ''' <summary>
   ''' Execute the ExtractLoops.  This method is invoked by the ExtractLoopsCommand.
   ''' </summary>
   Public Sub ExtractLoops(ByVal param As Object)
      Map.refProjectVM.GetController.ExecuteCommand(Controller.CMD.EXTRACTSURFLOOPS)
   End Sub

#End Region ' ExtractLoopsCommand

#Region "ExtractFacetLoopsCommand"

   ''' <summary>
   ''' Returns a command that do ExtractFacetLoops.
   ''' </summary>
   Public ReadOnly Property ExtractFacetLoopsCommand As ICommand
      Get
         If m_cmdExtractFacetLoops Is Nothing Then
            m_cmdExtractFacetLoops = New RelayCommand(AddressOf ExtractFacetLoops)
         End If
         Return m_cmdExtractFacetLoops
      End Get
   End Property

   ''' <summary>
   ''' Execute the ExtractFacetLoops.  This method is invoked by the ExtractFacetLoopsCommand.
   ''' </summary>
   Public Sub ExtractFacetLoops(ByVal param As Object)
      Map.refProjectVM.GetController.ExecuteCommand(Controller.CMD.EXTRACTSURFFACETLOOPS)
   End Sub

#End Region ' ExtractFaceLoopsCommand

#Region "SolidAddSurfCommand"

   ''' <summary>
   ''' Returns a command that do SolidAddSurf.
   ''' </summary>
   Public ReadOnly Property SolidAddSurfCommand As ICommand
      Get
         If m_cmdSolidAddSurf Is Nothing Then
            m_cmdSolidAddSurf = New RelayCommand(AddressOf SolidAddSurf)
         End If
         Return m_cmdSolidAddSurf
      End Get
   End Property

   ''' <summary>
   ''' Execute the SolidAddSurf.  This method is invoked by the AddSurfCommand.
   ''' </summary>
   Public Sub SolidAddSurf(ByVal param As Object)
      Map.refProjectVM.GetController.ExecuteCommand(Controller.CMD.SOLIDADDSURF)
   End Sub

#End Region ' SolidAddSurfCommand

#Region "SolidSubtractSurfCommand"

   ''' <summary>
   ''' Returns a command that do SolidSubtractSurf.
   ''' </summary>
   Public ReadOnly Property SolidSubtractSurfCommand As ICommand
      Get
         If m_cmdSolidSubtractSurf Is Nothing Then
            m_cmdSolidSubtractSurf = New RelayCommand(AddressOf SolidSubtractSurf)
         End If
         Return m_cmdSolidSubtractSurf
      End Get
   End Property

   ''' <summary>
   ''' Execute the SolidSubtractSurf.  This method is invoked by the SolidSubtractSurfCommand.
   ''' </summary>
   Public Sub SolidSubtractSurf(ByVal param As Object)
      If (Keyboard.Modifiers And ModifierKeys.Shift) = ModifierKeys.Shift Then
         Map.refProjectVM.GetController.ExecuteCommand(Controller.CMD.INVCUTSURFSURF)
      Else
         Map.refProjectVM.GetController.ExecuteCommand(Controller.CMD.SOLIDSUBTRACTSURF)
      End If
   End Sub

#End Region ' SolidSubtractSurfCommand

#Region "SolidIntersectSurfCommand"

   ''' <summary>
   ''' Returns a command that do SolidIntersectSurf.
   ''' </summary>
   Public ReadOnly Property SolidIntersectSurfCommand As ICommand
      Get
         If m_cmdSolidIntersectSurf Is Nothing Then
            m_cmdSolidIntersectSurf = New RelayCommand(AddressOf SolidIntersectSurf)
         End If
         Return m_cmdSolidIntersectSurf
      End Get
   End Property

   ''' <summary>
   ''' Execute the SolidIntersectSurf.  This method is invoked by the SolidIntersectSurfCommand.
   ''' </summary>
   Public Sub SolidIntersectSurf(ByVal param As Object)
      If (Keyboard.Modifiers And ModifierKeys.Shift) = ModifierKeys.Shift Then
         Map.refProjectVM.GetController.ExecuteCommand(Controller.CMD.CUTSURFSURF)
      Else
         Map.refProjectVM.GetController.ExecuteCommand(Controller.CMD.SOLIDINTERSECTSURF)
      End If
   End Sub

#End Region ' SolidIntersectSurfCommand

#Region "IntersectSurfSurfCommand"

   ''' <summary>
   ''' Returns a command that do IntersectSurfSurf.
   ''' </summary>
   Public ReadOnly Property IntersectSurfSurfCommand As ICommand
      Get
         If m_cmdIntersectSurfSurf Is Nothing Then
            m_cmdIntersectSurfSurf = New RelayCommand(AddressOf IntersectSurfSurf)
         End If
         Return m_cmdIntersectSurfSurf
      End Get
   End Property

   ''' <summary>
   ''' Execute the IntersectSurfSurf.  This method is invoked by the IntersectSurfSurfCommand.
   ''' </summary>
   Public Sub IntersectSurfSurf(ByVal param As Object)
      Map.refProjectVM.GetController.ExecuteCommand(Controller.CMD.INTERSECTSURFSURF)
   End Sub

#End Region ' IntersectSurfSurfCommand

#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)
         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)
      Map.refProjectVM.GetController.SetLastInteger(GDB_ID.SEL)
      Map.refProjectVM.GetController.ExecuteCommand(Controller.CMD.DELETE)
   End Sub

#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)
         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)
      If (Keyboard.Modifiers And ModifierKeys.Shift) <> ModifierKeys.Shift Then
         Map.refProjectVM.GetController.ExecuteCommand(Controller.CMD.CHANGELAYERGLOB)
      Else
         Map.refProjectVM.GetController.ExecuteCommand(Controller.CMD.CHANGELAYER)
      End If
   End Sub

#End Region ' ChangeLayerCommand

#Region "ChangeStatusCommand"

   ''' <summary>
   ''' Returns a command that do ChangeStatus.
   ''' </summary>
   Public ReadOnly Property ChangeStatusCommand As ICommand
      Get
         If m_cmdChangeStatus Is Nothing Then
            m_cmdChangeStatus = New RelayCommand(AddressOf ChangeStatus)
         End If
         Return m_cmdChangeStatus
      End Get
   End Property

   ''' <summary>
   ''' Execute the ChangeStatus.  This method is invoked by the ChangeStatusCommand.
   ''' </summary>
   Public Sub ChangeStatus(ByVal param As Object)
      If (Keyboard.Modifiers And ModifierKeys.Control) = ModifierKeys.Control Then
         Map.refProjectVM.GetController.SetLastInteger( GDB_ID.SELPART)
         Map.refProjectVM.GetController.SetLastBoolean( True)
         Map.refProjectVM.GetController.ExecuteCommand(Controller.CMD.CHANGESTATUS)
      ElseIf (Keyboard.Modifiers And ModifierKeys.Shift) = ModifierKeys.Shift Then
         Map.refProjectVM.GetController.SetLastInteger( GDB_ID.SELLAYER)
         Map.refProjectVM.GetController.SetLastBoolean( True)
         Map.refProjectVM.GetController.ExecuteCommand(Controller.CMD.CHANGESTATUS)
      Else
         Map.refProjectVM.GetController.SetLastInteger( GDB_ID.SEL)
         Map.refProjectVM.GetController.SetLastBoolean( False)
         Map.refProjectVM.GetController.ExecuteCommand(Controller.CMD.CHANGESTATUS)
      End If
   End Sub

#End Region ' ChangeStatusCommand

#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)
         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)
      Map.refProjectVM.GetController.ExecuteCommand(Controller.CMD.CHANGEALPHA)
   End Sub

#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)
         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)
      Map.refProjectVM.GetController.ExecuteCommand(Controller.CMD.RESETCOLOR)
   End Sub

#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)
         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)
      Map.refProjectVM.GetController.ExecuteCommand(Controller.CMD.CHANGECOLOR)
   End Sub

#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)
         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)
      Map.refProjectVM.GetController.ExecuteCommand(Controller.CMD.INVERTCURVE)
   End Sub

#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)
         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)
      Map.refProjectVM.GetController.ExecuteCommand(Controller.CMD.CHANGESTARTCURVE)
   End Sub

#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)
         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)
      Map.refProjectVM.GetController.ExecuteCommand(Controller.CMD.TRIMEXTENDCURVE)
   End Sub

#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)
         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)
      Map.refProjectVM.GetController.ExecuteCommand(Controller.CMD.BREAKCURVE)
   End Sub

#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)
         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)
      Map.refProjectVM.GetController.ExecuteCommand(Controller.CMD.SPLITCURVE)
   End Sub

#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)
         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)
      If (Keyboard.Modifiers And ModifierKeys.Control) <> ModifierKeys.Control Then
         If (Keyboard.Modifiers And ModifierKeys.Shift) <> ModifierKeys.Shift Then
            Map.refProjectVM.GetController.SetLastBoolean(False)
         Else
            Map.refProjectVM.GetController.SetLastBoolean(True)
         End If
         Map.refProjectVM.GetController.ExecuteCommand(Controller.CMD.JOINCURVE)
      Else
         Map.refProjectVM.GetController.ExecuteCommand(Controller.CMD.MERGECURVESINCOMPO)
      End If
   End Sub

#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)
         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)
      Map.refProjectVM.GetController.ExecuteCommand(Controller.CMD.EXPLODECURVE)
   End Sub

#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)
         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)
      Map.refProjectVM.GetController.ExecuteCommand(Controller.CMD.SETCURVETHICKNESS)
   End Sub

#End Region ' SetCurveThCommand

#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)
         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)
      Map.refProjectVM.GetController.ExecuteCommand(Controller.CMD.FILLET)
   End Sub

#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)
         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)
      Map.refProjectVM.GetController.ExecuteCommand(Controller.CMD.CHAMFER)
   End Sub

#End Region ' ChamferCommand

#Region "ArcFlipCommand"

   ''' <summary>
   ''' Returns a command that do Arc Flip.
   ''' </summary>
   Public ReadOnly Property ArcFlipCommand As ICommand
      Get
         If m_cmdArcFlip Is Nothing Then
            m_cmdArcFlip = New RelayCommand(AddressOf ArcFlip)
         End If
         Return m_cmdArcFlip
      End Get
   End Property

   ''' <summary>
   ''' Execute the ArcFlip.  This method is invoked by the ArcFlipCommand.
   ''' </summary>
   Public Sub ArcFlip(ByVal param As Object)
      If (Keyboard.Modifiers And ModifierKeys.Shift) = ModifierKeys.Shift Then
         Map.refProjectVM.GetController.ExecuteCommand(Controller.CMD.ARCEXPLEMENTARY)
      Else
         Map.refProjectVM.GetController.ExecuteCommand(Controller.CMD.ARCFLIP)
      End If
   End Sub

#End Region ' ArcFlipCommand

#Region "ModifyArcRadiusCommand"

   ''' <summary>
   ''' Returns a command that do ModifyArcRadius.
   ''' </summary>
   Public ReadOnly Property ModifyArcRadiusCommand As ICommand
      Get
         If m_cmdModifyArcRadius Is Nothing Then
            m_cmdModifyArcRadius = New RelayCommand(AddressOf ModifyArcRadius)
         End If
         Return m_cmdModifyArcRadius
      End Get
   End Property

   ''' <summary>
   ''' Execute the ModifyArcRadius.  This method is invoked by the ModifyArcRadiusCommand.
   ''' </summary>
   Public Sub ModifyArcRadius(ByVal param As Object)
      Map.refProjectVM.GetController.ExecuteCommand(Controller.CMD.MODIFYARCRADIUS)
   End Sub

#End Region ' ModifyTextCommand

#Region "ModifyTextCommand"

   ''' <summary>
   ''' Returns a command that do ModifyText.
   ''' </summary>
   Public ReadOnly Property ModifyTextCommand As ICommand
      Get
         If m_cmdModifyText Is Nothing Then
            m_cmdModifyText = New RelayCommand(AddressOf ModifyText)
         End If
         Return m_cmdModifyText
      End Get
   End Property

   ''' <summary>
   ''' Execute the ModifyText.  This method is invoked by the ModifyTextCommand.
   ''' </summary>
   Public Sub ModifyText(ByVal param As Object)
      Map.refProjectVM.GetController.ExecuteCommand(Controller.CMD.MODIFYTEXT)
   End Sub

#End Region ' ModifyTextCommand

#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)
         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)
      Map.refProjectVM.GetController.ExecuteCommand(Controller.CMD.MOVE)
   End Sub

#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)
         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)
      Map.refProjectVM.GetController.ExecuteCommand(Controller.CMD.ROTATE)
   End Sub

#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)
         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)
      Map.refProjectVM.GetController.ExecuteCommand(Controller.CMD.ROTATE3D)
   End Sub

#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)
         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)
      Map.refProjectVM.GetController.ExecuteCommand(Controller.CMD.MIRROR)
   End Sub

#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)
         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)
      Map.refProjectVM.GetController.ExecuteCommand(Controller.CMD.MIRROR3D)
   End Sub

#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)
         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)
      Map.refProjectVM.GetController.ExecuteCommand(Controller.CMD.SCALE)
   End Sub

#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)
         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)
      Map.refProjectVM.GetController.ExecuteCommand(Controller.CMD.SCALE3D)
   End Sub

#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)
         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)
      Map.refProjectVM.GetController.ExecuteCommand(Controller.CMD.OFFSET)
   End Sub

#End Region ' OffsetCommand

#End Region    ' Commands

   Private Sub OnIdle()
      If IniFile.m_ProjectMode = ProjectModeOpt.DRAW OrElse IniFile.m_ProjectMode = ProjectModeOpt.ONLYDRAW Then
         bLayerOk = Map.refProjectVM.GetController.GetCurrLayer <> GDB_ID.NULL
         If Not IniFile.m_ProjectSceneContext = 0 Then
            bSelOk = EgtGetFirstSelectedObj() <> GDB_ID.NULL
            bLayerOkAndSelOk = m_bLayerOk And m_bSelOk
         End If

         If Application.m_UpdateLayerTree Then
            Map.refManageLayerExpanderVM.LoadObjTree()
            Application.m_UpdateLayerTree = False
         End If
      End If
   End Sub

End Class