Dictionary Keynames

Hi All-

Does anyone know how to get a list of "Dictionary Keynames" or indexes? For
instance:

**************************************************************
Dim oDB As AcadDatabase
Dim oDict As AcadDictionary

Set oDB = ThisDrawing.Database
Set oDict = oDB.Dictionaries("AEC_PROPERTY_SET_DEFS")

**************************************************************

"AEC_PROPERTY_SET_DEFS" is a valid key in Building Systems 3 - how can I
find other valid keys?

Thanks in advance!

Dale Lundgren

 

Figured I'd post the answer I gave you already, Dale, for everyone else.
Use the DBVIEW command as a quick, non-programming way to see what's
available.
___________________________
Mike Tuersley
AutoCAD Clinic
Rand IMAGINiT Technologies

 

Here's a sub that gets all of the dictionary key names:

Sub dict_list()
Dim oDB As AcadDatabase
Dim oDicts As AcadDictionaries
Dim oDict As AcadObject
Dim I As Long
Dim varDict() As Variant

Set oDB = ThisDrawing.Database
Set oDicts = oDB.Dictionaries
For Each oDict In oDicts
If TypeOf oDict Is AcadDictionary Then
ReDim Preserve varDict(0 To I)
varDict(I) = oDict.Name
I = I + 1
End If
Next
For I = 0 To UBound(varDict)
Debug.Print varDict(I)
Next
End Sub

HTH, Jeff