From 3b4a69fb9ee9b895ecd63b7cb9b87ce79aedf09e Mon Sep 17 00:00:00 2001 From: Dario Sassi Date: Sat, 20 Oct 2018 08:38:53 +0000 Subject: [PATCH] TestEIn 1.9j2 : - ricompilazione per aggiornamento. --- EgtInterface.vb | 28 +++++++++++++++++++++------- My Project/AssemblyInfo.vb | 4 ++-- 2 files changed, 23 insertions(+), 9 deletions(-) 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: ' - - + +