Check For Existence of View Group using VBA

Question

Hello MicroStation Programming Community, 
 
 How would one check for the existence of a View Group within the active Design File using VBA code? I can't seem to find examples of this. Looking to delete the View Group if it exists. 
 
 Thanks!

Jan Šlegr · Answer

I do not see any problem in VBA code: 
 Public Sub DeleteViewGroup()
 Dim vgs As ViewGroups: Set vgs = ActiveDesignFile.ViewGroups
 Dim vg As ViewGroup
 
 For Each vg In vgs
 If vg.name = "Multi-Model Views" Then
 vg.Delete
 Exit For
 End If
 Next
End Sub
 
 Is there anything special in your DGN file? Can be the view group deleted manually? 
 With regards, 
 Jan

Check For Existence of View Group using VBA

Top Replies