07-23-2020
08:57 AM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
07-23-2020
08:57 AM
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