---

Hi,
dann stell ich mich mal kurz vor: bin Bautechnikerin beim Hafen und arbeite schon seit einigen Jahren mit Autocad, im Moment eher reduziert als Anwender, daher bin ich vielleicht auch nicht mehr so auf dem laufenden und stell jetzt eine Frage, die Ihr vielleicht schon öffters gelesen habt, habe aber per suche nichts passendes gefunden, folgendes: (defun c:Oblength (/ ename vlaxObj)wäre richtig gut, wenn ich mehrer Polylinien auswählen könnte und dann eine Gesamtlänge bekomme.
Erfahrungen mit LISP Programmierung habe ich leider nicht...
Vielleicht gibt es ja doch schon was.
Vielen Dank
Heike

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

---

guck mal hier ...geht auch mit PL und anderen Kurven

------------------
  - Thomas -
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

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

---

Hallo Heike,
und hier nochmal ein Gedankenansatz:

Code:

---

(defun c:PolyL ( / AWS L N)
  (if (setq aws (ssget '((0 . "POLYLINE,LWPOLYLINE"))))
    (progn
      (setq n 0
            l 0.0)
      (repeat (sslength aws)
        (setq l (+ (vla-get-Length
                    (vlax-ename->vla-object
                      (ssname aws n)))l)
              n (+ n 1))))
    (alert "Keine Polys ausgewählt."))
  (rtos l 2 4))

---

------------------
viele Grüße

Jörn
http://www.bosse-engineering.com

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

---

Vielen Dank für Eure Hilfe !!!

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