Bentley Communities
Bentley Communities
  • Site
  • User
  • Site
  • Search
  • User
  • Welcome
  • Products
  • Support
  • About
  • More
  • Cancel
MicroStation
  • Product Communities
  • More
MicroStation
MicroStation Wiki (Deutsch) Modell Skalieren VBA um die Arbeitseinheiten und die Auflösung zu ändern
    • Sign in

    • MicroStation - Wiki (Deutsch)
    • +AECOsim Building Designer
    • +Bentley LEARN
    • +Bentley LumenRT
    • +Bentley Navigator
    • +Bentley View
    • +CONNECTION Client
    • +ContextCapture
    • -MicroStation
      • +Animation - MicroStation
      • +Anpassung der Benutzeroberfläche - MicroStation
      • +Ansicht - MicroStation
      • +Archivieren/Sichern - MicroStation
      • +Austausch - MicroStation
      • +Auswahl - MicroStation
      • +Basisgeometrie - MicroStation
      • Behobene Probleme in MicroStation CONNECT Edition Update 13, 10.13.00.48
      • +Bemaßungen - MicroStation
      • +Bemusterung - MicroStation
      • +Benutzerdefinierte Stricharten - MicroStation
      • +Blattaufbau - MicroStation
      • +Dateizugriff - MicroStation
      • +Detailsymbole - MicroStation
      • +DGN - MicroStation
      • +Dokumentation und Hilfe - MicroStation
      • +Drucken - MicroStation
      • +DWG - MicroStation
      • +Ebenen - MicroStation
      • +Eigenschaften - MicroStation
      • -Einheiten - MicroStation
        • Arbeitseinheiten temporär anpassen
        • Beim Messen werden keine Arbeitseinheiten angezeigt
        • Modell Skalieren VBA um die Arbeitseinheiten und die Auflösung zu ändern
        • Verfügbare Arbeitseinheiten anpassen
        • Wie kann man die Arbeitseinheiten auf Inch umstellen?
      • +FAQ - MicroStation
      • +Feature-basierte Volumenelement-Modellierung - MicroStation
      • +Grafikanzeige - MicroStation
      • +Graphics Display - MicroStation
      • +Gruppen - MicroStation
      • +GUI - MicroStation
      • +Hardware/Eingabegeräte - MicroStation
      • +i.Models - MicroStation
      • +Installation - MicroStation
      • +Interferenz - MicroStation
      • +Konfiguration - MicroStation
      • +Koordinatensysteme - MicroStation
      • +Kurven - MicroStation
      • Levels - MicroStation
      • +Manipulation - MicroStation
      • +Messen - MicroStation
      • +Modelle - MicroStation
      • +OLE - MicroStation
      • Other - MicroStation
      • +Parametrics - MicroStation
      • Printing - MicroStation
      • +Programmierung - MicroStation
      • Programming - MicroStation
      • +Projektnavigation - MicroStation
      • Pseudozellen mit Texten, Font ändern
      • +Punktwolke - MicroStation
      • +Raster - MicroStation
      • +Referenz - MicroStation
      • +Sonstiges - MicroStation
      • +Standards - MicroStation
      • +Stapelverarbeitung - MicroStation
      • +Tabellen - MicroStation
      • +Text - MicroStation
      • +Visualisierung - MicroStation
      • +Volumenelemente
      • +Volumenelemente - MicroStation
      • +Zeichenhilfen - MicroStation
      • +Zellen - MicroStation
      • Zellen mit Sachdaten auflösen und Sachdaten erhalten
      • Zoom gleichzeitig auf 2 Fenster anwenden mit VBA Eventhandler
      • +Änderungsverfolgung - MicroStation
    • +MicroStation PowerDraft

     
     Questions about this article, topic, or product? Click here. 

    Modell Skalieren VBA um die Arbeitseinheiten und die Auflösung zu ändern

      Produkt(e): MicroStation
      Version(en): 08.11.09.459
      Umgebung: N\A
      Produktbereich: Einheiten
      Produktunterbereich: N\A

    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


      Ursprünglicher Autor: Yvonne Lohse
    • Makro
    • 08.11.09.459
    • Arbeitseinheiten
    • Einheiten
    • skalieren
    • MicroStation
    • VBA
    • Auflösung
    • Ändern
    • SELECTsupport
    • de
    • Share
    • History
    • More
    • Cancel
    • Yvonne Lohse Created by Bentley Colleague Yvonne Lohse
    • When: Wed, Apr 20 2016 6:39 AM
    • Yvonne Lohse Last revision by Bentley Colleague Yvonne Lohse
    • When: Wed, Apr 20 2016 7:20 AM
    • Revisions: 3
    • Comments: 0
    Recommended
    Related
    Communities
    • Home
    • Getting Started
    • Community Central
    • Products
    • Support
    • Secure File Upload
    • Feedback
    Support and Services
    • Home
    • Product Support
    • Downloads
    • Subscription Services Portal
    Training and Learning
    • Home
    • About Bentley Institute
    • My Learning History
    • Reference Books
    Social Media
    •    LinkedIn
    •    Facebook
    •    Twitter
    •    YouTube
    •    RSS Feed
    •    Email

    © 2021 Bentley Systems, Incorporated  |  Contact Us  |  Privacy |  Terms of Use  |  Cookies