Inputs Example

Land Auto

previous page next page

Inputs Example 

Sub Example_Inputs()
    
    ' This example returns the Count of Pointfiles in the first Surface
    ' in the collection by using the Inputs property.
    Dim surf As AeccSurface
    Set surf = AeccApplication.ActiveProject.Surfaces.Item(0)
    
    MsgBox "The number of PointFiles in the first surface is: " & surf.Inputs.PointFiles.Count _
        , vbInformation, "Inputs Example"
    
End Sub

previous page start next page