---

Hallo Forum,

wie kann ich mit VBA ermitteln, ob eine vom Benutzer gezeichnete Polylinie nach "rechts" oder nach "links" gezeichnet wurde?

Also ob der Benutzer sie im Uhrziegersinn oder gegen den Uhrzeigersinn gezeichnet hat?

Wichtig ist das für mich, da ich die Polylinie über DXF an ein externes Programm übergebe, und da die Zeichenrichtung sehr wichtig ist.

Danke schon mal für eure Antworten!

------------------
Grüse Benny

[Diese Nachricht wurde von Benny4 am 31. Mai. 2007 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Vielleicht hilft dir das:
http://ww3.cad.de/foren/ubb/Forum145/HTML/001446.shtml#000010

Aber: Wie willst du per dxf-Datei dem anderen Programm mitteilen, ob die PL im Uhrzeigersinn oder gegen den Uhrzeigersinn verläuft?
Das müsste das andere Programm dann schon selbst herausfinden können, denn Start- und Endpunkt der Polylinie stehen ja schließlich fest.

------------------
Gruß
Markus

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Noch ein Link mit Lösungsvorschlägen zur Festlegung der Laufrichtung einer Polylinie:

http://ww3.cad.de/foren/ubb/Forum145/HTML/000338.shtml#000002

------------------
Gruß
Markus

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Noch ein lesenswerter Beitrag zum Thema Drehsinn/Laufrichtung einer Polylinie: http://ww3.cad.de/foren/ubb/Forum145/HTML/001446.shtml#000014

------------------
Mit freundlichem Gruß

Udo Hübner

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Benny,

wenn deine Polylinien einen Fläche bilden kannst du über den Flächeninhalt prüfen ob sie im Uhrzeigersinn (positive Fläche) oder anderes herum laufen.

Stelli

------------------
Warum lisp'eln wenn's auch anders geht.
www.ib-stelberg.de

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo,

danke euch allen.

Werd mmich jetzt dran setzten und eure Vorschläge ausprobieren!

------------------
Grüse Benny

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

hmmm...das mit der positiven bzw. negativen Fläche ist ja echt eine pfiffige Idee, nur habe ich - egal wie herum ich die Polylinie zeichne - immer eine positive Fläche. Das wird wohl autocad-intern vorher schon mla abgefragt und dann das Vz korrigiert. Kann man das irgendwie umgehen?

------------------

http://www.stupidedia.org/stupi/Rechter_Winkel

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Da musst du die Fläche wohl selber rechnen. Hier ein Beispiel bei dem Bögen nicht berücksichtigt werden.
Die sind für die Drehrichtung in der Regel auch unerheblich.

Punkte ist ein globales Array

Code:

---

Public Function gauss_area() As Double
    ' Berechnet die Fläche eines Polygons, das durch
    ' Punktkoordinaten gegeben ist
    ' (Bögen werden nicht berücksichtigt)
    Dim i As Integer
    Dim Area As Double
    Dim xs As Double, ys As Double, xa As Double, ya As Double
     
    xs = punkte(1).Hochwert
    ys = punkte(1).Rechtswert
   
    For i = 1 To Punktanzahl
        xa = punkte(i).Hochwert
        ya = punkte(i).Rechtswert
           
        Area = Area + (ys + ya) * (xs - xa)
           
        xs = xa
        ys = ya
    Next i
     
    ' der letzte Punkt ist wieder der erste Punkt
    xa = punkte(1).Hochwert
    ya = punkte(1).Rechtswert
     
    Area = Area + (ys + ya) * (xs - xa)
     
    ' Rückgabewert
    gauss_area = Area / 2
End Function

---

Wilfried Stelberg

------------------
Warum lisp'eln wenn's auch anders geht.
www.ib-stelberg.de

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Danke für die Info...auch wenn's nicht die ist, die ich wollte.
Die Gauss'sche-Flächenformel kenn' ich, dachte nur, ich könnte das evtl. geschickter lösen, weil's da evtl. schon in VBA was gibt, ist aber wohl leider nicht so :-(

------------------

http://www.stupidedia.org/stupi/Rechter_Winkel

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP