如何通过Catia VB脚本创建宏获取发布名称及其状态？

核心思路 #

Catia中发布项的信息存储在Publications集合中，每个Publication对象包含名称和状态属性，通过VBA宏直接调用对象模型即可获取所需信息。

代码实现示例 #

Sub GetPublicationInfo()
    ' 获取当前激活的零件文档（装配文档需替换为ProductDocument）
    Dim activeDoc As PartDocument
    Set activeDoc = CATIA.ActiveDocument
    
    ' 访问文档的发布集合
    Dim pubs As Publications
    Set pubs = activeDoc.Part.Publications
    
    ' 遍历所有发布项
    Dim pub As Publication
    For Each pub In pubs
        ' 获取发布名称
        Dim pubName As String
        pubName = pub.Name
        
        ' 获取并转换发布状态为可读文本
        Dim statusTxt As String
        Select Case pub.Status
            Case catPublicationUpToDate
                statusTxt = "已更新"
            Case catPublicationOutOfDate
                statusTxt = "已过期"
            Case catPublicationNotPublished
                statusTxt = "未发布"
            Case Else
                statusTxt = "未知状态"
        End Select
        
        ' 打印或输出结果（可替换为写入文件等操作）
        Debug.Print "发布名称: " & pubName & " | 状态: " & statusTxt
    Next pub
End Sub

关键说明 #

• 若处理装配文档，需将PartDocument替换为ProductDocument，并通过activeDoc.Product.Publications访问发布集合
• pub.Status返回的CatPublicationStatus枚举值与你参考图片中发布窗口的状态完全对应
• 如需定位单个发布项，可使用pubs.Item("目标发布名称")直接获取指定对象

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