Ilogic to suppres folder

Ilogic to suppres folder

Anonymous
Not applicable
459 Views
0 Replies
Message 1 of 1

Ilogic to suppres folder

Anonymous
Not applicable

I have copied the below rule to un-/suppress a folder

But how do I add more than 1 folder to Un-/suppress?

And is it possible to suppress a folder with a pattern?

 

Link to rule : http://forums.autodesk.com/t5/inventor-customization/ilogic-control-browser-folders/m-p/5591242#M552...

 

Re: iLogic control browser folders

 
12-06-2013 09:43 AM in reply to: achmidt

The code below is what I ended up with.  Based on a choice of color it will suppress one folder and unsuppressed another.

 

'Get the normal assembly browser pane object

oPane = ThisDoc.Document.BrowserPanes.Item("Model")

If Color = "Red" Then

    oFolder = oPane.TopNode.BrowserFolders.Item("NewFolder") 'Get the browser folder object

    oFolderNodes = oFolder.BrowserNode.BrowserNodes 'Get the set of nodes in the folder

    For Each oNode As BrowserNode In oFolderNodes 'Cycle through each browser node in the folder

        oComp = oNode.NativeObject

        oComp.Suppress

    Next

    oFolder = oPane.TopNode.BrowserFolders.Item("OldFolder") 'Get the browser folder object

    oFolderNodes = oFolder.BrowserNode.BrowserNodes 'Get the set of nodes in the folder

    For Each oNode As BrowserNode In oFolderNodes 'Cycle through each browser node in the folder

        oComp = oNode.NativeObject

        oComp.Unsuppress

    Next

ElseIf Color = "Blue" Then

    oFolder = oPane.TopNode.BrowserFolders.Item("NewFolder") 'Get the browser folder object

    oFolderNodes = oFolder.BrowserNode.BrowserNodes 'Get the set of nodes in the folder

    For Each oNode As BrowserNode In oFolderNodes 'Cycle through each browser node in the folder

        oComp = oNode.NativeObject

        oComp.Unsuppress

    Next

    oFolder = oPane.TopNode.BrowserFolders.Item("OldFolder") 'Get the browser folder object

    oFolderNodes = oFolder.BrowserNode.BrowserNodes 'Get the set of nodes in the folder

    For Each oNode As BrowserNode In oFolderNodes 'Cycle through each browser node in the folder

        oComp = oNode.NativeObject

        oComp.Suppress

    Next

End If

0 Likes
460 Views
0 Replies
Replies (0)