Problem

Wie kann man die Arbeitseinheiten in einer Reihe von Modellen oder Zellen in einer Zeichnungs-Datei oder Zellbibliothek ändern?

Problemlösung

Das folgende VBA Makro kann die Arbeitseinheiten und Auflösung anpassen.

ScaleModels.zip

Dieses VBA skaliert alle Modelle aber kann nur an einer Zellbibliothek zugleich ausgeführt werden.
Der Grund warum dieses VBA nicht automatisch ist, ist daß ein Benutzereingriff erforderlich ist.

So führt man das VBA aus:

1. -das "scalemodels.mvba" in einem Verzeichnis, wo die Konfigurations-Variable MS_VBASEARCHDIRECTORIES hinzeigt, abspeichern.
   Das könnte z.B. das Verzeichnis .../Workspace/Standards/vba sein.
2. -Die Zeichnung oder die Zellbibliothek, in welcher die Modelle oder die Zellen skaliert werden sollen, direkt als Zeichnung öffnen.
3. - über den Menüpunkt: "Extras" > "Makro" > "Projekt-Manager" > "Projekt laden" > in das Verzeichnis des VBA Makros wechseln und das VBA "ScaleModels" auswählen
4. - in der Liste das VBA "ScaleModels" doppeltklicken
   
   
   
   
5. - und in dem darauf erscheinenden Dialogen "Ausführen" und "OK" drücken
   
   
   
   
   
   
6. - im den als letztes erscheinenden "Rescale" Dialogfenster werden die Optionen zum Aktivieren Ändern der Auflösung und Arbeitseinheiten angezeigt
   
   
   
   
7. -wenn die gewünschten Änderungen aktiviert und eingestellt worden sind muss anschließend auf "Go!" gedrückt werden, um die zuvor eingestellte Anpassung auszuführen.
   
   

Sehen Sie hierzu auch

X

Englischsprachige Quelle

Scale Model VBA to change the working units and resolution