Area2D Example

Land Auto

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