Es sollen alle Modelle einer DGN mit einer Tastatureingabe gelöscht werden. Eine solche ist jedoch nicht vorhanden. Wie kann dies auf andere Weise realisiert werden?
Diese Aufgabe kann mit Programmierung durch MVBA erledigt werden.
------------------Sub delete_all_models()
Dim oMods As ModelReferences Dim oMod As ModelReference Dim i As Long Set oMods = ActiveDesignFile.Models oMods(1).Activate For i = 2 To oMods.Count oMods.Delete oMods(2) Next
End Sub------------------(von Artur Goldsweer)Dieses Makro sucht das Modell mit dem niedrigsten Index und löscht dann die nächsthöheren, bis keine Modelle außer dem nicht löschbaren Standard-Modell vorhanden sind.
https://communities.bentley.com/products/programming/microstation_programming/w/wiki/12628.deleting-all-models (engl.)
https://communities.bentley.com/products/microstation/w/microstation_-_wiki_de/18407.das-master-modell-default-loschen