diff --git a/CadCuts/NestPageUC.xaml.vb b/CadCuts/NestPageUC.xaml.vb index 55e0c47..f925b2e 100644 --- a/CadCuts/NestPageUC.xaml.vb +++ b/CadCuts/NestPageUC.xaml.vb @@ -352,7 +352,7 @@ Public Class NestPageUC ' recupero il nome del Layer EgtGetName(nIdParent, sLayer) ' solo se il nome del layer รจ quello associato ad un lato esterno allora procedo con l'evidenziazione - If sLayer = NAME_OUTLOOP Then + If sLayer = NAME_OUTLOOP Or sLayer = NAME_INLOOP Then If EgtGetType(nIdMy) = GDB_TY.CRV_ARC OrElse EgtGetType(nIdMy) = GDB_TY.CRV_COMPO OrElse EgtGetType(nIdMy) = GDB_TY.CRV_LINE Then ' verifico che il contorno sia chiuso, altrimenti esco If Not VerifyOutLoopIsClosed(nIdParent) Then @@ -364,8 +364,10 @@ Public Class NestPageUC Dim nIdPV As Integer = EgtGetFirstNameInGroup(nIdParentPart, "PV") ' VERIFICA: recupero l'elenco delle Preview di Tipo WaterJet_n_S associate a questo Part Dim ListGroup As List(Of Integer) = ResearchGropuWJ(nIdParent, nIdPV) + ' VERIFICA: se esistono delle lavorazioni associate al percorso OutLoop di tipo Saw allora non procedo + Dim ListGroupSaw As List(Of Integer) = ResearchGropuSaw(nIdParent, nIdPV) ' se non esiste almeno 1 Preview di tipo WaterJet - If ListGroup.Count <> EgtGetGroupObjs(nIdParent) Then + If ListGroup.Count = 1 And ListGroupSaw.Count = 0 Then EgtSetInfo(nIdParent, "Start", ptStartCurv) ' Ricalcolo tutte le lavorazioni Dim nWarn As Integer = 0