From c73639e403a94c94a76e0e668e51adf74f5a6e1c Mon Sep 17 00:00:00 2001
From: Dario Sassi <dario.s@egaltech.com>
Date: Tue, 12 Jan 2016 18:35:21 +0000
Subject: [PATCH] TestEIn : - aggiornamento.

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

diff --git a/EgtInterface.vb b/EgtInterface.vb
index a117378..56b36eb 100644
--- a/EgtInterface.vb
+++ b/EgtInterface.vb
@@ -5271,6 +5271,40 @@ Public Function EgtRotateSelectedPartCluster(ByVal bReducedCut As Boolean, ByVal
    End If
 End Function
 
+<DllImport(EgtIntDll32, CharSet:=CharSet.Unicode, EntryPoint:="EgtAlignPartClusterOnCollision")>
+Private Function EgtAlignPartClusterOnCollision_32(ByVal vId As Integer(), ByVal nCount As Integer,
+                                                   ByVal bReducedCut As Boolean,
+                                                   ByVal dXmin As Double, ByVal dYmin As Double,
+                                                   ByVal dXmax As Double, ByVal dYmax As Double) As Boolean
+End Function
+<DllImport(EgtIntDll64, CharSet:=CharSet.Unicode, EntryPoint:="EgtAlignPartClusterOnCollision")>
+Private Function EgtAlignPartClusterOnCollision_64(ByVal vId As Integer(), ByVal nCount As Integer,
+                                                   ByVal bReducedCut As Boolean,
+                                                   ByVal dXmin As Double, ByVal dYmin As Double,
+                                                   ByVal dXmax As Double, ByVal dYmax As Double) As Boolean
+End Function
+Public Function EgtAlignPartClusterOnCollision(ByVal vId As Integer(),
+                                               ByVal bReducedCut As Boolean,
+                                               ByVal dXmin As Double, ByVal dYmin As Double,
+                                               ByVal dXmax As Double, ByVal dYmax As Double) As Boolean
+   If IntPtr.Size = 4 Then
+      Return EgtAlignPartClusterOnCollision_32(vId, vId.Count(), bReducedCut, dXmin, dYmin, dXmax, dYmax)
+   Else
+      Return EgtAlignPartClusterOnCollision_64(vId, vId.Count(), bReducedCut, dXmin, dYmin, dXmax, dYmax)
+   End If
+End Function
+Public Function EgtAlignSelectedPartClusterOnCollision(ByVal bReducedCut As Boolean,
+                                                       ByVal dXmin As Double, ByVal dYmin As Double,
+                                                       ByVal dXmax As Double, ByVal dYmax As Double) As Boolean
+   Dim vId(1) As Integer
+   vId(0) = GDB_ID.SEL
+   If IntPtr.Size = 4 Then
+      Return EgtAlignPartClusterOnCollision_32(vId, 1, bReducedCut, dXmin, dYmin, dXmax, dYmax)
+   Else
+      Return EgtAlignPartClusterOnCollision_64(vId, 1, bReducedCut, dXmin, dYmin, dXmax, dYmax)
+   End If
+End Function
+
 <DllImport(EgtIntDll32, CharSet:=CharSet.Unicode, EntryPoint:="EgtGetPartClusterCenterGlob")>
 Private Function EgtGetPartClusterCenterGlob_32(ByVal vId As Integer(), ByVal nCount As Integer, ByRef ptCen As Point3d) As Boolean
 End Function