Just to clarify, what you want is to be able to launch the 'Change
Component' command and NOT perform the change operation, correct? If it's
the latter the ComponentOccurrence.ChangeRowOfiPartMember API can be used.
If you just want to launch the command, the command name is
"AssemblyChangeComponentCmd". However, you need to have the 'Table" node
under the occurrence (and not the occurrence itself) selected for the launch
to work. Since there isn't an API object for the table node, selecting it is
not straightforward. You need to use a browser API workaround as shown
below. The code assumes that the name of the table node is "Table" and is
not localized.
Sanjay-
Sub ChangeComponentCommand()
Dim oAssembly As AssemblyDocument
Set oAssembly = ThisApplication.ActiveDocument
Dim oCompDef As AssemblyComponentDefinition
Set oCompDef = oAssembly.ComponentDefinition
Dim oOcc As ComponentOccurrence
Set oOcc = oCompDef.Occurrences.Item(1)
Dim oNode As BrowserNode
Set oNode = GetBrowserNodeFromObject(oAssembly, oOcc)
Dim oTableNode As BrowserNode
Set oTableNode = oNode.BrowserNodes.Item("Table")
oAssembly.SelectSet.Clear
oTableNode.DoSelect
Dim oControlDef As ControlDefinition
Set oControlDef =
ThisApplication.CommandManager.ControlDefinitions.Item("AssemblyChangeComponentCmd")
oControlDef.Execute
End Sub
Private Function GetBrowserNodeFromObject(ByVal oDoc As Document, ByVal
oObject As Object) As BrowserNode
' Get the browser node definition associated with the object.
Dim oNativeBrowserNodeDef As NativeBrowserNodeDefinition
Set oNativeBrowserNodeDef =
oDoc.BrowserPanes.GetNativeBrowserNodeDefinition(oObject)
' Get the top browser node of the model pane.
Dim oTopBrowserNode As BrowserNode
Set oTopBrowserNode = oDoc.BrowserPanes.ActivePane.TopNode
' Get the browser node.
' This assumes that only one node references the browser node
definition.
Set GetBrowserNodeFromObject =
oTopBrowserNode.AllReferencedNodes(oNativeBrowserNodeDef).Item(1)
End Function
