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

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