Egalware/TestEIn
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

TestEIn :

Browse Source 
- aggiornamento.
This commit is contained in:
Dario Sassi
2016-08-31 18:07:27 +00:00
parent 430b42937b
commit a5285388d6
1 changed files with 56 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files
EgtInterface.vb
+56
View File
@@ -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()>