| | | Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
Autor
|
Thema: Gesamtlaenge von. Linien/3D-Polylinien (5739 mal gelesen)
|
Walter Zettlitzer Mitglied Dipl.-Ing (FH)
Beiträge: 228 Registriert: 25.07.2002 WIN 2000, WINXP, ACAD 2002, ACAD 2004, Appl. ProStahl 3D
|
erstellt am: 30. Sep. 2002 17:29 <-- editieren / zitieren --> Unities abgeben:
Hallo, ich habe in einer Zeichnung viele 3D-Polylinien, deren aufsummierte Gesamtlänge ich benötige. Auch gut wäre eine Möglichkeit, alle Längen beliebiger gewählter Linien aufzuaddieren. Hat hier jemand zufällig was geschrieben? Danke, Walter
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Brischke Moderator CAD on demand GmbH
Beiträge: 4171 Registriert: 17.05.2001 AutoCAD 20XX, defun-tools (d-tools.eu)
|
erstellt am: 30. Sep. 2002 20:14 <-- editieren / zitieren --> Unities abgeben: Nur für Walter Zettlitzer
Hallo Walter, habe mich mal kurz drangemacht. Im folgenden das Ergebnis: (defun c:pll (/ as elemli plangli z) (setq as (ssget "_X" (list '(-4 . "<and") '(0 . "POLYLINE") '(-4 . "and>") ) ) ) (if as (setq elemli (bau_elemli as) z 0)) (if elemli (progn (mapcar '(lambda (LA) (setq z (1+ z)) (terpri) (princ (strcat "Linie "(itoa z)":\t")) (princ LA) );lambda (setq plangli (mapcar '(lambda (plli / ptlist pt1 pt2 langli plli pllid vert vertd) (setq pllid (entget plli) vert plli ) (while (and (setq vert (entnext vert)) (/= (cdr (assoc 0 (setq vertd (entget vert)))) "SEQEND") ) (setq ptlist (cons (cdr (assoc 10 vertd)) ptlist)) );while (setq pt2 (car ptlist)) (repeat (length (setq ptlist (cdr ptlist))) (setq pt1 pt2 pt2 (car ptlist) ptlist (cdr ptlist) langli (cons (distance pt1 pt2) langli) ) );repeat (apply '+ langli) );lambda elemli );mapcar );setq plangli );mapcar (terpri) (princ "Gesamt:\t") (princ (apply '+ plangli)) (princ) );progn );if ) (defun bau_elemli (asatz / n elemli) (setq n 0) (repeat (sslength asatz) (setq elemli(cons (ssname asatz n) elemli) n (1+ n)) ) elemli )
Bei Fragen...
Grüße Holger ------------------ Holger Brischke CADlon Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Walter Zettlitzer Mitglied Dipl.-Ing (FH)
Beiträge: 228 Registriert: 25.07.2002 WIN 2000, WINXP, ACAD 2002, ACAD 2004, Appl. ProStahl 3D
|
erstellt am: 01. Okt. 2002 09:13 <-- editieren / zitieren --> Unities abgeben:
|
Matthias100 Mitglied Dipl. Ing. (Fh) Landschaftsarchitektur
Beiträge: 158 Registriert: 16.11.2004
|
erstellt am: 30. Mrz. 2005 11:35 <-- editieren / zitieren --> Unities abgeben: Nur für Walter Zettlitzer
Hallo walter, ich weis dein Beitrag ist schion 2 Jahre alt, aber geht das auch für die Längenermittlung von normalen Polylinien? Ich muß oft die länge an einer Kurvenstrecke messen und helfe mir immer dabei mit kreisen, die ich aneinander addiere. Dabei habe ich nur den ungefähren Längenwert heraus. LG
Matthias Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Walter Zettlitzer Mitglied Dipl.-Ing (FH)
Beiträge: 228 Registriert: 25.07.2002 WIN 2000, WINXP, ACAD 2002, ACAD 2004, Appl. ProStahl 3D
|
erstellt am: 30. Mrz. 2005 13:17 <-- editieren / zitieren --> Unities abgeben:
|
| Anzeige.:
Anzeige: (Infos zum Werbeplatz >>)
|