Announcements
Attention for Customers without Multi-Factor Authentication or Single Sign-On - OTP Verification rolls out April 2025. Read all about it here.
ckeveryga
in reply to: Anonymous

If you know the name of the view, you could do this

If ThisApplication.ActiveDocumentType <> kdrawingdocumentobject Then
	MessageBox.Show("Only works for drawings")
	Exit Sub
End If

Dim oDrawDoc As DrawingDocument
oDrawDoc = ThisApplication.ActiveDocument

Dim oSheet As Inventor.Sheet
oSheet = oDrawDoc.Sheets.Item(1)

Dim oDetailView As DrawingView

For Each oView As DrawingView In oSheet.DrawingViews
	If oView.Name = "B" Then
		oDetailView = oView
	End If
Next