| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| |
| PNY wird von NVIDIA zum Händler des Jahres gewählt – zum dritten Mal in Folge, eine Pressemitteilung
|
Autor
|
Thema: Polylinien Scheitelpunkte (2315 mal gelesen)
|
MARTINLE Mitglied Tischler
Beiträge: 485 Registriert: 18.10.2007 AUTOCAD 2016, MS Windows7, 64-bit
|
erstellt am: 22. Mrz. 2011 16:08 <-- editieren / zitieren --> Unities abgeben:
Hallo Cadgemeinde! Bin am grübeln und hänge an folgender Frage fest: Ich habe eine Polylinie, Länge sagen wir mal 2000mm lang. Dann mach sie eine Richtungsänderung um 90°. Auf dem geraden Teil (2000mm) befinden sich unterschiedlich viele Scheitelpunkte. Durch folgende Funktion von Thomas kann ich einzelne Distanzen zwischen den Scheitelpunkten abfragen. ------- (if(and(setq PL-OBJ(entsel "\nPolyliniensegment wählen : ")) (setq PKT(cadr PL-OBJ)) (setq PL-OBJ (car PL-OBJ)) (setq PL-OBJ(cond ;_ VLA-OBJEKT erzeugen ((=(type PL-OBJ) 'VLA-OBJECT) PL-OBJ) ((=(type PL-OBJ) 'Ename) (vlax-ename->vla-object PL-OBJ)) ) ) (setq PKT (vlax-curve-getClosestPointTo PL-OBJ PKT)) (setq PARAM(vlax-curve-getparamAtPoint PL-OBJ PKT)) (setq PRE(vlax-curve-getpointatparam PL-OBJ (fix PARAM))) (setq SUF(vlax-curve-getpointatparam PL-OBJ (1+(fix PARAM)))) ) ----- Gibt es vieleicht eine ähnliche Funktion um die gesamte Länge vom geraden Teil(ohne Kurfen) mit einem Klick abzufragen? Bitte um Hilfe! lg Martin Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Andreas Kraus Mitglied Elektrotechniker
Beiträge: 1455 Registriert: 11.01.2006 WIN 10 ACAD 2022 BricsCAD V23
|
erstellt am: 22. Mrz. 2011 17:11 <-- editieren / zitieren --> Unities abgeben: Nur für MARTINLE
Hallo Martin, also wenn ich mir das so anschaue steht in PRE und SUF die Start- bzw. Endkoordinate des angeklickten Segments. Da lässt sich ein Winkel ermitteln und dann "blätterst" du in beide Richtungen durch die Segmente bis du einen andern Winkel bekommst oder die Polylinie zuende ist. Aus den Ergebnissen rechnest du dann die Länge aus. ------------------ Geht nicht, gibts nicht Gruß Andreas http://kraus-cad.de Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
MARTINLE Mitglied Tischler
Beiträge: 485 Registriert: 18.10.2007 AUTOCAD 2016, MS Windows7, 64-bit
|
erstellt am: 23. Mrz. 2011 06:29 <-- editieren / zitieren --> Unities abgeben:
|
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 .
|
erstellt am: 23. Mrz. 2011 08:35 <-- editieren / zitieren --> Unities abgeben: Nur für MARTINLE
|
MARTINLE Mitglied Tischler
Beiträge: 485 Registriert: 18.10.2007 AUTOCAD 2016, MS Windows7, 64-bit
|
erstellt am: 23. Mrz. 2011 10:11 <-- editieren / zitieren --> Unities abgeben:
Hallo Thomas! Entschuldige wenn ich mich erst jetzt melde. Danke für deine Hilfe. Dein Programm funktioniert bei einzelnen Polylinien sehr gut. Bei geschlossen Polylinien gibt es eine Fehlermeldung.Bei mir sind es nähmlich alles Rechtecke. Sorry hatte ich nicht erwähnt. Ich suche aber nach einer Lösung in Lisp damit ich die Länge in einer Variable speichern kann. Danke trotzdem!!! lg Martin
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 .
|
erstellt am: 23. Mrz. 2011 10:20 <-- editieren / zitieren --> Unities abgeben: Nur für MARTINLE
|
MARTINLE Mitglied Tischler
Beiträge: 485 Registriert: 18.10.2007 AUTOCAD 2016, MS Windows7, 64-bit
|
erstellt am: 23. Mrz. 2011 10:32 <-- editieren / zitieren --> Unities abgeben:
|
wronzky Ehrenmitglied V.I.P. h.c. CAD-Dienstleistungen für Architekten
Beiträge: 2154 Registriert: 02.05.2005 CAD: AutoCAD 2.6 bis 2014 ADT 2005 - 2014 Arcibem System: Windows 2000, XP, NO VISTA Internet-Startseite: http://www.archi.de
|
erstellt am: 23. Mrz. 2011 14:33 <-- editieren / zitieren --> Unities abgeben: Nur für MARTINLE
|
MARTINLE Mitglied Tischler
Beiträge: 485 Registriert: 18.10.2007 AUTOCAD 2016, MS Windows7, 64-bit
|
erstellt am: 23. Mrz. 2011 16:28 <-- editieren / zitieren --> Unities abgeben:
Hallo Jesse! Danke für deine Idee. Das ist natürlich auch eine Möglichkeit und zwar gar keine Schlechte! Super Info! Wird sicher nicht nur mir weiterhelfen! Danke! Mich hätte nur interessiert wie man in Lisp die Abschnitte zusammenfassen würde bzw. als Alternative wie man die einzelnen Abschnitte zwischen den Stützpunkten nach der Reihe wählen könnte und dann die Gesamtlänge in einer Variable speichert. Danke nochmal! lg Martin Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |