Imports System.Collections.ObjectModel
Imports EgtWPFLib5
Imports EgtUILib

Public Class ImportWndVM
   Inherits VMBase

   Private m_ImportedEntityList As ObservableCollection(Of GeomEntity)
   Public ReadOnly Property ImportedEntityList As ObservableCollection(Of GeomEntity)
      Get
         Return m_ImportedEntityList
      End Get
   End Property

   Private m_SelImportedEntity As GeomEntity
   Public Property SelImportedEntity As GeomEntity
      Get
         Return m_SelImportedEntity
      End Get
      Set(value As GeomEntity)
         m_SelImportedEntity = value
      End Set
   End Property

   Private m_ImportPartList As ObservableCollection(Of ImportPart)
   Public ReadOnly Property ImportPartList As ObservableCollection(Of ImportPart)
      Get
         Return m_ImportPartList
      End Get
   End Property

   Private m_SelImportPartList As ImportPart
   Public Property SelImportPartList As ImportPart
      Get
         Return m_SelImportPartList
      End Get
      Set(value As ImportPart)
         m_SelImportPartList = value
      End Set
   End Property

   Sub New(sFilePath As String)

   End Sub

End Class

Public Class GeomEntity

   Private m_nId As Integer = GDB_ID.NULL
   Public ReadOnly Property nId As Integer
      Get
         Return m_nId
      End Get
   End Property

   Private m_sName As String
   Public ReadOnly Property sName As String
      Get
         Return m_sName
      End Get
   End Property

End Class

Public Class ImportPart

   Private m_sName As String
   Public Property sName As String
      Get
         Return m_sName
      End Get
      Set(value As String)
         m_sName = value
      End Set
   End Property

   Private m_LayerList As List(Of ImportLayer)
   Public ReadOnly Property LayerList As List(Of ImportLayer)
      Get
         Return m_LayerList
      End Get
   End Property

End Class

Public Class ImportLayer

   Private m_sName As String
   Public Property sName As String
      Get
         Return m_sName
      End Get
      Set(value As String)
         m_sName = value
      End Set
   End Property

   Private m_EntityList As List(Of GeomEntity)
   Public ReadOnly Property EntityList As List(Of GeomEntity)
      Get
         Return m_EntityList
      End Get
   End Property

End Class