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

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