用VB写一个函数，调用SOLIDWORKS的API,实现更改装配体中选中对象的自定义属性

很高兴能帮助您！下面是一个使用VB编写的函数，用于调用SOLIDWORKS API并更改装配体中选中对象的自定义属性：

Imports SolidWorks.Interop.sldworks
Imports SolidWorks.Interop.swconst

Public Function ChangeCustomProperty(ByVal swApp As SldWorks, ByVal propName As String, ByVal propValue As String) As Boolean
    Dim swModel As ModelDoc2 = swApp.ActiveDoc
    If swModel Is Nothing Then
        Return False
    End If
    
    Dim swSelMgr As SelectionMgr = swModel.SelectionManager
    If swSelMgr.GetSelectedObjectType3(1, -1) <> swSelectType_e.swSelCOMPONENTS Then
        Return False
    End If
    
    Dim swComp As Component2 = swSelMgr.GetSelectedObjectsComponent4(1, -1)
    If swComp Is Nothing Then
        Return False
    End If
    
    Dim swCustPropMgr As CustomPropertyManager = swComp.Extension.CustomPropertyManager("")
    If swCustPropMgr Is Nothing Then
        Return False
    End If
    
    Dim resVal As String = ""
    Dim resLink As String = ""
    
    Dim res As Boolean = swCustPropMgr.Get3(propName, False, resVal, resLink)
    If Not res Then
        Return False
    End If
    
    res = swCustPropMgr.Set2(propName, propValue)
    If Not res Then
        Return False
    End If
    
    swModel.EditRebuild3()
    
    Return True
End Function

使用此函数，您可以将其与SOLIDWORKS API一起使用，以在装配体中更改选中对象的自定义属性。请确保在调用此函数之前已启动SOLIDWORKS，并且已打开了一个装配体文档。

请注意，您需要在项目中引用SOLIDWORKS API的Interop类型库，并在调用函数之前初始化SOLIDWORKS应用程序对象（swApp）。