使用SOLIDWORKS API设置BOM数量（单位）属性

本示例演示了如何使用SOLIDWORKS API修改属性对话框中的BOM数量字段。

{ width=640 height=170 }

此选项允许覆盖BOM表中组件的数量值。

{ width=640 }

要更改此属性，需要通过SOLIDWORKS API接口ICustomPropertyManager设置隐藏的UNIT_OF_MEASURE自定义属性。

Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2

Const BOM_QTY_PRP_NAME As String = "UNIT_OF_MEASURE"
Const QTY_PRP_NAME As String = "Qty"

Sub main()

    Set swApp = Application.SldWorks
    
    Set swModel = swApp.ActiveDoc
    
    If Not swModel Is Nothing Then
    
        Dim swCustPrpMgr As SldWorks.CustomPropertyManager
        
        Set swCustPrpMgr = swModel.Extension.CustomPropertyManager("")
            
        Dim bomQtyPrp As String
        swCustPrpMgr.Get3 BOM_QTY_PRP_NAME, False, "", bomQtyPrp
        
        Debug.Print bomQtyPrp
        
        swCustPrpMgr.Add2 BOM_QTY_PRP_NAME, swCustomInfoType_e.swCustomInfoText, QTY_PRP_NAME
        swCustPrpMgr.Set2 BOM_QTY_PRP_NAME, QTY_PRP_NAME
    
    Else
        
        MsgBox "请打开模型"
        
    End If
    
End Sub