Kollisionserkennung mit 2 GraphicsPath

  • VB.NET

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

    Kollisionserkennung mit 2 GraphicsPath

    Hallo Leute,

    ich möchte 2 Objekte die freie Konturen sind aufeinander zu bewegen lassen und bei der Kollision soll die Bewegung unterbrochen werden und mir der X und Y Wert geliefert werden.
    Habe im iNet was mit Region erstellen gefunden.

    Die Abfrage der Kollision funktioniert leider nicht so:

    VB.NET-Quellcode

    1. Dim rgn As New Region(myPath)
    2. Dim rgn1 As New Region(myPath1)
    4. If rgn.Intersect(rgn1) = True Then
    5. Timer1.Stop()
    6. MessageBox.Show("X: " & x & " Y:" & y & "X1: " & x1 & " Y1:" & y1)
    7. End If


    Bekomme bei rgn.Intersect(rgn1) einen Fehler. ;(
    Auch wenn ich für rgn1 ---> myPath1 einfüge.

    Bitte helft mir. Wie kann ich das machen, das es funktioniert

    Hier mein kompletter Code:

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Imports System.Drawing.Drawing2D
    3. Public Class Form1
    5. Dim x As Integer = 10
    6. Dim y As Integer = 10
    7. Dim x1 As Integer = 10
    8. Dim y1 As Integer = 10
    10. Private Sub Form1_Load(sender As Object, e As System.EventArgs) Handles Me.Load
    12. End Sub
    14. Private Sub Form1_Paint(sender As Object, e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
    16. Dim myPath As New GraphicsPath
    17. myPath.StartFigure()
    18. myPath.AddLine(0, 0, 0, 20)
    19. myPath.AddLine(0, 20, 20, 20)
    20. myPath.AddLine(20, 20, 20, 0)
    22. Dim translateMatrix As New Matrix
    23. translateMatrix.Translate(x, y)
    24. myPath.Transform(translateMatrix)
    27. Dim myPath1 As New GraphicsPath
    28. myPath1.StartFigure()
    29. myPath1.AddLine(100, 0, 100, 20)
    30. myPath1.AddLine(100, 20, 120, 20)
    31. myPath1.AddLine(120, 20, 120, 0)
    33. Dim translateMatrix1 As New Matrix
    34. translateMatrix1.Translate(x1, y1)
    35. myPath1.Transform(translateMatrix1)
    38. e.Graphics.DrawPath(New Pen(Color.Red, 2), myPath)
    39. e.Graphics.DrawPath(New Pen(Color.Black, 2), myPath1)
    41. Dim rgn As New Region(myPath)
    42. Dim rgn1 As New Region(myPath1)
    44. If rgn.Intersect(rgn1) = True Then
    45. Timer1.Stop()
    46. MessageBox.Show("X: " & x & " Y:" & y & "X1: " & x1 & " Y1:" & y1)
    47. End If
    49. End Sub
    51. Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
    53. x += 1
    54. y += 1
    56. x1 -= 1
    57. y1 += 1
    59. Me.Invalidate()
    61. End Sub
    62. End Class



    Vielen Dank im vorraus

    :thumbsup:

    Vorsicht, Intersect <> IntersectsWidth! Intersect führt keine Abfrage auf Überschneidung durch, sondern bildet die Schnittmenge.
    Ich denke aber, sowohl Region alsauch GraphicsPath sind nicht das, was du suchst. Es gibt zwar IsVisible, das funktioniert aber nur mit Punkten und Rechtecken, nicht mit anderen Regions/Graphicspaths. Du musst die Kollisionserkennung also anderweitig realisieren. Ich hab schon mal ne Mathematiklib geschrieben, die pixelgenaue Kollisionserkennung für beliebige konvexe Polygone unterstützt: [OpenSource] MathUtils 2.4.2 - erweiterte Mathematikbibliothek

    Hallo Artentus,

    ich blick bei C# leider nicht durch.

    Gibt es keine "einfache" Lösung für eine Kollisionsabfrage.

    So nach dem Motto:
    Schiebe freie Konturen aus ListOf von Linien und Bögen in einen Path oder was auch immer,
    bewege sie über einen Timer aufeinander zu und wenn irgendwo eine Schnittmenge vorkommt stoppen und positionen ausgeben ?

    Danke ;)

    Du musst das ja nichtmal verstehen, ist sowieso einiges an komplizierter Mathematik involviert, da würde VB vermutlich auch nicht viel ändern. Du hast einfach zwei Polygone (die können übrigens nur aus Linien bestehen, Bögen musst du annähern), und dann kannst du sie mittelst IntersectsWidth auf Überschneidung prüfen. Dabei bekommst du auch gleich noch den MinimumTranslationVector.

    Falls es dir hilft: codeconverter.sharpdevelop.net/SnippetConverter.aspx

    Danke für Deine Antwort.

    Die Kontur enhält auch Kreisbögen... diese wird aus einem DXF File erzeugt.
    Was meinst du mit annähern?

    Ich muss praktisch ein modelliertes Werkzeug (andere Kontur) in der waagerechten auf die kontur zum abspanen bewegen und bei Kontakt soll die Bewegung stoppen und mir die Koordianten liefern.
    Beim nächst höheren Y-Wert das gleiche.
    Kannst du mir bitte einen Ansatz das ich das Prinzip verstehe geben?!

    Besten Dank im vorraus.

    Naja, ein Polygon besteht halt per Definition nur aus Ecken und geraden Kanten. Außerdem ist es mathematisch gesehen enorm schwer, runde Figuren auf Überschneidung zu prüfen.
    Mit Annähern meine ich, dass du runde Segmente aus vielen kleinen geraden Segmenten zusammensetzt. Du musst nichtmal besonders genau werden, schon ab einem vergleichsweise niedrigen Detailgrad lässt sich die Annäherung mit dem Auge nicht mehr vom ursprünglichen Bogen unterscheiden. Afaik wird das überall so gemacht, weils eben enorm viel leichter ist.

    Ich hab keine Ahnung, was du vorhast, aber wenn du zwei Polygone hast, dann prüfst du sie einfach mit bool Polygon1.IntersectsWith(Polygon2, out mvt) auf Überschneidung.

    Als Anhang ein Beispiel:

    Das rosa gefärbte ist die eine Kontur. Der Blaue Zacken ist das Werkzeug.
    Wenn eine Kollision zwischen beiden vorkommt soll wie gesagt die Simulation beendet werden und mir die X und Y Werte des sich bewegenden Werkzeugs ausgegeben werden.

    Hast du mein Vorhaben verstanden ? 8o
    Bilder

    • Cut.jpg

      5,27 kB, 276×214, 208 mal angesehen

    Ja, passt doch.
    Ich hab dir oben gezeigt, wie du zwei Polygone auf Kollision prüfen kannst. Den Rest wirst du wohl besser wissen, als ich, du kennst deinen Code am besten. Grundsätzlich gehts halt:
    Werkzeug wird bewegt -> Werkzeug auf Kollision prüfen -> Wenn Kollision vorhanden, anhalten und Koordinaten des Werkzeugs in die Ausgabe (oder wo auch immer) schreiben

    Wie gesagt, es muss nicht zu genau sein.Du hast am Computer nur ganze Pixel, wenn das Polygon also 0.1 Pixel daneben liegt, dann siehst du genau null Unterschied.

    Alternativ kannst du auch Pixelkollision ausprobieren, wenn das hier nicht funktioniert:
    [C#] [SourceCode] Pixelgenaue Kollisionserkennung mit Laufzeit O(1) Version 1.1
    Dafür musst du dir aber ne Schwarz-Weiß-Maske erstellen und büßt einiges an Performance ein, deswegen wäre sowas nur meine zweite Wahl.

    Hi,

    da mich das auch ein wenig interessiert, hab ich mal geguggt was sich da machen lässt. Es lassen sich mühelos Regionen auf Kollision prüfen, hab da auch was hinbekommen.

    VB.NET-Quellcode

    1. Imports System.Drawing.Drawing2D
    3. Public Class Form1
    5. Private GP As New GraphicsPath
    7. Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    8. GP.AddLine(New Point(10, 10), New Point(100, 10))
    9. GP.AddLine(New Point(100, 10), New Point(10, 100))
    10. GP.AddLine(New Point(10, 100), New Point(10, 10))
    11. GP.CloseFigure()
    12. End Sub
    14. Private Sub Form1_MouseMove(sender As Object, e As MouseEventArgs) Handles Me.MouseMove
    15. Dim MRect As New Rectangle(e.X, e.Y, 1, 1)
    16. Using MPath As New GraphicsPath
    17. MPath.AddRectangle(MRect)
    18. Using MRegion As New Region(MPath)
    19. Using GpREgion As New Region(GP)
    20. MRegion.Intersect(GpREgion)
    21. If MRegion.GetRegionScans(New Matrix(1, 0, 0, 1, 0, 0)).Length > 0 Then
    22. Me.Text = MRegion.GetRegionScans(New Matrix(1, 0, 0, 1, 0, 0)).First.ToString
    23. Else
    24. Me.Text = "NO HIT"
    25. End If
    26. End Using
    27. End Using
    28. End Using
    29. End Sub
    31. Private Sub Form1_Paint(sender As Object, e As PaintEventArgs) Handles Me.Paint
    32. e.Graphics.FillPath(Brushes.Black, GP)
    33. End Sub
    35. End Class


    damit müsstest du dein vorhaben umsetzen können,
    mfG

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Derfuhr“ ()

    Jo, an sonen Hack hab ich nicht gedacht. :P
    Dir muss aber klar sein, dass ein Graphicspath (und damit auch eine daraus erstellte Region) auch einfach auf Annäherungen basiert, weil das zeug wird ja auch gerastert. Also an Genauigkeit gewinnst du damit nichts gegenüber meinen beiden Methoden, es ist aber einfacher und darauf kommt es ja an. :thumbup:

    majachen99 schrieb:

    Hast du mein Vorhaben verstanden ?
    Ist das das, was ich iwann mal "Abformung" genannt habe?
    Ein Tastschnittgerät fährt über eine rauhe Oberfläche oder so was ähnliches?
    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!

    Hallo Leute,

    erstmal nochmal Danke für die Hilfe :thumbsup:

    Mit der Lösung von @Derfuhr bin ich schon weit gekommen und er macht eigentlich optisch fast was er soll.
    Die Spitze gleitet die Kontur entlang und beim Crasht bleibt sie mit Fehlermeldung stehen.

    Die jetztige optische Lösung (über Grafische Kollision errechnen lassen) ist doch zu ungenau.
    Bei den Schnittstellen von Eement zu Element bleibt das Werkzeug auch oft stehen, obwohl da alles i.O. ist.
    - Ist Displayvergrößerungsabhängig / Maßstab / Pixel
    Wenn ich den Maßstab ändere geht er dann wieder an der gleichen Stelle durch. ?(

    Das muß ich irgendwie anders machen.
    Ich kanns mir nur so vorstellen, das ich die komplette Kontur mit Linien und Radien in 0,001mm in X und Y rastere und irgendwo in einen Speicher reinschiebe.
    Das Gleiche dann mit der Werkzeugkontur und dann irgenwie aufeinander los lasse und in der Simulation nur die berechneten Wege fahre, nur wie ? ?(

    @RodFromGermany: sowas ähnliches


    Oder fällt euch etwas besseres ein ?


    Wie immer Besten Dank für die Mühe :rolleyes:

Facebook
Telefonspende