TinPoints Example

Land Auto

TinPoints Example

Sub Example_TinPoints()
    
    ' This example returns the number of TinPoints in the first
    ' surface in the collection.
    Dim surf As AeccSurface
    Dim surfOut As AeccSurfaceOutputs
    Set surf = AeccApplication.ActiveProject.Surfaces.Item(0)
    Set surfOut = surf.Outputs
    
    MsgBox "The number of TinPoints in the first Surface is: " & surfOut.TinPoints.Count _
        , vbInformation, "TinPoints Example"
    
End Sub