Dario Sassi
ab283a3efa
- correzioni al polishing (oar si notifica che è un taglio diretto e si controlla meglio l'utensile) - varie migliorie nei tagli diretti.
38 lines
1.2 KiB
VB.net
38 lines
1.2 KiB
VB.net
Imports EgtUILib
|
|
|
|
Module DirectCut
|
|
' Riferimenti a pagine
|
|
Private m_MainWindow As MainWindow = DirectCast(Application.Current.MainWindow, MainWindow)
|
|
|
|
' Polishing attivo
|
|
Friend m_bPolishingOn As Boolean = False
|
|
|
|
Friend Function CreateDirectCutPart() As Integer
|
|
Dim nPartId = EgtCreateGroup(GDB_ID.ROOT)
|
|
EgtSetName(nPartId, NAME_DIRECTCUT)
|
|
Return nPartId
|
|
End Function
|
|
|
|
Friend Function EraseDirectCutPart() As Boolean
|
|
' Recupero identificativo del pezzo
|
|
Dim nPartId As Integer = EgtGetFirstNameInGroup(m_MainWindow.m_CurrentProjectPageUC.m_nRawId, NAME_DIRECTCUT)
|
|
If nPartId = GDB_ID.NULL Then Return True
|
|
' Cancello le lavorazioni
|
|
EraseMachinings(nPartId)
|
|
' Tolgo il pezzo dal grezzo
|
|
EgtRemovePartFromRawPart(nPartId)
|
|
' Cancello il pezzo
|
|
EgtErase(nPartId)
|
|
Return True
|
|
End Function
|
|
|
|
Friend Function GetDirectCutPart() As Integer
|
|
Return EgtGetFirstNameInGroup(m_MainWindow.m_CurrentProjectPageUC.m_nRawId, NAME_DIRECTCUT)
|
|
End Function
|
|
|
|
Friend Function IsDirectCutOn() As Boolean
|
|
Return ( GetDirectCutPart() <> GDB_ID.NULL OrElse m_bPolishingOn)
|
|
End Function
|
|
|
|
End Module
|