LabelStyleXDRef Example

Land Auto

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