diff --git a/EgtInterface.vb b/EgtInterface.vb index 8031a85..d4a8b83 100644 --- a/EgtInterface.vb +++ b/EgtInterface.vb @@ -2456,6 +2456,15 @@ Public Function EgtCreateSurfFlatRegion(nParentId As Integer, nCrvId() As Intege Return EgtCreateSurfFlatRegion_64(nParentId, nCrvId.Length(), nCrvId) End If End Function +Public Function EgtCreateSurfFlatRegion(nParentId As Integer, nCrvId As Integer) As Integer + Dim nCrvIds(0) As Integer + nCrvIds(0) = nCrvId + If IntPtr.Size = 4 Then + Return EgtCreateSurfFlatRegion_32(nParentId, 1, nCrvIds) + Else + Return EgtCreateSurfFlatRegion_64(nParentId, 1, nCrvIds) + End If +End Function Private Function EgtCreateSurfTmBBox_32(nParentId As Integer, ByRef ptMin As Point3d, ByRef ptMax As Point3d, @@ -5319,6 +5328,34 @@ Public Function EgtSurfFrNormVersor(nId As Integer, ByRef VtNorm As Vector3d) As Return EgtSurfFrNormVersor(nId, nId, VtNorm) End Function + +Private Function EgtSurfFrChunkCount_32(nId As Integer) As Integer +End Function + +Private Function EgtSurfFrChunkCount_64(nId As Integer) As Integer +End Function +Public Function EgtSurfFrChunkCount(nId As Integer) As Integer + If IntPtr.Size = 4 Then + Return EgtSurfFrChunkCount_32(nId) + Else + Return EgtSurfFrChunkCount_64(nId) + End If +End Function + + +Private Function EgtSurfFrChunkSimpleClassify_32(nId1 As Integer, nChunk1 As Integer, nId2 As Integer, nChunk2 As Integer) As Integer +End Function + +Private Function EgtSurfFrChunkSimpleClassify_64(nId1 As Integer, nChunk1 As Integer, nId2 As Integer, nChunk2 As Integer) As Integer +End Function +Public Function EgtSurfFrChunkSimpleClassify(nId1 As Integer, nChunk1 As Integer, nId2 As Integer, nChunk2 As Integer) As Integer + If IntPtr.Size = 4 Then + Return EgtSurfFrChunkSimpleClassify_32(nId1, nChunk1, nId2, nChunk2) + Else + Return EgtSurfFrChunkSimpleClassify_64(nId1, nChunk1, nId2, nChunk2) + End If +End Function + Private Function EgtSurfTmFacetFromTria_32(nId As Integer, nT As Integer) As Integer End Function @@ -9633,6 +9670,15 @@ Public Enum INS_POS As Integer BC = 8 BR = 9 End Enum +'Costanti : semplice classificazione dei chunk di due regioni +Public Enum REGC As Integer + NULL = 0 + IN1 = 1 + IN2 = 2 + SAME = 3 + OUT = 4 + INTERS = 5 +End Enum 'Costanti : interruzione di riga Public Const LINE_BREAK As String = "
" 'Costanti : tipo creazione pezzo piatto diff --git a/My Project/AssemblyInfo.vb b/My Project/AssemblyInfo.vb index 08cf545..163c1dd 100644 --- a/My Project/AssemblyInfo.vb +++ b/My Project/AssemblyInfo.vb @@ -46,5 +46,5 @@ Imports System.Runtime.InteropServices ' utilizzando l'asterisco (*) come descritto di seguito: ' - - + +