topic Re: Content Center part to normal ipt in Inventor Forum

Content Center part to normal ipt

Svein74 — Tue, 14 Jun 2016 08:33:27 GMT

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

Re: Content Center part to normal ipt

Mark.Lancaster — Tue, 14 Jun 2016 11:57:38 GMT

@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.

Re: Content Center part to normal ipt

Svein74 — Tue, 14 Jun 2016 12:06:36 GMT

Hi Mark Did you forget the code? br Svein

Re: Content Center part to normal ipt

Mark.Lancaster — Tue, 14 Jun 2016 12:09:05 GMT

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.

Re: Content Center part to normal ipt

Svein74 — Tue, 14 Jun 2016 12:17:43 GMT

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

Re: Content Center part to normal ipt

Svein74 — Tue, 14 Jun 2016 12:31:04 GMT

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

Re: Content Center part to normal ipt

Svein74 — Tue, 14 Jun 2016 12:32:50 GMT

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