---

Hallo zusammen,

ich habe in ACAD zwei DWGs geladen, sprich zwei Fenster offen. Wie kann ich nun mit VBA zwischen den einzelnen Fenster springen bzw. die einzelnen Fenstern aktivieren?

Gruß

Markus

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

---

Einzelne Fenster aktivieren geht mit ThisDrawing.Application.Documents(x).Activate, wobei x die Nummer des Fensters ist (erstes Fenster=0, zweites Fenster=1)
Unter der Voraussetzung, dass nur 2 Zeichnungen offen sind, wechselt folgender Code zum jeweils anderen Fenster:

Code:

---

If ThisDrawing.Application.Documents(0).Name = ThisDrawing.Application.ActiveDocument.Name Then
    ThisDrawing.Application.Documents(1).Activate
Else
    ThisDrawing.Application.Documents(0).Activate
End If

---

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

---

Hallo Stechi,

wenn Du die Namen der Zeichnungen weißt, ist dieser Weg etwas sicherer, da Du damit die Reihenfolge des Öffnens der Dateien nicht beachten mußt.

Documents("Zeichnung1.dwg").Activate oder
Documents("Zeichnung2.dwg").Activate

Um sicher zu gehen, dass es die Zeichnung überhapt gibt, würde ich eine kleine Prozedur schreiben. Als Parameter kannst Du den Dateinamen oder den ganzen Pfad angeben. Der ganze Pfad ist sicherer, da auch mehrere Dateien mit dem gleichen Namen (aus unterschiedlichen Pfaden) geöffnet werden können!

Function ShowFile (Filename as string) as Boolean

Dim myDoc as AcadDocument

ShowFile = false
For each myDoc in Documents
  If myDoc.name=filename or myDoc.fullname=Filename Then
    myDoc.Activate
    ShowFile = true
    exit for
  End if
Next

End function

Diese Funktion rufst Du dann einfach auf

If showfile("Zeichnung1.dwg") Then
  'weiterer Programmabarbeitung
  ...
  ...
  ...
End If

Ist zwar etwas mehr Code aber der ist immer wieder zu verwenden.

Viele Grüße aus dem Münsterland!

Peter

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