TestEIn 1.6l7 :

- aggiornamenti per nesting.

EgtInterface.vb

@@ -5209,6 +5209,34 @@ Public Function EgtMoveSelectedPartCluster(ByVal bReducedCut As Boolean, ByRef v
    End If
 End Function
 
+<DllImport(EgtIntDll32, CharSet:=CharSet.Unicode, EntryPoint:="EgtGetObstacleTangent")>
+Private Function EgtGetObstacleTangent_32(ByRef vtTang As Vector3d) As Boolean
+End Function
+<DllImport(EgtIntDll64, CharSet:=CharSet.Unicode, EntryPoint:="EgtGetObstacleTangent")>
+Private Function EgtGetObstacleTangent_64(ByRef vtTang As Vector3d) As Boolean
+End Function
+Public Function EgtGetObstacleTangent(ByRef vtTang As Vector3d) As Boolean
+   If IntPtr.Size = 4 Then
+      Return EgtGetObstacleTangent_32(vtTang)
+   Else
+      Return EgtGetObstacleTangent_64(vtTang)
+   End If
+End Function
+
+<DllImport(EgtIntDll32, CharSet:=CharSet.Unicode, EntryPoint:="EgtGetMovingTangent")>
+Private Function EgtGetMovingTangent_32(ByRef vtTang As Vector3d) As Boolean
+End Function
+<DllImport(EgtIntDll64, CharSet:=CharSet.Unicode, EntryPoint:="EgtGetMovingTangent")>
+Private Function EgtGetMovingTangent_64(ByRef vtTang As Vector3d) As Boolean
+End Function
+Public Function EgtGetMovingTangent(ByRef vtTang As Vector3d) As Boolean
+   If IntPtr.Size = 4 Then
+      Return EgtGetMovingTangent_32(vtTang)
+   Else
+      Return EgtGetMovingTangent_64(vtTang)
+   End If
+End Function
+
 <DllImport(EgtIntDll32, CharSet:=CharSet.Unicode, EntryPoint:="EgtRotatePartCluster")>
 Private Function EgtRotatePartCluster_32(ByVal vId As Integer(), ByVal nCount As Integer,
                                          ByVal bReducedCut As Boolean, ByRef ptCen As Point3d, ByRef dRotAngDeg As Double,

GenInterface.vb

@@ -1,6 +1,6 @@
 Imports System.Runtime.InteropServices
 Imports System.Text
-Imports EgtUILib.EgtInterface
+Imports TestEIn.EgtInterface
 
 Public Module GenInterface