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