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

OmagCUT 1.8d4 :

Browse Source 
- aggiunta gestione gocciolatoi su componenti semplici.
This commit is contained in:
Dario Sassi
2017-04-28 11:05:07 +00:00
parent ae3b550253
commit 31ea2e63eb
16 changed files with 354 additions and 72 deletions
Download Patch File Download Diff File Expand all files Collapse all files
SplitAuto.vb
+22 -13
View File
@@ -49,7 +49,7 @@ Public Module SplitAuto
' tipo
Mach.m_nType = EgtGetOperationType(nOperId)
' layer di origine
EgtGetInfo(nOperId, "Lay", Mach.m_sLay)
EgtGetInfo(nOperId, INFO_MCH_LAYER, Mach.m_sLay)
' se taglio con lama
If Mach.m_nType = MCH_OY.SAWING Then
' verifica interferenza
@@ -127,15 +127,17 @@ Public Module SplitAuto
Dim bEnabled As Boolean = MachSplit.m_bEnabled
Dim nInterf As Integer = If(bReset, FMI_TYPE.NONE, MachSplit.m_nInterf)
' Colore della lavorazione principale
ColorSingleMachining(MachSplit.m_nId, bEnabled, nInterf)
ColorSingleMachining(MachSplit.m_nId, MachSplit.m_sLay, bEnabled, nInterf)
' Colore delle lavorazioni inglobate
For Each nId As Integer In MachSplit.m_vOthId
ColorSingleMachining(nId, bEnabled, nInterf)
ColorSingleMachining(nId, MachSplit.m_sLay, bEnabled, nInterf)
Next
EgtEnableModified()
End Sub
Private Sub ColorSingleMachining(nOperId As Integer, bEnabled As Boolean, nInterf As Integer)
Private Sub ColorSingleMachining(nOperId As Integer, sLay As String, bEnabled As Boolean, nInterf As Integer)
' Verifico se è un taglio da sotto
Dim bDrip As Boolean = (sLay = NAME_DRIPCUT)
' Recupero il preview della lavorazione
Dim nPvId As Integer = GDB_ID.NULL
EgtGetInfo(EgtGetFirstNameInGroup(nOperId, NAME_PREVIEW), INFO_PV_ONPART_ID, nPvId)
@@ -160,15 +162,22 @@ Public Module SplitAuto
EgtSetColor(nPocId, If(bFreeEnd, COL_MCH_DISABLED, COL_MCH_DIS_INTERF))
EgtSetColor(nDwnPocId, If(bFreeEnd, COL_MCH_DISABLED, COL_MCH_DIS_INTERF))
Else
EgtSetColor(nCutId, COL_MCH_CUT)
EgtSetColor(nCut2Id, COL_MCH_CUT)
EgtSetColor(nDwnCutId, COL_MCH_CUT)
Dim bFreeStart As Boolean = (nInterf And FMI_TYPE.LI) <> FMI_TYPE.LI
EgtSetColor(nPrcId, If(bFreeStart, COL_MCH_FREE, COL_MCH_INTERF))
EgtSetColor(nDwnPrcId, If(bFreeStart, COL_MCH_FREE, COL_MCH_INTERF))
Dim bFreeEnd As Boolean = (nInterf And FMI_TYPE.LO) <> FMI_TYPE.LO
EgtSetColor(nPocId, If(bFreeEnd, COL_MCH_FREE, COL_MCH_INTERF))
EgtSetColor(nDwnPocId, If(bFreeEnd, COL_MCH_FREE, COL_MCH_INTERF))
Dim colCut As Color3d = If(bDrip, COL_MCH_DRIPCUT, COL_MCH_CUT)
EgtSetColor(nCutId, colCut)
EgtSetColor(nCut2Id, colCut)
EgtSetColor(nDwnCutId, colCut)
Dim colStart As Color3d = COL_MCH_INTERF()
If (nInterf And FMI_TYPE.LI) <> FMI_TYPE.LI Then
colStart = If(bDrip, COL_MCH_DRIPFREE, COL_MCH_FREE)
End If
EgtSetColor(nPrcId, colStart)
EgtSetColor(nDwnPrcId, colStart)
Dim colEnd As Color3d = COL_MCH_INTERF()
If (nInterf And FMI_TYPE.LO) <> FMI_TYPE.LO Then
colEnd = If(bDrip, COL_MCH_DRIPFREE, COL_MCH_FREE)
End If
EgtSetColor(nPocId, colEnd)
EgtSetColor(nDwnPocId, colEnd)
End If
nGrpId = EgtGetNextGroup(nGrpId)
End While