Volume Example

Land Auto

Volume Example

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