---

Hallo Forum,

gibt es eine Möglichkeit das Koordinatensystem bei mehreren Zeichnungen auf einmal zu ändern?
Wir haben noch AutoCad Map3D 2015

Mit freundlichem Gruß

Yılmaz Pektaş

[Diese Nachricht wurde von jimmyp am 21. Jun. 2018 editiert.]

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

---

Hallo jimmyp,

ja, es eine Möglichkeit würde es schon geben, vorausgesetzt du kennst dich im Bereich VBA ein bisschen aus?
Da hätte ich eine fertige Lösung.

Grüße
Silcono

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

---

Servus, ja

Mit scriptpro kann man es über mehrere Datein laufen lassen http://ww3.cad.de/foren/ubb/Forum54/HTML/004300.shtml

Code:

---

cmddia 0 _MAPCSASSIGN MGI-AT/a.AUT-East/GK cmddia 1

---

------------------
<----- Bitte Systeminfo eintragen, warum siehst du hier. Schöne Grüsse aus der Steiermark  Bernd P.

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

---

VBA-Kenntnisse sind nicht vorhanden.
Mein Problem ist folgender.
Wir haben bei uns ca. 300 DWG-Blöcke auf einem Externen NAS-Laufwerk abgelegt.
Alle Dateien waren auf etrs89 / utm zone 32n.
Platte hat sich verabschiedet.
Nachdem die Dateien wiedergeholt werden konnten und auf dem neuen Laufwerk kopiert wurden, haben alle Dateien plötzlich GK-S3-R95.
Natürlich kann jede Datei einzeln das neue Koordinatensystem zuweisen, aber umständlich.

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

---

ScriptPro
ist zu umständlich, da ich nicht in die Tiefe der Rechner vorstoßen darf. (ADV)

[Diese Nachricht wurde von jimmyp am 21. Jun. 2018 editiert.]

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

---

Koordzuordnung.dvb.txt

Hallo jimmyp,

auch wenn du keine Kenntisse bzgl. VBA hast, kann ich dir vielleicht trotzdem helfen, vorausgesetzt VBA für AutoCAD ist vergügbar.

Dies kannst du testen, wenn du unter 'Extras' den 'Visual Basic-Editor' aufrufst.

Sollte dies funktionieren, dann folgende Schritte durchführen:

1. Anhang runterladen, in [PFAD1](nach belieben) und die Endung '.txt' entfernen.

2. Die Datei laden / in der Befehlszeile folgendes eingeben:
> .-vbaload ENTER
> [PFAD1]\Koordzuordnung.dvb ENTER

3. Den Visual Basic-Editor aufrufen (über den Button oder ALT+F11)

4. Folgende Codezeile bearbeiten:

Code:

---

Sub koordzuordnen()
   
    Dim strFile As String
   
    strPfad = "X:\Pfad\"  <---den Pfad hier anpassen, Pfad zu deinen ca. 300 DWG's

---

5. Das Makro starten / in die Befehlszeile folgendes eingeben:
> .-vbarun ENTER
> [PFAD1]\Koordzuordnung.dvb!Modul1.koordzuordnen ENTER

Dann sollten alle Dateien einmal geöffnet werden, das Koordinatensystem ETRS89.UTM-32N zugewiesen bekommen und dann wieder gespeichert und geschlossen werden.

Ich empfehle dir, es vorher mit Testdaten auszuführen.
Wenn dies funktionier, kannst du auf eigene Gefahr hin, deine Dateien anpassen 

Grüße
Silcono

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

---

gibt es eine Möglichkeit das Koordinatensystem bei mehreren Zeichnungen auf einmal zu ändern?
ist zu umständlich, da ich nicht in die Tiefe der Rechner vorstoßen darf. (ADV)

Onboard eventuell möglich, kommt auf die Gegebenheiten drauf an. Was sind das für Blöcke?
scriptPro ja
VBA ja

------------------
<----- Bitte Systeminfo eintragen, warum siehst du hier. Schöne Grüsse aus der Steiermark  Bernd P.

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

---

Hallo silcono,
danke für deine Unterstützung,
Leider kann ich deine Hilfe nicht anwenden, da ich 'Visual Basic-Editor'nicht öffnen.
Da die ADV mir keine Admin-Rechte gibt kann ich auch den dazu passenden Hotfix nicht durchführen. bzw. die (vlcom.dll) tauschen.
Ich probiere es nächste woche noch einmal.
Trotzdem Danke
Jimmy

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

---

Hallo silcono,
danke für deine Unterstützung,
Leider kann ich deine Hilfe nicht anwenden, da ich 'Visual Basic-Editor'nicht öffnen.
Da die ADV mir keine Admin-Rechte gibt kann ich auch den dazu passenden Hotfix nicht durchführen. bzw. die (vlcom.dll) tauschen.
Ich probiere es nächste Woche noch einmal.
Trotzdem Danke
Jimmy

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

---

Hallo silcono,
danke für deine Unterstützung,
Leider kann ich deine Hilfe nicht anwenden, da ich 'Visual Basic-Editor'nicht öffnen.
Da die ADV mir keine Admin-Rechte gibt kann ich auch den dazu passenden Hotfix nicht durchführen. bzw. die (vlcom.dll) tauschen.
Ich probiere es nächste Woche noch einmal.
Trotzdem Danke
Jimmy

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

---

KoordTest.bat.txt scriptrun.scr.txt

Hallo jimmyp,

ich hätte da noch einen Lösungsweg.
Dieser beruht auf einer Batchdatei.
Was tut diese Batchdatei:

Diese Batchdatei(KoordTest.bat) öffnet die DWG im AutoCAD und startet zeitgleich ein AutoCAD-Script(scriptrun.scr) für die Befehlszeile.
Da die Batchdatei eine FOR-Schleife besitzt, nimmt sie sich jede Datei in dem Ordner vor, in dem die Batchdatei abgelegt wird.

Code:

---

for %%f in (*.dwg) do "C:\Program Files\Autodesk\AutoCAD 2017\acad.exe" /b "C:\Users\NAME\Desktop\scriptrun.scr" %%f

---

Was tut das AutoCAD-Script:

Als erstes wird die Systemvariable FILEDIA auf 0 gesetzt, um das Dialogfenster für die Koordinatensystem zu unterdrücken.
Im nächsten Schritt wird der Befehl MAPCSASSIGN ausgeführt und das Koordinatensystem "ETRS89.UTM-32N" wird zugewiesen.
Danach wird FILEDIA wieder auf 1 gesetzt, gespeichert und AutoCAD beendet.

Code:

---

FILEDIA
0
_MAPCSASSIGN
ETRS89.UTM-32N
FILEDIA
1
KSICH
QUIT

---

Das heißt in der Kurzbeschreibung:

1. Batch ruft die DWG auf und lässt das Script rennen
2. Das Script setzt das Koordinatensystem, speichert und beendet AutoCAD.
3. Batch ruft die nächste DWG auf, Script rennt wieder drüber.
Das ganze läuft so lange bis alle DWG's abgearbeitet sind.

Ich habe dir die Batchdatei und das Script beigefügt.
Beachte bitte, dass du noch die Batchdatei kurz mit dem Editor öffnest und den Pfad für das Script anpasst, ggf. auch den Pfad für die acad.exe.

Bei Fragen einfach melden.

Grüße Silcono

[Diese Nachricht wurde von silcono am 22. Jun. 2018 editiert.]

[Diese Nachricht wurde von silcono am 22. Jun. 2018 editiert.]

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

---

Hallo Silcono,
danke für die Hilfe / Unterstützung.
Habe jede Datei mittlerweile einzeln geändert.
Gruß Jimmy

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