我正在从事一个项目，并且一直在取得进展，遇到了需要帮助的问题。我正在尝试发布各个级别的零件的用户定义属性。我可以定位该区域，但是每次尝试创建引用时都会失败。此外，CATIA表示这些要素不可发布。零件处于顶级状态时，我可以发布什么变化？

下面是我的代码，该代码以发布为目标。

Sub Sublevel_Part_Publication()

'This is a work in progress sub

For i = 1 To CATIA.Documents.Count
    'MsgBox i
    If CATIA.Documents.Item(i).Name = CATIA.activeDocument.Selection.Item(1).LeafProduct.ReferenceProduct.Name & ".CATPart" Then
        Set active_Name_Input = CATIA.Documents.Item(i).GetItem(1)
    End If
Next


Dim product1
Set product1 = active_Name_Input

Dim PARAMS As Parameters
Set PARAMS = product1.Parameters

Dim RELATIONS As RELATIONS
Set RELATIONS = product1.RELATIONS

Dim PUBS As Publications
Set PUBS = product1.Publications

Set PARAM_MANUF = PARAMS.CreateString("MANUFactURER/SOURCE","")  


'----- CREATE RELATIONS (FORMULAS) -----
Set FORMULA_MANUF = RELATIONS.CreateFormula("MANUF","",PARAM_MANUF,"`Properties\MANUFactURER/SOURCE` ")   '"`" & active_Name_Input.Name & "\Properties\MANUFactURER/SOURCE` "


'----- CREATE PUBLICATIONS -----
Set REF_MANUF = product1.CreateReferenceFromName("MANUFactURER/SOURCE")


Set PUB_MANUF = PUBS.Add("MANUFactURER/SOURCE")


PUBS.SetDirect "MANUFactURER/SOURCE",REF_MANUF



End Sub

我试图直接进行出版物的发布，但一直失败。进行参数和公式处理是可行的。