---

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

---

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

---

Hallo Holger,

herzlichen Dank, da hast Du mir einige Arbeit erspart :-)

Walter

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

---

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

---

Hallo Mathias,

wir benutzen ein gutes tool von Holger, welches die Längen aller möglichen gewählten Objekte aufsummiert, neben Linien auch Bögen, Splines, 2D-Polylinien und 3D-Polylinien, zu finden auf
http://ww3.cad.de/foren/ubb/Forum54/HTML/003000.shtml

LG

Walter

[Diese Nachricht wurde von Walter Zettlitzer am 30. Mrz. 2005 editiert.]

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