Breaklines Example
Sub Example_SurfaceInputs_Breaklines()
' This example returns the number of Breaklines in the first
' surface in the collection.
Dim surf As AeccSurface
Dim surfIn As AeccSurfaceInputs
Set surf = AeccApplication.ActiveProject.Surfaces.Item(0)
Set surfIn = surf.Inputs
MsgBox "The number of Breaklines in the first Surface is: " & surfIn.Breaklines.Count _
, vbInformation, "Breaklines Example"
End Sub