NameXDRef Example

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