Sub testesdk() Dim oDrawDoc As DrawingDocument Set oDrawDoc = ThisApplication.ActiveDocument Debug.Print "Symbols def: " & oDrawDoc.SketchedSymbolDefinitions.count Dim oBrowserPaneObject As Inventor.BrowserPaneObject Set oBrowserPaneObject = oDrawDoc.BrowserPanes.ActivePane Dim bn As BrowserNode For Each bn In oBrowserPaneObject.TopNode.BrowserNodes Dim bn1 As BrowserNode For Each bn1 In bn.BrowserNodes ' display the invisible Sketched Symbol definitions If bn1.BrowserNodeDefinition.Label = "Sketched Symbols" And bn.BrowserNodeDefinition.Label = "Drawing Resources" Then Dim sk As BrowserNode For Each sk In bn1.BrowserNodes sk.BrowserNodeDefinition.Visible = True sk.Visible = True Next End If 'find sketched symbol node and set visible If bn1.BrowserNodeDefinition.Label = "Sketched Symbols" And bn.BrowserNodeDefinition.Label = "Sheet1:1" Then For Each sk In bn1.BrowserNodes sk.BrowserNodeDefinition.Visible = True sk.Visible = True Next End If Next Next End Sub
