Demote Frame Member through API

[fakeru]

Hi,

Did anyone try to demote a frame member through API?

I tried with command manager:

ThisApplication.SilentOperation = True

Dim oCM As CommandManager
Set oCM = ThisApplication.CommandManager

' Prepopulate the file name of new component in
' the 'Create Component' dialog
oCM.PostPrivateEvent kFileNameEvent, "C:\temp\test\demoted.iam"

Dim oControlDef As ControlDefinition
Set oControlDef = oCM.ControlDefinitions("AssemblyDemoteCmd")

' Execute the demote command
oControlDef.Execute

ThisApplication.SilentOperation = False

I also tried with this example:

Public Sub Demote()
    ' Get the active assembly document
    Dim oDoc As AssemblyDocument
    Set oDoc = ThisApplication.ActiveDocument

    Dim oDef As AssemblyComponentDefinition
    Set oDef = oDoc.ComponentDefinition

    ' Get the occurrence to be demoted
    Dim oOcc As ComponentOccurrence
    Set oOcc = oDef.Occurrences.Item(1)

    ' Create a new sub-assembly to demote the occurrence into
    Dim oNewSubAssy As AssemblyDocument
    Set oNewSubAssy = ThisApplication.Documents.Add(kAssemblyDocumentObject, , False)

    Dim oMat As Matrix
    Set oMat = ThisApplication.TransientGeometry.CreateMatrix

    ' Create an instance of the new sub-assembly
    Dim oSubAssyOcc As ComponentOccurrence
    Set oSubAssyOcc = oDef.Occurrences.AddByComponentDefinition(oNewSubAssy.ComponentDefinition, oMat)

    ' Get the model browser
    Dim oPane As BrowserPane
    Set oPane = oDoc.BrowserPanes.Item("Model")

    ' Get the browser node that corresponds to the new sub-assembly occurrence
    Dim oSubAssyNode As BrowserNode
    Set oSubAssyNode = oPane.GetBrowserNodeFromObject(oSubAssyOcc)

    ' Get the last visible child node under the sub-assembly occurrence
    Dim oTargetNode As BrowserNode
    Dim i As Long
    For i = oSubAssyNode.BrowserNodes.Count To 1 Step -1
        If oSubAssyNode.BrowserNodes.Item(i).Visible Then
            Set oTargetNode = oSubAssyNode.BrowserNodes.Item(i)
            Exit For
        End If
    Next

    ' Get the browser node that corresponds to the occurrence to be demoted
    Dim oSourceNode As BrowserNode
    Set oSourceNode = oPane.GetBrowserNodeFromObject(oOcc)

    ' Demote the occurrence
    Call oPane.Reorder(oTargetNode, False, oSourceNode)
End Sub

But no luck, it won't demote.

Same codes work in a standard assembly.

Any advice?

Thanks

[bradeneuropeArthur]

for me the first code works fine...................................

[fakeru]

Can you please post the entire code?

Here is mine:

Sub DemoteWithCommand()

Dim oDoc As AssemblyDocument
Set oDoc = ThisApplication.ActiveDocument

Dim oDef As AssemblyComponentDefinition
Set oDef = oDoc.ComponentDefinition

'Set a reference to the first occurrence
Dim oOcc As ComponentOccurrence
Set oOcc = oDef.Occurrences.Item(3)

Dim oItemToMove As Object
    Set oItemToMove = oOcc

'Clear select set
oDoc.SelectSet.Clear

'Add the occurrence to demote to the select set
oDoc.SelectSet.Select oItemToMove

ThisApplication.SilentOperation = True

Dim oCM As CommandManager
Set oCM = ThisApplication.CommandManager

' Prepopulate the file name of new component in
' the 'Create Component' dialog
oCM.PostPrivateEvent kFileNameEvent, "C:\Users\asi\Desktop\1000-Desktop\Inventor\frame test\Assembly3.iam"

Dim oControlDef As ControlDefinition
Set oControlDef = oCM.ControlDefinitions("AssemblyDemoteCmd")

' Execute the demote command
oControlDef.Execute

ThisApplication.SilentOperation = False

End Sub

It seems like oControlDef.Execute doesn't run, because occurrence item(3) stays selected after I run the macro.

[bradeneuropeArthur]

for me that code works fine!

[bradeneuropeArthur]

use this instead:
Dim oControlDef As ControlDefinition
Set oControlDef = oCM.ControlDefinitions("AFG_CMD_Demote")

[fakeru]

Hm... The dialog box appeared now even though the SilentOperation is set to True.

That's really strange..

[fakeru]

bradeneurope                      

Can you please post the entire code? I just can't figure out why it's not working for me...

[fakeru]

Hey Arthur,

Would you be able to help on this subject? 🙂

I still can't demote a frame member with oCM.ControlDefinitions("AFG_CMD_Demote")...

Thanks