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