diff --git a/EgtInterface.vb b/EgtInterface.vb index 07a4530..6745b98 100644 --- a/EgtInterface.vb +++ b/EgtInterface.vb @@ -6234,26 +6234,25 @@ End Function Private Function EgtSurfTmFacetOppositeSide_32(nId As Integer, nFacet As Integer, ByRef vtDir As Vector3d, nRefId As Integer, - ByRef PtP1 As Point3d, ByRef PtP2 As Point3d) As Boolean + ByRef ptP1 As Point3d, ByRef ptP2 As Point3d, ByRef vtIn1 As Vector3d, ByRef vtOut2 As Vector3d) As Boolean End Function Private Function EgtSurfTmFacetOppositeSide_64(nId As Integer, nFacet As Integer, ByRef vtDir As Vector3d, nRefId As Integer, - ByRef PtP1 As Point3d, ByRef PtP2 As Point3d) As Boolean + ByRef ptP1 As Point3d, ByRef ptP2 As Point3d, ByRef vtIn1 As Vector3d, ByRef vtOut2 As Vector3d) As Boolean End Function Public Function EgtSurfTmFacetOppositeSide(nId As Integer, nFacet As Integer, ByRef vtDir As Vector3d, nRefId As Integer, - ByRef PtP1 As Point3d, ByRef PtP2 As Point3d) As Boolean + ByRef ptP1 As Point3d, ByRef ptP2 As Point3d, ByRef vtIn1 As Vector3d, ByRef vtOut2 As Vector3d) As Boolean If IntPtr.Size = 4 Then - Return EgtSurfTmFacetOppositeSide_32(nId, nFacet, vtDir, nRefId, PtP1, PtP2) + Return EgtSurfTmFacetOppositeSide_32(nId, nFacet, vtDir, nRefId, ptP1, ptP2, vtIn1, vtOut2) Else - Return EgtSurfTmFacetOppositeSide_64(nId, nFacet, vtDir, nRefId, PtP1, PtP2) + Return EgtSurfTmFacetOppositeSide_64(nId, nFacet, vtDir, nRefId, ptP1, ptP2, vtIn1, vtOut2) End If End Function Public Function EgtSurfTmFacetOppositeSide(nId As Integer, nFacet As Integer, ByRef vtDir As Vector3d, - ByRef PtP1 As Point3d, ByRef PtP2 As Point3d) As Boolean - Return EgtSurfTmFacetOppositeSide(nId, nFacet, vtDir, nId, PtP1, PtP2) + ByRef ptP1 As Point3d, ByRef ptP2 As Point3d, ByRef vtIn1 As Vector3d, ByRef vtOut2 As Vector3d) As Boolean + Return EgtSurfTmFacetOppositeSide(nId, nFacet, vtDir, nId, ptP1, ptP2, vtIn1, vtOut2) End Function - Private Function EgtSurfTmFacetAdjacencies_32(nId As Integer, nF As Integer, ByRef pvAdj As IntPtr, ByRef nCount As Integer) As Boolean End Function @@ -9936,6 +9935,20 @@ End Function End If End Function + + Private Function EgtGetAxisInvert_32(sAxis As String, ByRef bInvert As Boolean) As Boolean + End Function + + Private Function EgtGetAxisInvert_64(sAxis As String, ByRef bInvert As Boolean) As Boolean + End Function + Public Function EgtGetAxisInvert(sAxis As String, ByRef bInvert As Boolean) As Boolean + If IntPtr.Size = 4 Then + Return EgtGetAxisInvert_32(sAxis, bInvert) + Else + Return EgtGetAxisInvert_64(sAxis, bInvert) + End If + End Function + Private Function EgtGetAllHeadsNames_32(ByRef psNames As IntPtr) As Boolean End Function diff --git a/My Project/AssemblyInfo.vb b/My Project/AssemblyInfo.vb index fb317f5..69b7f30 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: ' - - + +