PointList Example

Land Auto

PointList Example

Sub Example_PointList()
    
    ' This function gets the PointList for the first PointGroup
    ' in the collection.
    Dim pntGrp As AeccPointGroup
    Set pntGrp = AeccApplication.ActiveProject.PointGroups.Item(0)
    
    MsgBox "The PointList for the first PointGroup is: " & pntGrp.PointList, _
        vbInformation, "PointList Example"
    
End Sub