OmagCUT :

- aggiunte info nei contorni dei pezzi piatti.

Utility.vb

@@ -3,22 +3,7 @@ Imports EgtUILib
 
 Module Utility
 
-   Friend Sub HideParkedParts()
-      Dim nPartId As Integer = EgtGetFirstPart()
-      While nPartId <> GDB_ID.NULL
-         EgtSetStatus(nPartId, GDB_ST.OFF)
-         nPartId = EgtGetNextPart(nPartId)
-      End While
-   End Sub
-
-   Friend Sub ShowParkedParts()
-      Dim nPartId As Integer = EgtGetFirstPart()
-      While nPartId <> GDB_ID.NULL
-         EgtSetStatus(nPartId, GDB_ST.ON_)
-         nPartId = EgtGetNextPart(nPartId)
-      End While
-   End Sub
-
+   '--------------------------------------------------------------------------------------------------
    Friend Function DoubleToString(ByVal dVal As Double, ByVal nNumDec As Integer) As String
       Dim sFormat As String = "F" + Math.Abs(nNumDec).ToString()
       Dim sVal As String = dVal.ToString(sFormat, CultureInfo.InvariantCulture)
@@ -60,7 +45,49 @@ Module Utility
       Return sExpr.Replace("*GEO.ONE_INCH", """")
    End Function
 
+   '--------------------------------------------------------------------------------------------------
+   Friend Sub HideParkedParts()
+      Dim nPartId As Integer = EgtGetFirstPart()
+      While nPartId <> GDB_ID.NULL
+         EgtSetStatus(nPartId, GDB_ST.OFF)
+         nPartId = EgtGetNextPart(nPartId)
+      End While
+   End Sub
 
+   Friend Sub ShowParkedParts()
+      Dim nPartId As Integer = EgtGetFirstPart()
+      While nPartId <> GDB_ID.NULL
+         EgtSetStatus(nPartId, GDB_ST.ON_)
+         nPartId = EgtGetNextPart(nPartId)
+      End While
+   End Sub
+
+   Friend Function AdjustFlatPart(nPartId As Integer) As Boolean
+      ' Ciclo sui layer
+      Dim nLayerId As Integer = EgtGetFirstLayer(nPartId)
+      While nLayerId <> GDB_ID.NULL
+         ' Recupero il layer successivo
+         Dim nNextLayerId As Integer = EgtGetNextLayer(nLayerId)
+         ' Recupero il nome del layer
+         Dim sLayName As String = String.Empty
+         If EgtGetName(nLayerId, sLayName) Then
+            ' Se layer OutLoop o InLoop
+            If String.Compare(sLayName, NAME_OUTLOOP, True) = 0 Or
+               String.Compare(sLayName, NAME_INLOOP, True) = 0 Then
+               ' Sistemo i layer per applicare facilmente le lavorazioni
+               EgtAdjustFlatPartLayer(nLayerId)
+            End If
+         ' Se senza nome, lo elimino
+         Else
+            EgtErase(nLayerId)
+         End If
+         ' Passo al layer successivo
+         nLayerId = nNextLayerId
+      End While
+      Return True
+   End Function
+
+   '--------------------------------------------------------------------------------------------------
    Public Class Language
 
       Private m_sLanguageName As String