Set Assembly Browser Nodes as "Default" before run rule

[CCarreiras]

Hi!

Im doing a rule to run in Assembly level, but before run the rule, i need to set the assembly browser nodes as  "Default"

To avoid doing it manually (and to avoid to forget to do it), id like to add this instruction to the rule to run before the "main" part of the rule.

Does Anyone know how to do it?

Thanks.

Basically, i want to set this definition (in the pic), before a start the main part of the rule.

 

[clutsa]

The commented out part will run that command but I don't know how to make it select default. The "For Each" should still do what you want.

'Dim Rename = ThisApplication.CommandManager.ControlDefinitions.Item("AssemblyBonusTools_RenameBrowserNodesCmd")
'Rename.Execute

For Each occ In ThisApplication.ActiveDocument.ComponentDefinition.Occurrences
	occ.Name = ""
Next

[CCarreiras]

Hi!

Well, at the least the "forget" issue is solved 🙂

Thank you!

[clutsa]

Did the "For Each" loop not work? Setting the name to blank should change it back to default (it does on my test anyway)

[CCarreiras]

Hi!

Yes, it works for the main assembly parts.

To work in the subassembly levels I used the code below and worked well:

SyntaxEditor Code Snippet

Sub Main()
    Dim oDoc As Document = ThisApplication.ActiveDocument
    oDoc.DisplayName = ""
    Dim oCD As ComponentDefinition = oDoc.ComponentDefinition
	NameReset(oCD.Occurrences)
End Sub

Sub NameReset(oOccs As ComponentOccurrences)
    For Each oOcc As ComponentOccurrence In oOccs
        Try
            oOcc.Name = ""
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
        Try
            NameReset(oOcc.SubOccurrences)
        Catch
        End Try
    Next
End Sub