08-19-2018
10:12 AM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
08-19-2018
10:12 AM
I think its worth to dig in the direction of re-checking Sketch visibility in browser.
Till now I can read only first-level browser nodes:
Dim oDoc As Document
oDoc = ThisDoc.Document
Dim oTopNode As BrowserNode
oTopNode = oDoc.BrowserPanes.ActivePane.TopNode
Dim MsgBody As String
' Dim TotBN_Count As Integer=0 ' total 1st level nodes Count
Dim VisBN_Count As Integer=0 ' visible 1st level nodes Count
For Each oNode As BrowserNode In oTopNode.BrowserNodes
TotBN_Count=TotBN_Count+1
' Trace.WriteLine("iLogicVB" & oNode.FullPath)
if oNode.Visible then VisBN_Count=VisBN_Count+1 : MsgBody=MsgBody & Right(oNode.FullPath,Len(oNode.FullPath)-(Len(oTopNode.FullPath)+1)) & VBcrlf
Next
MsgBox(MsgBody,,oTopNode.FullPath & " has " & VisBN_Count &" visible 1st-level nodes: ")Could somebody help to expand this code to get lidt of all visible nodes (mean after "expand all" command).
Please vote for Inventor-Idea Text Search within Option Names