From a5285388d6504e80f00391c5507997521ca87d3c Mon Sep 17 00:00:00 2001
From: Dario Sassi <dario.s@egaltech.com>
Date: Wed, 31 Aug 2016 18:07:27 +0000
Subject: [PATCH] TestEIn : - aggiornamento.

---
 EgtInterface.vb | 56 +++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 56 insertions(+)

diff --git a/EgtInterface.vb b/EgtInterface.vb
index bb06198..ad339e3 100644
--- a/EgtInterface.vb
+++ b/EgtInterface.vb
@@ -3263,6 +3263,62 @@ Public Function EgtExplodeSurface(nId As Integer, ByRef nCount As Integer) As In
    End If
 End Function
 
+<DllImport(EgtIntDll32, CharSet:=CharSet.Unicode, EntryPoint:="EgtSurfFrAdd"), SuppressUnmanagedCodeSecurity()>
+Private Function EgtSurfFrAdd_32(nId1 As Integer, nId2 As Integer) As Boolean
+End Function
+<DllImport(EgtIntDll64, CharSet:=CharSet.Unicode, EntryPoint:="EgtSurfFrAdd"), SuppressUnmanagedCodeSecurity()>
+Private Function EgtSurfFrAdd_64(nId1 As Integer, nId2 As Integer) As Boolean
+End Function
+Public Function EgtSurfFrAdd(nId1 As Integer, nId2 As Integer) As Boolean
+   If IntPtr.Size = 4 Then
+      Return EgtSurfFrAdd_32(nId1, nId2)
+   Else
+      Return EgtSurfFrAdd_64(nId1, nId2)
+   End If
+End Function
+
+<DllImport(EgtIntDll32, CharSet:=CharSet.Unicode, EntryPoint:="EgtSurfFrSubtract"), SuppressUnmanagedCodeSecurity()>
+Private Function EgtSurfFrSubtract_32(nId1 As Integer, nId2 As Integer) As Boolean
+End Function
+<DllImport(EgtIntDll64, CharSet:=CharSet.Unicode, EntryPoint:="EgtSurfFrSubtract"), SuppressUnmanagedCodeSecurity()>
+Private Function EgtSurfFrSubtract_64(nId1 As Integer, nId2 As Integer) As Boolean
+End Function
+Public Function EgtSurfFrSubtract(nId1 As Integer, nId2 As Integer) As Boolean
+   If IntPtr.Size = 4 Then
+      Return EgtSurfFrSubtract_32(nId1, nId2)
+   Else
+      Return EgtSurfFrSubtract_64(nId1, nId2)
+   End If
+End Function
+
+<DllImport(EgtIntDll32, CharSet:=CharSet.Unicode, EntryPoint:="EgtSurfFrIntersect"), SuppressUnmanagedCodeSecurity()>
+Private Function EgtSurfFrIntersect_32(nId1 As Integer, nId2 As Integer) As Boolean
+End Function
+<DllImport(EgtIntDll64, CharSet:=CharSet.Unicode, EntryPoint:="EgtSurfFrIntersect"), SuppressUnmanagedCodeSecurity()>
+Private Function EgtSurfFrIntersect_64(nId1 As Integer, nId2 As Integer) As Boolean
+End Function
+Public Function EgtSurfFrIntersect(nId1 As Integer, nId2 As Integer) As Boolean
+   If IntPtr.Size = 4 Then
+      Return EgtSurfFrIntersect_32(nId1, nId2)
+   Else
+      Return EgtSurfFrIntersect_64(nId1, nId2)
+   End If
+End Function
+
+<DllImport(EgtIntDll32, CharSet:=CharSet.Unicode, EntryPoint:="EgtSurfFrOffset"), SuppressUnmanagedCodeSecurity()>
+Private Function EgtSurfFrOffset_32(nId As Integer, dDist As Double, nType As Integer) As Boolean
+End Function
+<DllImport(EgtIntDll64, CharSet:=CharSet.Unicode, EntryPoint:="EgtSurfFrOffset"), SuppressUnmanagedCodeSecurity()>
+Private Function EgtSurfFrOffset_64(nId As Integer, dDist As Double, nType As Integer) As Boolean
+End Function
+Public Function EgtSurfFrOffset(nId As Integer, dDist As Double, nType As Integer) As Boolean
+   If IntPtr.Size = 4 Then
+      Return EgtSurfFrOffset_32(nId, dDist, nType)
+   Else
+      Return EgtSurfFrOffset_64(nId, dDist, nType)
+   End If
+End Function
+
 
 '---------- GeomDb Parts & Layers ----------------------------------------------
 <DllImport(EgtIntDll32, CharSet:=CharSet.Unicode, EntryPoint:="EgtIsPart"), SuppressUnmanagedCodeSecurity()>