DescriptionXDRef Example

Land Auto

previous page next page

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

previous page start next page