---

Hallo Zusammen,

ich habe ein Problem bei der Berechnung der Fläche. Ich weiss dieses Thema wurde schon oft behandelt, jedoch konnte mir keine Lösung bisher weiterhelfen.

Ich verwende AutoCAD 2012 und habe einen einzigen Layer in meiner Zeichnung. Ich möchte nun einfach die Gesamtfläche aller Polylinien berechnen. Mit dem Befehl "Fläche", kann ich nur die Fläche einzelner Elemente berechnen. In der AutoCAD Anleitung ist beschrieben, wie man durch addieren und subtrahieren die Gesatmfläche berechnen kann, allerdings kann ich dies bei mir nicht durchführen, da ich 18693 Polylinien auf meinem Layer habe und somit 3 Wochen mit klicken beschäftigt wäre. Den Befehl "Liste" habe ich auch ausprobiert, jedoch zeigt dieser mir von jedem meiner Elemente die Fläche einzeln an und nicht die Gesamtfläche. Die Liste ist somit auch entsprechend lang. Wenn man sie aber komplett exportiert bekommt (wie?) könnte ich sie z.B. mit Matlab durchsuchen und die Flächen addieren.

Wie komme ich also zu meiner Gesamtfläche? Es scheint ja für AutoCAD kein Problem zu sein, die Fläche jedes einzelnen Elements zu berechnen, nur müssten diese noch addiert werden, aber wie?

Ich hoffe ihr könnt mir mit meinem Problem weiterhelfen. Vielen Dank und schöne Grüße.

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

---

Hallo Rocksteady,

anbei mal was ganz altes, quick and dirty für den Eigengebrauch, aber vielleicht hilft Dir das ja weiter.

Code:

---

;  gesflaech.lsp
;  ermitteln der Gesamtfläche von (2D)Polylinien
;  erstellt 09/06 (c) Th.J.
;
;
(defun c:gfl( / summe tl anz x ctl )
  (setq summe 0.0)
  (setq tl (ssget))
  (setq anz (sslength tl))
  (setq x 0)
  (while (< x anz)
    (setq ctl (ssname tl x))
;
;
    (command "_area" "o" ctl)
    (setq summe (+ summe (getvar "area")))
;
;
    (setq x (1+ x))

  ) 
  (print "Summe")
  (print summe)
)

---

HTH
Gruß
Thomas

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

---

Hallo Thomas,

vielen Dank, funktioniert super! Sehr einfach, sehr effektiv.

Schöne Grüße,
Rocksteady

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

---

Hallo Rocksteady,

vielleicht noch ein kleiner Tipp - wobei die LSP schon supi ist:
Kennst du die Datenextraktion von AutoCAD?

Ich nutze sie recht häufig und bin damit auch sehr zufrieden. Was dabei auch recht schön ist: man könnte in deinem Fall mit den Polylinien neben dem Flächeninhalt noch Layernamen, Farbe und die Information mitgeben ob die Polylinie geschlossen ist!
Als Ergebnis erhält man eine Tabelle in der die gewünschen Informationen aufgelistet sind (lässt sich auch nach Excel exportieren).

In diesem Sinne noch einen schönen Tag
chris

------------------
www.Gestalten-mit-AutoCAD.de

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