Emmanuele Sassi
32094016e7
- migliorata gestione interfaccia simulazione - bloccata grafica durante calcoli
52 lines
1.5 KiB
VB.net
52 lines
1.5 KiB
VB.net
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
|