Here is something I just threw together for you. If first asks you to 'Pick' a DrawingView for it to process, then if the view is of a Multi-Body Part document, it will show you a list of the solid body names for you to choose one from. Then it will ensure that body is visible in the view, while turning off visibility of all the other bodies in that view. I have not tested it yet though.
Sub Main
oObj = ThisApplication.CommandManager.Pick(SelectionFilterEnum.kDrawingViewFilter, "Select a Drawing View.")
If IsNothing(oObj) OrElse (TypeOf oObj Is DrawingView = False) Then Exit Sub
Dim oView As DrawingView = oObj
Dim oModelDoc As Document = oView.ReferencedDocumentDescriptor.ReferencedDocument
If oModelDoc.DocumentType <> DocumentTypeEnum.kPartDocumentObject Then Exit Sub
Dim oPDoc As PartDocument = oModelDoc
If oPDoc.ComponentDefinition.HasMultipleSolidBodies = False Then Exit Sub
Dim oBodies As SurfaceBodies = oPDoc.ComponentDefinition.SurfaceBodies
Dim oBodyNames As New List(Of String)
For Each oBody As SurfaceBody In oBodies : oBodyNames.Add(oBody.Name) : Next
Dim oBodyName As String = InputListBox("Pick A Body Name", oBodyNames, "", "Body Names")
If oBodyName = "" Then Exit Sub
For Each oBody As SurfaceBody In oBodies
If oBody.Name = oBodyName Then
oView.SetVisibility(oBody, True)
Else
oView.SetVisibility(oBody, False)
End If
Next
oView.Parent.Update 'update the sheet
'oView.Parent.Parent.Update ' update the drawing
End Sub
If this solved your problem, or answered your question, please click ACCEPT SOLUTION .
Or, if this helped you, please click (LIKE or KUDOS) 👍.
Wesley Crihfield

(Not an Autodesk Employee)