From 8bbc72c522fd7efa5f0d684046811877cb1b8523 Mon Sep 17 00:00:00 2001 From: Dario Sassi Date: Sat, 4 Feb 2017 15:42:42 +0000 Subject: [PATCH] TestEIn 1.8b1 : - ricompilazione per aggiornamento librerie. --- EgtInterface.vb | 44 ++++++++++++++++++++++++++++++++------ My Project/AssemblyInfo.vb | 4 ++-- 2 files changed, 40 insertions(+), 8 deletions(-) diff --git a/EgtInterface.vb b/EgtInterface.vb index 3260ada..9e138ad 100644 --- a/EgtInterface.vb +++ b/EgtInterface.vb @@ -9723,12 +9723,12 @@ Public Function EgtGetShowTriaAdv() As Boolean End Function -Private Function EgtSetShowZmap_32(nShowMode As SM, bRedraw As Boolean) As Boolean +Private Function EgtSetShowZmap_32(nShowMode As ZSM, bRedraw As Boolean) As Boolean End Function -Private Function EgtSetShowZmap_64(nShowMode As SM, bRedraw As Boolean) As Boolean +Private Function EgtSetShowZmap_64(nShowMode As ZSM, bRedraw As Boolean) As Boolean End Function -Public Function EgtSetShowZmap(nShowMode As SM, Optional bRedraw As Boolean = True) As Boolean +Public Function EgtSetShowZmap(nShowMode As ZSM, Optional bRedraw As Boolean = True) As Boolean If IntPtr.Size = 4 Then Return EgtSetShowZmap_32(nShowMode, bRedraw) Else @@ -11036,7 +11036,8 @@ Public Enum MCH_TF As Integer SAWBLADE = 512 MILL = 1024 MORTISE = 2048 - COMPO = 4096 + CHISEL = 4096 + COMPO = 8192 End Enum 'Costanti : tipi di utensili Public Enum MCH_TY As Integer @@ -11048,7 +11049,8 @@ Public Enum MCH_TY As Integer MILL_STD = 1024 MILL_NOTIP = 1025 MORTISE_STD = 2048 - COMPO = 4096 + CHISEL_STD = 4096 + COMPO = 8192 End Enum 'Costanti : parametri degli utensili Public Enum MCH_TP As Integer @@ -11095,6 +11097,7 @@ Public Enum MCH_OY As Integer SAWROUGHING = 16384 SAWFINISHING = 32768 GENMACHINING = 65536 + CHISELING = 131072 End Enum ' Funzioni per famiglie di operazioni Public Function IsValidDispositionType(nType As Integer) As Boolean @@ -11104,7 +11107,8 @@ Public Function IsValidMachiningType(nType As Integer) As Boolean Return (nType = MCH_OY.DRILLING Or nType = MCH_OY.SAWING Or nType = MCH_OY.MILLING Or nType = MCH_OY.POCKETING Or nType = MCH_OY.MORTISING Or nType = MCH_OY.SAWROUGHING Or - nType = MCH_OY.SAWFINISHING) + nType = MCH_OY.SAWFINISHING Or nType = MCH_OY.GENMACHINING Or + nType = MCH_OY.CHISELING) End Function 'Costanti : tipi di lavorazioni (altre operazioni) Public Enum MCH_MY As Integer @@ -11117,6 +11121,7 @@ Public Enum MCH_MY As Integer SAWROUGHING = MCH_OY.SAWROUGHING SAWFINISHING = MCH_OY.SAWFINISHING GENMACHINING = MCH_OY.GENMACHINING + CHISELING = MCH_OY.CHISELING End Enum 'Costanti : parametri generali delle lavorazioni Public Enum MCH_GP As Integer @@ -11317,6 +11322,33 @@ Public Enum MCH_SAWFIN_LL As Integer CENT = 1 EXT = 2 End Enum +'Costanti per Svuotatura + ' Sottotipo di svuotatura +Public Enum MCH_POCK_SUB As Integer + ZIGZAG = 0 + ONEWAY = 1 + SPIRALIN = 2 + SPIRALOUT = 3 +End Enum + ' Tipo di attacco +Public Enum MCH_POCK_LI As Integer + NONE = 0 + GLIDE = 1 + ZIGZAG = 2 + HELIX = 3 +End Enum + ' Tipo di uscita +Public Enum MCH_POCK_LO As Integer + NONE = 0 + GLIDE = 1 +End Enum +'Costanti per Scalpellatura (chiseling) + 'Lato di lavoro +Public Enum MCH_CHISEL_WS As Integer + LEFT = 1 + RIGHT = 2 +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 c848561..d59ae1e 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: ' - - + +