TestEIn 1.6t2 :

- ricompilazione per aggiornamento interfaccia.
2016-08-11 18:15:10 +00:00
parent af486e1de5
commit ed9d37f17b
2 changed files with 157 additions and 2 deletions
@@ -4385,6 +4385,48 @@ Public Function EgtSetInfo(nId As Integer, sKey As String, sInfo As String) As B
   End If
 End Function

+<DllImport(EgtIntDll32, CharSet:=CharSet.Unicode, EntryPoint:="EgtSetInfoBool")>
+Private Function EgtSetInfoBool_32(nId As Integer, sKey As String, bInfo As Boolean) As Boolean
+End Function
+<DllImport(EgtIntDll64, CharSet:=CharSet.Unicode, EntryPoint:="EgtSetInfoBool")>
+Private Function EgtSetInfoBool_64(nId As Integer, sKey As String, bInfo As Boolean) As Boolean
+End Function
+Public Function EgtSetInfo(nId As Integer, sKey As String, bInfo As Boolean) As Boolean
+   If IntPtr.Size = 4 Then
+      Return EgtSetInfoBool_32(nId, sKey, bInfo)
+   Else
+      Return EgtSetInfoBool_64(nId, sKey, bInfo)
+   End If
+End Function
+
+<DllImport(EgtIntDll32, CharSet:=CharSet.Unicode, EntryPoint:="EgtSetInfoInt")>
+Private Function EgtSetInfoInt_32(nId As Integer, sKey As String, nInfo As Integer) As Boolean
+End Function
+<DllImport(EgtIntDll64, CharSet:=CharSet.Unicode, EntryPoint:="EgtSetInfoInt")>
+Private Function EgtSetInfoInt_64(nId As Integer, sKey As String, nInfo As Integer) As Boolean
+End Function
+Public Function EgtSetInfo(nId As Integer, sKey As String, nInfo As Integer) As Boolean
+   If IntPtr.Size = 4 Then
+      Return EgtSetInfoInt_32(nId, sKey, nInfo)
+   Else
+      Return EgtSetInfoInt_64(nId, sKey, nInfo)
+   End If
+End Function
+
+<DllImport(EgtIntDll32, CharSet:=CharSet.Unicode, EntryPoint:="EgtSetInfoDouble")>
+Private Function EgtSetInfoDouble_32(nId As Integer, sKey As String, dInfo As Double) As Boolean
+End Function
+<DllImport(EgtIntDll64, CharSet:=CharSet.Unicode, EntryPoint:="EgtSetInfoDouble")>
+Private Function EgtSetInfoDouble_64(nId As Integer, sKey As String, dInfo As Double) As Boolean
+End Function
+Public Function EgtSetInfo(nId As Integer, sKey As String, dInfo As Double) As Boolean
+   If IntPtr.Size = 4 Then
+      Return EgtSetInfoDouble_32(nId, sKey, dInfo)
+   Else
+      Return EgtSetInfoDouble_64(nId, sKey, dInfo)
+   End If
+End Function
+
 <DllImport(EgtIntDll32, CharSet:=CharSet.Unicode, EntryPoint:="EgtSetInfoFrame")>
 Private Function EgtSetInfoFrame_32(nId As Integer, sKey As String, ByRef PtOrig As Point3d,
                                    ByRef VtX As Vector3d, ByRef VtY As Vector3d, ByRef VtZ As Vector3d) As Boolean
@@ -4424,6 +4466,20 @@ Public Function EgtGetInfo(nId As Integer, sKey As String, ByRef sInfo As String
   Return bOk
 End Function

+<DllImport(EgtIntDll32, CharSet:=CharSet.Unicode, EntryPoint:="EgtGetInfoBool")>
+Private Function EgtGetInfoBool_32(nId As Integer, sKey As String, ByRef bInfo As Boolean) As Boolean
+End Function
+<DllImport(EgtIntDll64, CharSet:=CharSet.Unicode, EntryPoint:="EgtGetInfoBool")>
+Private Function EgtGetInfoBool_64(nId As Integer, sKey As String, ByRef bInfo As Boolean) As Boolean
+End Function
+Public Function EgtGetInfo(nId As Integer, sKey As String, ByRef bInfo As Boolean) As Boolean
+   If IntPtr.Size = 4 Then
+      Return EgtGetInfoBool_32(nId, sKey, bInfo)
+   Else
+      Return EgtGetInfoBool_64(nId, sKey, bInfo)
+   End If
+End Function
+
 <DllImport(EgtIntDll32, CharSet:=CharSet.Unicode, EntryPoint:="EgtGetInfoInt")>
 Private Function EgtGetInfoInt_32(nId As Integer, sKey As String, ByRef nInfo As Integer) As Boolean
 End Function
@@ -7439,6 +7495,90 @@ Public Function EgtGetNextOperation(nId As Integer) As Integer
   End If
 End Function

+<DllImport(EgtIntDll32, CharSet:=CharSet.Unicode, EntryPoint:="EgtGetLastOperation")>
+Private Function EgtGetLastOperation_32() As Integer
+End Function
+<DllImport(EgtIntDll64, CharSet:=CharSet.Unicode, EntryPoint:="EgtGetLastOperation")>
+Private Function EgtGetLastOperation_64() As Integer
+End Function
+Public Function EgtGetLastOperation() As Integer
+   If IntPtr.Size = 4 Then
+      Return EgtGetLastOperation_32()
+   Else
+      Return EgtGetLastOperation_64()
+   End If
+End Function
+
+<DllImport(EgtIntDll32, CharSet:=CharSet.Unicode, EntryPoint:="EgtGetPrevOperation")>
+Private Function EgtGetPrevOperation_32(nId As Integer) As Integer
+End Function
+<DllImport(EgtIntDll64, CharSet:=CharSet.Unicode, EntryPoint:="EgtGetPrevOperation")>
+Private Function EgtGetPrevOperation_64(nId As Integer) As Integer
+End Function
+Public Function EgtGetPrevOperation(nId As Integer) As Integer
+   If IntPtr.Size = 4 Then
+      Return EgtGetPrevOperation_32(nId)
+   Else
+      Return EgtGetPrevOperation_64(nId)
+   End If
+End Function
+
+<DllImport(EgtIntDll32, CharSet:=CharSet.Unicode, EntryPoint:="EgtGetFirstActiveOperation")>
+Private Function EgtGetFirstActiveOperation_32() As Integer
+End Function
+<DllImport(EgtIntDll64, CharSet:=CharSet.Unicode, EntryPoint:="EgtGetFirstActiveOperation")>
+Private Function EgtGetFirstActiveOperation_64() As Integer
+End Function
+Public Function EgtGetFirstActiveOperation() As Integer
+   If IntPtr.Size = 4 Then
+      Return EgtGetFirstActiveOperation_32()
+   Else
+      Return EgtGetFirstActiveOperation_64()
+   End If
+End Function
+
+<DllImport(EgtIntDll32, CharSet:=CharSet.Unicode, EntryPoint:="EgtGetNextActiveOperation")>
+Private Function EgtGetNextActiveOperation_32(nId As Integer) As Integer
+End Function
+<DllImport(EgtIntDll64, CharSet:=CharSet.Unicode, EntryPoint:="EgtGetNextActiveOperation")>
+Private Function EgtGetNextActiveOperation_64(nId As Integer) As Integer
+End Function
+Public Function EgtGetNextActiveOperation(nId As Integer) As Integer
+   If IntPtr.Size = 4 Then
+      Return EgtGetNextActiveOperation_32(nId)
+   Else
+      Return EgtGetNextActiveOperation_64(nId)
+   End If
+End Function
+
+<DllImport(EgtIntDll32, CharSet:=CharSet.Unicode, EntryPoint:="EgtGetLastActiveOperation")>
+Private Function EgtGetLastActiveOperation_32() As Integer
+End Function
+<DllImport(EgtIntDll64, CharSet:=CharSet.Unicode, EntryPoint:="EgtGetLastActiveOperation")>
+Private Function EgtGetLastActiveOperation_64() As Integer
+End Function
+Public Function EgtGetLastActiveOperation() As Integer
+   If IntPtr.Size = 4 Then
+      Return EgtGetLastActiveOperation_32()
+   Else
+      Return EgtGetLastActiveOperation_64()
+   End If
+End Function
+
+<DllImport(EgtIntDll32, CharSet:=CharSet.Unicode, EntryPoint:="EgtGetPrevActiveOperation")>
+Private Function EgtGetPrevActiveOperation_32(nId As Integer) As Integer
+End Function
+<DllImport(EgtIntDll64, CharSet:=CharSet.Unicode, EntryPoint:="EgtGetPrevActiveOperation")>
+Private Function EgtGetPrevActiveOperation_64(nId As Integer) As Integer
+End Function
+Public Function EgtGetPrevActiveOperation(nId As Integer) As Integer
+   If IntPtr.Size = 4 Then
+      Return EgtGetPrevActiveOperation_32(nId)
+   Else
+      Return EgtGetPrevActiveOperation_64(nId)
+   End If
+End Function
+
 <DllImport(EgtIntDll32, CharSet:=CharSet.Unicode, EntryPoint:="EgtGetOperationType")>
 Private Function EgtGetOperationType_32(nId As Integer) As Integer
 End Function
@@ -7644,6 +7784,20 @@ Public Function EgtChangeOperationPhase(nId As Integer, nNewPhase As Integer) As
   End If
 End Function

+<DllImport(EgtIntDll32, CharSet:=CharSet.Unicode, EntryPoint:="EgtRemoveOperationHome")>
+Private Function EgtRemoveOperationHome_32(nId As Integer) As Boolean
+End Function
+<DllImport(EgtIntDll64, CharSet:=CharSet.Unicode, EntryPoint:="EgtRemoveOperationHome")>
+Private Function EgtRemoveOperationHome_64(nId As Integer) As Boolean
+End Function
+Public Function EgtRemoveOperationHome(nId As Integer) As Boolean
+   If IntPtr.Size = 4 Then
+      Return EgtRemoveOperationHome_32(nId)
+   Else
+      Return EgtRemoveOperationHome_64(nId)
+   End If
+End Function
+
 ' Dispositions
 <DllImport(EgtIntDll32, CharSet:=CharSet.Unicode, EntryPoint:="EgtGetPhaseDisposition")>
 Private Function EgtGetPhaseDisposition_32(nPhase As Integer) As Integer
@@ -10132,6 +10286,7 @@ Public Enum MCH_MP As Integer
   STEPINTARC = 16417
   SIDESTEP = 16418
   VERTFEED = 16419
+   STEPSIDEANG = 16420
   NAME = 32768
   TOOL = 32769
   DEPTH_STR = 32770
@@ -46,5 +46,5 @@ Imports System.Runtime.InteropServices
 ' utilizzando l'asterisco (*) come descritto di seguito:
 ' <Assembly: AssemblyVersion("1.0.*")> 

-<Assembly: AssemblyVersion("1.6.20.1")> 
-<Assembly: AssemblyFileVersion("1.6.20.1")> 
+<Assembly: AssemblyVersion("1.6.20.2")> 
+<Assembly: AssemblyFileVersion("1.6.20.2")>