---

Wie kann mich da ein bischen weiter helfen ich suche ein vba Programm worin ich einen Komplete Ordner mit dwg Zeichnungen in inch  nach meter wechseln kann in  es sollte nur in Bereich des modelspace funktionieren.
vorgang sollte sein :
Offnen einen erste zeichnung im ordner.
selekteer Komplette Zeichnung in modelspace.
Scaliere diese mit eine Faktor zb. von inch nach Meter
Stell Units auf Meter
Speicher diese Zeichnung ab. (Überschreiben)

Öffnet die zweite zeichnung im ordner und macht die obergenante Punkte.
Solang bis alle Zeichnungen im Ordner durch gegangen sind.

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

---

Muss es VBA sein?
da reicht doch vermutlich ein einfaches SCRIPT (etwa mit diesem Inhalt - wenn keine Layer zu tauen oder zu entsperren sind)

_OPEN "Drawing0815.dwg"
_MSPACE
_SCALE _ALL 0,0 0.0254
_SETVAR MEASUREMENT 1
_SETVAR INSUNITS 6
_QSAVE
_QUIT

usw.
_OPEN "Drawing0816.dwg"
....

Die Dateiliste mit einem Editor passend vorbereiten

oder
Das einfache Script ließe sich mit
http://autodesk.blogs.com/between_the_lines/2012/06/scriptpro-for-autocad-32bit-and-64bit.html
dann einfach auf ganze Ordner anwenden.

------------------
Mit freundlichem Gruß

Udo Hübner
www.CAD-Huebner.de

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

---

Unabhängig davon ob die Zeichnung via Script oder VBA-Programm geändert wird: was passiert mit den Ansichtsfenstern (in Englisch: viewports, bin nicht sicher ob der deutsche Name ŽAnsichtsfensterŽ korrekt ist)?

Ich denke das Problem ist vielleicht ein bißchen komplexer als es auf den ersten Blick erscheint, denn ein einfaches skalieren der Zeichnung im model space zeigt zwar alle Zeichnungselemente in der korrekten Einheit aber alle Layouts mit Ansichtsfenstern sind anschließend unbrauchbar sofern sie nicht auch entsprechend angepaßt warden.

Deshalb denke ich, daß eine Lösung via Script nicht das erwünschte Ergebnis liefern wird. Der wahrscheinlich einfachste Weg um eine Lösung in VBA zu finden besteht wohl darin, eine von diesen Zeichnungen zu öffnen und all Änderungen manuell mit AutoCAD-Befehlen zu machen. Das Ergebnis wird eine Liste von Befehlen sein die man anwenden muß um die Zeichnung per VBA zu ändern. Der nächste Schritt besteht darin herauszufinden, wieviele unterschiedliche Varianten von Zeichnungen es gibt und wie man die unterschiedliche Anzahl von Layouts in VBA behandeln muß.

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