I have got a small sub that hides/shows several levels within a view.
Here's the code:
Sub Ansicht2() Dim lev As Level For Each lev In ActiveDesignFile.Levels Select Case True Case UCase(lev.Name) = "DECKENBALKEN" lev.IsDisplayedInView(ActiveDesignFile…