Gestione Split per tagli finali
This commit is contained in:
Nicola Pievani
+478
-205
@@ -1,5 +1,6 @@
|
||||
Imports System.Collections.ObjectModel
|
||||
Imports System.ComponentModel
|
||||
Imports System.Reflection
|
||||
Imports EgtUILib
|
||||
|
||||
Public Class SplitPageUC
|
||||
@@ -203,7 +204,7 @@ Public Class SplitPageUC
|
||||
If Mach.m_sLay = NAME_ONPATH Then AddTopText(sText)
|
||||
If Mach.m_bFinalCut Then AddFinalText(sText)
|
||||
Else
|
||||
sText = EgtMsg(90791) & " " & i.ToString() & " " & DoubleToString(Mach.m_dSideAng, 2) & "°"
|
||||
sText = EgtMsg(90791) & " " & i.ToString() & " " & DoubleToString(Mach.m_dSideAng, 2) & "°"
|
||||
End If
|
||||
If Mach.m_bPause Then AddPauseText(sText)
|
||||
AddItemToList(i, Mach, sText, MCH_OY.SAWING)
|
||||
@@ -971,14 +972,18 @@ Public Class SplitPageUC
|
||||
If Not MoveUpBtn.IsEnabled And Not MoveDownBtn.IsEnabled Then Return
|
||||
|
||||
' MOVE UP (-1)
|
||||
Dim OldItem As SplitMach = m_MachiningList(m_CurrFirstInd - 1)
|
||||
Dim NewItem As SplitMach = m_MachiningList(m_CurrLastInd)
|
||||
MoveUpBtn.IsEnabled = Not (OldItem.m_bFinalCut Or NewItem.m_bFinalCut) Or (OldItem.m_bFinalCut And NewItem.m_bFinalCut)
|
||||
If m_CurrFirstInd > 0 Then
|
||||
Dim OldItem As SplitMach = m_MachiningList(m_CurrFirstInd - 1)
|
||||
Dim NewItem As SplitMach = m_MachiningList(m_CurrLastInd)
|
||||
MoveUpBtn.IsEnabled = Not (OldItem.m_bFinalCut Or NewItem.m_bFinalCut) Or (OldItem.m_bFinalCut And NewItem.m_bFinalCut)
|
||||
End If
|
||||
|
||||
' MOVE DOWN (1)
|
||||
OldItem = m_MachiningList(m_CurrLastInd + 1)
|
||||
NewItem = m_MachiningList(m_CurrFirstInd)
|
||||
MoveDownBtn.IsEnabled = Not (OldItem.m_bFinalCut Or NewItem.m_bFinalCut) Or (OldItem.m_bFinalCut And NewItem.m_bFinalCut)
|
||||
If m_CurrLastInd < m_MachiningList.Count - 1 Then
|
||||
Dim OldItem = m_MachiningList(m_CurrLastInd + 1)
|
||||
Dim NewItem = m_MachiningList(m_CurrFirstInd)
|
||||
MoveDownBtn.IsEnabled = Not (OldItem.m_bFinalCut Or NewItem.m_bFinalCut) Or (OldItem.m_bFinalCut And NewItem.m_bFinalCut)
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub MoveItem(direction As Integer)
|
||||
@@ -1271,17 +1276,31 @@ Public Class SplitPageUC
|
||||
|
||||
End Sub
|
||||
|
||||
' Dato l'indice della lavorazione restituisce l'indice della lavorazione TwinCut
|
||||
Private Function GetIndexTwinCut(nIndex As Integer, Optional OnlyFinalCut As Boolean = True) As Integer
|
||||
Dim nIndexTwinCut As Integer = -1
|
||||
If m_MachiningList(nIndex).m_bFinalCut Or Not OnlyFinalCut Then
|
||||
Dim nIdTwinCut As Integer = -1
|
||||
EgtGetInfo(m_MachiningList(nIndex).m_nId, "IdTwinCut", nIdTwinCut)
|
||||
nIndexTwinCut = m_MachiningList.FindIndex(Function(x) x.m_nId = nIdTwinCut)
|
||||
End If
|
||||
Return nIndexTwinCut
|
||||
End Function
|
||||
|
||||
' Ok: gestione info 'IdTwinCut' per tagli FinalCut
|
||||
Private Function AdjustBothCuts(nI As Integer,
|
||||
Optional bAllForced As Boolean = False,
|
||||
Optional bAccForced As Boolean = False) As Boolean
|
||||
Dim nIndexTwinCut As Integer = GetIndexTwinCut(nI, False)
|
||||
' Verifico che entrambi gli estremi siano allungabili
|
||||
If Not (m_MachiningList(nI).m_bCanStartAll And m_MachiningList(nI).m_bCanEndAll) Then Return False
|
||||
If Not ((m_MachiningList(nI).m_bCanStartAll And m_MachiningList(nI).m_bCanEndAll) Or nIndexTwinCut > -1) Then Return False
|
||||
' Eseguo allungamento o riporto allo standard
|
||||
EgtSetCurrMachining(m_MachiningList(nI).m_nId)
|
||||
Dim nLiPrev As Integer
|
||||
EgtGetMachiningParam(MCH_MP.LEADINTYPE, nLiPrev)
|
||||
Dim nLoPrev As Integer
|
||||
EgtGetMachiningParam(MCH_MP.LEADOUTTYPE, nLoPrev)
|
||||
|
||||
If (m_MachiningList(nI).m_bStartAll Or m_MachiningList(nI).m_bEndAll) And Not bAllForced Then
|
||||
' accorcio
|
||||
If nLiPrev = MCH_SAW_LI.EXT_OUT Then
|
||||
@@ -1297,6 +1316,28 @@ Public Class SplitPageUC
|
||||
UpdateMachiningPreview(m_MachiningList(nI).m_nId, True)
|
||||
m_MachiningList(nI).m_bStartAll = False
|
||||
m_MachiningList(nI).m_bEndAll = False
|
||||
|
||||
' ver_2.7h3
|
||||
If nIndexTwinCut > -1 And nIndexTwinCut < m_MachiningList.Count Then
|
||||
' Eseguo allungamento o riporto allo standard
|
||||
EgtSetCurrMachining(m_MachiningList(nIndexTwinCut).m_nId)
|
||||
EgtGetMachiningParam(MCH_MP.LEADINTYPE, nLiPrev)
|
||||
EgtGetMachiningParam(MCH_MP.LEADOUTTYPE, nLoPrev)
|
||||
|
||||
' accorcio
|
||||
If nLiPrev = MCH_SAW_LI.EXT_OUT Then
|
||||
EgtSetMachiningParam(MCH_MP.LEADINTYPE, MCH_SAW_LI.OUT)
|
||||
Else
|
||||
EgtSetMachiningParam(MCH_MP.LEADINTYPE, MCH_SAW_LI.CENT)
|
||||
End If
|
||||
If nLoPrev = MCH_SAW_LO.EXT_OUT Then
|
||||
EgtSetMachiningParam(MCH_MP.LEADOUTTYPE, MCH_SAW_LO.OUT)
|
||||
Else
|
||||
EgtSetMachiningParam(MCH_MP.LEADOUTTYPE, MCH_SAW_LO.CENT)
|
||||
End If
|
||||
UpdateMachiningPreview(m_MachiningList(nIndexTwinCut).m_nId, True)
|
||||
End If
|
||||
|
||||
ElseIf m_MachiningList(nI).m_bEnabled And Not bAccForced Then
|
||||
' allungo
|
||||
If nLiPrev = MCH_SAW_LI.OUT Then
|
||||
@@ -1312,20 +1353,44 @@ Public Class SplitPageUC
|
||||
UpdateMachiningPreview(m_MachiningList(nI).m_nId, True)
|
||||
m_MachiningList(nI).m_bStartAll = True
|
||||
m_MachiningList(nI).m_bEndAll = True
|
||||
|
||||
' ver_2.7h3
|
||||
If nIndexTwinCut > -1 And nIndexTwinCut < m_MachiningList.Count Then
|
||||
' Eseguo allungamento o riporto allo standard
|
||||
EgtSetCurrMachining(m_MachiningList(nIndexTwinCut).m_nId)
|
||||
EgtGetMachiningParam(MCH_MP.LEADINTYPE, nLiPrev)
|
||||
EgtGetMachiningParam(MCH_MP.LEADOUTTYPE, nLoPrev)
|
||||
|
||||
If nLiPrev = MCH_SAW_LI.OUT Then
|
||||
EgtSetMachiningParam(MCH_MP.LEADINTYPE, MCH_SAW_LI.EXT_OUT)
|
||||
Else
|
||||
EgtSetMachiningParam(MCH_MP.LEADINTYPE, MCH_SAW_LI.EXT_CENT)
|
||||
End If
|
||||
If nLoPrev = MCH_SAW_LO.OUT Then
|
||||
EgtSetMachiningParam(MCH_MP.LEADOUTTYPE, MCH_SAW_LO.EXT_OUT)
|
||||
Else
|
||||
EgtSetMachiningParam(MCH_MP.LEADOUTTYPE, MCH_SAW_LO.EXT_CENT)
|
||||
End If
|
||||
UpdateMachiningPreview(m_MachiningList(nIndexTwinCut).m_nId, True)
|
||||
End If
|
||||
|
||||
End If
|
||||
ColorMachining(m_MachiningList(nI))
|
||||
Return True
|
||||
End Function
|
||||
|
||||
' Ok: gestione info 'IdTwinCut' per tagli FinalCut
|
||||
Private Function AdjustStartCut(nI As Integer,
|
||||
Optional bAllForced As Boolean = False,
|
||||
Optional bAccForced As Boolean = False) As Boolean
|
||||
Dim nIndexTwinCut As Integer = GetIndexTwinCut(nI, False)
|
||||
' Verifico che l'estremo iniziale sia allungabile
|
||||
If Not m_MachiningList(nI).m_bCanStartAll Then Return False
|
||||
If Not (m_MachiningList(nI).m_bCanStartAll Or nIndexTwinCut > -1) Then Return False
|
||||
' Eseguo allungamento o riporto allo standard
|
||||
EgtSetCurrMachining(m_MachiningList(nI).m_nId)
|
||||
Dim nLiPrev As Integer
|
||||
EgtGetMachiningParam(MCH_MP.LEADINTYPE, nLiPrev)
|
||||
|
||||
If m_MachiningList(nI).m_bStartAll And Not bAllForced Then
|
||||
' accorcio
|
||||
If nLiPrev = MCH_SAW_LI.EXT_OUT Then
|
||||
@@ -1335,6 +1400,21 @@ Public Class SplitPageUC
|
||||
End If
|
||||
UpdateMachiningPreview(m_MachiningList(nI).m_nId, True)
|
||||
m_MachiningList(nI).m_bStartAll = False
|
||||
|
||||
' ver_2.7h3
|
||||
If nIndexTwinCut > -1 And nIndexTwinCut < m_MachiningList.Count Then
|
||||
' Eseguo allungamento o riporto allo standard
|
||||
EgtSetCurrMachining(m_MachiningList(nIndexTwinCut).m_nId)
|
||||
EgtGetMachiningParam(MCH_MP.LEADINTYPE, nLiPrev)
|
||||
' accorcio
|
||||
If nLiPrev = MCH_SAW_LI.EXT_OUT Then
|
||||
EgtSetMachiningParam(MCH_MP.LEADINTYPE, MCH_SAW_LI.OUT)
|
||||
Else
|
||||
EgtSetMachiningParam(MCH_MP.LEADINTYPE, MCH_SAW_LI.CENT)
|
||||
End If
|
||||
UpdateMachiningPreview(m_MachiningList(nIndexTwinCut).m_nId, True)
|
||||
End If
|
||||
|
||||
ElseIf m_MachiningList(nI).m_bEnabled And Not bAccForced Then
|
||||
' allungo
|
||||
If nLiPrev = MCH_SAW_LI.OUT Then
|
||||
@@ -1344,20 +1424,38 @@ Public Class SplitPageUC
|
||||
End If
|
||||
UpdateMachiningPreview(m_MachiningList(nI).m_nId, True)
|
||||
m_MachiningList(nI).m_bStartAll = True
|
||||
|
||||
' ver_2.7h3
|
||||
If nIndexTwinCut > -1 And nIndexTwinCut < m_MachiningList.Count Then
|
||||
' Eseguo allungamento o riporto allo standard
|
||||
EgtSetCurrMachining(m_MachiningList(nIndexTwinCut).m_nId)
|
||||
EgtGetMachiningParam(MCH_MP.LEADINTYPE, nLiPrev)
|
||||
' allungo
|
||||
If nLiPrev = MCH_SAW_LI.OUT Then
|
||||
EgtSetMachiningParam(MCH_MP.LEADINTYPE, MCH_SAW_LI.EXT_OUT)
|
||||
Else
|
||||
EgtSetMachiningParam(MCH_MP.LEADINTYPE, MCH_SAW_LI.EXT_CENT)
|
||||
End If
|
||||
UpdateMachiningPreview(m_MachiningList(nIndexTwinCut).m_nId, True)
|
||||
End If
|
||||
|
||||
End If
|
||||
ColorMachining(m_MachiningList(nI))
|
||||
Return True
|
||||
End Function
|
||||
|
||||
' Ok: gestione info 'IdTwinCut' per tagli FinalCut
|
||||
Private Function AdjustEndCut(nI As Integer,
|
||||
Optional bAllForced As Boolean = False,
|
||||
Optional bAccForced As Boolean = False) As Boolean
|
||||
Dim nIndexTwinCut As Integer = GetIndexTwinCut(nI, False)
|
||||
' Verifico che l'estremo finale sia allungabile
|
||||
If Not m_MachiningList(nI).m_bCanEndAll Then Return False
|
||||
If Not (m_MachiningList(nI).m_bCanEndAll Or nIndexTwinCut > -1) Then Return False
|
||||
' Eseguo allungamento o riporto allo standard
|
||||
EgtSetCurrMachining(m_MachiningList(nI).m_nId)
|
||||
Dim nLoPrev As Integer
|
||||
EgtGetMachiningParam(MCH_MP.LEADOUTTYPE, nLoPrev)
|
||||
|
||||
If m_MachiningList(nI).m_bEndAll And Not bAllForced Then
|
||||
' accorcio
|
||||
If nLoPrev = MCH_SAW_LO.EXT_OUT Then
|
||||
@@ -1366,6 +1464,21 @@ Public Class SplitPageUC
|
||||
EgtSetMachiningParam(MCH_MP.LEADOUTTYPE, MCH_SAW_LO.CENT)
|
||||
End If
|
||||
m_MachiningList(nI).m_bEndAll = False
|
||||
|
||||
' ver_2.7h3
|
||||
If nIndexTwinCut > -1 And nIndexTwinCut < m_MachiningList.Count Then
|
||||
' Eseguo allungamento o riporto allo standard
|
||||
EgtSetCurrMachining(m_MachiningList(nIndexTwinCut).m_nId)
|
||||
EgtGetMachiningParam(MCH_MP.LEADOUTTYPE, nLoPrev)
|
||||
' accorcio
|
||||
If nLoPrev = MCH_SAW_LO.EXT_OUT Then
|
||||
EgtSetMachiningParam(MCH_MP.LEADOUTTYPE, MCH_SAW_LO.OUT)
|
||||
Else
|
||||
EgtSetMachiningParam(MCH_MP.LEADOUTTYPE, MCH_SAW_LO.CENT)
|
||||
End If
|
||||
UpdateMachiningPreview(m_MachiningList(nIndexTwinCut).m_nId, True)
|
||||
End If
|
||||
|
||||
ElseIf m_MachiningList(nI).m_bEnabled And Not bAccForced Then
|
||||
' allungo
|
||||
If nLoPrev = MCH_SAW_LO.OUT Then
|
||||
@@ -1374,62 +1487,106 @@ Public Class SplitPageUC
|
||||
EgtSetMachiningParam(MCH_MP.LEADOUTTYPE, MCH_SAW_LO.EXT_CENT)
|
||||
End If
|
||||
m_MachiningList(nI).m_bEndAll = True
|
||||
|
||||
' ver_2.7h3
|
||||
If nIndexTwinCut > -1 And nIndexTwinCut < m_MachiningList.Count Then
|
||||
' Eseguo allungamento o riporto allo standard
|
||||
EgtSetCurrMachining(m_MachiningList(nIndexTwinCut).m_nId)
|
||||
EgtGetMachiningParam(MCH_MP.LEADOUTTYPE, nLoPrev)
|
||||
' allungo
|
||||
If nLoPrev = MCH_SAW_LO.OUT Then
|
||||
EgtSetMachiningParam(MCH_MP.LEADOUTTYPE, MCH_SAW_LO.EXT_OUT)
|
||||
Else
|
||||
EgtSetMachiningParam(MCH_MP.LEADOUTTYPE, MCH_SAW_LO.EXT_CENT)
|
||||
End If
|
||||
UpdateMachiningPreview(m_MachiningList(nIndexTwinCut).m_nId, True)
|
||||
End If
|
||||
|
||||
End If
|
||||
UpdateMachiningPreview(m_MachiningList(nI).m_nId, True)
|
||||
ColorMachining(m_MachiningList(nI))
|
||||
Return True
|
||||
End Function
|
||||
|
||||
' Ok: gestione info 'IdTwinCut' per tagli FinalCut
|
||||
Private Sub OutCenStartBtn_Click(sender As Object, e As RoutedEventArgs) Handles OutCenStartBtn.Click
|
||||
If m_CurrFirstInd = -1 Then Return
|
||||
Dim bGenModif As Boolean = False
|
||||
|
||||
For Index As Integer = m_CurrFirstInd To m_CurrLastInd
|
||||
If Not m_ItemList(Index).IsSelected Then
|
||||
Dim nIndexTwinCut As Integer = -1
|
||||
' Indice di controllo LOOP: se > 10 allora il ciclo è potenzialmente infinito!
|
||||
Dim nCount As Integer = 0
|
||||
Dim CurrIndex = Index
|
||||
If Not m_ItemList(CurrIndex).IsSelected Then
|
||||
Continue For
|
||||
End If
|
||||
Dim nI As Integer = m_ItemList(Index).Ind
|
||||
If m_MachiningList(nI).m_sLay = NAME_OUTLOOP Then
|
||||
|
||||
' se ho forzato il tipo di ingresso da CamAuto qui non posso moficarlo!
|
||||
If m_MachiningList(nI).m_bMngLeadInOnIntCorner Then
|
||||
EgtOutLog("L'ingresso di taglio associato all'entita'_" & m_MachiningList(nI).m_nEntId & " non puo' essere modificato per problemi di ingombro lama")
|
||||
Else
|
||||
Do
|
||||
nCount = nCount + 1
|
||||
Dim nI As Integer = m_ItemList(CurrIndex).Ind
|
||||
If m_MachiningList(nI).m_sLay = NAME_OUTLOOP Then
|
||||
|
||||
' se ho forzato il tipo di ingresso da CamAuto qui non posso moficarlo!
|
||||
If m_MachiningList(nI).m_bMngLeadInOnIntCorner Then
|
||||
EgtOutLog("L'ingresso di taglio associato all'entita'_" & m_MachiningList(nI).m_nEntId & " non puo' essere modificato per problemi di ingombro lama")
|
||||
Else
|
||||
|
||||
EgtSetCurrMachining(m_MachiningList(nI).m_nId)
|
||||
Dim nLiPrev As Integer
|
||||
EgtGetMachiningParam(MCH_MP.LEADINTYPE, nLiPrev)
|
||||
If nLiPrev = MCH_SAW_LI.OUT Then
|
||||
' accorcio
|
||||
EgtSetMachiningParam(MCH_MP.LEADINTYPE, MCH_SAW_LI.CENT)
|
||||
UpdateMachiningPreview(m_MachiningList(nI).m_nId, True)
|
||||
ModifyOtherLeadIn(nI, MCH_SAW_LI.CENT)
|
||||
' ri-verifico interferenza
|
||||
EgtVerifyMachining(m_MachiningList(nI).m_nId, m_MachiningList(nI).m_nInterf)
|
||||
ElseIf nLiPrev = MCH_SAW_LI.EXT_OUT Then
|
||||
' accorcio
|
||||
EgtSetMachiningParam(MCH_MP.LEADINTYPE, MCH_SAW_LI.EXT_CENT)
|
||||
UpdateMachiningPreview(m_MachiningList(nI).m_nId, True)
|
||||
ModifyOtherLeadIn(nI, MCH_SAW_LI.CENT)
|
||||
ElseIf nLiPrev = MCH_SAW_LI.CENT Then
|
||||
' allungo
|
||||
EgtSetMachiningParam(MCH_MP.LEADINTYPE, MCH_SAW_LI.OUT)
|
||||
UpdateMachiningPreview(m_MachiningList(nI).m_nId, True)
|
||||
ModifyOtherLeadIn(nI, MCH_SAW_LI.OUT)
|
||||
' ri-verifico interferenza
|
||||
EgtVerifyMachining(m_MachiningList(nI).m_nId, m_MachiningList(nI).m_nInterf)
|
||||
ElseIf nLiPrev = MCH_SAW_LI.EXT_CENT Then
|
||||
' allungo
|
||||
EgtSetMachiningParam(MCH_MP.LEADINTYPE, MCH_SAW_LI.EXT_OUT)
|
||||
UpdateMachiningPreview(m_MachiningList(nI).m_nId, True)
|
||||
ModifyOtherLeadIn(nI, MCH_SAW_LI.OUT)
|
||||
End If
|
||||
ColorMachining(m_MachiningList(nI))
|
||||
ColorNumberArrow(nI)
|
||||
bGenModif = True
|
||||
|
||||
' Recupero il taglio TwinCut associato (Optional: False -> non controllo se è FinalCut)
|
||||
nIndexTwinCut = GetIndexTwinCut(nI, False)
|
||||
If nIndexTwinCut > -1 Then
|
||||
' Se non è stato selezionato allora devo modificarlo, alrtimenti resetto l'indice
|
||||
If m_ItemList(nIndexTwinCut).IsSelected Then
|
||||
nIndexTwinCut = -1
|
||||
Else
|
||||
CurrIndex = nIndexTwinCut
|
||||
End If
|
||||
End If
|
||||
|
||||
EgtSetCurrMachining(m_MachiningList(nI).m_nId)
|
||||
Dim nLiPrev As Integer
|
||||
EgtGetMachiningParam(MCH_MP.LEADINTYPE, nLiPrev)
|
||||
If nLiPrev = MCH_SAW_LI.OUT Then
|
||||
' accorcio
|
||||
EgtSetMachiningParam(MCH_MP.LEADINTYPE, MCH_SAW_LI.CENT)
|
||||
UpdateMachiningPreview(m_MachiningList(nI).m_nId, True)
|
||||
ModifyOtherLeadIn(nI, MCH_SAW_LI.CENT)
|
||||
' ri-verifico interferenza
|
||||
EgtVerifyMachining(m_MachiningList(nI).m_nId, m_MachiningList(nI).m_nInterf)
|
||||
ElseIf nLiPrev = MCH_SAW_LI.EXT_OUT Then
|
||||
' accorcio
|
||||
EgtSetMachiningParam(MCH_MP.LEADINTYPE, MCH_SAW_LI.EXT_CENT)
|
||||
UpdateMachiningPreview(m_MachiningList(nI).m_nId, True)
|
||||
ModifyOtherLeadIn(nI, MCH_SAW_LI.CENT)
|
||||
ElseIf nLiPrev = MCH_SAW_LI.CENT Then
|
||||
' allungo
|
||||
EgtSetMachiningParam(MCH_MP.LEADINTYPE, MCH_SAW_LI.OUT)
|
||||
UpdateMachiningPreview(m_MachiningList(nI).m_nId, True)
|
||||
ModifyOtherLeadIn(nI, MCH_SAW_LI.OUT)
|
||||
' ri-verifico interferenza
|
||||
EgtVerifyMachining(m_MachiningList(nI).m_nId, m_MachiningList(nI).m_nInterf)
|
||||
ElseIf nLiPrev = MCH_SAW_LI.EXT_CENT Then
|
||||
' allungo
|
||||
EgtSetMachiningParam(MCH_MP.LEADINTYPE, MCH_SAW_LI.EXT_OUT)
|
||||
UpdateMachiningPreview(m_MachiningList(nI).m_nId, True)
|
||||
ModifyOtherLeadIn(nI, MCH_SAW_LI.OUT)
|
||||
End If
|
||||
ColorMachining(m_MachiningList(nI))
|
||||
ColorNumberArrow(nI)
|
||||
bGenModif = True
|
||||
|
||||
End If
|
||||
|
||||
End If
|
||||
If nCount > 10 Then
|
||||
EgtOutLog("! FATAL ERROR ! In function 'OutCenEndBtn' cycle 'Do Loop Until' is potentially infinte")
|
||||
' Forzo l'uscita dal ciclo
|
||||
nIndexTwinCut = -1
|
||||
End If
|
||||
Loop Until nIndexTwinCut < 0
|
||||
|
||||
' ---- FINE ----- metodo per mofica paramtri
|
||||
|
||||
Next
|
||||
' Se modificato qualcosa
|
||||
If bGenModif Then
|
||||
@@ -1438,6 +1595,7 @@ Public Class SplitPageUC
|
||||
End If
|
||||
End Sub
|
||||
|
||||
' Ok: anche per tagli TwinCut con affondament ridotto
|
||||
Private Sub AllOutStartBtn_Click(sender As Object, e As RoutedEventArgs) Handles AllOutStartBtn.Click
|
||||
For nI As Integer = 0 To m_MachiningList.Count() - 1
|
||||
EgtSetCurrMachining(m_MachiningList(nI).m_nId)
|
||||
@@ -1464,6 +1622,7 @@ Public Class SplitPageUC
|
||||
m_bModified = True
|
||||
End Sub
|
||||
|
||||
' Ok: anche per tagli TwinCut con affondament ridotto
|
||||
Private Sub AllCenStartBtn_Click(sender As Object, e As RoutedEventArgs) Handles AllCenStartBtn.Click
|
||||
For nI As Integer = 0 To m_MachiningList.Count() - 1
|
||||
|
||||
@@ -1499,56 +1658,84 @@ Public Class SplitPageUC
|
||||
m_bModified = True
|
||||
End Sub
|
||||
|
||||
' Ok: gestione info 'IdTwinCut' per tagli FinalCut
|
||||
Private Sub OutCenEndBtn_Click(sender As Object, e As RoutedEventArgs) Handles OutCenEndBtn.Click
|
||||
If m_CurrFirstInd = -1 Then Return
|
||||
Dim bGenModif As Boolean = False
|
||||
|
||||
For Index As Integer = m_CurrFirstInd To m_CurrLastInd
|
||||
If Not m_ItemList(Index).IsSelected Then
|
||||
Dim nIndexTwinCut As Integer = -1
|
||||
' Indice di controllo LOOP: se > 10 allora il ciclo è potenzialmente infinito!
|
||||
Dim nCount As Integer = 0
|
||||
Dim CurrIndex = Index
|
||||
If Not m_ItemList(CurrIndex).IsSelected Then
|
||||
Continue For
|
||||
End If
|
||||
Dim nI As Integer = m_ItemList(Index).Ind
|
||||
If m_MachiningList(nI).m_sLay = NAME_OUTLOOP Then
|
||||
|
||||
' se ho forzato il tipo di ingresso da CamAuto qui non posso moficarlo!
|
||||
If m_MachiningList(nI).m_bMngLeadInOnIntCorner Then
|
||||
EgtOutLog("L'uscita di taglio associato all'entita'_" & m_MachiningList(nI).m_nEntId & " non puo' essere modificato per problemi di ingombro lama")
|
||||
Else
|
||||
Do
|
||||
nCount = nCount + 1
|
||||
Dim nI As Integer = m_ItemList(CurrIndex).Ind
|
||||
If m_MachiningList(nI).m_sLay = NAME_OUTLOOP Then
|
||||
|
||||
' se ho forzato il tipo di ingresso da CamAuto qui non posso moficarlo!
|
||||
If m_MachiningList(nI).m_bMngLeadInOnIntCorner Then
|
||||
EgtOutLog("L'uscita di taglio associato all'entita'_" & m_MachiningList(nI).m_nEntId & " non puo' essere modificato per problemi di ingombro lama")
|
||||
Else
|
||||
|
||||
EgtSetCurrMachining(m_MachiningList(nI).m_nId)
|
||||
Dim nLoPrev As Integer
|
||||
EgtGetMachiningParam(MCH_MP.LEADOUTTYPE, nLoPrev)
|
||||
If nLoPrev = MCH_SAW_LO.OUT Then
|
||||
' accorcio
|
||||
EgtSetMachiningParam(MCH_MP.LEADOUTTYPE, MCH_SAW_LO.CENT)
|
||||
UpdateMachiningPreview(m_MachiningList(nI).m_nId, True)
|
||||
ModifyOtherLeadOut(nI, MCH_SAW_LO.CENT)
|
||||
' ri-verifico interferenza
|
||||
EgtVerifyMachining(m_MachiningList(nI).m_nId, m_MachiningList(nI).m_nInterf)
|
||||
ElseIf nLoPrev = MCH_SAW_LO.EXT_OUT Then
|
||||
' accorcio
|
||||
EgtSetMachiningParam(MCH_MP.LEADOUTTYPE, MCH_SAW_LO.EXT_CENT)
|
||||
UpdateMachiningPreview(m_MachiningList(nI).m_nId, True)
|
||||
ModifyOtherLeadOut(nI, MCH_SAW_LO.CENT)
|
||||
ElseIf nLoPrev = MCH_SAW_LO.CENT Then
|
||||
' allungo
|
||||
EgtSetMachiningParam(MCH_MP.LEADOUTTYPE, MCH_SAW_LO.OUT)
|
||||
UpdateMachiningPreview(m_MachiningList(nI).m_nId, True)
|
||||
ModifyOtherLeadOut(nI, MCH_SAW_LO.OUT)
|
||||
' ri-verifico interferenza
|
||||
EgtVerifyMachining(m_MachiningList(nI).m_nId, m_MachiningList(nI).m_nInterf)
|
||||
ElseIf nLoPrev = MCH_SAW_LO.EXT_CENT Then
|
||||
' allungo
|
||||
EgtSetMachiningParam(MCH_MP.LEADOUTTYPE, MCH_SAW_LO.EXT_OUT)
|
||||
UpdateMachiningPreview(m_MachiningList(nI).m_nId, True)
|
||||
ModifyOtherLeadOut(nI, MCH_SAW_LO.OUT)
|
||||
End If
|
||||
ColorMachining(m_MachiningList(nI))
|
||||
ColorNumberArrow(nI)
|
||||
bGenModif = True
|
||||
|
||||
' Recupero il taglio TwinCut associato (Optional: False -> non controllo se è FinalCut)
|
||||
nIndexTwinCut = GetIndexTwinCut(nI, False)
|
||||
If nIndexTwinCut > -1 Then
|
||||
' Se non è stato selezionato allora devo modificarlo, alrtimenti resetto l'indice
|
||||
If m_ItemList(nIndexTwinCut).IsSelected Then
|
||||
nIndexTwinCut = -1
|
||||
Else
|
||||
CurrIndex = nIndexTwinCut
|
||||
End If
|
||||
End If
|
||||
|
||||
EgtSetCurrMachining(m_MachiningList(nI).m_nId)
|
||||
Dim nLoPrev As Integer
|
||||
EgtGetMachiningParam(MCH_MP.LEADOUTTYPE, nLoPrev)
|
||||
If nLoPrev = MCH_SAW_LO.OUT Then
|
||||
' accorcio
|
||||
EgtSetMachiningParam(MCH_MP.LEADOUTTYPE, MCH_SAW_LO.CENT)
|
||||
UpdateMachiningPreview(m_MachiningList(nI).m_nId, True)
|
||||
ModifyOtherLeadOut(nI, MCH_SAW_LO.CENT)
|
||||
' ri-verifico interferenza
|
||||
EgtVerifyMachining(m_MachiningList(nI).m_nId, m_MachiningList(nI).m_nInterf)
|
||||
ElseIf nLoPrev = MCH_SAW_LO.EXT_OUT Then
|
||||
' accorcio
|
||||
EgtSetMachiningParam(MCH_MP.LEADOUTTYPE, MCH_SAW_LO.EXT_CENT)
|
||||
UpdateMachiningPreview(m_MachiningList(nI).m_nId, True)
|
||||
ModifyOtherLeadOut(nI, MCH_SAW_LO.CENT)
|
||||
ElseIf nLoPrev = MCH_SAW_LO.CENT Then
|
||||
' allungo
|
||||
EgtSetMachiningParam(MCH_MP.LEADOUTTYPE, MCH_SAW_LO.OUT)
|
||||
UpdateMachiningPreview(m_MachiningList(nI).m_nId, True)
|
||||
ModifyOtherLeadOut(nI, MCH_SAW_LO.OUT)
|
||||
' ri-verifico interferenza
|
||||
EgtVerifyMachining(m_MachiningList(nI).m_nId, m_MachiningList(nI).m_nInterf)
|
||||
ElseIf nLoPrev = MCH_SAW_LO.EXT_CENT Then
|
||||
' allungo
|
||||
EgtSetMachiningParam(MCH_MP.LEADOUTTYPE, MCH_SAW_LO.EXT_OUT)
|
||||
UpdateMachiningPreview(m_MachiningList(nI).m_nId, True)
|
||||
ModifyOtherLeadOut(nI, MCH_SAW_LO.OUT)
|
||||
End If
|
||||
ColorMachining(m_MachiningList(nI))
|
||||
ColorNumberArrow(nI)
|
||||
bGenModif = True
|
||||
|
||||
End If
|
||||
|
||||
End If
|
||||
If nCount > 10 Then
|
||||
EgtOutLog("! FATAL ERROR ! In function 'OutCenEndBtn' cycle 'Do Loop Until' is potentially infinte")
|
||||
' Forzo l'uscita dal ciclo
|
||||
nIndexTwinCut = -1
|
||||
End If
|
||||
Loop Until nIndexTwinCut < 0
|
||||
|
||||
|
||||
Next
|
||||
' Se modificato qualcosa
|
||||
If bGenModif Then
|
||||
@@ -1557,6 +1744,7 @@ Public Class SplitPageUC
|
||||
End If
|
||||
End Sub
|
||||
|
||||
' Ok: anche per tagli TwinCut con affondament ridotto
|
||||
Private Sub AllOutEndBtn_Click(sender As Object, e As RoutedEventArgs) Handles AllOutEndBtn.Click
|
||||
For nI As Integer = 0 To m_MachiningList.Count() - 1
|
||||
EgtSetCurrMachining(m_MachiningList(nI).m_nId)
|
||||
@@ -1583,6 +1771,7 @@ Public Class SplitPageUC
|
||||
m_bModified = True
|
||||
End Sub
|
||||
|
||||
' Ok
|
||||
Private Sub AllCenEndBtn_Click(sender As Object, e As RoutedEventArgs) Handles AllCenEndBtn.Click
|
||||
For nI As Integer = 0 To m_MachiningList.Count() - 1
|
||||
|
||||
@@ -1618,6 +1807,7 @@ Public Class SplitPageUC
|
||||
m_bModified = True
|
||||
End Sub
|
||||
|
||||
' Ok
|
||||
Private Sub AllExtendBtn_Click(sender As Object, e As RoutedEventArgs) Handles AllExtendBtn.Click
|
||||
Dim bModif As Boolean = False
|
||||
For nI As Integer = 0 To m_MachiningList.Count() - 1
|
||||
@@ -1639,6 +1829,7 @@ Public Class SplitPageUC
|
||||
EnableButtons()
|
||||
End Sub
|
||||
|
||||
' Ok
|
||||
Private Sub AllReduceBtn_Click(sender As Object, e As RoutedEventArgs) Handles AllReduceBtn.Click
|
||||
Dim bModif As Boolean = False
|
||||
For nI As Integer = 0 To m_MachiningList.Count() - 1
|
||||
@@ -1660,6 +1851,7 @@ Public Class SplitPageUC
|
||||
EnableButtons()
|
||||
End Sub
|
||||
|
||||
' Ok
|
||||
Private Sub ModifStartBtn_Click(sender As Object, e As RoutedEventArgs) Handles ModifStartBtn.Click
|
||||
Dim bLen As Boolean = True
|
||||
' abilito la finestra per inserire i valori solo per il primo elemento della lista (di default tutti gli altri oggetti assumono lo stesso valore)
|
||||
@@ -1680,76 +1872,115 @@ Public Class SplitPageUC
|
||||
If m_CurrFirstInd = -1 Then Return
|
||||
Dim bGenModif As Boolean = False
|
||||
For Index As Integer = m_CurrFirstInd To m_CurrLastInd
|
||||
If Not m_ItemList(Index).IsSelected Then
|
||||
Dim nIndexTwinCut As Integer = -1
|
||||
Dim CurrIndex As Integer = Index
|
||||
' Indice di controllo LOOP: se > 10 allora il ciclo è potenzialmente infinito!
|
||||
Dim nCount As Integer = 0
|
||||
|
||||
If Not m_ItemList(CurrIndex).IsSelected Then
|
||||
Continue For
|
||||
End If
|
||||
Dim nI As Integer = m_ItemList(Index).Ind
|
||||
|
||||
Dim nI As Integer = m_ItemList(CurrIndex).Ind
|
||||
Dim nOperId As Integer = m_MachiningList(nI).m_nId
|
||||
Dim nMachiningType As Integer = EgtGetOperationType(nOperId)
|
||||
|
||||
' Se taglio con lama
|
||||
If nMachiningType = MCH_MY.SAWING And
|
||||
(m_MachiningList(nI).m_bIsLine Or m_MachiningList(nI).m_dPrevAng > FL_ARC_ANG_MIN Or m_MachiningList(nI).m_sLay = NAME_ONPATH) Then
|
||||
If nMachiningType = MCH_MY.SAWING Then
|
||||
|
||||
If Not m_MachiningList(nI).m_bCanStartAll Then
|
||||
EgtOutLog("Il taglio non puo' essere allungato all'interno del pezzo")
|
||||
Return
|
||||
End If
|
||||
|
||||
' leggo il valore salvato nella geometria
|
||||
Dim dOrigUsal As Double = 0
|
||||
EgtGetInfo(nOperId, INFO_MCH_USER_SAL, dOrigUsal)
|
||||
|
||||
' ------------------ INIZIO PREPARAZIONE TASTIERINO VIRTUALE ------------------
|
||||
If bFirstInd Then
|
||||
' Dialogo richiesta valore
|
||||
Dim ValWnd As New EditValueWD(m_MainWindow, "SAW: " & EgtMsg(90375)) ' Allungamento
|
||||
ValWnd.SetVal(dOrigUsal, bLen)
|
||||
If Not ValWnd.ShowDialog() Then Return
|
||||
' carico il valore letto dal testierino virtuale
|
||||
dUsal = ValWnd.GetVal(bLen)
|
||||
' comunico che ho letto il primo dato
|
||||
bFirstInd = False
|
||||
End If
|
||||
' ------------------ FINE PREPARAZIONE TASTIERINO VIRTUALE ------------------
|
||||
Dim bRepeat As Boolean = False
|
||||
Do
|
||||
' Se c'è limite alla lunghezza libera
|
||||
If m_MachiningList(nI).m_dStartFreeLen < FREELEN_INF Then
|
||||
' se abilitati i controlli sugli allungamenti dei lati interni
|
||||
If Not m_StartEndModifyOnIntCorner Then
|
||||
' Recupero sicurezza in corner interno
|
||||
Dim dCornerSafety As Double = Math.Max(GetPrivateProfileDouble(S_MACH_NEST, K_MACH_SAFE_LEN_INTCORNER, 1, m_MainWindow.GetMachIniFile()), 10 * EPS_SMALL)
|
||||
' Recupero lunghezza baffo del taglio
|
||||
Dim nPvId As Integer = GDB_ID.NULL
|
||||
EgtGetInfo(EgtGetFirstNameInGroup(nOperId, NAME_PREVIEW), INFO_PV_ONPART_ID, nPvId)
|
||||
Dim dDT As Double = 0
|
||||
EgtGetInfo(EgtGetFirstGroupInGroup(nPvId), "DT", dDT)
|
||||
dUsal = Math.Min(dUsal, m_MachiningList(nI).m_dStartFreeLen - dDT - dCornerSafety)
|
||||
' Riassegno i valori dell'indice corrente
|
||||
nI = m_ItemList(CurrIndex).Ind
|
||||
nOperId = m_MachiningList(nI).m_nId
|
||||
|
||||
nCount = nCount + 1
|
||||
If Not (m_MachiningList(nI).m_bIsLine Or m_MachiningList(nI).m_dPrevAng > FL_ARC_ANG_MIN Or m_MachiningList(nI).m_sLay = NAME_ONPATH) Then
|
||||
Continue For
|
||||
End If
|
||||
|
||||
nIndexTwinCut = GetIndexTwinCut(nI, False)
|
||||
If Not (m_MachiningList(nI).m_bCanStartAll Or nIndexTwinCut > -1) Then
|
||||
EgtOutLog("Il taglio non puo' essere allungato all'interno del pezzo")
|
||||
' Passo al prossimo indice disponibile
|
||||
Continue For
|
||||
End If
|
||||
|
||||
' leggo il valore salvato nella geometria
|
||||
Dim dOrigUsal As Double = 0
|
||||
EgtGetInfo(nOperId, INFO_MCH_USER_SAL, dOrigUsal)
|
||||
|
||||
' ------------------ INIZIO PREPARAZIONE TASTIERINO VIRTUALE ------------------
|
||||
If bFirstInd Then
|
||||
' Dialogo richiesta valore
|
||||
Dim ValWnd As New EditValueWD(m_MainWindow, "SAW: " & EgtMsg(90375)) ' Allungamento
|
||||
ValWnd.SetVal(dOrigUsal, bLen)
|
||||
If Not ValWnd.ShowDialog() Then Return
|
||||
' carico il valore letto dal testierino virtuale
|
||||
dUsal = ValWnd.GetVal(bLen)
|
||||
' comunico che ho letto il primo dato
|
||||
bFirstInd = False
|
||||
End If
|
||||
' ------------------ FINE PREPARAZIONE TASTIERINO VIRTUALE ------------------
|
||||
Dim bRepeat As Boolean = False
|
||||
Do
|
||||
' Se c'è limite alla lunghezza libera
|
||||
If m_MachiningList(nI).m_dStartFreeLen < FREELEN_INF Then
|
||||
' se abilitati i controlli sugli allungamenti dei lati interni
|
||||
If Not m_StartEndModifyOnIntCorner Then
|
||||
' Recupero sicurezza in corner interno
|
||||
Dim dCornerSafety As Double = Math.Max(GetPrivateProfileDouble(S_MACH_NEST, K_MACH_SAFE_LEN_INTCORNER, 1, m_MainWindow.GetMachIniFile()), 10 * EPS_SMALL)
|
||||
' Recupero lunghezza baffo del taglio
|
||||
Dim nPvId As Integer = GDB_ID.NULL
|
||||
EgtGetInfo(EgtGetFirstNameInGroup(nOperId, NAME_PREVIEW), INFO_PV_ONPART_ID, nPvId)
|
||||
Dim dDT As Double = 0
|
||||
EgtGetInfo(EgtGetFirstGroupInGroup(nPvId), "DT", dDT)
|
||||
dUsal = Math.Min(dUsal, m_MachiningList(nI).m_dStartFreeLen - dDT - dCornerSafety)
|
||||
End If
|
||||
End If
|
||||
' Modifica della lavorazione
|
||||
EgtSetCurrMachining(nOperId)
|
||||
Dim dAddLen As Double = 0
|
||||
EgtGetMachiningParam(MCH_MP.STARTADDLEN, dAddLen)
|
||||
' verifico che non sia sull'angolo interno (altrimenti vieto la modifica)
|
||||
If Not m_StartEndModifyOnIntCorner And (dAddLen - dOrigUsal < -10 * EPS_SMALL) Then
|
||||
' Passo al prossimo indice disponibile
|
||||
Continue For
|
||||
Return
|
||||
End If
|
||||
EgtSetMachiningParam(MCH_MP.STARTADDLEN, dAddLen + dUsal - dOrigUsal)
|
||||
EgtSetInfo(nOperId, INFO_MCH_USER_SAL, dUsal)
|
||||
bRepeat = Not UpdateMachiningPreview(m_MachiningList(nI).m_nId, True)
|
||||
If bRepeat Then
|
||||
EgtSetMachiningParam(MCH_MP.STARTADDLEN, dOrigUsal)
|
||||
EgtSetInfo(nOperId, INFO_MCH_USER_SAL, dOrigUsal)
|
||||
dUsal = dOrigUsal
|
||||
End If
|
||||
Loop Until Not bRepeat
|
||||
|
||||
' verifico interferenza
|
||||
EgtVerifyMachining(m_MachiningList(nI).m_nId, m_MachiningList(nI).m_nInterf)
|
||||
ColorMachining(m_MachiningList(nI))
|
||||
ColorNumberArrow(nI)
|
||||
bGenModif = True
|
||||
|
||||
' Recupero il taglio TwinCut associato (Optional: False -> non controllo se è FinalCut)
|
||||
nIndexTwinCut = GetIndexTwinCut(nI, False)
|
||||
If nIndexTwinCut > -1 Then
|
||||
' Se non è stato selezionato allora devo modificarlo, alrtimenti resetto l'indice
|
||||
If m_ItemList(nIndexTwinCut).IsSelected Then
|
||||
nIndexTwinCut = -1
|
||||
Else
|
||||
CurrIndex = nIndexTwinCut
|
||||
End If
|
||||
End If
|
||||
' Modifica della lavorazione
|
||||
EgtSetCurrMachining(nOperId)
|
||||
Dim dAddLen As Double = 0
|
||||
EgtGetMachiningParam(MCH_MP.STARTADDLEN, dAddLen)
|
||||
' verifico che non sia sull'angolo interno (altrimenti vieto la modifica)
|
||||
If Not m_StartEndModifyOnIntCorner And (dAddLen - dOrigUsal < -10 * EPS_SMALL) Then
|
||||
Return
|
||||
End If
|
||||
EgtSetMachiningParam(MCH_MP.STARTADDLEN, dAddLen + dUsal - dOrigUsal)
|
||||
EgtSetInfo(nOperId, INFO_MCH_USER_SAL, dUsal)
|
||||
bRepeat = Not UpdateMachiningPreview(m_MachiningList(nI).m_nId, True)
|
||||
If bRepeat Then
|
||||
EgtSetMachiningParam(MCH_MP.STARTADDLEN, dOrigUsal)
|
||||
EgtSetInfo(nOperId, INFO_MCH_USER_SAL, dOrigUsal)
|
||||
dUsal = dOrigUsal
|
||||
End If
|
||||
Loop Until Not bRepeat
|
||||
|
||||
' verifico interferenza
|
||||
EgtVerifyMachining(m_MachiningList(nI).m_nId, m_MachiningList(nI).m_nInterf)
|
||||
ColorMachining(m_MachiningList(nI))
|
||||
ColorNumberArrow(nI)
|
||||
bGenModif = True
|
||||
If nCount > 10 Then
|
||||
EgtOutLog("! FATAL ERROR ! In function 'ModifStartBtn' cycle 'Do Loop Until' is potentially infinte")
|
||||
' Forzo l'uscita dal ciclo
|
||||
nIndexTwinCut = -1
|
||||
End If
|
||||
|
||||
Loop Until nIndexTwinCut < 0
|
||||
|
||||
' se altrimenti fresatura sopra
|
||||
ElseIf nMachiningType = MCH_MY.MILLING And m_MachiningList(nI).m_sLay = NAME_ONPATH Then
|
||||
@@ -1762,7 +1993,10 @@ Public Class SplitPageUC
|
||||
' Dialogo richiesta valore
|
||||
Dim ValWnd As New EditValueWD(m_MainWindow, "MILL: " & EgtMsg(90375)) ' Allungamento
|
||||
ValWnd.SetVal(dOrigUsal, bLen)
|
||||
If Not ValWnd.ShowDialog() Then Return
|
||||
If Not ValWnd.ShowDialog() Then
|
||||
' Esco da tutto
|
||||
Return
|
||||
End If
|
||||
' carico il valore letto dal testierino virtuale
|
||||
dUsal = ValWnd.GetVal(bLen)
|
||||
' comunico che ho letto il primo dato
|
||||
@@ -1804,8 +2038,10 @@ Public Class SplitPageUC
|
||||
ModifStartWnd.SetLiTangDist(nOriginalTangDist)
|
||||
ModifStartWnd.SetLiPerpDist(nOriginalPerpDist)
|
||||
ModifStartWnd.SetLeadInType(nOriginalLeadInType)
|
||||
If Not ModifStartWnd.ShowDialog() Then Return
|
||||
|
||||
If Not ModifStartWnd.ShowDialog() Then
|
||||
' esco da tutto
|
||||
Return
|
||||
End If
|
||||
' carico il valore letto dal testierino virtuale
|
||||
dWJAddLen = ModifStartWnd.GetElongation()
|
||||
bWJLiHole = ModifStartWnd.GetHole()
|
||||
@@ -1841,6 +2077,7 @@ Public Class SplitPageUC
|
||||
End If
|
||||
End Sub
|
||||
|
||||
' Ok
|
||||
Private Sub ModifEndBtn_Click(sender As Object, e As RoutedEventArgs) Handles ModifEndBtn.Click
|
||||
Dim bLen As Boolean = True
|
||||
' abilito la finestra per inserire i valori solo per il primo elemento della lista (di default tutti gli altri oggetti assumono lo stesso valore)
|
||||
@@ -1860,74 +2097,110 @@ Public Class SplitPageUC
|
||||
If m_CurrFirstInd = -1 Then Return
|
||||
Dim bGenModif As Boolean = False
|
||||
For Index As Integer = m_CurrFirstInd To m_CurrLastInd
|
||||
Dim nIndexTwinCut As Integer = -1
|
||||
Dim CurrIndex As Integer = Index
|
||||
' Indice di controllo LOOP: se > 10 allora il ciclo è potenzialmente infinito!
|
||||
Dim nCount As Integer = 0
|
||||
|
||||
If Not m_ItemList(Index).IsSelected Then
|
||||
Continue For
|
||||
End If
|
||||
|
||||
Dim nI As Integer = m_ItemList(Index).Ind
|
||||
Dim nOperId As Integer = m_MachiningList(nI).m_nId
|
||||
Dim nMachiningType As Integer = EgtGetOperationType(nOperId)
|
||||
|
||||
' Se taglio con lama
|
||||
If nMachiningType = MCH_MY.SAWING And
|
||||
(m_MachiningList(nI).m_bIsLine Or m_MachiningList(nI).m_dNextAng > FL_ARC_ANG_MIN Or m_MachiningList(nI).m_sLay = NAME_ONPATH) Then
|
||||
If nMachiningType = MCH_MY.SAWING Then
|
||||
|
||||
If Not m_MachiningList(nI).m_bCanEndAll Then
|
||||
EgtOutLog("Il taglio non puo' essere allungato all'interno del pezzo")
|
||||
Return
|
||||
End If
|
||||
|
||||
Dim dOrigUeal As Double = 0
|
||||
EgtGetInfo(nOperId, INFO_MCH_USER_EAL, dOrigUeal)
|
||||
|
||||
' ------------------ INIZIO PREPARAZIONE TASTIERINO VIRTUALE ------------------
|
||||
If bFirstInd Then
|
||||
' Dialogo richiesta valore
|
||||
Dim ValWnd As New EditValueWD(m_MainWindow, "SAW: " & EgtMsg(90375)) ' Allungamento
|
||||
ValWnd.SetVal(dOrigUeal, bLen)
|
||||
If Not ValWnd.ShowDialog() Then Return
|
||||
dUeal = ValWnd.GetVal(bLen)
|
||||
bFirstInd = False
|
||||
End If
|
||||
' ------------------ FINE PREPARAZIONE TASTIERINO VIRTUALE ------------------
|
||||
Dim bRepeat As Boolean = False
|
||||
Do
|
||||
' Se c'è limite alla lunghezza libera
|
||||
If m_MachiningList(nI).m_dEndFreeLen < FREELEN_INF Then
|
||||
' se abilitati i controlli sugli allungamenti dei lati interni
|
||||
If Not m_StartEndModifyOnIntCorner Then
|
||||
' Recupero sicurezza in corner interno
|
||||
Dim dCornerSafety As Double = Math.Max(GetPrivateProfileDouble(S_MACH_NEST, K_MACH_SAFE_LEN_INTCORNER, 1, m_MainWindow.GetMachIniFile()), 10 * EPS_SMALL)
|
||||
' Recupero lunghezza baffo del taglio
|
||||
Dim nPvId As Integer = GDB_ID.NULL
|
||||
EgtGetInfo(EgtGetFirstNameInGroup(nOperId, NAME_PREVIEW), INFO_PV_ONPART_ID, nPvId)
|
||||
Dim dDT As Double = 0
|
||||
EgtGetInfo(EgtGetFirstGroupInGroup(nPvId), "DT", dDT)
|
||||
dUeal = Math.Min(dUeal, m_MachiningList(nI).m_dEndFreeLen - dDT - dCornerSafety)
|
||||
' Riassegno i valori dell'indice corrente
|
||||
nI = m_ItemList(CurrIndex).Ind
|
||||
nOperId = m_MachiningList(nI).m_nId
|
||||
|
||||
nCount = nCount + 1
|
||||
If Not (m_MachiningList(nI).m_bIsLine Or m_MachiningList(nI).m_dNextAng > FL_ARC_ANG_MIN Or m_MachiningList(nI).m_sLay = NAME_ONPATH) Then
|
||||
Continue For
|
||||
End If
|
||||
|
||||
nIndexTwinCut = GetIndexTwinCut(nI, False)
|
||||
If Not (m_MachiningList(nI).m_bCanEndAll Or nIndexTwinCut > -1) Then
|
||||
EgtOutLog("Il taglio non puo' essere allungato all'interno del pezzo")
|
||||
Return
|
||||
End If
|
||||
|
||||
Dim dOrigUeal As Double = 0
|
||||
EgtGetInfo(nOperId, INFO_MCH_USER_EAL, dOrigUeal)
|
||||
|
||||
' ------------------ INIZIO PREPARAZIONE TASTIERINO VIRTUALE ------------------
|
||||
If bFirstInd Then
|
||||
' Dialogo richiesta valore
|
||||
Dim ValWnd As New EditValueWD(m_MainWindow, "SAW: " & EgtMsg(90375)) ' Allungamento
|
||||
ValWnd.SetVal(dOrigUeal, bLen)
|
||||
If Not ValWnd.ShowDialog() Then Return
|
||||
dUeal = ValWnd.GetVal(bLen)
|
||||
bFirstInd = False
|
||||
End If
|
||||
' ------------------ FINE PREPARAZIONE TASTIERINO VIRTUALE ------------------
|
||||
Dim bRepeat As Boolean = False
|
||||
Do
|
||||
' Se c'è limite alla lunghezza libera
|
||||
If m_MachiningList(nI).m_dEndFreeLen < FREELEN_INF Then
|
||||
' se abilitati i controlli sugli allungamenti dei lati interni
|
||||
If Not m_StartEndModifyOnIntCorner Then
|
||||
' Recupero sicurezza in corner interno
|
||||
Dim dCornerSafety As Double = Math.Max(GetPrivateProfileDouble(S_MACH_NEST, K_MACH_SAFE_LEN_INTCORNER, 1, m_MainWindow.GetMachIniFile()), 10 * EPS_SMALL)
|
||||
' Recupero lunghezza baffo del taglio
|
||||
Dim nPvId As Integer = GDB_ID.NULL
|
||||
EgtGetInfo(EgtGetFirstNameInGroup(nOperId, NAME_PREVIEW), INFO_PV_ONPART_ID, nPvId)
|
||||
Dim dDT As Double = 0
|
||||
EgtGetInfo(EgtGetFirstGroupInGroup(nPvId), "DT", dDT)
|
||||
dUeal = Math.Min(dUeal, m_MachiningList(nI).m_dEndFreeLen - dDT - dCornerSafety)
|
||||
End If
|
||||
End If
|
||||
|
||||
' Modifica della lavorazione
|
||||
EgtSetCurrMachining(nOperId)
|
||||
Dim dAddLen As Double = 0
|
||||
EgtGetMachiningParam(MCH_MP.ENDADDLEN, dAddLen)
|
||||
If Not m_StartEndModifyOnIntCorner And (dAddLen - dOrigUeal < -10 * EPS_SMALL) Then
|
||||
Return
|
||||
End If
|
||||
EgtSetMachiningParam(MCH_MP.ENDADDLEN, dAddLen + dUeal - dOrigUeal)
|
||||
EgtSetInfo(nOperId, INFO_MCH_USER_EAL, dUeal)
|
||||
UpdateMachiningPreview(m_MachiningList(nI).m_nId, True)
|
||||
bRepeat = Not UpdateMachiningPreview(m_MachiningList(nI).m_nId, True)
|
||||
If bRepeat Then
|
||||
EgtSetMachiningParam(MCH_MP.ENDADDLEN, dOrigUeal)
|
||||
EgtSetInfo(nOperId, INFO_MCH_USER_EAL, dOrigUeal)
|
||||
dUeal = dOrigUeal
|
||||
End If
|
||||
Loop Until Not bRepeat
|
||||
|
||||
' verifico interferenza
|
||||
EgtVerifyMachining(m_MachiningList(nI).m_nId, m_MachiningList(nI).m_nInterf)
|
||||
ColorMachining(m_MachiningList(nI))
|
||||
ColorNumberArrow(nI)
|
||||
bGenModif = True
|
||||
|
||||
' Recupero il taglio TwinCut associato (Optional: False -> non controllo se è FinalCut)
|
||||
nIndexTwinCut = GetIndexTwinCut(nI, False)
|
||||
If nIndexTwinCut > -1 Then
|
||||
' Se non è stato selezionato allora devo modificarlo, alrtimenti resetto l'indice
|
||||
If m_ItemList(nIndexTwinCut).IsSelected Then
|
||||
nIndexTwinCut = -1
|
||||
Else
|
||||
CurrIndex = nIndexTwinCut
|
||||
End If
|
||||
End If
|
||||
|
||||
' Modifica della lavorazione
|
||||
EgtSetCurrMachining(nOperId)
|
||||
Dim dAddLen As Double = 0
|
||||
EgtGetMachiningParam(MCH_MP.ENDADDLEN, dAddLen)
|
||||
If Not m_StartEndModifyOnIntCorner And (dAddLen - dOrigUeal < -10 * EPS_SMALL) Then
|
||||
Return
|
||||
If nCount > 10 Then
|
||||
EgtOutLog("! FATAL ERROR ! In function 'ModifStartBtn' cycle 'Do Loop Until' is potentially infinte")
|
||||
' Forzo l'uscita dal ciclo
|
||||
nIndexTwinCut = -1
|
||||
End If
|
||||
EgtSetMachiningParam(MCH_MP.ENDADDLEN, dAddLen + dUeal - dOrigUeal)
|
||||
EgtSetInfo(nOperId, INFO_MCH_USER_EAL, dUeal)
|
||||
UpdateMachiningPreview(m_MachiningList(nI).m_nId, True)
|
||||
bRepeat = Not UpdateMachiningPreview(m_MachiningList(nI).m_nId, True)
|
||||
If bRepeat Then
|
||||
EgtSetMachiningParam(MCH_MP.ENDADDLEN, dOrigUeal)
|
||||
EgtSetInfo(nOperId, INFO_MCH_USER_EAL, dOrigUeal)
|
||||
dUeal = dOrigUeal
|
||||
End If
|
||||
Loop Until Not bRepeat
|
||||
Loop Until nIndexTwinCut < 0
|
||||
|
||||
' verifico interferenza
|
||||
EgtVerifyMachining(m_MachiningList(nI).m_nId, m_MachiningList(nI).m_nInterf)
|
||||
ColorMachining(m_MachiningList(nI))
|
||||
ColorNumberArrow(nI)
|
||||
bGenModif = True
|
||||
' se altrimenti fresatura sopra
|
||||
ElseIf nMachiningType = MCH_MY.MILLING And m_MachiningList(nI).m_sLay = NAME_ONPATH Then
|
||||
|
||||
|
||||
Reference in New Issue
Block a user