From 51287e34abd16ff3c9cc3d90db5dd447a4c343a1 Mon Sep 17 00:00:00 2001
From: Dario Sassi <dario.s@egaltech.com>
Date: Mon, 14 Dec 2015 07:46:44 +0000
Subject: [PATCH] TestEIn : - aggiornamento interfaccia C++.

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

diff --git a/EgtInterface.vb b/EgtInterface.vb
index 2b186ed..42a265b 100644
--- a/EgtInterface.vb
+++ b/EgtInterface.vb
@@ -6320,6 +6320,35 @@ Public Function EgtGetCalcTipFromPositions(dX As Double, dY As Double, dZ As Dou
    End If
 End Function
 
+<DllImport(EgtIntDll32, CharSet:=CharSet.Unicode, EntryPoint:="EgtGetCalcToolDirFromAngles")>
+Private Function EgtGetCalcToolDirFromAngles_32(dAngA As Double, dAngB As Double, ByRef vtDir As Vector3d) As Boolean
+End Function
+<DllImport(EgtIntDll64, CharSet:=CharSet.Unicode, EntryPoint:="EgtGetCalcToolDirFromAngles")>
+Private Function EgtGetCalcToolDirFromAngles_64(dAngA As Double, dAngB As Double, ByRef vtDir As Vector3d) As Boolean
+End Function
+Public Function EgtGetCalcToolDirFromAngles(dAngA As Double, dAngB As Double, ByRef vtDir As Vector3d) As Boolean
+   If IntPtr.Size = 4 Then
+      Return EgtGetCalcToolDirFromAngles_32(dAngA, dAngB, vtDir)
+   Else
+      Return EgtGetCalcToolDirFromAngles_64(dAngA, dAngB, vtDir)
+   End If
+End Function
+
+' Machine Move
+<DllImport(EgtIntDll32, CharSet:=CharSet.Unicode, EntryPoint:="EgtSetAxisPos")>
+Private Function EgtSetAxisPos_32(ByVal sAxis As String, ByVal dVal As Double) As Boolean
+End Function
+<DllImport(EgtIntDll64, CharSet:=CharSet.Unicode, EntryPoint:="EgtSetAxisPos")>
+Private Function EgtSetAxisPos_64(ByVal sAxis As String, ByVal dVal As Double) As Boolean
+End Function
+Public Function EgtSetAxisPos(ByVal sAxis As String, ByVal dVal As Double) As Boolean
+   If IntPtr.Size = 4 Then
+      Return EgtSetAxisPos_32(sAxis, dVal)
+   Else
+      Return EgtSetAxisPos_64(sAxis, dVal)
+   End If
+End Function
+
 
 '---------- Scene --------------------------------------------------------------
 <DllImport(EgtIntDll32, CharSet:=CharSet.Unicode, EntryPoint:="EgtInitScene")>