From ab7b564b2428ed352d4680c09533fd788831ee71 Mon Sep 17 00:00:00 2001
From: Dario Sassi <dario.s@egaltech.com>
Date: Tue, 3 Nov 2015 21:33:03 +0000
Subject: [PATCH] TestEIn 1.6k1 : - corretta creazione regione - aggiunte
 costanti utensile (COOLANT, MAXABSORPTION, MINFEED).

---
 Controller.vb              | 32 ++++++++++++++------------------
 EgtInterface.vb            |  3 +++
 My Project/AssemblyInfo.vb |  4 ++--
 3 files changed, 19 insertions(+), 20 deletions(-)

diff --git a/Controller.vb b/Controller.vb
index ae87e8e..e21c4b1 100644
--- a/Controller.vb
+++ b/Controller.vb
@@ -3470,24 +3470,20 @@ Public Class Controller
       End If
       ' creo la regione piana (a partire da uno o più contorni selezionati)
       EnableCommandLog()
-      If EgtGetSelectedObjCount() = 1 Then
-         EgtCreateSurfTmByFlatContour(GetCurrLayer(), EgtGetLastSelectedObj(), EPS_STM)
-      Else
-         ' creo vettore di entità selezionate
-         Dim nCrvNum As Integer = 0
-         Dim nCrvIds(EgtGetSelectedObjCount() - 1) As Integer
-         Dim nId As Integer = EgtGetFirstSelectedObj()
-         While nId <> GDB_ID.NULL
-            Select Case EgtGetType(nId)
-            Case GDB_TY.CRV_LINE, GDB_TY.CRV_ARC, GDB_TY.CRV_BEZ, GDB_TY.CRV_COMPO
-               nCrvIds(nCrvNum) = nId
-               nCrvNum = nCrvNum + 1
-            End Select
-            nId = EgtGetNextSelectedObj()
-         End While
-         ' creo la superficie
-         EgtCreateSurfFlatRegion(GetCurrLayer(), nCrvIds)
-      End If
+      ' creo vettore di entità selezionate
+      Dim nCrvNum As Integer = 0
+      Dim nCrvIds(EgtGetSelectedObjCount() - 1) As Integer
+      Dim nId As Integer = EgtGetFirstSelectedObj()
+      While nId <> GDB_ID.NULL
+         Select Case EgtGetType(nId)
+         Case GDB_TY.CRV_LINE, GDB_TY.CRV_ARC, GDB_TY.CRV_BEZ, GDB_TY.CRV_COMPO
+            nCrvIds(nCrvNum) = nId
+            nCrvNum = nCrvNum + 1
+         End Select
+         nId = EgtGetNextSelectedObj()
+      End While
+      ' creo la superficie
+      EgtCreateSurfFlatRegion(GetCurrLayer(), nCrvIds)
       DisableCommandLog()
       ' reset stato scena
       m_Scene.ResetStatus()
diff --git a/EgtInterface.vb b/EgtInterface.vb
index e908aea..5175aba 100644
--- a/EgtInterface.vb
+++ b/EgtInterface.vb
@@ -7250,6 +7250,7 @@ Public Enum MCH_TP As Integer
    CORR = 8192
    EXIT_ = 8193
    TYPE = 8194
+   COOLANT = 8195
    CORNRAD = 16384
    DIAM = 16385
    TOTDIAM = 16386
@@ -7266,6 +7267,8 @@ Public Enum MCH_TP As Integer
    SIDEANG = 16397
    MAXSPEED = 16398
    THICK = 16399
+   MAXABSORPTION = 16400
+   MINFEED = 16401
    DRAW = 32768
    HEAD = 32769
    NAME = 32770
diff --git a/My Project/AssemblyInfo.vb b/My Project/AssemblyInfo.vb
index 0efb4e4..0866a01 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:
 ' <Assembly: AssemblyVersion("1.0.*")> 
 
-<Assembly: AssemblyVersion("1.6.10.6")> 
-<Assembly: AssemblyFileVersion("1.6.10.6")> 
+<Assembly: AssemblyVersion("1.6.11.1")> 
+<Assembly: AssemblyFileVersion("1.6.11.1")>