PointGroups Example

Land Auto

PointGroups Example

Sub Example_PointGroups()
    
    ' This example returns the number of PointGroups
    ' in the current project.
    Dim proj As AeccProject
    Set proj = AeccApplication.ActiveProject
    
    MsgBox "The number of PointGroups in the current Project is: " & proj.PointGroups.Count _
        , vbInformation, "PointGroups Example"
    
End Sub