diff --git a/EgtInterface.vb b/EgtInterface.vb index 07d3f54..b0fcd18 100644 --- a/EgtInterface.vb +++ b/EgtInterface.vb @@ -4385,6 +4385,48 @@ Public Function EgtSetInfo(nId As Integer, sKey As String, sInfo As String) As B End If End Function + +Private Function EgtSetInfoBool_32(nId As Integer, sKey As String, bInfo As Boolean) As Boolean +End Function + +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 + + +Private Function EgtSetInfoInt_32(nId As Integer, sKey As String, nInfo As Integer) As Boolean +End Function + +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 + + +Private Function EgtSetInfoDouble_32(nId As Integer, sKey As String, dInfo As Double) As Boolean +End Function + +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 + 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 + +Private Function EgtGetInfoBool_32(nId As Integer, sKey As String, ByRef bInfo As Boolean) As Boolean +End Function + +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 + 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 + +Private Function EgtGetLastOperation_32() As Integer +End Function + +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 + + +Private Function EgtGetPrevOperation_32(nId As Integer) As Integer +End Function + +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 + + +Private Function EgtGetFirstActiveOperation_32() As Integer +End Function + +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 + + +Private Function EgtGetNextActiveOperation_32(nId As Integer) As Integer +End Function + +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 + + +Private Function EgtGetLastActiveOperation_32() As Integer +End Function + +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 + + +Private Function EgtGetPrevActiveOperation_32(nId As Integer) As Integer +End Function + +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 + 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 + +Private Function EgtRemoveOperationHome_32(nId As Integer) As Boolean +End Function + +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 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 diff --git a/My Project/AssemblyInfo.vb b/My Project/AssemblyInfo.vb index 173c8d7..a197cb6 100644 --- a/My Project/AssemblyInfo.vb +++ b/My Project/AssemblyInfo.vb @@ -46,5 +46,5 @@ Imports System.Runtime.InteropServices ' utilizzando l'asterisco (*) come descritto di seguito: ' - - + +