腾讯元宝辅助CATIA二次开发编程太丝滑了吧?

Option Explicit

' 转换单个文件Function ConvertSingleFile(inputFilePath As String, exportPath As String) As Boolean    On Error GoTo ErrorHandler
    'Dim catia As Object    Dim document As Object    Dim partDocument As Object    Dim fileName As String    Dim exportName As String
    ' 获取CATIA应用'    Set catia = GetObject("CATIA.Application")'    If catia Is Nothing Then'        Set catia = CreateObject("CATIA.Application")'    End If
    ' 设置CATIA可见性（可选）    catia.Visible = True
    ' 从完整路径中提取文件名    fileName = Right(inputFilePath, Len(inputFilePath) - InStrRev(inputFilePath, "\"))
    exportName = Left(fileName, InStrRev(fileName, ".") - 1) & ".stp"
    ' 打开CATPart文件    Set document = catia.Documents.Open(inputFilePath)    Set partDocument = document
    ' 导出为STP格式    partDocument.ExportData exportPath & "\" & exportName, "stp"
    ' 关闭文档（不保存）    document.Close
    ' 清理对象    Set partDocument = Nothing    Set document = Nothing
    ConvertSingleFile = True    Exit Function
ErrorHandler:    ConvertSingleFile = False    MsgBox "转换文件失败: " & fileName & vbCrLf & _           "错误: " & Err.Description, vbExclamationEnd Function
' 获取文件夹中 特定类型的文件Function GetFilesInFolder(folderPath As String, filePattern As String) As String()    Dim fso As Object    Dim folder As Object    Dim file As Object    Dim fileList() As String    Dim count As Integer
    Set fso = CreateObject("Scripting.FileSystemObject")
    If Not fso.FolderExists(folderPath) Then        ReDim fileList(-1 To -1)        GetFilesInFolder = fileList        Exit Function    End If
    Set folder = fso.GetFolder(folderPath)
    ' 初始化数组    ReDim fileList(0)    count = 0
    ' 遍历文件    For Each file In folder.Files
        If LCase(fso.GetExtensionName(file.Name)) = LCase(Replace(filePattern, "*", "")) Or _           LCase(file.Name) Like LCase(filePattern) Then            If count > 0 Then ReDim Preserve fileList(count)            fileList(count) = file.Path            count = count + 1        End If    Next
    ' 调整数组大小    If count = 0 Then        ReDim fileList(-1 To -1)    Else        ReDim Preserve fileList(count - 1)    End If
    GetFilesInFolder = fileListEnd Function

' 简单界面版本 - 直接指定路径Sub SimpleBatchConvert()    Dim inputFolder As String    Dim outputFolder As String
    ' 设置输入输出文件夹路径    inputFolder = "E:\新建文件夹\yourinputfolder"  ' 修改为你的输入文件夹路径    outputFolder = "E:\新建文件夹\youroutputfolder"  ' 修改为你的输出文件夹路径
    ' 确保文件夹存在    Dim fso As Object    Set fso = CreateObject("Scripting.FileSystemObject")
    If Not fso.FolderExists(inputFolder) Then        MsgBox "输入文件夹不存在！", vbExclamation        Exit Sub    End If
    If Not fso.FolderExists(outputFolder) Then        ' 创建输出文件夹        fso.CreateFolder outputFolder    End If
    ' 批量转换    Dim fileList() As String    Dim i As Integer    Dim successCount As Integer
    fileList = GetFilesInFolder(inputFolder, "*.CATPart")
    For i = 0 To UBound(fileList)        If ConvertSingleFile(fileList(i), outputFolder) Then            successCount = successCount + 1        End If    Next i
    MsgBox "转换完成！共处理 " & (UBound(fileList) + 1) & " 个文件，成功 " & successCount & " 个。", vbInformationEnd Sub

Sub ExportData(CATBSTR fileName,CATBSTR format)Exports the data contained in the document to another format. Parameters: fileName :The name of the exported file format :The name of the format Example: This example writes the Doc document in the IGES format under the IGESDoc name. Doc.ExportData("IGESDoc", "igs")