12-14-2021
09:14 PM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
12-14-2021
09:14 PM
Hi,
Is that possible to make this scale view on for the active sheet?
Dim oDrawDoc As DrawingDocument = ThisDrawing.Document Dim oSheet As Sheet Dim oSheets As Sheets Dim oView As DrawingView Dim oViews As DrawingViews Dim oScale As Double oScale = InputBox("Enter Desired Scale", "Scaler", "1") oSheets = oDrawDoc.Sheets For Each oSheet In oSheets oViews = oSheet.DrawingViews For Each oView In oViews If oView.ScaleFromBase = False Then oView.Scale = oScale End If Next Next
Solved! Go to Solution.
12-14-2021
11:50 PM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
12-14-2021
11:50 PM
Here is a link to API help for ActiveSheet property and syntax. Just remove the loop through the sheets and on the active sheet loop through the views.
Dim oSheet As Sheet = oDrawDoc.ActiveSheet
oViews = oSheet.DrawingViews
For Each oView In oViews
If oView.ScaleFromBase = False Then
oView.Scale = oScale
End If
Next
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
12-15-2021
03:19 PM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
12-15-2021
03:19 PM
@A.Acheson I had tried to remove the loop but I show an error. Please share full code here, so I can check where is my mistake. Thanks!
12-15-2021
04:11 PM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
12-15-2021
04:11 PM
Here you go. Error were likely declarations in the wrong place. Hopefully you can check this tested one to see where it went wrong.
Dim oDrawDoc As DrawingDocument = ThisDrawing.Document Dim oSheet As Sheet Dim oSheets As Sheets Dim oView As DrawingView Dim oViews As DrawingViews Dim oScale As Double oScale = InputBox("Enter Desired Scale", "Scaler", "1") oSheet = oDrawDoc.ActiveSheet oViews = oSheet.DrawingViews For Each oView In oViews If oView.ScaleFromBase = False Then oView.Scale = oScale End If Next
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
12-15-2021
04:42 PM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
12-15-2021
04:42 PM
@A.Acheson This time working fine. Only 1 sheet change the scale. Thanks a lot.