From bc9a9c3370f192c6fa01f8faaa63b96f0622a3ba Mon Sep 17 00:00:00 2001 From: Dario Sassi Date: Fri, 27 Oct 2017 17:51:23 +0000 Subject: [PATCH] TestEIn 1.8j5 : - aggiornamento. --- EgtInterface.vb | 54 +++++++++++++++++++++++++++++++++++++- My Project/AssemblyInfo.vb | 4 +-- 2 files changed, 55 insertions(+), 3 deletions(-) diff --git a/EgtInterface.vb b/EgtInterface.vb index 0e7fcbb..31fad67 100644 --- a/EgtInterface.vb +++ b/EgtInterface.vb @@ -9197,6 +9197,48 @@ End Function End If End Function + + Private Function EgtPreparePreviewMachiningTool_32() As Boolean + End Function + + Private Function EgtPreparePreviewMachiningTool_64() As Boolean + End Function + Public Function EgtPreparePreviewMachiningTool() As Boolean + If IntPtr.Size = 4 Then + Return EgtPreparePreviewMachiningTool_32() + Else + Return EgtPreparePreviewMachiningTool_64() + End If + End Function + + + Private Function EgtRemovePreviewMachiningTool_32() As Boolean + End Function + + Private Function EgtRemovePreviewMachiningTool_64() As Boolean + End Function + Public Function EgtRemovePreviewMachiningTool() As Boolean + If IntPtr.Size = 4 Then + Return EgtRemovePreviewMachiningTool_32() + Else + Return EgtRemovePreviewMachiningTool_64() + End If + End Function + + + Private Function EgtPreviewMachiningTool_32(nEntId As Integer, nFlag As Integer) As Integer + End Function + + Private Function EgtPreviewMachiningTool_64(nEntId As Integer, nFlag As Integer) As Integer + End Function + Public Function EgtPreviewMachiningTool(nEntId As Integer, nFlag As Integer) As Integer + If IntPtr.Size = 4 Then + Return EgtPreviewMachiningTool_32(nEntId, nFlag) + Else + Return EgtPreviewMachiningTool_64(nEntId, nFlag) + End If + End Function + Private Function EgtGetMachiningParamBool_32(nType As Integer, ByRef bVal As Boolean) As Boolean End Function @@ -11644,6 +11686,11 @@ Public FIX_VIS As String = "VIS" Public REF_ARC As String = "Ref" ' Costanti : disco colorato dei riferimenti Public REF_DISK As String = "RefDisk" +' Costanti : nomi sottogruppi della lavorazione +Public MCH_MGR_PV As String = "PV" +Public MCH_MGR_CL As String = "CL" +Public MCH_MGR_ST As String = "ST" +Public MCH_MGR_PATH As String = "P" ' Costanti : tipo interferenza lavorazioni piane con pezzi Public Enum FMI_TYPE As Integer NONE = 0 @@ -12035,7 +12082,12 @@ Public Enum MCH_CHISEL_WS As Integer LEFT = 1 RIGHT = 2 End Enum - +'Costanti : posizione per preview utensile in lavorazione +Public Enum MCH_PTM As Integer + CURR = 0 + BEFORE = -1 + AFTER = 1 +End Enum 'Costanti : stato movimento di simulazione Public Enum MCH_SIM As Integer OK = 0 diff --git a/My Project/AssemblyInfo.vb b/My Project/AssemblyInfo.vb index edc0ece..34a51db 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: ' - - + +