how to change size of a custum content center file with ilogic in a form

[Davey_van_den_Berg]

Hello guys,

I'm searching for a way to change the flange with a form in combination with ilogic.

but i dont know how to make a code that can adjust de flange with the "change size" command.

i also did't find it on the forum. if somebody know how to help me i would be thankful!

thanks in advance,

Davey 

[Mark.Lancaster]

@Davey_van_den_Berg

Granted I don't know what your process is but that functions is already there.  Right mouse click on flange and change size.. 

Programming question should be asked in the Inventor Customization forum.  I will have the moderator relocate your posting there to better suit your needs.

[Davey_van_den_Berg]

thanks for your reply.

i know it can be done like that but that is the manual way and i am looking for a way to do it within ilogic.

[HermJan.Otterman]

In the Api help in Inventor you will find this example....

Replace content center part

Replace content center part API Sample

Description

This sample demonstrates how to replace the content part referenced by an assembly occurrence.

Code Samples

• VBA

Open an assembly that contains an occurrence of a content part and run the macro.

Sub ReplaceContentCenterPart()
    ' Set a reference to the active assembly document.
    Dim oDoc As AssemblyDocument
    Set oDoc = ThisApplication.ActiveDocument

    ' Prompt user to pick an occurrence
    Dim oOcc As ComponentOccurrence
    Set oOcc = ThisApplication.CommandManager.Pick(kAssemblyOccurrenceFilter, "Pick occurrence to replace")

    If oOcc.DefinitionDocumentType <> kPartDocumentObject Then
        MsgBox "Occurrence does not reference a content part."
        Exit Sub
    End If

    Dim oOccDef As PartComponentDefinition
    Set oOccDef = oOcc.Definition

    If Not oOccDef.IsContentMember Then
        MsgBox "The occurrence does not reference a content part."
        Exit Sub
    End If

    ' Set a reference to the ContentCenter object.
    Dim oContentCenter As ContentCenter
    Set oContentCenter = ThisApplication.ContentCenter

    ' Get the content node (category) "Fasteners:Bolts:Hex Head"
    Dim oContentNode As ContentTreeViewNode
    Set oContentNode = oContentCenter.TreeViewTopNode.ChildNodes.Item("Fasteners").ChildNodes.Item("Bolts").ChildNodes.Item("Hex Head")

    ' Get the "ISO 4015" Family object.
    Dim oFamily As ContentFamily
    For Each oFamily In oContentNode.Families
        If oFamily.DisplayName = "ISO 4015" Then
            Exit For
        End If
    Next

    ' Create a member based on the second row of the family.
    Dim error As MemberManagerErrorsEnum
    Dim strContentPartFileName As String
    Dim strErrorMessage As String
    strContentPartFileName = oFamily.CreateMember(2, error, strErrorMessage)

    Call oOcc.Replace(strContentPartFileName, False)
End Sub

[Anonymous]

I see your replies in the forum and just scroll away from them. I dont know why you keep commenting on questions that you dont know the answer of.