---

Hallo Forum,

ich habe folgendes Problem:
Bei der Ausführung eines meiner Makros bekomme ich die Fehlermeldung 

Zitat:

---

Funktion oder Schnittstelle kann nur eingeschränkt verwendet werden oder verwendet einen Type der Automatisierung, der von Visual Basic nicht unterstützt wird

---

Im Quelllcode wird die Zeile mit dem Eintrag

Code:

---

Set ParentObject = ThisDrawing.ObjectIdToObject(Object.OwnerID)

---

markiert.
Wobei folgende Variablendeklarationen vorgenommen wurden:

Code:

---

    Dim Object As Object                            'Attribut
    Dim ParentObject As AcadBlockReference          'zugehöriger Block

---

Das Programm läuft seit ein paar Jahren. Ich vermute das Problem hat mit VBA unter 64-Bit zu tun, weiß aber nicht wie ich das reparieren kann.

Kann mir bitte jemand helfen?

lg
Didi

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

---

guck dir mal den Beitrag an .. auch wenn es sich auf Lisp bezieht, der Grundgedanke sollte klar sein.

------------------
  - Thomas -
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

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

---

Hallo Thomas,

danke für den Link. Mein Makro läuft wieder! 
Ich habe schon vorher versucht mit OwnerID32 was zu erreichen, aber erst beim Lesen deines Links habe ich entdeckt, daß es auch für ObjectIDtoObjetct eine ObjectIDtoObject32 Variante gibt.
Ich habe also meine Codezeile ergänzt zu:

Code:

---

Set ParentObject = ThisDrawing.ObjectIdToObject32(Object.OwnerID32)

---

und schon gehts wieder ...

Herzlichen Dank und liebe Grüße
Didi

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