PointOnLineTolerance Example

Land Auto

previous page next page

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

previous page start next page