AverageGrade Example

AverageGrade Example

Sub Example_AverageGrade()

    ' This example returns the Average Grade for the first surface in the collection.

    Dim surf As AeccSurface

    Set surf = AeccApplication.ActiveProject.Surfaces.Item(0)

    MsgBox "The AverageGrade for the first surface is: " & Format(surf.AverageGrade, "0.00\%), _

        vbInformation, "AverageGrade Example"

End Sub