MaxFaceArea Example
Sub Example_MaxFaceArea()
' This example returns the MaxFaceArea for the first surface in the collection.
Dim surf As AeccSurface
Set surf = AeccApplication.ActiveProject.Surfaces.Item(0)
MsgBox "The MaxFaceArea for the first surface is: " & Format(surf.MaxFaceArea, "0.00"), _
vbInformation, "MaxFaceArea Example"
End Sub