SolidWorks 怎么批量修改文件的单位系统？

Question

零件模型中单位不统一，主要是重量单位，有g和kg两种，怎么利用vba批量修改所有零件单位系统，都将重量单位设置成kg

Answer 1

VBA 宏来批量修改文件的单位系统

Option Explicit

Sub main()
    Dim swApp As SldWorks.SldWorks
    Dim swModel As SldWorks.ModelDoc2
    Dim swModelDocExt As SldWorks.ModelDocExtension
    Dim swCustomInfo As CustomPropertyManager
    Dim swCustProp As CustomProperty
    Dim swCustPropNames As Variant
    Dim i As Integer
    
    Set swApp = Application.SldWorks
    

    For i = 0 To swApp.GetDocumentCount - 1
        Set swModel = swApp.Document(i)
        Set swModelDocExt = swModel.Extension
        

        swModelDocExt.SetUserPreferenceInteger swUserPreferenceIntegerValue_e.swUnitsMassPropMass, swUserPreferenceOption_e.swDetailingNoOptionSpecified, swUnitsMassPropMass_e.swUnitsMassPropMass_Kilograms
        
   
        swModel.Save
    Next i
End Sub