DescriptionXDRef Example

DescriptionXDRef Example

Sub Example_DescriptionXDRef()

    ' This function gets the DescriptionXDRef for the first PointGroup

    ' in the collection.

    Dim pntGrp As AeccPointGroup

    Set pntGrp = AeccApplication.ActiveProject.PointGroups.Item(0)

    MsgBox "The DescriptionXDRef for the first PointGroup is: " & _

        pntGrp.DescriptionXDRef, vbInformation, "DescriptionXDRef Example"

End Sub