PointOnLineTolerance Example

PointOnLineTolerance Example

Sub Example_PointOnLineTolerance()

    ' This example returns the PointOnLineTolerance for the first surface in the collection.

    Dim surf As AeccSurface

    Set surf = AeccApplication.ActiveProject.Surfaces.Item(0)

    MsgBox "The PointOnLineTolerance for the first surface is: " & surf.PointOnLineTolerance, _

        vbInformation, "PointOnLineTolerance Example"

End Sub