MACRO LIBRARY

Lesson 3.5 code

Free public access. No account or subscription required.

Files

Code

Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
    
Sub main()
    Set swApp = Application.SldWorks
    Set swModel = swApp.ActiveDoc
        
    swModel.Extension.SetUserPreferenceInteger _
        SwConst.swUserPreferenceIntegerValue_e.swDetailingLinearDimPrecision, _
        SwConst.swUserPreferenceOption_e.swDetailingNoOptionSpecified, 2
End Sub