---

Hallo Forum!!

Hab mal wieder ne Anfängerfrage an Euch: Ich möchte die Dictionary Auflistung mit einer For Each Schleife druchlaufen und die Namen der Dictionaries auslesen.

Dim acDoc As AcadDocument
Dim acDicts As AcadDictionaries
Dim acDict As AcadDictionary
Private Sub ListDictionaries()
  Set acDoc = Application.ActiveDocument
  Set acDicts = acDoc.Dictionaries
  For Each acDict In acDicts
      Debug.Print acDict.Name
  Next
End Sub

Ich erhalte dann immer den Fehler "Typen Unverträglich" Nach dem ersten Durchlauf.

Bei allen anderen Objects (Layer, Blöcke etc.) funktioniert das ganze prima, nur bei den Dictionaries nicht. Was muss ich dabei beachten, wo liegt der Fehler?

Dank Euch

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi,

In den Dictionaries stehen nicht nur dictionary drin. Daher bekommst du die Fehlermeldung.

Probier mal diesen Code und debugge ihn Schrittweise und schau dir die Variable iAcadObj an. Dann wirst du den Unterschied sehen.

Gruß, Carsten

Public Sub ggg()
Dim dictCol As AcadDictionaries
Dim iAcadObj As IAcadObject
Dim dict As AcadDictionary
Dim i As Integer

Set dictCol = ThisDrawing.Dictionaries
For i = 0 To dictCol.Count - 1
Set iAcadObj = dictCol(i)
MsgBox vbTab & iAcadObj.ObjectName
If TypeOf iAcadObj Is AcadDictionary Then
Set dict = iAcadObj
MsgBox dict.Name
End If
Next i
End Sub

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Dank sei Dir Carsten!

Kanns du mir noch den Unterschied zwischen einem IAcadObject und AcadObject erklären?

Gruß doba

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi,

Meiner Meinung nach dürfte es da keinen Unterschied geben. In der Hilfe wird auf IAcadObject hingewiesen, im Objektkatalog hingegen auf AcadObject.

Gruß, Carsten

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP