---

Hallo Fachleute,
ich suche ein Makro das mir ausgewählte MI Files in ME10
reinlädt und sofort wieder mit dem selben Namen
speichert.
Hintergrund ist der, das wir Zeichnungen haben, die unter
11.65 komprimiert gespeichert wurden und nicht mehr im Spicer
(Version?) dargestellt werden können. Nachdem die Komprimierung
abgestellt wurde, waren neu gespeicherte Dateien wieder lesbar.
Hat vielleicht irgendwer solch ein kleines Makro?
Bis bald Toto

------------------
Dominus vobis cum

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

---

Quick and Dirty

In das Eingabefile input.txt den komplette Pfad der Datei die neu gespeichert werden soll eintragen.
Beachte das du den Pfad mit / nicht mit \ schreiben mußt. Aber das kann man ja im Editor mir Suchen/Ersetzen korrigieren.

DEFINE new_save
  LET File1 "c:/temp/input.txt"
  OPEN_INFILE 2 File1
  DELETE ALL CONFIRM
  LOOP
    READ_FILE 2 DATEI
    EXIT_IF (Zeile='END-OF-FILE')
    LOAD (STR (DATEI))
    CHECK_3D_GEO_MODIFY OFF
    STORE MI ALL DEL_OLD (STR(DATEI))
  END_LOOP
  CLOSE_FILE 2
  DELETE ALL CONFIRM
END_DEFINE

------------------
Viele Grüsse aus dem Schwabenländle

Massimo Castell

------------------
DIE inoffizielle Hilfeseite zum OneSpace Designer
http://osd.cad.de

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

---

Hallo Massimo,
Danke das du geantwortet hast!
Super klasse, werde es morgen direkt morgen früh testen!
Kenne mich in der Programmierung von ME10 nicht so doll
aus, aber das mit dem Pfad werd ich schon hinbekommen.
Nochmals herzlichen Dank,
Toto

------------------
Dominus vobis cum

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

---

Hallo Massimo,
habe dein Macro heute morgen getestet.
Habe es als new_save.mac abgespeichert und in ME10 geladen.
Mit dem Aufruf new_save bekomme ich leider
nur die Rückmeldung "Makrozeile nicht definiert".
Was hab ich da falsch gemacht?
Irgendeine Idee???
Bis dann,
Toto

------------------
Dominus vobis cum

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

---

Hallo Toto,

in Zeile 7 muss es heissen

    EXIT_IF (DATEI='END-OF-FILE')

Wie ich das sehe, muss weiterhin eine Datei
input.txt in c:/temp existieren,
in der alle Dateinamen gespeichert sind.

MfG

Robert

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

---

Hallo Robert und Massimo,

genau dort lag der Fehler !!!!!!!
Hab damit jetzt schon hunderte von Zeichnungen
neu gespeichert, ging rasend schnell!
Also nochmal ein herzliches Danke Schön an euch beide
für die tolle Hilfe und selbstverständlich sind Unities unterwegs!
Noch ein schönes Wochenende und bis dann
Toto

------------------
Dominus vobis cum

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

---

Zitat:

---

Original erstellt von rhoffmann:

in Zeile 7 muss es heissen

    EXIT_IF (DATEI='END-OF-FILE')

---

UPS! Das passiert bei Cut and Paste Aktionen. 

------------------
Viele Grüsse aus dem Schwabenländle

Massimo Castell

------------------
DIE inoffizielle Hilfeseite zum OneSpace Designer
http://osd.cad.de

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