如何使用CATIA V5 VBA宏批量导入.obj格式文件

核心逻辑 #

CATIA 本身支持通过VBA直接调用内置的第三方格式导入器，你手动通过「现有组件」打开.obj的操作，底层对应VBA的外部组件添加/文档打开接口，无需额外依赖第三方工具。

可直接运行的宏代码示例 #

Sub BatchImportOBJ()
    ' 初始化CATIA对象
    Dim CATIA As Object
    On Error Resume Next
    Set CATIA = GetObject(, "CATIA.Application")
    If Err.Number <> 0 Then
        Set CATIA = CreateObject("CATIA.Application")
        CATIA.Visible = True
    End If
    On Error GoTo 0
    
    ' 配置目标文件夹路径，替换为你实际存放.obj文件的目录
    Dim targetFolder As String
    targetFolder = "D:\Batch_OBJ_Files\"
    
    Dim fso As Object
    Set fso = CreateObject("Scripting.FileSystemObject")
    Dim curFile As Object
    
    ' 遍历文件夹下所有.obj文件
    For Each curFile In fso.GetFolder(targetFolder).Files
        If LCase(fso.GetExtensionName(curFile.Path)) = "obj" Then
            On Error Resume Next
            ' 场景1：单独打开.obj并保存为CATPart
            Dim importDoc As Document
            Set importDoc = CATIA.Documents.Open(curFile.Path)
            
            ' 场景2：作为组件插入当前打开的产品（替换上面两行即可，对应你手动「现有组件」操作）
            ' Dim activeProd As Product
            ' Set activeProd = CATIA.ActiveDocument.Product
            ' activeProd.Products.AddExternalComponent curFile.Path
            
            If Err.Number = 0 Then
                ' 可选：自动保存为CATPart，不需要可删除
                Dim savePath As String
                savePath = targetFolder & fso.GetBaseName(curFile.Name) & ".CATPart"
                importDoc.SaveAs savePath
                importDoc.Close ' 关闭文档释放内存，必加避免内存溢出
            Else
                ' 记录导入失败的文件，可自定义输出到日志文件
                Debug.Print "导入失败文件：" & curFile.Name & " 错误码：" & Err.Number
                Err.Clear
            End If
            On Error GoTo 0
        End If
    Next
    
    Set fso = Nothing
    MsgBox "批量导入任务执行完成"
End Sub

注意事项 #

• 提前在CATIA的「工具>选项>兼容性>OBJ」页面配置好导入精度、坐标系等默认参数，宏调用时会自动沿用该配置
• 1万量级文件处理时建议每处理200~300个文件重启一次CATIA进程，避免CATIA内存泄漏导致崩溃
• 若.obj文件带关联的.mtl材质贴图，需要确保贴图路径和.obj文件内的引用路径一致，否则会丢失材质信息
• 导入操作需要CATIA具备通用导入模块的许可，无许可时会抛出权限错误

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