---

Hallo,
in der Benutzeroberfläche von AutoCAD existiert  ein Befehl: UMGRENZUNG. Dieser legt auf die Begrenzung einer Fläche eine Polylinie. Über das Eigenschaftsfenster dieser geschlossenen Polylinie erhält man den Flächeninhalt. Im Objektkatalog der VBA Umgebung fand ich den Befehl LWPolyline hierzu. Ist das der richtige?

In der AutoCAD - Hilfe gibt es ein Beispiel, dass mir schon mal die Fläche ermittelt.

Sub Example_Area()
    ' This example creates a polyline object and
    ' then uses the area property to find the
    ' area of that polyline.
   
    Dim plineObj As AcadLWPolyline
    Dim points(0 To 5) As Double
    Dim plineArea As Double

    ' Establish the points for the Polyline
    points(0) = 3: points(1) = 7
    points(2) = 9: points(3) = 2
    points(4) = 3: points(5) = 5
   
    ' Create the polyline in model space
    Set plineObj = ThisDrawing.ModelSpace.AddLightWeightPolyline(points)
   
    ' Close the polyline and update display of it
    plineObj.Closed = True
    plineObj.Update
    ZoomAll
   
    ' Get the area of the polyline
    plineArea = plineObj.Area
   
    MsgBox "The area of the new Polyline is: " & plineArea, vbInformation, "Area Example"
End Sub

Mir fehlen für diese unregelmäßige Fläche die Koordinaten. Da wäre dieser Umgrenzungsbefehl ne schöne Sache. Geht das vielleicht mit den Befehlen LWPolyline und plineObj.Area? Wie?

Vielen Dank schon mal vorab für die Hilfe.

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

---

Zitat:

---

Original erstellt von Sagu:
Geht das vielleicht mit den Befehlen LWPolyline und plineObj.Area?

---

Eher nicht. Umgrenzung ist 'n Sub-Befehl der Schraffur. Hierbei handelt es sich um eine recht komplexe Routine zur Auswertung der Displaylist (weswegen der SChraffurbefehl ja auch oft genug kapituliert...).
Wahrscheinlich (ungetestet) müßtest Du den UMGRENZUNG Befehl mit SendCommand über die Befehlszeile jagen...

------------------
Ciao,
Marc
Mein AG sucht u.a. Architekten und Bauzeichner!
Mein alter AG sucht 'nen CADMIN

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

---

Vielen Dank, das hatte ich dann auch als Lösung gedacht. Werde das mal versuchen

Bis dann

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