---

Hi Leute,
Ich habe mal wieder ein kleines Problem:

Ich habe eine Zeichnung mit 20 verschiedenen Layout's. Ich soll nun daraus 20 verschiedene Zeichnungen erstellen. D.h. 20mal die Zeichnung unter dem aktiven Layoutnamen abspeichern. Da dies aber mehrere Zeichnungen betrifft, wollte ich mir mittels VBA-Programm die Arbeit erleichtern. Mein Problem soll der folgende Code erläutern:

Dim i As Integer
Dim Dateiname As String

For i = 0 To Layouts.Count - 1

    'Layout für Layout aktiv setzen
    ThisDrawing.ActiveLayout = Layouts(i)
   
    Dateiname = ThisDrawing.ActiveLayout.Name
       
    'mit der folgenden Zeile wird die Datei auf dem Desktop
    abgespeichet   
    ThisDrawing.SaveAs Dateiname

    'mit der folgenden Zeile wird die Datei nicht unter dem Layout-
    'namen abgespeichert, sondern unter Dateiname.dwg; allerdings dann
    'im vorgegebenen Pfad
    ThisDrawing.SaveAs ("C:\Dateiname")

Next

Ich möchte aber die jeweilige Datei unter der entsprechenden Layoutbezeichnung in einem vorgegeben Verzeichnis speichern.

Könnt Ihr mir weiterhelfen? Ich hoffe, ich habe mich verständlich ausgedrückt.

Gruß Ines

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

---

Hallo Ines,

wie wärs denn mit dem gleichen Verzeichnis wie die DWG
ThisDrawing.SaveAs (ThisDrawing.Path & "\" & Dateiname)

Ansonsten musst du einen Auswahldialog "bauen".
Die Verzeichnisse kannst du in eine Listbox schreiben.

Mit der Funktion DIR kannst du dir nur Verzweichnisnamen listen lassen. Ansonsten wäre da noch das FileSystemObject. Damit gehts eleganter.

Stelli

------------------
Warum lisp'eln wenn's auch anders geht.

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

---

Hallo Stelli,
ganz große Klasse. Es funktioniert einwandfrei. Es ist doch erstaunlich, wie man manchmal auf der Leitung steht. Die Unities sind unterwegs.

Gruß Ines

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