' ******************************************************************************

' C:\windows\temp\swx-42884455\Macro1.swb - macro recorded on 01/27/00 by mk

' ******************************************************************************

const    swSTLDeviation = 2

const    swSTLAngleTolerance = 3



Dim swApp As Object

Dim Part As Object

Dim Gtol As Object

Sub main()

Set swApp = CreateObject ("SldWorks.Application")

Set Part = swApp.ActiveDoc

'swApp.ActiveDoc.ActiveView.FrameState = 1

dim a as double

'a = swApp.GetUserPreferenceDoubleValue( swSTLDeviation)

'a = swApp.GetUserPreferenceDoubleValue( swSTLAngleTolerance)

a = pi / 8

a = pi / 7.9999

swApp.SetUserPreferenceDoubleValue swSTLDeviation,0.0005

swApp.SetUserPreferenceDoubleValue swSTLAngleTolerance,  pi/7.9999

End Sub