iLogic detect if adaptive assembly is hose&pipe or harness

[danmachen]

Hi guys,

I'm writing an iLogic tool to help CAD users identify if there are any adaptive assemblies in their current assembly.

I have the script to cycle through all the active components in the assembly, I just don't know if there is anything in the object model to detect if they are harness or tube&pipe runs. 

The idea is to alert the user of an adaptive assembly unless it is a harness or tube&pipe model. In which case, no alert is made.

Any help appreicated.

Dan

[bradeneuropeArthur]

 Sub SuppressAdaptivity(oInvApp As Inventor.Application)

        Dim oAsmDoc As AssemblyDocument
        oAsmDoc = oInvApp.ActiveDocument

        Dim occ As ComponentOccurrence
        Dim occs As ComponentOccurrences
        occs = oAsmDoc.ComponentDefinition.Occurrences

        For Each occ In occs
            If occ.Adaptive = True Then
                Dim fi As New System.IO.FileInfo(occ.ReferencedDocumentDescriptor.FullDocumentName)

                If Not fi.IsReadOnly = True Then

                    occ.Adaptive = False

                  
                Else
                    MsgBox(occ.ReferencedDocumentDescriptor.FullDocumentName & " Is Read-only")
                End If
            End If

        Next
    End Sub

and this:

https://forums.autodesk.com/t5/inventor-customization/get-document-subtype-framegenerator-contentcen...

[bradeneuropeArthur · Accepted solution]

 Sub SuppressAdaptivity()

        Dim oAsmDoc As AssemblyDocument
        Set oAsmDoc = ThisApplication.ActiveDocument

        Dim occ As ComponentOccurrence
        Dim occs As ComponentOccurrences
        Set occs = oAsmDoc.ComponentDefinition.Occurrences

        For Each occ In occs
            If occ.Adaptive = True Then
                'Dim fi As New System.IO.FileInfo(occ.ReferencedDocumentDescriptor.FullDocumentName)
Dim a As Document
Set a = occ.ReferencedDocumentDescriptor.ReferencedDocument

If a.DocumentInterests.HasInterest("Piping Runs Environment") = True Or a.DocumentInterests.HasInterest("HarnessPart") = True Then

                    MsgBox (occ.ReferencedDocumentDescriptor.FullDocumentName & " = adaptive")
               
    End If
End If
        Next
    End Sub