TestEIn 1.8f2 :

- aggiornamento interfaccia librerie base.

EgtInterface.vb

@@ -1855,6 +1855,34 @@ Public Function EgtLuaSetGlobStringVar(sVar As String, sVal As String) As Boolea
    End If
 End Function
 
+<DllImport(EgtIntDll32, CharSet:=CharSet.Unicode, EntryPoint:="EgtLuaSetGlobVectorVar"), SuppressUnmanagedCodeSecurity()>
+Private Function EgtLuaSetGlobVectorVar_32(sVar As String, ByRef vtVal As Vector3d) As Boolean
+End Function
+<DllImport(EgtIntDll64, CharSet:=CharSet.Unicode, EntryPoint:="EgtLuaSetGlobVectorVar"), SuppressUnmanagedCodeSecurity()>
+Private Function EgtLuaSetGlobVectorVar_64(sVar As String, ByRef vtVal As Vector3d) As Boolean
+End Function
+Public Function EgtLuaSetGlobVectorVar(sVar As String, vtVal As Vector3d) As Boolean
+   If IntPtr.Size = 4 Then
+      Return EgtLuaSetGlobVectorVar_32(sVar, vtVal)
+   Else
+      Return EgtLuaSetGlobVectorVar_64(sVar, vtVal)
+   End If
+End Function
+
+<DllImport(EgtIntDll32, CharSet:=CharSet.Unicode, EntryPoint:="EgtLuaSetGlobPointVar"), SuppressUnmanagedCodeSecurity()>
+Private Function EgtLuaSetGlobPointVar_32(sVar As String, ByRef ptVal As Point3d) As Boolean
+End Function
+<DllImport(EgtIntDll64, CharSet:=CharSet.Unicode, EntryPoint:="EgtLuaSetGlobPointVar"), SuppressUnmanagedCodeSecurity()>
+Private Function EgtLuaSetGlobPointVar_64(sVar As String, ByRef ptVal As Point3d) As Boolean
+End Function
+Public Function EgtLuaSetGlobPointVar(sVar As String, ptVal As Point3d) As Boolean
+   If IntPtr.Size = 4 Then
+      Return EgtLuaSetGlobPointVar_32(sVar, ptVal)
+   Else
+      Return EgtLuaSetGlobPointVar_64(sVar, ptVal)
+   End If
+End Function
+
 <DllImport(EgtIntDll32, CharSet:=CharSet.Unicode, EntryPoint:="EgtLuaGetGlobBoolVar"), SuppressUnmanagedCodeSecurity()>
 Private Function EgtLuaGetGlobBoolVar_32(sVar As String, ByRef bVal As Boolean) As Boolean
 End Function
@@ -1920,6 +1948,34 @@ Public Function EgtLuaGetGlobStringVar(sVar As String, ByRef sVal As String) As
    Return bOk
 End Function
 
+<DllImport(EgtIntDll32, CharSet:=CharSet.Unicode, EntryPoint:="EgtLuaGetGlobVectorVar"), SuppressUnmanagedCodeSecurity()>
+Private Function EgtLuaGetGlobVectorVar_32(sVar As String, ByRef vtVal As Vector3d) As Boolean
+End Function
+<DllImport(EgtIntDll64, CharSet:=CharSet.Unicode, EntryPoint:="EgtLuaGetGlobVectorVar"), SuppressUnmanagedCodeSecurity()>
+Private Function EgtLuaGetGlobVectorVar_64(sVar As String, ByRef vtVal As Vector3d) As Boolean
+End Function
+Public Function EgtLuaGetGlobVectorVar(sVar As String, ByRef vtVal As Vector3d) As Boolean
+   If IntPtr.Size = 4 Then
+      Return EgtLuaGetGlobVectorVar_32(sVar, vtVal)
+   Else
+      Return EgtLuaGetGlobVectorVar_64(sVar, vtVal)
+   End If
+End Function
+
+<DllImport(EgtIntDll32, CharSet:=CharSet.Unicode, EntryPoint:="EgtLuaGetGlobPointVar"), SuppressUnmanagedCodeSecurity()>
+Private Function EgtLuaGetGlobPointVar_32(sVar As String, ByRef ptVal As Point3d) As Boolean
+End Function
+<DllImport(EgtIntDll64, CharSet:=CharSet.Unicode, EntryPoint:="EgtLuaGetGlobPointVar"), SuppressUnmanagedCodeSecurity()>
+Private Function EgtLuaGetGlobPointVar_64(sVar As String, ByRef ptVal As Point3d) As Boolean
+End Function
+Public Function EgtLuaGetGlobPointVar(sVar As String, ByRef ptVal As Point3d) As Boolean
+   If IntPtr.Size = 4 Then
+      Return EgtLuaGetGlobPointVar_32(sVar, ptVal)
+   Else
+      Return EgtLuaGetGlobPointVar_64(sVar, ptVal)
+   End If
+End Function
+
 <DllImport(EgtIntDll32, CharSet:=CharSet.Unicode, EntryPoint:="EgtLuaResetGlobVar"), SuppressUnmanagedCodeSecurity()>
 Private Function EgtLuaResetGlobVar_32(sVar As String) As Boolean
 End Function
@@ -11400,6 +11456,13 @@ Public Enum MCH_TP As Integer
    TCPOS = 32773
    UUID = 32774
 End Enum
+'Costanti per utensili: liquido refrigerante
+Public Enum MCH_TC As Integer
+   NO = 0
+   INNER = 1
+   OUTER = 2
+   BOTH = 3
+End Enum
 'Costanti : operazioni
 Public Enum MCH_OY As Integer
    NONE = 0

My Project/AssemblyInfo.vb

@@ -46,5 +46,5 @@ Imports System.Runtime.InteropServices
 ' utilizzando l'asterisco (*) come descritto di seguito:
 ' <Assembly: AssemblyVersion("1.0.*")> 
 
-<Assembly: AssemblyVersion("1.8.5.3")> 
-<Assembly: AssemblyFileVersion("1.8.5.3")> 
+<Assembly: AssemblyVersion("1.8.6.2")> 
+<Assembly: AssemblyFileVersion("1.8.6.2")>