Hi, you can run this after opening the assembly
--------------------------------------------------------------------------------------
Private Sub SetDesignView(Name As String) 'designview name
Dim oAssyDoc As AssemblyDocument = _inventorApplication.ActiveEditDocument
Try
Dim oAssyCompDef As AssemblyComponentDefinition = oAssyDoc.ComponentDefinition
Dim oRepresman As RepresentationsManager = oAssyCompDef.RepresentationsManager
Dim oDesignview As DesignViewRepresentation = oRepresman.DesignViewRepresentations.Item(Name)
If oDesignview IsNot Nothing Then
oDesignview.Activate()
End If
Catch ex As Exception
End Try
End Sub
---------------------------------------------------------------------------------------------------
If a response answers your question, please use ACCEPT SOLUTION to assist other users later.
Also be generous with Likes! Thank you and enjoy!