Auslesen von CNC Texten

  • VB.NET

Es gibt 12 Antworten in diesem Thema. Der letzte Beitrag () ist von RodFromGermany.

    Auslesen von CNC Texten

    Hallo zusammen

    Wie schon in der Überschrift genannt möchte ich einen CNC Text Auslesen. Um genauer zu sein die Fräser darin.
    Es soll ein Programm werden das CNC Texte einliest und die Fräser anzeigt. Als weiteres Feature sollen die einzelnen Fräser als Button (oder anderes) Dargestellt werden um sie "wegklicken zu können".

    Da ich noch Anfänger (kein totaler) bin komm ich schon recht früh nicht mehr weiter. Als Anhang liegt ein CNC Text bei.
    Der CNC text liegt als .txt Datei vor.

    So nun zu meinem Problem. Wie kann ich nun die einzelnen Fräser Positionen die ja mit "WER" gegenzeichnet sind auslesen und diese Anzeigen.
    Wenn dies Funktioniert wie kann ich, wenn ein zweiter CNC text besteht, diese beiden vergleichen und alle Fräser anzeigen (also von beiden Texten) aber ohne das einer Doppelt genannt wird.
    Und als Dritte Frage wie kann ich nun für jede einzelne Werkzeugnummer ein Button (oder Anderes) erzeugen um sie "wegzuklicken"

    Danke schon mal für alle Antworten
    Dateien

    • CNCText.txt

      (321,35 kB, 313 mal heruntergeladen, zuletzt: )

    Hey

    zu 1) du kannst mit einem stringreader jede zeile leile durchspricnge und vergleiche ob diese "WER " enthält (auchtung das leerzeichen ist wichtig) und diese dann herausschneiden

    zu 2) du kannst erst die eine datei auslesen und dann die zewite und über brüfst ob in zb der list of Variable die werkzeugnummer schon existiert

    zu 3) Button zur laufzeit kannst du mit

    VB.NET-Quellcode

    1. Dim cmd As New Button
    2. cmd.name="cmd"
    3. Form1.controls.add(cmd)


    hinzufügen

    lg papst94

    Hey,

    was bedeutet denn die Zahl nach dem Wort "WER". Ist das die Position oder die Bezeichnung des Fräsers? Was willst Du genau damit bezwecken, wenn Du schreibst: "Ich will die Buttons wegklicken"....
    Die Unendlichkeit ist weit. Vor allem gegen Ende. ?(
    Manche Menschen sind gar nicht dumm. Sie haben nur Pech beim Denken. 8o

    Danke schon mal für den Tipp. Das Auslesen funktioniert schon mal.

    Die Zahl nach dem Wort "WER" ist die Platzbelegung vom Fräser in der Fräsmaschine diesen möchte ich auslesen.
    Um das zu Verstehen muss ich noch was dazu sagen.
    Bevor ich das CNCProgramm "laufen lasse" muss ich alle Fräser anschauen ob diese noch in Ordnung sind.
    Dieses Programm soll mir ersparen jeden CNC text zu öffnen und die Fräser raus zuschreiben.
    Da ich ja schlecht die Fräser auf einem Bildschirm abstreichen kann dachte ich an Buttons die nach betätigen verschwinden.
    Natürlich bin ich für alles offen. Es müssen keine Buttons sein. Es muss einfach Irgendwie ersichtlich sein das der Fräser kontrolliert wurde.

    lg Pixxel

    Hey, finde Dein Vorhaben gut.

    Hier ein Codebeispiel, wie man es machen kann. Beachte die Kommentare im Code. Das Interpretieren der Zeile kann man optimieren, war nur auf die Schnelle. Bin auch nicht sonderlich achtsam, wenn es um sowas geht. Bei Fragen, meld Dich einfach.

    VB.NET-Quellcode

    1. Imports System.IO
    3. Public Class Form1
    4. Private _listFraesers As New List(Of Fraeser)
    6. Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    7. Dim fileName As String = ""
    9. 'CNCText-Datei öffnen. Dies nur als Beispiel.
    10. Using oFD As New OpenFileDialog
    11. If oFD.ShowDialog() = Windows.Forms.DialogResult.OK Then
    12. fileName = oFD.FileName
    13. Else
    14. Application.Exit()
    15. End If
    16. End Using
    18. 'List, die die gesamte TextDatei aufnimmt.
    19. Dim input As New List(Of String)
    21. 'Text in Liste einlesen.
    22. input.AddRange(File.ReadAllLines(fileName))
    23. 'Jeden Eintrag in der Liste durchgehen.
    24. input.ForEach(Sub(s)
    25. 'Wenn eine Zeile, "(WER" enthält, dann..
    26. If s.Contains("(WER") Then
    27. 'Neuen Fräser erzeugen.
    28. Dim f As New Fraeser(s)
    29. 'Prüfen, ob der Fräser schon existiert.
    30. Dim result As Integer = _listFraesers.Where(Function(f1) f1.Position = f.Position).Count
    32. 'Wenn der Fräser nicht existiert, dann....
    33. If result = 0 Then
    34. 'Fräser in die Liste aufnehmen.
    35. _listFraesers.Add(f)
    36. 'Event abonieren, wenn der Button geklickt wurde...
    37. AddHandler f.FraeserChecked, AddressOf Fraeser_Checked
    38. End If
    39. End If
    40. End Sub)
    42. 'Liste von Fräser nach Position sortieren, falls erforderlich...
    43. _listFraesers.Sort(Function(f1, f2) f1.Position.CompareTo(f2.Position))
    44. 'Fräserbutton anzeigen. Hier im Flowlayoutpanel, so muss man sich nicht um die Positionierung kümmern.
    45. _listFraesers.ForEach(Sub(f1)
    46. FlowLayoutPanel1.Controls.Add(f1.FraeserButton)
    47. End Sub)
    48. End Sub
    50. 'Wird ausgeführt, wenn auf einen Fräserbutton geklickt wurde.
    51. Private Sub Fraeser_Checked(sender As Object, e As EventArgs)
    52. Dim f As Fraeser = DirectCast(sender, Fraeser)
    54. _listFraesers.Remove(f)
    55. FlowLayoutPanel1.Controls.Remove(f.FraeserButton)
    56. End Sub
    57. End Class
    59. Public Class Fraeser
    60. Public Property Position As Integer
    61. Public Property FraeserButton As Button
    63. Public Event FraeserChecked As EventHandler
    65. Public Sub New(ByVal line As String)
    66. 'Zeile interpretieren. Hier kann man viel optimieren, nur als schnelles Beispiel.
    67. Me.Position = Integer.Parse(line.Split(";"c)(1).Split(New Char() {" "c}, StringSplitOptions.RemoveEmptyEntries)(1).Replace(")", ""))
    68. Me.FraeserButton = New Button With {.Text = Me.Position.ToString()}
    69. AddHandler Me.FraeserButton.Click, AddressOf FraeserButton_Click
    70. End Sub
    72. Protected Overridable Sub OnFraeserChecked()
    73. RaiseEvent FraeserChecked(Me, EventArgs.Empty)
    74. End Sub
    76. Private Sub FraeserButton_Click(sender As Object, e As EventArgs)
    77. OnFraeserChecked()
    78. End Sub
    79. End Class
    Die Unendlichkeit ist weit. Vor allem gegen Ende. ?(
    Manche Menschen sind gar nicht dumm. Sie haben nur Pech beim Denken. 8o

    Hallo pixxel46,

    Hoppala, viele Linkskurven hier :D

    @SpaceyX: irgendwie beides. Beim Werkzeugwechsel wird das Werkzeug über den Index aufgerufen. Dabei werden am Anfang eventuelle Korrekturen (Radiusverringerungen durch z.B. Verschleiss) miteingegeben, damit der Verfahrweg neu berechnet werden kann.

    Ich habe mal 'ne Funktion dazu geschrieben:

    VB.NET-Quellcode

    1. Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    2. Dim a As String = ""
    3. For Each i As Integer In GetTools("C:\Users\Raphael\Documents\CNCText.txt", "C:\Users\Raphael\Documents\CNCText.txt")
    4. 'Hab' aus Faulheit zweimal die gleiche Datei genommen :D
    5. a &= i & vbCr
    6. Next
    7. MsgBox(a)
    8. End Sub
    10. Private Function GetTools(PathA As String, PathB As String) As List(Of Integer)
    11. Dim ListA As New List(Of Integer)
    12. For Each Line As String In IO.File.ReadAllLines(PathA)
    13. If Line.Contains(" ;(WER ") Then
    14. ListA.Add(CInt(Line.Substring(Line.IndexOf(" ;(WER ") + " ;(WER ".Length, 2)))
    15. End If
    16. Next
    17. Dim ListB As New List(Of Integer)
    18. For Each Line As String In IO.File.ReadAllLines(PathB)
    19. If Line.Contains(" ;(WER ") Then
    20. ListB.Add(CInt(Line.Substring(Line.IndexOf(" ;(WER ") + " ;(WER ".Length, 2)))
    21. End If
    22. Next
    23. Return New List(Of Integer)(ListA.Distinct.Concat(ListB.Distinct.Except(ListA.Distinct)).ToArray)
    24. End Function


    Hat beim Test funktioniert :D

    Bei Fehlern bitte melden.

    EDIT: War ein bisschen zu langsam.. Ich poste's jetzt aber trotzdem...

    ich verstehe vom Text nur Bahnhof, und dasses sich um reichhaltige, komplexe und vlt. auch miteinander verknüpfte Informationen handelt.
    Imo muß mal wieder ein Datenmodell her, was die Realität einer Cnc-Maschine modelliert, und da muß das Zeugs eingelesen werden.

    Danach hat man mächtige Möglichkeiten, um die Daten zu präsentieren.

    Danke schon mal für die vielen Lösungen.

    @SpaceyX
    Fragen hab ich allemal. :P Da ich noch Anfänger bin in VB sieht das recht Kompliziert aus.
    Seh ich das Richtig. Du liest das komplette File ein und liest es Zeilenweise aus. Wenn dann in einer Zeile "WER" vorkommt Speichert er die komplette Zeile ab in Var. "f". Die Zeile wird überprüft ob sie schon vorhanden ist in "_listFräser". Wenn Ja dann macht er nix. Wenn Nein schreibt er es zu der Liste hinzu und generiert einen neuen Button in der Listbox.
    Ich hoff das war jetzt richtig so.

    Und jetzt noch zu einer spezifischen Frage. Wie kann man die Größe der Buttons änder die erstellt wurden.

    VB.NET-Quellcode

    1. Me.FraeserButton = New Button With {.Text = Me.Position.ToString()}

    Ich tipp mal drauf das man es dort dahinter schreiben kann. :)

    Jep, das ganze File wird wird in eine List(Of String) eingelesen. Das ist aber nicht unbedingt erforderlich. Du kannst hier auch mit einem StreamReader rangehen und das File Zeile für Zeile durchgehen. Ist das File eingelesen, so wird jede Zeile, durchgegangen und geprüft, ob sich "(WER" im Text befindet.

    Wird "(WER" gefunden, wird eine Instanz der Klasse Fraeser erzeugt. Diese soll ganz primitiv einen Fraeser darstellen. Die Sub New in der Fraeser-Klasse übernimmt die Zeile, in der "(WER" gefunden wurde und liest die geforderte Information (hier die Position, wenn ich Dich richtig verstanden habe) aus. Diese wird dann in einer Property gespeichert. Ebenfalls wird in der Sub New der Button generiert, den Du ja angezeigt haben willst. Dieser wird auch mit einem EventHandler verbunden (Click). Dieses Ereignis wird dann zur Form durchgereicht und der Button aus der Form entfernt (War ja Deine Anforderung). Durch die Property Position wird geprüft, ob sich dieser Fraeser schon in der Auflistung befindet. Wenn nein, wird er hinzugefügt, wenn ja einfach übergangen.

    VB.NET-Quellcode

    1. Me.FraeserButton = New Button With {.Text = Me.Position.ToString(), .Size = New Size(200, 20)}


    Die Size-Property kannst Du durch ein Komma getrennt, gefolgt von einem . setzen.
    Die Unendlichkeit ist weit. Vor allem gegen Ende. ?(
    Manche Menschen sind gar nicht dumm. Sie haben nur Pech beim Denken. 8o

    pixxel46 schrieb:

    Programm Funktioniert!!
    Hoffentlich länger als eine Woche.
    Diese Scripte werden doch von iwelchen CAD-Maschinen oder so generiert.
    Stelle sicher, dass das, was Du geändert hast, in der CAD-Maschine genau so ankommt, wie Du es Dir gedacht hast :!:
    Möglicherweise speichert die CAD-Maschine noch weitere Daten zu diesem File und dann sind sie ggf. nicht mehr kompatibel.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Er will ja die Werkzeuge vor Inbetriebnahme nur prüfen und ggf. ersetzen. Darum das Ganze. Er liest den Quelltext aus, holt sich die Fräser, diese werden als Button dargestellt, er prüft sie, nach Überprüfung wird auf den Button geklickt, der Button verschwindet. Ist nur eine Hilfestellung für ihn, damit er weiß, welche Werkzeuge er schon geprüft hat. Da wird nichts zurückgeschrieben oder sonst was.
    Die Unendlichkeit ist weit. Vor allem gegen Ende. ?(
    Manche Menschen sind gar nicht dumm. Sie haben nur Pech beim Denken. 8o

    SpaceyX schrieb:

    und ggf. ersetzen

    RodFromGermany schrieb:

    Möglicherweise speichert die CAD-Maschine noch weitere Daten zu diesem File
    Darum das Ganze.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

Facebook
Telefonspende