Samuele E. Locatelli
46 lines
1.3 KiB
VB.net
46 lines
1.3 KiB
VB.net
Imports System.Collections.ObjectModel
|
|
Imports System.IO
|
|
Imports EgtUILib
|
|
Imports EgtWPFLib5
|
|
|
|
Public Class WallMachGroup
|
|
Inherits MyMachGroup
|
|
|
|
Protected m_nRawPartId As Integer = GDB_ID.NULL
|
|
Public ReadOnly Property nRawPartId As Integer
|
|
Get
|
|
Return m_nRawPartId
|
|
End Get
|
|
End Property
|
|
|
|
Sub New(nId As Integer, sName As String, sMachine As String)
|
|
MyBase.New(nId, sName, sMachine)
|
|
SetMachineType(MachineType.WALL)
|
|
m_nRawPartId = EgtGetFirstRawPart()
|
|
EgtGetInfo(nId, MGR_RPT_PANELLEN, dL)
|
|
EgtGetInfo(nId, MGR_RPT_PANELWIDTH, dW)
|
|
EgtGetInfo(nId, MGR_RPT_PANELHEIGHT, dH)
|
|
m_dTotMat = dL * dW
|
|
For Each Part In PartList
|
|
m_dMatForPart += (Part.dL * Part.dW)
|
|
Next
|
|
End Sub
|
|
|
|
Public Overrides Sub RefreshPartList()
|
|
m_nRawPartId = EgtGetFirstRawPart()
|
|
PartList.Clear()
|
|
Dim nPartId As Integer = EgtGetFirstPartInRawPart(m_nRawPartId)
|
|
While nPartId <> GDB_ID.NULL
|
|
PartList.Add(New Wall(Me, nPartId))
|
|
nPartId = EgtGetNextPartInRawPart(nPartId)
|
|
End While
|
|
End Sub
|
|
|
|
Public Overrides Sub RefreshGroupData()
|
|
EgtGetInfo(Id, MGR_RPT_PANELLEN, dL)
|
|
EgtGetInfo(Id, MGR_RPT_PANELWIDTH, dW)
|
|
EgtGetInfo(Id, MGR_RPT_PANELHEIGHT, dH)
|
|
End Sub
|
|
|
|
End Class
|