TestEIn 1.6k1 :

- corretta creazione regione
- aggiunte costanti utensile (COOLANT, MAXABSORPTION, MINFEED).

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()

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

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")>