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