Set Site view active

[MarkSanchezSPEC]

Is there a way to set the "Site" view active via the API (see attachment)

Using some other view-related posts, this is what I've come up with so far; I can iterate and find the View but how do I set it "active"?

            If doc.ActiveView.Name <> "Site" Then
                Using tr As New Transaction(doc, "SetSiteView")
                    tr.Start()
                    For Each v As View In New FilteredElementCollector(doc).OfClass(GetType(View))
                        If v.Name = "Site" Then
                            v.Active = True    'SOMETHING LIKE THIS?
                            Exit For
                        End If
                    Next
                End Using
            End If

[matthew_taylor · Accepted solution]

Hi,
This should do it:
Dim uiDoc as UI.uiDocument = _
new ui.uidocument(doc)
uiDoc.ActiveView=siteView

[MarkSanchezSPEC]

UIDocument did the trick. Guess I need to look into the differences between the two "documents", but I think I have some idea.

This was my final code:

            Dim uiDoc As UIDocument = New UIDocument(doc)
            If uiDoc.ActiveView.Name <> "Site" Then
                For Each v As View In New FilteredElementCollector(doc).OfClass(GetType(View))
                    If v.Name = "Site" Then
                        uiDoc.ActiveView = v
                        Exit For
                    End If
                Next
            End If

Cheers!