---

Habe ein Auftrag ca. 300 Zeichnungen von Ver. 14 auf 11.8 zurück zu setzen.
Suche jetzt die zu Automatisieren, meine Vorstellung alle Zeichnung in ein Verzeichnis legen und über eine Bach-File
alle Zeichnungen in einem Rutsch von Ver. 14 auf 11.8 zurück zu setzen.
Wer könnt mir da eine oder mehrere Vorschläge unterbreiten?

Vorab danke.

Gruss Kalle

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

---

Ein fertiges Makro kann ich nicht liefern, würde es aber per Makro in etwa so lösen

* Mit CATALOG eine Textdatei mit einer Liste der zu konvertierenden Dateien erzeugen.
* Mit OPEN_INFILE diese Textdatei öffnen
* READ_FILE um die erste Zeile zu lesen
* LOAD um die Zeichnung zu laden
* STORE_280 um die Zeichnung runter zu speichern

Die letzten drei Punkte in eine Schleife packen bis EOF.

Ein wenig Makro-Schnipsel ist hier zu finden:

http://ww3.cad.de/foren/ubb/Forum92/HTML/000067.shtml

[Diese Nachricht wurde von riesi am 13. Jun. 2012 editiert.]

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

---

Hallo Kalle,

warum willst Du Dir denn so viel arbeit machen? Du kannst doch jederzeit die Version V14 in der V11.8 lesen. Das System sagt Dir lediglich, dass etwas nicht ganz in Ordnung ist und das kannst Du im Log-File nachlesen.

Ich habe eben eine Zeichnung aus der V17 in der V10.5 eingelesen und hatte keine Verluste gehabt.

Einfach versuchen

gruss Gerhard

------------------
Jeder erfüllte Wunsch ist ein Traum weniger
Träume sind die Sonnenstunden der Hoffnung

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

---

Zitat:

---

Original erstellt von Gerhard Deeg:

Ich habe eben eine Zeichnung aus der V17 in der V10.5 eingelesen und hatte keine Verluste gehabt.

---

Wir haben damit schlechte Erfahrungen gemacht. In der Vergangenheit hatten wir den DXF-Umsetzer aus 10.5 mit Version 8.7g benutzt und oftmals dadurch "Verstoß durch Segmentation"-Fehler erhalten.

Gruß, Klaus.

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

---

Guten morgen,

der Grund ist, die Zeichnungen sollen ein neuen Zeichnungsrahmen erhalten bzw. gegen den vorhandenen Rahmen einer anderen Firma über ein Makro ausgetauscht.

Gruss Kalle

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

---

Hallo Kalle,
habe so etwas in ähnlicher Weise gemacht.
Einige Zeilen habe ich ausgeklammert, sind aber nicht wichtig.
-------------
{ Aufruf zum Beispiel:
EVA_Batch_Store_280 'N:\5_Zeichnungen\00' 'C:\_DWG_87\00'
}

DEFINE EVA_Batch_Store_280
  PARAMETER InVerzeichnis
  PARAMETER OutVerzeichnis { Version 11.x-Dateien }
  LOCAL Dateiname
  LOCAL P
  LOCAL Antwort
  LOCAL Anfang
  LOCAL Ende
  LOCAL Zaehler
 
{
  EVA_INIT_CONSTS
}

{
  store all del_old (eva_temp_verzeichnis+'eva_sbd.mi')
}
  READ 'Directory lesen ?' Antwort
{
  IF ((Antwort='J') OR (Antwort='j'))
}
    CATALOG InVerzeichnis SELECT 'FILE_NAME' '*' DEL_OLD (OutVerzeichnis+'/'+'eva_sbd.txt')
{
  END_IF
  READ NUMBER 'Anfang:' Anfang
  READ NUMBER 'Ende:' Ende
  LET Zaehler 0
}
 
  OPEN_INFILE 1 (OutVerzeichnis+'/'+'eva_sbd.txt')
  READ_FILE 1 Dateiname
  READ_FILE 1 Dateiname
  READ_FILE 1 Dateiname
  READ_FILE 1 Dateiname
  LOOP
{
    LET Zaehler (Zaehler+1)
}
    READ_FILE 1 Dateiname
{
    IF ((Zaehler>=Anfang) AND (Zaehler <=Ende))
}
      IF (Dateiname<>'END-OF-FILE')
        LET Dateiname (SUBSTR Dateiname 1 40)
        LET Dateiname (TRIM Dateiname)
        EDIT_PART TOP
        DELETE ALL CONFIRM
        TRAP_ERROR
          LOAD (InVerzeichnis+'/'+Dateiname)
        IF (CHECK_ERROR)
          DISPLAY_NO_WAIT (Dateiname+' ... '+ERROR_STR)
        END_IF
        TRAP_ERROR
          STORE_280 ALL DEL_OLD (OutVerzeichnis+'/'+Dateiname) CONFIRM
        IF (CHECK_ERROR)
          DISPLAY_NO_WAIT (Dateiname+' ... '+ERROR_STR)
          WAIT 2
        END_IF
      END_IF {(Dateiname<>'END-OF-FILE')}
{
    END_IF {Zaehler>=.....}
    EXIT_IF (Zaehler>Ende)
}
    EXIT_IF (Dateiname='END-OF-FILE')
  END_LOOP
  END
  CLOSE_FILE 1
  EDIT_PART TOP
  DELETE ALL CONFIRM
{
  load (eva_temp_verzeichnis+'eva_sbd.mi')
}
END_DEFINE
-----------------------
Hoffe, dass es Dir hilft.
Gruß
Robert

------------------
Homepage: www.me10-makros.de

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