Function GetDisplayControlName() As String
Dim dict As AcadDictionary
If ThisDrawing.ActiveSpace = acPaperSpace Then
GetDisplayControlName = GetDisplayConfigName(ThisDrawing.ActivePViewport)
Else
Set dict = ThisDrawing.Dictionaries("AEC_DISP_REP_CONFIGURATIONS")
If Not (dict Is Nothing) Then GetDisplayControlName = GetDisplayConfigName(dict)
End If
End Function
Private Function GetDisplayConfigName(Object As AcadObject) As String
Dim xDat, xDty, vpt As String
Object.GetXData "AECBASE", xDty, xDat
If VarType(xDat) <> vbEmpty Then
Dim obj As AcadObject
Set obj = ThisDrawing.HandleToObject(xDat(2))
GetDisplayConfigName = obj.Name
End If
End Function
