[密技]：IAcadDictionaries.Item的真相

rave

困惑许久，今日豁然
不敢独珍，与诸君分享

From maxd

Can anyone tell me how I can list the names of all the dictionaries attached to
the ActiveDocument. I am using VB6 and AutoCad 2000. The code line below gives
me a type mismatch.

1. 
   
2. Set objDictionary = objAcad.ActiveDocument.Dictionaries.Item(i)
   

复制代码

-------------------------------------------------------------------------------

Hey there maxd -
The Dictionaries object doesn't contain just Dictionary objects as the help
file, or even this code,

2. 
   
3. Public Sub TheLIE()
   
4.   Dim objLibrary As AcadDictionaries
   
5.   Dim intCnt As Integer
   
6.   Set objLibrary = ThisDrawing.Dictionaries
   
7.   For intCnt = 0 To objLibrary.Count - 1
   
8.     Debug.Print objLibrary(intCnt).ObjectName
   
9.   Next intCnt
   
10. End
    
11. 'Results from a new drawing:
    
12. 'AcDbDictionary
    
13. 'AcDbDictionary
    
14. 'AcDbDictionary
    
15. 'AcDbDictionary
    
16. 'AcDbDictionaryWithDefault
    

<br /> Public Sub TheLIE()<br />   Dim objLibrary As AcadDictionaries<br />   Dim intCnt As Integer<br />   Set objLibrary = ThisDrawing.Dictionaries<br />   For intCnt = 0 To objLibrary.Count - 1<br />     Debug.Print objLibrary(intCnt).ObjectName<br />   Next intCnt<br /> End<br /> 'Results from a new drawing:<br /> 'AcDbDictionary<br /> 'AcDbDictionary<br /> 'AcDbDictionary<br /> 'AcDbDictionary<br /> 'AcDbDictionaryWithDefault<br />

suggests!

Here is the truth:

2. 
   
3. Public Sub TheTruth()
   
4.   Dim objLibrary As AcadDictionaries
   
5.   Dim intCnt As Integer
   
6.   Set objLibrary = ThisDrawing.Dictionaries
   
7.   For intCnt = 0 To objLibrary.Count - 1
   
8.     Debug.Print TypeName(objLibrary(intCnt))
   
9.   Next intCnt
   
10. End
    
11. 
    
12. 'Results in same drawing:
    
13. 'IAcadGroups
    
14. 'IAcadLayouts
    
15. 'IAcadDictionary
    
16. 'IAcadPlotConfigurations
    
17. 'IAcadDictionary
    

<br /> Public Sub TheTruth()<br />   Dim objLibrary As AcadDictionaries<br />   Dim intCnt As Integer<br />   Set objLibrary = ThisDrawing.Dictionaries<br />   For intCnt = 0 To objLibrary.Count - 1<br />     Debug.Print TypeName(objLibrary(intCnt))<br />   Next intCnt<br /> End<br /> <br /> 'Results in same drawing:<br /> 'IAcadGroups<br /> 'IAcadLayouts<br /> 'IAcadDictionary<br /> 'IAcadPlotConfigurations<br /> 'IAcadDictionary<br />

AHA! Now, an example of how to work with what's really in there:

2. 
   
3. Public Sub CheckOut()
   
4.   Dim objLibrary As AcadDictionaries
   
5.   Dim objDictionary As AcadDictionary
   
6.   Dim objLayOuts As AcadLayouts
   
7.   Dim objGroups As AcadGroups
   
8.   Dim objPlots As AcadPlotConfigurations
   
9.   Dim objEach As Object
   
10.   Dim intCnt As Integer
    
11.   Set objLibrary = ThisDrawing.Dictionaries
    
12.   For intCnt = 0 To objLibrary.Count - 1
    
13.     Select Case TypeName(objLibrary(intCnt))
    
14.       Case "IAcadGroups"
    
15.         Set objGroups = objLibrary(intCnt)
    
16.           For Each objEach In objGroups
    
17.             Debug.Print objEach.Name
    
18.           Next objEach
    
19.       Case "IAcadLayouts"
    
20.         Set objLayOuts = objLibrary(intCnt)
    
21.           For Each objEach In objLayOuts
    
22.             Debug.Print objEach.Name
    
23.           Next objEach
    
24.       Case "IAcadDictionary"
    
25.         Set objDictionary = objLibrary(intCnt)
    
26.         Debug.Print objDictionary.Name
    
27.       Case "IAcadPlotConfigurations"
    
28.         Set objPlots = objLibrary(intCnt)
    
29.           For Each objEach In objPlots
    
30.             Debug.Print objEach.Name
    
31.           Next objEach
    
32.       Case Else
    
33.         Debug.Print "VODKA MARTINI"
    
34.     End Select
    
35.   Next intCnt
    
36. End
    

<br /> Public Sub CheckOut()<br />   Dim objLibrary As AcadDictionaries<br />   Dim objDictionary As AcadDictionary<br />   Dim objLayOuts As AcadLayouts<br />   Dim objGroups As AcadGroups<br />   Dim objPlots As AcadPlotConfigurations<br />   Dim objEach As Object<br />   Dim intCnt As Integer<br />   Set objLibrary = ThisDrawing.Dictionaries<br />   For intCnt = 0 To objLibrary.Count - 1<br />     Select Case TypeName(objLibrary(intCnt))<br />       Case "IAcadGroups"<br />         Set objGroups = objLibrary(intCnt)<br />           For Each objEach In objGroups<br />             Debug.Print objEach.Name<br />           Next objEach<br />       Case "IAcadLayouts"<br />         Set objLayOuts = objLibrary(intCnt)<br />           For Each objEach In objLayOuts<br />             Debug.Print objEach.Name<br />           Next objEach<br />       Case "IAcadDictionary"<br />         Set objDictionary = objLibrary(intCnt)<br />         Debug.Print objDictionary.Name<br />       Case "IAcadPlotConfigurations"<br />         Set objPlots = objLibrary(intCnt)<br />           For Each objEach In objPlots<br />             Debug.Print objEach.Name<br />           Next objEach<br />       Case Else<br />         Debug.Print "VODKA MARTINI"<br />     End Select<br />   Next intCnt<br /> End<br />

linyangxiaodong

this is what i need！

phi03c

thanks you.