Wie bekomme ich die Fläche jeder geschlossenen Polylinie in einer AutoCAD-Zeichnung?

Was cadssistant tut

1. Wählt die geschlossenen LWPOLYLINEs auf dem Layer aus: (0 . "LWPOLYLINE") mit dem Geschlossen-Bit von Gruppe 70, geprüft über einen (-4 . "&")-Filter.
2. Liest jede Fläche mit vlax-curve-getArea in einem AutoLISP-Durchgang und rechnet sie mit dem Faktor um, den die Zeichnungseinheiten nahelegen (1 Einheit = 1 mm ergibt ÷ 1 000 000); den Faktor nennt es in der Antwort.
3. Antwortet mit einer Tabelle aus Handle und Fläche plus Summe.

Dieselbe Aufgabe in AutoLISP

(progn
  (vl-load-com)
  (setq ss (ssget "_X" '((0 . "LWPOLYLINE") (8 . "A-AREA") (-4 . "&") (70 . 1)))
        i 0 rows nil)
  (if ss
    (repeat (sslength ss)
      (setq e (ssname ss i) i (1+ i))
      (setq rows (cons (list (cdr (assoc 5 (entget e))) (/ (vlax-curve-getArea e) 1e6)) rows))))
  rows)

Handle und Fläche in m² für eine Zeichnung in Millimetern. Nehmen Sie 1e4 für Zentimeter oder lassen Sie die Division für Meter weg.

Gut zu wissen

• Eine Kontur aus einzelnen Linien ist keine geschlossene Polylinie. Sagen Sie „verbinde zuerst die Linien auf A-AREA zu Polylinien“, dann läuft vor dem Messen PEDIT mit Verbinden.

Mehr aus „Zählen und messen“

• Wie zähle ich alle Kreise in einer AutoCAD-Zeichnung?
• Wie zähle ich Blöcke nach Namen in AutoCAD?
• Wie bekomme ich die Gesamtlänge aller Linien und Polylinien auf einem Layer in AutoCAD?
• Wie liste ich alle Layer einer AutoCAD-Zeichnung mit der Anzahl der Objekte darauf?