Format Example

Land Auto

Format Example

Sub Example_Format()
    
    ' This example returns the Format setting for the first PointFile
    ' in the collection.
    Dim surf As AeccSurface
    Dim pntFile As AeccPointFile
    Set surf = AeccApplication.ActiveProject.Surfaces.Item(0)
    Set pntFile = surf.Inputs.PointFiles.Item(0)
    
    MsgBox "The Format for the first PointFile in the collection is: " & pntFile.Format _
        , vbInformation, "Format Example"
    
End Sub