Breaklines Example

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