OmagCUT :

- in CSV con linea di produzione aggiunto bottone per pezzi rovinati.
2018-07-02 09:12:04 +00:00
parent 70686d122a
commit fe92f33074
9 changed files with 72 additions and 20 deletions
@@ -201,4 +201,13 @@ Friend Module CSVFile
      Return True
   End Function

+   Friend Function RemoveWrongParts(ByRef CsvPartList As List(Of CsvPart)) As Boolean
+      For i As Integer = CsvPartList.Count() - 1 To 0 Step -1
+         If Not CsvPartList(i).m_bIsRect Or CsvPartList(i).m_dDimX < EPS_SMALL Or CsvPartList(i).m_dDimY < EPS_SMALL Then
+            CsvPartList.RemoveAt(i)
+         End If
+      Next
+      Return True
+   End Function
+
 End Module