TestEIn 1.6k4 :

- aggiunte funzioni per direttorio utensili e portautensili.

EgtInterface.vb

@@ -5615,6 +5615,52 @@ Public Function EgtTdbSave() As Boolean
    End If
 End Function
 
+<DllImport(EgtIntDll32, CharSet:=CharSet.Unicode, EntryPoint:="EgtTdbGetToolDir")>
+Private Function EgtTdbGetToolDir_32(ByRef psToolDir As IntPtr) As Boolean
+End Function
+<DllImport(EgtIntDll64, CharSet:=CharSet.Unicode, EntryPoint:="EgtTdbGetToolDir")>
+Private Function EgtTdbGetToolDir_64(ByRef psToolDir As IntPtr) As Boolean
+End Function
+Public Function EgtTdbGetToolDir(ByRef sToolDir As String) As Boolean
+   Dim psToolDir As IntPtr
+   Dim bOk As Boolean
+   If IntPtr.Size = 4 Then
+      bOk = EgtTdbGetToolDir_32(psToolDir)
+   Else
+      bOk = EgtTdbGetToolDir_64(psToolDir)
+   End If
+   If bOk Then
+      sToolDir = Marshal.PtrToStringUni(psToolDir)
+      EgtFreeMemory(psToolDir)
+   Else
+      sToolDir = String.Empty
+   End If
+   Return bOk
+End Function
+
+<DllImport(EgtIntDll32, CharSet:=CharSet.Unicode, EntryPoint:="EgtTdbGetToolHolderDir")>
+Private Function EgtTdbGetToolHolderDir_32(ByRef psTHolderDir As IntPtr) As Boolean
+End Function
+<DllImport(EgtIntDll64, CharSet:=CharSet.Unicode, EntryPoint:="EgtTdbGetToolHolderDir")>
+Private Function EgtTdbGetToolHolderDir_64(ByRef psTHolderDir As IntPtr) As Boolean
+End Function
+Public Function EgtTdbGetToolHolderDir(ByRef sTHolderDir As String) As Boolean
+   Dim psTHolderDir As IntPtr
+   Dim bOk As Boolean
+   If IntPtr.Size = 4 Then
+      bOk = EgtTdbGetToolHolderDir_32(psTHolderDir)
+   Else
+      bOk = EgtTdbGetToolHolderDir_64(psTHolderDir)
+   End If
+   If bOk Then
+      sTHolderDir = Marshal.PtrToStringUni(psTHolderDir)
+      EgtFreeMemory(psTHolderDir)
+   Else
+      sTHolderDir = String.Empty
+   End If
+   Return bOk
+End Function
+
 ' Simulation
 <DllImport(EgtIntDll32, CharSet:=CharSet.Unicode, EntryPoint:="EgtSimStart")>
 Private Function EgtSimStart_32() As Boolean
@@ -7247,6 +7293,7 @@ Public Enum MCH_TY As Integer
 End Enum
 'Costanti : parametri degli utensili
 Public Enum MCH_TP As Integer
+   NONE = 0
    CORR = 8192
    EXIT_ = 8193
    TYPE = 8194

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.6.11.3")> 
-<Assembly: AssemblyFileVersion("1.6.11.3")> 
+<Assembly: AssemblyVersion("1.6.11.4")> 
+<Assembly: AssemblyFileVersion("1.6.11.4")>