04-03-2021
09:07 AM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
04-03-2021
09:07 AM
This is my fix. We have what we call a "revision history sheet" on all our drawings and it's always the last sheet, so this is how I handled it:
Dim oDDoc As DrawingDocument = ThisDrawing.Document Dim oSheet As Inventor.Sheet 'Activate All Sheets in Document For Each oSheet In oDDoc.Sheets oSheet.Activate Next 'set oSheet as the last sheet in a document oSheet = oDDoc.Sheets(oDDoc.Sheets.Count)