Macro to Set Printing Line Weights 2009

I've made this macro to set printing line weights. It worksfor setting any line weight above .01 . In this macro, the first 3line weights are not set (.003 .005 .007), but the last 5 are set(.01 .014 .017 .02 .06).

Is there any way to set a line weight below .01?

Any help would be greatly appreciated.



Dim swModel As SldWorks.ModelDoc2
Dim swDraw As SldWorks.DrawingDoc
Dim swLayerMgr As SldWorks.LayerMgr
Dim swLayer As SldWorks.Layer
Dim ModelDocExtension As ModelDocExtension
Dim boolstatus As Boolean
Public arrLayerNames(76) As String
Public arrLineWeight(76) As Variant



Sub main()

'Half Size Plot

Set swApp = Application.SldWorks

Set swModel = swApp.ActiveDoc

Set ModelDocExtension = swModel.Extension

boolstatus =ModelDocExtension.SetUserPreferenceDouble(swUserPreferenceDoubleValue_e.swPageSetupPrinterThinLineWeight,0, 0.0000762) '0.0030

boolstatus =ModelDocExtension.SetUserPreferenceDouble(swUserPreferenceDoubleValue_e.swPageSetupPrinterNormalLineWeight,0, 0.000127) '0.0050

boolstatus =ModelDocExtension.SetUserPreferenceDouble(swUserPreferenceDoubleValue_e.swPageSetupPrinterThickLineWeight,0, 0.0001778) '0.0070

boolstatus =ModelDocExtension.SetUserPreferenceDouble(swUserPreferenceDoubleValue_e.swPageSetupPrinterThick2LineWeight,0, 0.000254) '0.0100

boolstatus =ModelDocExtension.SetUserPreferenceDouble(swUserPreferenceDoubleValue_e.swPageSetupPrinterThick3LineWeight,0, 0.0003556) '0.0140

boolstatus =ModelDocExtension.SetUserPreferenceDouble(swUserPreferenceDoubleValue_e.swPageSetupPrinterThick4LineWeight,0, 0.0004318) '0.0170

boolstatus =ModelDocExtension.SetUserPreferenceDouble(swUserPreferenceDoubleValue_e.swPageSetupPrinterThick5LineWeight,0, 0.000508) '0.0200

boolstatus =ModelDocExtension.SetUserPreferenceDouble(swUserPreferenceDoubleValue_e.swPageSetupPrinterThick6LineWeight,0, 0.001524) '0.0600

End Sub
SolidworksApi macros