VBA Code to retrieve the surface area of a solid body for writing to excel

[RemiS]

Hi Everybody,

 

Via the command area it is possible to retrieve the surface area of a solid body (Acad3DSolid). Unfortunately the area it is not a property of a solid body so I'm haveing difficulties retrieving the surface area (which I want to write to an excel file).

I've tried to explode the solid which results in several regions and surfaces. Unfortunately only the regions have an area; the (curved) surfaces don't.

Anybody suggestions how to get the area of some solids useing VBA?

 

Looking forward to the suggestions!