---

Hallo,

ich möchte Teilflächen eines Volumenkörpers ermitteln.
mit:
Sub test()
Dim odoc As Document
Set odoc = ThisApplication.ActiveDocument
Dim oface As Face

For Each oface In odoc.ComponentDefinition.SurfaceBodies(1).Faces

Next

End Sub

laufe ich alle Faces des Körpers durch. Gibt es eine Möglichkeit die Oberfläche zu ermitteln ?

Vielen Dank für Eure Hilfe.

Gruss Pelikan

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

---

Hallo,

habs gefunden.

mit "oFace.Evaluator.Area" wird die Fläche ausgelesen

Gruss Pelikan

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