TestEIn :

- aggiornamento interfaccia C++.

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")>