09-10-2021
05:45 AM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
09-10-2021
05:45 AM
Dim oDwgDoc As Document
oDwgDoc = ThisApplication.ActiveDocument 'the current document
Dim oSheet As Sheet
oSheet = oDwgDoc.Sheets.Item(1) 'first sheet
Dim oView As DrawingView
oView = oSheet.DrawingViews.Item(1) 'first base view sheet 1
oView.Scale = Parameter1 'set drawing scale to parameter 1
oSheet2 = oDwgDoc.Sheets.Item(2) 'second sheet
Dim oView2 As DrawingView
oView2 = oSheet2.DrawingViews.Item(1) 'first base view sheet 2
oView2.Scale = Parameter2 'set drawing scale to parameter 2
-------------------------------------------------------------------------------------------
Inventor 2023 - Dell Precision 5570
Did you find this reply helpful ? If so please use the Accept Solution button below.
Maybe buy me a beer through Venmo @mcgyvr1269