如何利用VBA调整Flow Simulation中热源的热生成率（Q值）？

核心修改要点 #

要实现修改热生成率（Q值）并给两个零件批量添加体积热源，需借助IParametrizedFeature接口配置参数，同时扩展拓扑组件的添加逻辑：

1. 引入热生成率对应的API参数常量
2. 通过参数接口直接设置Q值
3. 扩展零件关联逻辑，覆盖"PLAQUE"和"DISQUE"两个实体

修改后的完整代码 #

Sub Heat_sources_volumeSetParameters()

    Const nikVolumeSource = 4
    Const nikFTR_topology = 0
    Const nikVolSrcHeatGenRate = 1 ' 热生成率参数ID
    
    Dim SRV As NIKCommonApiSrvLib.BaseApiObject
    Dim NCA As Object
    Dim IA As Object
    Dim MD As Object
    Dim MC As Object
    Dim FDA As Object
    Dim Feature As Object
    Dim PFeature As Object
    Dim TopFeature As Object
    Dim retval As Boolean

    Set SRV = New NIKCommonApiSrvLib.BaseApiObject
    Set NCA = SRV.LoadNIKCommonApiLibrary
    retval = NCA.LoadProductAPI2("Flow Simulation", "2022")
    Set IA = NCA.Attach2RunningObject
    Set MD = IA.ActiveDocument
    Set MC = MD.ActiveConfiguration
    Set FDA = MC.GetFluidDynamicAnalysisProject

    ' 创建体积热源临时特征
    Set Feature = FDA.CreateTemporaryFeature(nikVolumeSource)
    Set TopFeature = Feature.GetInterface("ITopologyBasedFeature")
    Set PFeature = Feature.GetInterface("IParametrizedFeature")

    ' 设置热生成率Q值（示例：1000 W/m³，可按需调整数值）
    retval = PFeature.SetParameterValue(nikVolSrcHeatGenRate, 1000)

    ' 给两个零件绑定体积热源
    retval = TopFeature.AddComponent(nikFTR_topology, "PLAQUE")
    retval = TopFeature.AddComponent(nikFTR_topology, "DISQUE")

    ' 将配置好的热源特征添加到分析项目
    retval = FDA.AddTemporaryFeature(Feature)

    NCA.UnloadProductAPI

End Sub

关键代码说明 #

• 热生成率设置：PFeature.SetParameterValue(nikVolSrcHeatGenRate, 1000) 中第二个参数为热生成率数值，单位默认是W/m³，可根据项目单位体系调整
• 多零件关联：连续调用TopFeature.AddComponent可让同一个热源作用在多个零件上；若需给两个零件设置不同Q值，需分别创建独立的体积热源特征
• 参数ID验证：如果nikVolSrcHeatGenRate值不生效，可通过PFeature.EnumParameters方法枚举所有参数，确认热生成率对应的正确ID

内容的提问来源于stack exchange，提问作者Imad