---

Hallo!

Kennt jemand eine Möglichkeit, in VBA eine Ereignissbehandlung zu schaffen, die auf einen Wechsel der aktiven Zeichnung reagiert?

MfG David

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

---

wie wärs mit dem Reaktor

Private Sub AcadDocument_Activate()
    MsgBox ThisDrawing.Name
End Sub

Dieser Reaktor wird jedesmal dann aufgerufen, wenn sich die Aktuelle zeichnung ändert

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

Ing. Anton Fuchs
WWW.FFZELL.AT.TC

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

---

Hab ich schon probiert.
Das geht immer dann sobald ich auf die Zeichnung klicke, auf welche ich das "ActiveDocument" Objekt gelegt habe.
Aber wie kann VBA dieses Objekt selbstständig umlegen, sobald ich zwischen den Zeichnungen hin und her klicke?

Weißt du da vielleicht was?

MfG David

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

---

also AcadDocument_Activate() reagiert "sogar" auf alt+tab Tasten ... oder habe ich die Frage:

Zitat:

---

Aber wie kann VBA dieses Objekt selbstständig umlegen, sobald ich zwischen den Zeichnungen hin und her klicke?

---

missverstanden ?

Code:

---

Private Sub AcadDocument_Activate()
  Set activeDoc = ThisDrawing.Application.ActiveDocument
  MsgBox "Aktive Datei ist: " & activeDoc.Name, vbInformation, "Proy Beispiel"
End Sub

---

------------------
MfG Proxy

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

---

OK, also noch einmal ganz detailiert:
Zuerst habe ich mir eine Instanz des Programms heranngeholt und von dieser dann das Aktive Dokument.

        Sub GetAcadObjects()
          Set objACAD = GetObject(, "Autocad.Application")
          Set objDoc = objACAD.ActiveDocument
        End Sub
in objDoc ist jetzt ein Handler auf das "derzeitige" Aktive Dokument vorhanden, von dem ich alle Ereignisse abfangen kann.

Aber: öffne ich jetzt ein neues Dokument soll genau dieser Handler auf das neue Dokument umgelegt werden um auch von dieser neuen Zeichnung die Ereignisse zu behandeln.
Habe schon überlegt ein dynamisches array anzulegen, um über das AcadApplication.EndOpen() Ereignis neue Dokumente in dieses aufzunehmen. Das Problem ist nur, ich kann mit dem Schlüsselwort "WithEvents", mit dem ich die Variable objDoc anlege, eben kein Array anlegen.
Also brauche ich irgendetetwas, was mir mitteilt, dass sich das Aktive Dokument geändert hat. Alle Events wie auch das Activate() treten nur ein wenn es sich um ein und die selbe Zeichnung handelt, aber was passiert wenn ich eine neue öffne?
Oder vielleicht geht es auch irgendwie ganz anders?

MfG David

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