Product(s):	MicroStation
	Version(s):	08.11.09.459
	Environment:	N/A
	Area:	Programming
	Subarea:	VBA
	Original Author:	Sven Zigelski, Bentley Technical Support Group

 

 

Problembeschreibung

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?

Schritte zur Problembehebung

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.

Siehe auch

https://bentleysystems.service-now.com/community?id=kb_article_view&sysparm_article=KB0012903 (engl.)

https://bentleysystems.service-now.com/community?id=kb_article_view&sysparm_article=KB0030101