I want to delete all models of a DGN with a keyin. But there is no keyin available. How to solve this Problem?
The Task can be done with MVBA
------------------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------------------(by Artur Goldsweer)This macro will jump to the model with the lowest index and will delete the next higher until there are no models left excepting the indelible standard model.