| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| |
| PNY bietet das umfangreichste Ökosystem von B2B als auch B2C-Lösungen für IT-Akteure auf dem Markt, eine Pressemitteilung
|
Autor
|
Thema: Zeichenrichtung einer Polylinie (2463 mal gelesen)
|
Benny4 Mitglied Softwareentwickler
Beiträge: 178 Registriert: 16.02.2006 AutoCAD 2010 ZW-CAD 2012
|
erstellt am: 30. Mai. 2007 16:05 <-- editieren / zitieren --> Unities abgeben:
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 |
Jonapap Mitglied
Beiträge: 206 Registriert: 18.08.2006
|
erstellt am: 31. Mai. 2007 18:42 <-- editieren / zitieren --> Unities abgeben: Nur für Benny4
|
Jonapap Mitglied
Beiträge: 206 Registriert: 18.08.2006 ACAD 13 bis 2012 Accurender4 IMOS 9 Rhinoceros 4&5beta Mastercam X5
|
erstellt am: 31. Mai. 2007 18:47 <-- editieren / zitieren --> Unities abgeben: Nur für Benny4
|
CAD-Huebner Ehrenmitglied V.I.P. h.c. Verm.- Ing., ATC-Trainer
Beiträge: 9803 Registriert: 01.12.2003 AutoCAD 2.5 - 2022, LDD, MDT, RD, ADT, Civil Inventor AIP 4-11, 2008 -2022 Win 10
|
erstellt am: 31. Mai. 2007 20:24 <-- editieren / zitieren --> Unities abgeben: Nur für Benny4
|
Stelli1 Moderator Verm.-Ing.
Beiträge: 1526 Registriert: 17.08.2005 Map 2000-2014, Rasterdesign, MapGuide, Autodesk Topobase, VS6, VS.net 2013
|
erstellt am: 01. Jun. 2007 20:00 <-- editieren / zitieren --> Unities abgeben: Nur für Benny4
|
Benny4 Mitglied Softwareentwickler
Beiträge: 178 Registriert: 16.02.2006 AutoCAD 2010 ZW-CAD 2012
|
erstellt am: 05. Jun. 2007 09:09 <-- editieren / zitieren --> Unities abgeben:
|
Soldnerkugel Mitglied
Beiträge: 131 Registriert: 29.01.2010 Win 7, AutoCAD Civil 3D 2015, SketchUp, CarlsonSurvCE
|
erstellt am: 27. Sep. 2011 12:14 <-- editieren / zitieren --> Unities abgeben: Nur für Benny4
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 |
Stelli1 Moderator Verm.-Ing.
Beiträge: 1526 Registriert: 17.08.2005 Map 2000-2014, Rasterdesign, MapGuide, Autodesk Topobase, VS6, VS.net 2013
|
erstellt am: 27. Sep. 2011 15:56 <-- editieren / zitieren --> Unities abgeben: Nur für Benny4
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 |
Soldnerkugel Mitglied
Beiträge: 131 Registriert: 29.01.2010 Win 7, AutoCAD Civil 3D 2015, SketchUp, CarlsonSurvCE
|
erstellt am: 27. Sep. 2011 16:17 <-- editieren / zitieren --> Unities abgeben: Nur für Benny4
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 |