Egalware/OmagCUT
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

OmagCUT 1.9i4 :

Browse Source 
- gestione ventose con asse rotante a step (STEPS=Val1,Val2,... in GEO di asse).
This commit is contained in:
Dario Sassi
2018-09-25 18:00:42 +00:00
parent 5f1d751c3e
commit 54ac5c21a7
5 changed files with 49 additions and 21 deletions
Download Patch File Download Diff File Expand all files Collapse all files
SplitAuto.vb
-16
View File
@@ -440,22 +440,6 @@ Public Module SplitAuto
Return False
End Function
'-----------------------------------------------------------------------------------------------
Friend Function RemoveLastPhase() As Boolean
' Non posso eliminare la prima fase
Dim nLastPhase As Integer = EgtGetPhaseCount()
If nLastPhase = 1 Then Return False
' Sposto le lavorazioni in coda a quelle della fase precedente
Dim nDispId As Integer = EgtGetPhaseDisposition(nLastPhase)
Dim nMachId As Integer = EgtGetNextOperation(nDispId)
While nMachId <> GDB_ID.NULL
EgtChangeOperationPhase(nMachId, nLastPhase - 1)
nMachId = EgtGetNextOperation(nDispId)
End While
' Rimuovo l'ultima fase
Return EgtRemoveLastPhase()
End Function
'-----------------------------------------------------------------------------------------------
'-----------------------------------------------------------------------------------------------
Private Function FindInterferences(ByRef MachSplitList As List(Of SplitMach)) As Boolean