---

Hi Leute,
ich hab schon wieder ein Problem.
Ich habe im Verzeichnis C:\VBA 10 AutoCAD-Dateien und möchte diese per VBA eine nach der anderen aufrufen, bearbeiten und wieder schließen lassen. Mir fehlt da so der Ansatzpunkt, wie ich an die einzelnen Dateien rankomme, ich will sie ja nicht in einer Combobox o.ä. listen, sondern sie sollen vom Programm automatisch aufgerufen werden. Vielleicht ist das ja ganz einfach und ich stehe nur auf dem Schlauch.
Gruß Ines

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

---

such mal im Forum .. Rund um Autocad .. nach "Script" und "ScriptPro"

------------------
- 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

---

Hi CADmium,
danke für Deinen Tipp. Das werde ich jetzt erstmal tun und melde mich dann später wieder.
Gruß Ines

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

---

Hallo Leute,
da bin ich wieder. Leider bin ich nicht so richtig hinter CADmiums Tipps gestiegen, habe aber auch hier im Forum einen Beitrag darüber gefunden: http://ww3.cad.de/foren/ubb/Forum259/HTML/000477.shtml#000001
Allerdings habe ich auch dazu noch eine Frage, vielleicht kann mir die sogar Nancy direkt beantworten?
Die Schleife läuft bei mir als Endlosschleife ab, ich verstehe die Bedingung f<>"" nicht, kann man nicht einfach eine Zählschleife nutzen, in der die Anzahl der im jeweiligen Ordner vorhandenen Dateien ermittelt wird?

Gruß Ines

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

---

Halo Ines,

in dem Artikel war folgender Code:

Zitat:

---

Original erstellt von startrek:
.....

Code:

---

Sub asdf()
  Dim f$, p$, i&
  p = "D:\Cad\"
  f = Dir(p & "*.dwg")
  i = 1
  Do While f <> ""
      Documents.Open p & f
      With ActiveDocument
        MsgBox i & ": " & .WindowTitle
        If Not .Saved Then .Save
        .Close
      End With
      i = i + 1: f = Dir
  Loop
End Sub

---

Gruss Nancy

---

Das ist keine Endlosschleife.
Dir(p & "*.dwg") liest die erste Datei im Pfad
f = Dir liest die nächste Datei. Gibst keine mehr wird die Schleife beendet. Wichtig ist das beim zweiten Befehl nur DIR ohne Parameter steht. Sonst wird wieder die erste Zeichnung abgerufen und das ganze wird dann zur Endlosschleife.

Stelli

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

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

---

Hallo Stelli,
ok, soweit hab ich das verstanden. Allerdings verstehe ich eins nicht dabei: wenn ich das Programm mit F5 starte, dann läuft es ganz normal durch, wenn ich es mit F8 aus dem Editor heraus starte, wird AutoCAD bereits nach dem ersten Durchlauf beendet. Geht das nur mir so oder tritt das Problem auch bei Dir auf?

Gruß Ines

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

---

Hallo Ines,

bei mir läufst einwandfrei.
Hast du vielleicht die Systemvariable SDI auf 1 ?
Dann kannst du nur ein Dokumant öffnen und AutoCAD wird eventuell mit dem Schliessen der Zeichnung geschlossen.

Stelli

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

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

---

Hallo Stelli,
Volltreffer! Ich hatte SDI auf 1 stehen, jetzt klappt alles einwandfrei!
Spitze, und vielen Dank nochmal für die große Hilfe!
Die Unities sind unterwegs.

Gruß Ines

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