diff --git a/EgtInterface.vb b/EgtInterface.vb index 696fc32..fa41e81 100644 --- a/EgtInterface.vb +++ b/EgtInterface.vb @@ -1855,6 +1855,34 @@ Public Function EgtLuaSetGlobStringVar(sVar As String, sVal As String) As Boolea End If End Function + +Private Function EgtLuaSetGlobVectorVar_32(sVar As String, ByRef vtVal As Vector3d) As Boolean +End Function + +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 + + +Private Function EgtLuaSetGlobPointVar_32(sVar As String, ByRef ptVal As Point3d) As Boolean +End Function + +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 + 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 + +Private Function EgtLuaGetGlobVectorVar_32(sVar As String, ByRef vtVal As Vector3d) As Boolean +End Function + +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 + + +Private Function EgtLuaGetGlobPointVar_32(sVar As String, ByRef ptVal As Point3d) As Boolean +End Function + +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 + 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 diff --git a/My Project/AssemblyInfo.vb b/My Project/AssemblyInfo.vb index ab594f7..922f9af 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: ' - - + +