IsBreakline Example

Land Auto

IsBreakline Example

Sub Example_IsBreakline()
    
    ' This example returns the IsBreakLine setting
    ' for the first Boundary in the collection.
    Dim surf As AeccSurface
    Dim bound As AeccBoundary
    Set surf = AeccApplication.ActiveProject.Surfaces.Item(0)
    Set bound = surf.Inputs.Boundaries.Item(0)
    
    MsgBox "The IsBreakline setting for the Boundary is: " & bound.IsBreakLine _
        , vbInformation, "IsBreakLine Example"
    
End Sub