LabelStyleXDRef Example
Sub Example_LabelStyleXDRef()
' This function gets the label style XDRef override for the
' project database point group
Dim ptGrp As AeccPointGroup
Set ptGrp = AeccApplication.ActiveProject.PointGroups.Item(0)
' Initialize message to no label style XDRef overide defined
Dim labelMsg As String
labelMsg = "There is no label style XDRef override for point group " & _
ptGrp.GroupName & "."
' Test if XDRef label style is defined and if true define new message
If ptGrp.LabelStyleXDRef "" Then
labelMsg = "The label style XDRef override for point group " & _
ptGrp.GroupName & " is: " & ptGrp.LabelStyleXDRef
End If
MsgBox labelMsg, vbInformation, "LabelStyleXDRef Example"
End Sub