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