diff --git a/EgtInterface.vb b/EgtInterface.vb index 6745b98..fa14f55 100644 --- a/EgtInterface.vb +++ b/EgtInterface.vb @@ -6234,23 +6234,23 @@ 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, ByRef vtIn1 As Vector3d, ByRef vtOut2 As Vector3d) As Boolean + ByRef ptP1 As Point3d, ByRef ptP2 As Point3d) 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, ByRef vtIn1 As Vector3d, ByRef vtOut2 As Vector3d) As Boolean + ByRef ptP1 As Point3d, ByRef ptP2 As Point3d) 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, ByRef vtIn1 As Vector3d, ByRef vtOut2 As Vector3d) As Boolean + ByRef ptP1 As Point3d, ByRef ptP2 As Point3d) As Boolean If IntPtr.Size = 4 Then - Return EgtSurfTmFacetOppositeSide_32(nId, nFacet, vtDir, nRefId, ptP1, ptP2, vtIn1, vtOut2) + Return EgtSurfTmFacetOppositeSide_32(nId, nFacet, vtDir, nRefId, ptP1, ptP2) Else - Return EgtSurfTmFacetOppositeSide_64(nId, nFacet, vtDir, nRefId, ptP1, ptP2, vtIn1, vtOut2) + Return EgtSurfTmFacetOppositeSide_64(nId, nFacet, vtDir, nRefId, ptP1, ptP2) 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, ByRef vtIn1 As Vector3d, ByRef vtOut2 As Vector3d) As Boolean - Return EgtSurfTmFacetOppositeSide(nId, nFacet, vtDir, nId, ptP1, ptP2, vtIn1, vtOut2) + ByRef ptP1 As Point3d, ByRef ptP2 As Point3d) As Boolean + Return EgtSurfTmFacetOppositeSide(nId, nFacet, vtDir, nId, ptP1, ptP2) End Function @@ -9299,6 +9299,20 @@ End Function End If End Function + + Private Function EgtCopyMachining_32(sName As String, sSouName As String) As Integer + End Function + + Private Function EgtCopyMachining_64(sName As String, sSouName As String) As Integer + End Function + Public Function EgtCopyMachining(sName As String, sSouName As String) As Integer + If IntPtr.Size = 4 Then + Return EgtCopyMachining_32(sName, sSouName) + Else + Return EgtCopyMachining_64(sName, sSouName) + End If + End Function + Private Function EgtSetCurrMachining_32(nId As Integer) As Boolean End Function diff --git a/My Project/AssemblyInfo.vb b/My Project/AssemblyInfo.vb index 69b7f30..614dade 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: ' - - + +