LabelStyleOverride Example

Land Auto

LabelStyleOverride Example

Sub Example_LabelStyleOverride()
    
    ' This function determines if the point group label style is overridden.
    Dim ptGrp As AeccPointGroup
    Set ptGrp = AeccApplication.ActiveProject.PointGroups.Item(0)
    
    MsgBox "Label style override for the project database point group is set to: " & _
        ptGrp.LabelStyleOverride, vbInformation, "LabelStyleOverride Example"
    
End Sub