如何通过SmarTeam API在CATIA中打开并导出零件最新图纸版本

核心逻辑 #

零件与图纸的关联关系存储在SmarTeam的关联规则中，不能单纯依赖CATIA的文档关联方法，必须通过SmarTeam的API查询关联对象，再筛选最新版本后打开导出。

关键步骤与代码实现 #

1. 前期准备 #

确保VBA工程中引用了对应版本的SmarTeam Type Library（可在VBA编辑器的「工具」→「引用」中勾选）。

2. 完整宏代码 #

Sub ExportPartLatestDrawingToPDF()
    Dim catia As Object
    Dim stSession As Object
    Dim currentPartSTObj As Object
    Dim relatedObjects As Object
    Dim drawingSTObj As Object
    Dim latestDrawingSTObj As Object
    Dim drawingDoc As Object
    Dim pdfPath As String
    
    ' 绑定CATIA和SmarTeam会话
    Set catia = GetObject(, "CATIA.Application")
    Set stSession = CreateObject("SmarTeam.Application")
    
    ' 获取当前激活零件对应的SmarTeam对象
    Set currentPartSTObj = stSession.GetObjectFromCATIAObject(catia.ActiveDocument)
    If currentPartSTObj Is Nothing Then
        MsgBox "当前零件未在SmarTeam中检出", vbExclamation
        Exit Sub
    End If
    
    ' 查询关联图纸（替换为你的SmarTeam关联类型内部名称，如"TechDrawing_Link"）
    Set relatedObjects = currentPartSTObj.GetRelatedObjects("TechDrawing_Link", 0) ' 0代表正向关联
    If relatedObjects.Count = 0 Then
        MsgBox "未找到关联技术图纸", vbExclamation
        Exit Sub
    End If
    
    ' 筛选最新版本图纸
    Set latestDrawingSTObj = GetLatestVersion(relatedObjects)
    If latestDrawingSTObj Is Nothing Then
        MsgBox "无法获取图纸最新版本", vbExclamation
        Exit Sub
    End If
    
    ' 打开图纸到CATIA（0=只读模式）
    Set drawingDoc = latestDrawingSTObj.GetDocument(catia, 0)
    
    ' 导出PDF（自行修改保存路径）
    pdfPath = "C:\Export\" & latestDrawingSTObj.Name & "_V" & latestDrawingSTObj.Version & ".pdf"
    drawingDoc.ExportData pdfPath, "PDF"
    
    ' 清理资源
    Set drawingDoc = Nothing
    Set latestDrawingSTObj = Nothing
    Set relatedObjects = Nothing
    Set currentPartSTObj = Nothing
    Set stSession = Nothing
    Set catia = Nothing
    
    MsgBox "PDF导出完成：" & pdfPath, vbInformation
End Sub

' 辅助函数：从SmarTeam对象集合中筛选最新版本
Function GetLatestVersion(stObjects As Object) As Object
    Dim latestObj As Object
    Dim currentObj As Object
    Dim latestVer As Integer
    
    latestVer = 0
    For Each currentObj In stObjects
        If currentObj.Version > latestVer Then
            latestVer = currentObj.Version
            Set latestObj = currentObj
        End If
    Next
    Set GetLatestVersion = latestObj
End Function

常见问题排查 #

• 关联类型名称错误：必须使用SmarTeam管理员控制台中定义的关联类型内部名称（不是界面显示名称），可通过SmarTeam的对象模型查询或管理员确认。
• 零件未检出：如果当前零件是本地离线文件，需先通过SmarTeam检出，或改用stSession.FindObject方法，传入零件的ObjectID和ClassID定位SmarTeam对象。
• 版本格式兼容：若SmarTeam使用字符串格式版本（如V2.1），需修改GetLatestVersion函数的版本比较逻辑，拆分字符串后转数值对比。
• 权限不足：确保当前用户拥有关联图纸的读取和打开权限。

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