09-10-2021
05:20 AM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
09-10-2021
05:20 AM
How to write code as simply as possible.
To this drawing document "Sheet1" "VIEW1" scale is "Parameter1" and
"Sheet2" "VIEW2" scale is "Parameter2"
Solved! Go to Solution.
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
09-10-2021
05:57 AM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
09-10-2021
05:57 AM
Is this possible to do using names?
Sheet.Item(1) = "Sheet:1"
View.Item(1) = "View:1"
Sheet.Item(1) = "Sheet:1"
View.Item(1) = "View:1"
09-10-2021
05:19 PM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
09-10-2021
05:19 PM
Yes for the most part replacing the number with the label name is possible.
If this solved a problem, please click (accept) as solution.
Or if this helped you, please, click (like)
Regards
Alan
Or if this helped you, please, click (like)
Regards
Alan
09-11-2021
08:12 AM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
09-11-2021
08:12 AM
@manu.marjanen The solved solution is the code posted by @mcgyvr.
If this solved a problem, please click (accept) as solution.
Or if this helped you, please, click (like)
Regards
Alan
Or if this helped you, please, click (like)
Regards
Alan