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
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