- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
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.
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.
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
Yes for the most part replacing the number with the label name is possible.
@manu.marjanen The solved solution is the code posted by @mcgyvr.