---

Hallo Leute!

Hab mal wieder ein Problem und mir wird mal wieder klar, dass ich von bestimmten Grundlagen abolut keine Ahnung habe. Mein VBA Projekt läuft ansonsten super, allerdings muß ich am Anfang der Routine alle Zeichnungen bis auf eine schließen und dann auf SDI 1 umschalten um
das "Speicherzumüllproblem" zu umgehen.

Ich hab da noch Probleme mit dem Application Objekt etc.
Kann mir jemand sagen wie ich das hinbekomme? - also alle bis auf eine Zeichnung schließen.

Danke für eure Tipps

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

---

Hallo dobatec,

du lässt dir von der Applikation die Documentsauflistung zurück geben und gehst diese dann Document für Document durch, und schließt jedes. Musst natürlich eines dann ausklammern, damit eines geöffnet bleibt. Wenn es  egal ist, welches offen ist, dann würde ich alle schließen und dann ein neues erstellen.

Grüße Holger

------------------
Holger Brischke
CAD on demand GmbH
Individuelle Lösungen von Heute auf Morgen.

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

---

Hallo Holger,

es sind nun mal die einfachen Dinge die das Leben schwer machen:

        Set Ac_App = AcadApplication
        Set Ac_Docs = Ac_App.Documents
        Dim d As Integer
        For d = 0 To Ac_App.Documents.Count - 1
            If Ac_App.Documents.Count > 1 Then
                Ac_Docs(d + 1).Close False
            End If
        Next
                   
        ThisDrawing.SetVariable "SDI", 1

... so müsste es funktionieren

Danke für die geistige Unterstützung

Gruß

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