NameXDRef Example
Sub Example_NameXDRef()
' This function gets the Point group point name XDRef
Dim ptGrp As AeccPointGroup
Set ptGrp = AeccApplication.ActiveProject.PointGroups.Item(0)
MsgBox "The point group point NameXDRef is: " & ptGrp.NameXDRef, _
vbInformation, "NameXDRef Example"
End Sub