Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de
  AutoCAD VBA
  Dictionary

Antwort erstellen  Neues Thema erstellen
CAD.de Login | Logout | Profil | Profil bearbeiten | Registrieren | Voreinstellungen | Hilfe | Suchen

Anzeige:

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen nächster neuer Beitrag | nächster älterer Beitrag
  
Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte
  
PNY präsentiert die PRO Elite™ High Endurance microSD-Flash-Speicherkarten für Videoüberwachung und kontinuierliche Aufzeichnung, eine Pressemitteilung
Autor Thema:  Dictionary (616 mal gelesen)
dobatec
Mitglied
st.gepr.Baut./Stud. W.Inf.


Sehen Sie sich das Profil von dobatec an!   Senden Sie eine Private Message an dobatec  Schreiben Sie einen Gästebucheintrag für dobatec

Beiträge: 34
Registriert: 23.03.2006

AutoCad2006,AcadBau2000,ADT3.0,
AMD64.3800

erstellt am: 27. Jul. 2006 15:15    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

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

Carsten1210
Mitglied
staatl. geprüfter Holztechniker


Sehen Sie sich das Profil von Carsten1210 an!   Senden Sie eine Private Message an Carsten1210  Schreiben Sie einen Gästebucheintrag für Carsten1210

Beiträge: 1360
Registriert: 24.07.2002

erstellt am: 27. Jul. 2006 15:51    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für dobatec 10 Unities + Antwort hilfreich

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

dobatec
Mitglied
st.gepr.Baut./Stud. W.Inf.


Sehen Sie sich das Profil von dobatec an!   Senden Sie eine Private Message an dobatec  Schreiben Sie einen Gästebucheintrag für dobatec

Beiträge: 34
Registriert: 23.03.2006

AutoCad2006,AcadBau2000,ADT3.0,
AMD64.3800

erstellt am: 27. Jul. 2006 16:17    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

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

Carsten1210
Mitglied
staatl. geprüfter Holztechniker


Sehen Sie sich das Profil von Carsten1210 an!   Senden Sie eine Private Message an Carsten1210  Schreiben Sie einen Gästebucheintrag für Carsten1210

Beiträge: 1360
Registriert: 24.07.2002

erstellt am: 27. Jul. 2006 18:19    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für dobatec 10 Unities + Antwort hilfreich

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

Anzeige.:

Anzeige: (Infos zum Werbeplatz >>)

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen

nächster neuerer Beitrag | nächster älterer Beitrag
Antwort erstellen


Diesen Beitrag mit Lesezeichen versehen ... | Nach anderen Beiträgen suchen | CAD.de-Newsletter

Administrative Optionen: Beitrag schliessen | Archivieren/Bewegen | Beitrag melden!

Fragen und Anregungen: Kritik-Forum | Neues aus der Community: Community-Forum

(c)2025 CAD.de | Impressum | Datenschutz