Не работает AddSupportFromReference

[m-shok]

Задача: разбить на КЭ определенные детали в сборке.

Код: Выделить всё

LinkedDoc = AnalManager.LinkedDocuments.Item(1)
        Dim Prod As Product
        Prod = LinkedDoc.Product
        ...

        Dim SurfPart As AnalysisMeshPart
        For Each p As Product In Prod.Products
           
            ...
            ...
                    SurfPart = MeshParts.Add("MSHPartBasicSurf")
                   ...
                    Dim Ref As Reference = Prod.CreateReferenceFromName(Prod.Name + "/" + p.Name + "/!" + rb.Name)
                    SurfPart.AddSupportFromReference(Prod, Ref)
             
                   
                Next
 

[m-shok]

Решил проблему с помощью AddSupportFromPublication предварительно сделав из референсов публикации.