Imports EgtUILib
Imports EgtWPFLib5

Public Class Print3dLayerVM

   Private m_nLayerId As Integer = GDB_ID.NULL
   Public ReadOnly Property nLayerId As Integer
      Get
         Return m_nLayerId
      End Get
   End Property

   Private m_nLayerIndex As Integer = -1
   Public ReadOnly Property nLayerIndex As Integer
      Get
         Return m_nLayerIndex
      End Get
   End Property

   Private m_SolidLayerIdList As New List(Of Integer)
   Public ReadOnly Property SolidLayerIdList As List(Of Integer)
      Get
         Return m_SolidLayerIdList
      End Get
   End Property

   Private m_ToolPathLayerIdList As New List(Of Integer)
   Public ReadOnly Property ToolPathLayerIdList As List(Of Integer)
      Get
         Return m_ToolPathLayerIdList
      End Get
   End Property

   Sub New(nLayerId As Integer, nLayerIndex As Integer)
      m_nLayerId = nLayerId
      m_nLayerIndex = nLayerIndex
      Dim nCrvId As Integer = EgtGetFirstNameInGroup(m_nLayerId, "Crv*")
      While nCrvId <> GDB_ID.NULL
         Dim nSolidLayerId As Integer = EgtGetFirstNameInGroup(nCrvId, "Solid")
         If nSolidLayerId <> GDB_ID.NULL Then
            m_SolidLayerIdList.Add(nSolidLayerId)
         End If
         Dim nToolPathLayerId As Integer = EgtGetFirstNameInGroup(nCrvId, "ToolPath")
         If nToolPathLayerId <> GDB_ID.NULL Then
            m_ToolPathLayerIdList.Add(nToolPathLayerId)
         End If
         nCrvId = EgtGetNextName(nCrvId, "Crv*")
      End While
   End Sub

End Class