Content Center part to normal ipt

[Svein74]

Hi Is there anyone having a macro\VBA to convert CC files to normal I have found some codes but they do not seem to work on R 2015/2016 of Inventor, or maybe I am just using it wrong....? Br Svein

[Mark.Lancaster]

@Svein74

Not sure what this code does but all you have to do is relocate the content center part to a folder outside of your content center folder structure.

[Svein74]

Hi Mark Did you forget the code? br Svein

[Mark.Lancaster]

Sorry @Svein74

I meant not sure what the code you have does...  But you only need to relocate content center components to a folder outside of your CC folder structure.  Once that occurs they become normal parts.

[Svein74]

Ahh, but even if you "save as custom" from CC when you right click on th epart you have the choise to change size and replace from CC and when you try to Author the part it is already authored... So it seems like it stil have som link. br Svein

[Svein74]

Solved 🙂 br Svein Sub strip_CC() Dim oDoc As PartDocument Set oDoc = ThisApplication.ActiveDocument 'Check to see if it is not a true content center part . otherwise bail out If oDoc.ComponentDefinition.IsContentMember = False Then ' Enable all commands and set the subtype to a standard part. oDoc.DisabledCommandTypes = 0 oDoc.SubType = "{4D29B490-49B2-11D0-93C3-7E0706000000}" ' Optionally clean up other Content Center related properties. On Error Resume Next oDoc.PropertySets.Item("Content Library Component Properties").Delete Dim DTPropSet As PropertySet Set DTPropSet = oDoc.PropertySets.Item("Design Tracking Properties") DTPropSet.Item("Catalog Web Link").Value = "" oDoc.Save End If End Sub

[Svein74 · Accepted solution]

Solved 🙂

Sub strip_CC()
    Dim oDoc As PartDocument
    Set oDoc = ThisApplication.ActiveDocument
    
    'Check to see if it is not a true content center part . otherwise bail out
    If oDoc.ComponentDefinition.IsContentMember = False Then
        ' Enable all commands and set the subtype to a standard part.
        oDoc.DisabledCommandTypes = 0
        oDoc.SubType = "{4D29B490-49B2-11D0-93C3-7E0706000000}"
    
        ' Optionally clean up other Content Center related properties.
        On Error Resume Next
        oDoc.PropertySets.Item("Content Library Component Properties").Delete
        Dim DTPropSet As PropertySet
        Set DTPropSet = oDoc.PropertySets.Item("Design Tracking Properties")
        DTPropSet.Item("Catalog Web Link").Value = ""
        oDoc.Save
    End If
End Sub