Dim
styleNames As StringCollection = dict.NamesInUse
Dim styleIds
As ObjectIdCollection = dict.Records
构件样式和样式集合
Create a new DictionaryWallStyle
in the current database. NamesInUse gives you the used style names, and
Records gives you a list of all available styles.