Area2D Example
Examples:
l Face
l Surface
Sub Example_Area2D_Face()
' This example returns the Area2D 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 Area2D value is " & face.Area2D, vbInformation, "Area2D Example"
End Sub
Sub Example_Area2D_Surface()
' This example returns the Area2D for the first surface in the collection.
Dim surf As AeccSurface
Set surf = AeccApplication.ActiveProject.Surfaces.Item(0)
MsgBox "The Area2d for the first surface is: " & surf.Area2D, vbInformation, "Area2D Example"
End Sub