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

OmagCUT 3.1c4 :

Browse Source 
- correzione in SplitCurve per Waterjet.
This commit is contained in:
Dario Sassi
2026-03-27 13:17:02 +01:00
parent d962c43e0c
commit 0e42d59e21
2 changed files with 6 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files
CadCuts/NestPageUC.xaml.vb
+4 -2
View File
@@ -3205,8 +3205,9 @@ Public Class NestPageUC
' Se elemento non collegato, esco con insuccesso
Dim nJoint As Integer = 1
If EgtGetInfo( nSideId, INFO_JOINENTITY, nJoint) AndAlso nJoint = 0 Then Return GDB_ID.NULL
' Cerco su elementi successivi collegati
' Cerco su elementi successivi collegati (se ultimo devo prendere il primo)
Dim nNextId = EgtGetNext( nSideId)
If nNextId = GDB_ID.NULL Then nNextId = EgtGetFirstInGroup( EgtGetParent( nSideId))
While nNextId <> GDB_ID.NULL
Dim nNextJoint As Integer = 1
If EgtGetInfo( nNextId, INFO_JOINENTITY, nNextJoint) AndAlso nNextJoint = 0 Then Exit While
@@ -3214,8 +3215,9 @@ Public Class NestPageUC
If nPvId <> GDB_ID.NULL Then Return nPvId
nNextId = EgtGetNext( nNextId)
End While
' Cerco su elementi precedenti collegati
' Cerco su elementi precedenti collegati (se primo devo prendere l'ultimo)
Dim nPrevId = EgtGetPrev( nSideId)
If nPrevId = GDB_ID.NULL Then nPrevId = EgtGetLastInGroup( EgtGetParent( nSideId))
While nPrevId <> GDB_ID.NULL
Dim nPrevJoint As Integer = 1
If EgtGetInfo( nPrevId, INFO_JOINENTITY, nPrevJoint) AndAlso nPrevJoint = 0 Then Exit While
My Project/AssemblyInfo.vb
+2 -2
View File
@@ -62,5 +62,5 @@ Imports System.Windows
' by using the '*' as shown below:
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("3.1.3.3")>
<Assembly: AssemblyFileVersion("3.1.3.3")>
<Assembly: AssemblyVersion("3.1.3.4")>
<Assembly: AssemblyFileVersion("3.1.3.4")>