VBA 批量修改零件参数工具

项目背景

在零件族管理中，经常需要批量修改多个 .CATPart 文件中的同名参数（如材料、表面处理等），手工操作耗时易错。

本工具通过 Catia VBA 实现：

1. 扫描指定文件夹下所有 .CATPart 文件
2. 读取目标参数列表
3. 批量写入新值并保存

核心代码

Sub BatchUpdateParams()
    Dim folderPath As String
    folderPath = "D:\parts\"

    Dim fileName As String
    fileName = Dir(folderPath & "*.CATPart")

    Do While fileName <> ""
        Dim oDoc As Document
        Set oDoc = CATIA.Documents.Open(folderPath & fileName)

        Dim oPart As Part
        Set oPart = oDoc.Part

        ' 修改参数
        Dim oParam As Parameter
        Set oParam = oPart.Parameters.Item("材料")
        If Not oParam Is Nothing Then
            oParam.Value = "Steel"
        End If

        oDoc.Save
        oDoc.Close
        fileName = Dir()
    Loop

    MsgBox "批量更新完成！"
End Sub

使用说明

1. 修改 folderPath 为您的零件目录
2. 修改参数名称和值
3. 在 Catia 宏编辑器中运行

效果

传统方式	使用本工具
手动逐个打开文件	自动批量处理
30 个文件 ≈ 2 小时	30 个文件 < 5 分钟