---

Hi,

ich möchte alle Dateien in einem Verzeichnis (ohne Unterverzeichnis) öffnen, dann Zoom Grenzen machen und wieder alle schließen.

Ist so was möglich?

danke!

Grüße HP

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

---

Hallo HP,

für einen ähnlichen Fall habe ich schon mal was gemacht.
Versuch mal folgendes :
1. Mit Lisp ein SCRIPT-File anlegen lassen
2. Danach dieses Script ausführen

z.B.:
(defun C pen_Zoom_Close ( / verzeichnis all_files scr_file i)
  (setq verzeichnis (vl-filename-directory (getfiled "Verzeichnis und BELIEBIGE Zeichnung wählen" "" "dwg" 2))
all_files (vl-directory-files verzeichnis "*.dwg" 1)
scr_file (open (strcat (getvar "TEMPPREFIX") "My_script.scr") "w")
i 0)
  (Repeat (length all_files)
    (write-line (strcat "_OPEN " verzeichnis (chr 92) (nth i all_files)) scr_file)
    (write-line "_ZOOM _E" scr_file)
    (write-line "_QSAVE" scr_file)
    (write-line "_CLOSE" scr_file)
    (setq i (1+ i))
  ) ; repeat
  (close scr_file)
  (princ)
)

Einen Button eines Werkzeugkastens mit dem Befehl belegen:
^C^CC pen_Zoom_Close;Script "C:/ACAD/TMP/My_script.scr"

Wenn die LISP-Routine geladen ist und du das Script natürlich mit deinen Pfad angibst, sollte alles laufen.

Schöne Grüße
Helmut

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

---

Nochmal Hallo,

im Original steht natürlich nicht das grinsende Symbol, sondern irgend ein Name für die Routine.

Helmut

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

---

Hi Helmut,

vielen Dank für den Tipp!

Grüße

Hans-Peter

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

---

Hallo Helmut,

warum funktioniert eigendlich dieser Befehl nicht?

(command "_open" "C:\dwg\Zeichnung3.dwg")

Grüße

HP

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