Issue
I want to know how to create new folder from Inventor Model browser
Solution
You can use the BrowserFolders.AddBrowserFolder method. Please refer to the following sample code:
VBA code:
Sub CreateBrowserFolder() Dim oDoc As Document oDoc = ThisApplication.ActiveDocument Dim oPane As BrowserPane oPane = oDoc.BrowserPanes("Model") Dim oTopNode As BrowserNode oTopNode = oPane.TopNode Dim colNodes As ObjectCollection colNodes = ThisApplication.TransientObjects.CreateObjectCollection Call colNodes.Add(oTopNode.BrowserNodes(oTopNode.BrowserNodes.Count)) Dim oFolder As BrowserFolder oFolder = oPane.AddBrowserFolder("MyFolder", colNodes) Dim sItemName As String : sItemName = "MyFolder" Dim oFolderGotten As BrowserFolder oFolderGotten = oTopNode.BrowserFolders.Item(sItemName) Debug.Print(oFolderGotten.Name) End Sub

Leave a Reply