From 6173e1dc15b60567195ae543b830fc16c10bef82 Mon Sep 17 00:00:00 2001 From: Dario Sassi Date: Wed, 22 Apr 2026 08:24:48 +0200 Subject: [PATCH] =?UTF-8?q?OmagCUT=20:=20-=20correzione=20per=20gestione?= =?UTF-8?q?=20ponticelli=20per=20WJ=20tra=20pezzi=20standard=20e=20con=20b?= =?UTF-8?q?uchi=20-=20aggiunta=20possibilit=C3=A0=20di=20ponticelli=20tra?= =?UTF-8?q?=20pezzi=20in=20buchi=20e=20contorno=20del=20relativo=20buco.?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- CadCuts/SplitPageUC.xaml.vb | 17 +++++++++-------- 1 file changed, 9 insertions(+), 8 deletions(-) diff --git a/CadCuts/SplitPageUC.xaml.vb b/CadCuts/SplitPageUC.xaml.vb index 7666f71..900c31b 100644 --- a/CadCuts/SplitPageUC.xaml.vb +++ b/CadCuts/SplitPageUC.xaml.vb @@ -277,7 +277,7 @@ Public Class SplitPageUC ' 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) AndAlso VerifySideIsAcceptable(nIdMy) Then If m_nIdSelectedSideWJ <> GDB_ID.NULL Or m_nIdSelectedSideWJ = nIdMy Then EgtDeselectObj(m_nIdSelectedSideWJ) @@ -371,15 +371,13 @@ Public Class SplitPageUC End Sub Private Function VerifyInterference(nIdBridge As Integer) As Boolean - ' prima di procedere alla verifica accorco il segmento (solo per sicurezza) 10 * EPS_SMALL - Dim dLen As Double - EgtCurveLength(nIdBridge, dLen) - If dLen > 21 AndAlso Not EgtCurveIsClosed(nIdBridge) Then + ' prima di procedere alla verifica accorcio il segmento (solo per sicurezza) 10 * EPS_SMALL + Dim dLen As Double + If EgtCurveLength(nIdBridge, dLen) AndAlso dLen > 21 AndAlso Not EgtCurveIsClosed(nIdBridge) Then EgtTrimCurveEndAtLen(nIdBridge, dLen - 10 * EPS_SMALL) EgtTrimCurveStartAtLen(nIdBridge, 10 * EPS_SMALL) End If - Dim nIdPart As Integer = GDB_ID.NULL - nIdPart = EgtGetFirstPartInRawPart(m_CurrProjPage.m_nRawId) + Dim nIdPart As Integer = EgtGetFirstPartInRawPart(m_CurrProjPage.m_nRawId) While nIdPart <> GDB_ID.NULL Dim nIdRegion As Integer = EgtGetFirstNameInGroup(nIdPart, "Region") Dim nIdSurf As Integer = EgtGetFirstInGroup(nIdRegion) @@ -389,8 +387,11 @@ Public Class SplitPageUC If EgtCurveWithRegionClassify(nIdBridge, nIdSurf) <> CREGC.OUT Then EgtExtendCurveStartByLen(nIdBridge, 10 * EPS_SMALL) Return False + Else + Exit While End If - Exit While + Else + nIdSurf = EgtGetNext( nIdSurf) End If End While nIdPart = EgtGetNextPartInRawPart(nIdPart)