How to Lose Reference or Break Link from each Part in Assembly

[florian_wenzel]

Hi,

Inventor 2022

API VB.NET VisualStudio

i try to Lose Reference or Break Link from each Part in Assembly.

This is a Assembly Example.

This is a Code, but is not working.

Code:

    Public Sub CommandFunctionfweButton_28()

        Dim oAsmDoc As AssemblyDocument = g_inventorApplication.ActiveDocument
        Dim oAsmCompDef As AssemblyComponentDefinition = oAsmDoc.ComponentDefinition
        Dim oTO As TransientObjects = g_inventorApplication.TransientObjects
        Dim oTG As TransientGeometry = g_inventorApplication.TransientGeometry
        Dim oBRep As TransientBRep = g_inventorApplication.TransientBRep


        For Each oDocument As Document In oAsmDoc.AllReferencedDocuments
            If oDocument.DocumentType = DocumentTypeEnum.kPartDocumentObject AndAlso oAsmCompDef.Occurrences.AllReferencedOccurrences(oDocument).Count > 0 Then
                For Each oDerivedComp As DerivedPartComponent In oDocument.ComponentDefinition.ReferenceComponents.DerivedPartComponents
                    oDerivedComp.BreakLinkToFile()
                Next
            End If
        Next





    End Sub

 Thanks for any Suggestion

[florian_wenzel]

Part B in Attachment

Question:

What is this: 

DerivedPartComponent ?

ReferenceComponents ?

ImportedComponent ?

ReferenceFeature Object ?

The Goal is, that i can Delete from Assembly Part "Origin".

And Each Part has no Refereces no more.

Thanks for any Suggestion

[adam.nagy · Accepted solution]

Well, the Referenzen (Origin:1) object is not supported by the API - so that's not a good start.

https://adndevblog.typepad.com/manufacturing/2015/05/is-this-object-supported-by-the-api.html 

It looks like disabling Adaptive on it has the same affect as Break Link and the former is available in the API for the parent object Surface1

So perhaps that could be a workaround?

VBA code:

Sub BreakLink()
  Dim doc As PartDocument
  Set doc = ThisApplication.ActiveDocument

  Dim bf As NonParametricBaseFeature
  Set bf = doc.ComponentDefinition.Features(1)

  bf.Adaptive = False
End Sub

[florian_wenzel]

Hi,

it works.

Thanks for Solution.