Normal Example
Sub Example_Normal()
' This example returns the normal value for the
' first face item in the collection.
Dim surf As AeccSurface
Dim face As AeccFace
Set surf = AeccApplication.ActiveProject.Surfaces.Item(0)
Set face = surf.Outputs.Faces.Item(0)
Dim norm As Variant
norm = face.Normal
MsgBox "The Normal value for the first Face is " & norm(0) & ", " & norm(1) & ", " & norm(2), _
vbInformation, "Normal Example"
End Sub