Hi.
I didn't find a way to expand the "Origin" folder of the currently selected component. Could this be done with iLogic?
Thanks in advance.
iLogic: Expand "Origin" in the Model Tree
Hi @amarcoc. Here is an iLogic rule you may be able to use for that task. It worked OK in a couple of my own tests. The selected component likely needs to be a 'top level' component though, because I'm using its 'Parent' to get the active assembly document and its browser pane to work with.
Sub Main
Dim oComp As ComponentOccurrence = PickComponent
If IsNothing(oComp) Then Exit Sub
Dim oADoc As AssemblyDocument = oComp.Parent.Document 'or .FactoryDocument
Dim oModelPane As BrowserPane = oADoc.BrowserPanes.Item("Model") 'AmBrowserArrangement
Dim oCompNode As BrowserNode = oModelPane.GetBrowserNodeFromObject(oComp)
For Each oNode As BrowserNode In oCompNode.BrowserNodes
If oNode.BrowserNodeDefinition.Label = "Origin" Then
If Not oNode.Expanded Then oNode.Expanded = True
End If
Next
End Sub
Function PickComponent(Optional oPrompt As String = vbNullString) As ComponentOccurrence
If oPrompt = "" Then oPrompt = "Select a Component."
oObj = ThisApplication.CommandManager.Pick(SelectionFilterEnum.kAssemblyOccurrenceFilter, oPrompt)
If IsNothing(oObj) OrElse (TypeOf oObj Is ComponentOccurrence = False) Then Return Nothing
Dim oOcc As ComponentOccurrence = oObj
Return oOcc
End FunctionIf this solved your problem, or answered your question, please click ACCEPT SOLUTION.
Or, if this helped you, please click (LIKE or KUDOS) 👍.
If you want and have time, I would appreciate your Vote(s) for My IDEAS :bulb: or you can Explore My CONTRIBUTIONS
Wesley Crihfield
(Not an Autodesk Employee)
Just so you know then...that 'Origins' node, may look like a BrowserFolder, but apparently it is not recognized that way when trying to find it by code. I know because I tried looking for it that way when I made the earlier code, but it found zero BrowserFolders under the node of the component (BrowserNode.BrowserFolders.Count = 0). That's why I had to loop through the BrowserNode.BrowserNodes and find it by its 'Label' instead.
Also, you may be able to keep climbing up the 'Parent' ladder from the component, using error management technique like Try...Catch block, until it doesn't return anything anymore in an attempt to find the top level assembly, if the component is not a top level component. Just a thought.
Wesley Crihfield
(Not an Autodesk Employee)
Hi @amarcoc
If you're wanting to preselect the items then you could use something like this. I don't think the find in browser and expand folder command manager lines are needed.
I hope this helps.
Best of luck to you in all of your Inventor pursuits,
Curtis
http://inventortrenches.blogspot.com
Dim sSet As SelectSet = ThisDoc.Document.SelectSet If sSet.Count = 0 Then Return 'exit rule Dim oOcc As ComponentOccurrence = sSet.Item(1) oOcc.Parent.Document.BrowserPanes.Item("Model") _ .GetBrowserNodeFromObject(oOcc).BrowserNodes.Item("Origin").Expanded = True
.
Accepted solution
Hi @amarcoc. In order to effectively use that 'find in browser' command, you need to have a single model entity selected (a single valid object within the Document.SelectSet), before executing that command. So, just as @Curtis_Waguespack stated, since we are doing that same action by API code, executing that command is not necessary anymore, so you can get rid of that command from the end of your code, because it is not accomplishing anything.
Also, here is just another example of an iLogic rule to expand the 'Origin' node, when the selected component may or may not be a sheet metal part. I chose to create handy little custom Function just for finding a BrowserNode by its 'Label' under a given BrowserNode, even if it may be multiple levels under that node. It will simply return the 'first' BrowserNode that it finds matching the specified label under the specified BrowserNode. The main code first tries to find the node for the 'Folded Model'. If found, it will then try to find the 'Origin' node under that. If the 'Folded Model' node was not found, it then just tries to find the 'Origin' node under the main node. Once it has the 'Origin' node, it sets it to expanded. Once it does that, even if the component node was not expanded at all, this will immediately expand all 3 nodes (component node, folded model node, & origin node) at once.
Sub Main
oDoc = ThisDoc.Document
oSS = oDoc.SelectSet
If oSS.Count = 0 Then
MsgBox("A single component must be pre-selected before running this rule.", vbCritical, "")
Exit Sub
End If
Dim oOcc As ComponentOccurrence
If TypeOf oSS.Item(1) Is ComponentOccurrence Then
oOcc = oSS.Item(1)
Else
MsgBox("A single component must be pre-selected before running this rule.", vbCritical, "")
Exit Sub
End If
Dim oPane As BrowserPane = oDoc.BrowserPanes.Item("AmBrowserArrangement") 'using its 'InternalName'
Dim oOccNode As BrowserNode = oPane.GetBrowserNodeFromObject(oOcc)
Dim oFMNode As BrowserNode = GetBrowserNodeByLabel(oOccNode, "Folded Model")
Dim oOriginNode As BrowserNode = Nothing
If IsNothing(oFMNode) Then
oOriginNode = GetBrowserNodeByLabel(oOccNode, "Origin")
Else
oOriginNode = GetBrowserNodeByLabel(oFMNode, "Origin")
End If
If IsNothing(oOriginNode) Then
Exit Sub
Else
oOriginNode.Expanded = True
End If
End Sub
Function GetBrowserNodeByLabel(oStartBNode As BrowserNode, oLabel As String) As BrowserNode
If IsNothing(oStartBNode) Then Return Nothing
'look at this level completely first
For Each oNode As BrowserNode In oStartBNode.BrowserNodes
If oNode.BrowserNodeDefinition.Label = oLabel Then Return oNode
Next
'if nothing returned, now try stepping down into lower levels
For Each oNode As BrowserNode In oStartBNode.BrowserNodes
If oNode.BrowserNodes.Count > 0 Then GetBrowserNodeByLabel(oNode, oLabel)
Next
Return Nothing
End Function
Wesley Crihfield
(Not an Autodesk Employee)
Accepted solution
Hi @amarcoc
I think this should work for you. There might be another "special" nested browser node situation, but I can't remember what that would be right now ( Frame Generator parts maybe?).
In any case this version works with pre-selecting standard files and sheet metal files.
I hope this helps.
Best of luck to you in all of your Inventor pursuits,
Curtis
http://inventortrenches.blogspot.com
Dim sSet As SelectSet = ThisDoc.Document.SelectSet If sSet.Count = 0 Then Return 'exit rule Dim oOcc As ComponentOccurrence = sSet.Item(1) Try: oOcc.Parent.Document.BrowserPanes.Item("Model") _ .GetBrowserNodeFromObject(oOcc).BrowserNodes.Item("Origin").Expanded = True Catch: End Try Try: oOcc.Parent.Document.BrowserPanes.Item("Model") _ .GetBrowserNodeFromObject(oOcc).BrowserNodes.Item("Folded Model") _ .BrowserNodes.Item("Origin").Expanded = True Catch: End Try
Hi @tgregory3G7FA. You can give this version a try.
oDoc = ThisDoc.Document
oSS = oDoc.SelectSet : If oSS.Count = 0 Then Return
oMP = oDoc.BrowserPanes.Item("Model")
For Each oObj In oSS
If TypeOf oObj Is ComponentOccurrence Then
Dim oOcc As ComponentOccurrence = oObj
oNodes = oMP.GetBrowserNodeFromObject(oOcc).BrowserNodes
Try : oNodes.Item("Origin").Expanded = True: Catch : End Try
Try : oNodes.Item("Folded Model").BrowserNodes.Item("Origin").Expanded = True: Catch : End Try
End If
NextWesley Crihfield
(Not an Autodesk Employee)
Hi @emanuel.c. Here is an example iLogic rule you can review for expanding the Origin folder of any type of document (including sheet metal part). It uses a separate custom Function to get the Model pane, which is good in all languages, due to its use of their internal names, instead of local English names.
Sub Main
Dim oDoc As Document = ThisDoc.Document
Dim oModelPane As BrowserPane = GetModelBrowserPane(oDoc)
Try : oModelPane.TopNode.BrowserNodes.Item("Origin").Expanded = True: Catch : End Try
Try : oModelPane.TopNode.BrowserNodes.Item("Folded Model").BrowserNodes.Item("Origin").Expanded = True : Catch : End Try
End Sub
Function GetModelBrowserPane(oDoc As Inventor.Document) As Inventor.BrowserPane
For Each oPane As Inventor.BrowserPane In oDoc.BrowserPanes
If oPane.BuiltIn And oPane.TreeBrowser And _
(oPane.InternalName = "AmBrowserArrangement" Or _
oPane.InternalName = "DlHierarchy" Or _
oPane.InternalName = "PmDefault") Then Return oPane
Next : Return Nothing
End FunctionIf this solved your problem, or answered your question, please click ACCEPT SOLUTION .
Or, if this helped you, please click (LIKE or KUDOS) 👍.
Wesley Crihfield
(Not an Autodesk Employee)
While the topic is still fresh, I went ahead and transformed the two main tasks out into their own separate routines, to make the more transferable into other projects. And in the process, I just integrated the separate routine for getting the Model BrowserPane into the new routine for expanding the main document's origin node. Although, I guess that maybe the words "Origin" & "Folded Model" may be different in other languages, so it may still not be 100% universal for all languages. I attached the code in a text file.
Wesley Crihfield
(Not an Autodesk Employee)
