Macro Syntax for Setting Shaded Image Quality 1

Const SF As Double = 1000

Dim swApp As SldWorks.SldWorks
Dim swDoc As SldWorks.ModelDoc2
Dim CurVal As Double
Dim MaxVal As Double
Dim MinVal As Double
Dim NewVal As Double
Dim myString As String

Sub main()

Set swApp = Application.SldWorks
Set swDoc = swApp.ActiveDoc
swDoc.Extension.GetUserPreferenceDoubleValueRange _
    swImageQualityShadedDeviation, CurVal, MinVal, MaxVal
myString = "Enter a value between " & MinVal * 1000 & " and " & MaxVal * 1000 & _
    vbCrLf & vbCrLf & "     (Current value is " & CurVal * 1000 & ")"
NewVal = Val(InputBox(myString, "Shaded Deviation", CurVal * 1000)) / 1000
swDoc.SetUserPreferenceDoubleValue swImageQualityShadedDeviation, NewVal

End Sub

Const SF As Double = 1000
'This SF is not really necessary.  It just avoids having 
'to deal with numbers like 5E-4

Dim swApp As SldWorks.SldWorks
Dim swDoc As SldWorks.ModelDoc2
Dim CurVal As Double
Dim MaxVal As Double
Dim MinVal As Double
Dim NewVal As Double
Dim myString As String
'variable declarations

Sub main()

Set swApp = Application.SldWorks
Set swDoc = swApp.ActiveDoc
'These two are sort of standard lines to get 
'references to SolidWorks and the current document.

swDoc.Extension.GetUserPreferenceDoubleValueRange _
    swImageQualityShadedDeviation, CurVal, MinVal, MaxVal
'This line gets the current value along with the maximum and
'minimum allowed values for the shaded deviation.  It loads
'these values into the variables CurVal, MinVal, and MaxVal.
'You need to know what the max and min acceptable values
'are before you can input one.

myString = "Enter a value between " & MinVal * SF & " and " & MaxVal * SF & _
    vbCrLf & vbCrLf & "     (Current value is " & CurVal * SF & ")"
'All this line does is build up the message for the InputBox.  It multiplies
'all the values by SF to make them easier for the user to read and input.


NewVal = Val(InputBox(myString, "Shaded Deviation", CurVal * SF)) / SF
'This line is what actually displays the box asking the user for a new
'value.  The input box comes up with the current value (multiplied by
'the scale factor) for convenience.  Whatever the user enters is 
'divided by the scale factor to get it back to the right value.
'This value is loaded into the variable NewVal

swDoc.SetUserPreferenceDoubleValue swImageQualityShadedDeviation, NewVal
'This line actually sets the new value.  If you knew from the start what
'that new value was, all you would need is this line and the two lines 
'starting with "Set...".  All the stuff in the middle is just for the 
'user interface.  However, I'm not sure how much the acceptable
'values for the deviation vary from file to file, so if you hard-code
'a particular value for the new deviation then your macro may not always work.

End Sub