Area3D Example
Examples:
l Face
l Surface
Sub Example_Area3D_Face()
' This example returns the Area3D value for the
' first Face in the collection.
Dim face As AeccFace
Dim surf As AeccSurface
Set surf = AeccApplication.ActiveProject.Surfaces.Item(0)
Set face = surf.Outputs.Faces.Item(0)
MsgBox "The Area3D value is " & face.Area3D, vbInformation, "Area3D Example"
End Sub
Sub Example_Area3D_Surface()
' This example returns the Area3D for the first surface in the collection.
Dim surf As AeccSurface
Set surf = AeccApplication.ActiveProject.Surfaces.Item(0)
MsgBox "The Area3D for the first surface is " & surf.Area3D, vbInformation, "Area3D Example"
End Sub