08-18-2017
01:44 PM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
08-18-2017
01:44 PM
Try this. If it doesn't work, try uncommenting the lines and trying it with the command I have in there.
Sub Main()
Dim oDoc As DrawingDocument = ThisDoc.Document
Dim oSheet As Sheet = oDoc.ActiveSheet
Dim oNode As BrowserNode = oDoc.BrowserPanes("Model").GetBrowserNodeFromObject(oSheet.DrawingViews.Item(1))
Call recurseNodes(oNode)
End Sub
Sub recurseNodes(node As BrowserNode)
Dim bn As BrowserNode
'Dim oCommandMgr As CommandManager
'oCommandMgr = ThisApplication.CommandManager
'Dim oControlDef1 As ControlDefinition
For Each bn In node.BrowserNodes
If TypeName(bn.NativeObject) = "PlanarSketch" Then
bn.EnsureVisible = true
bn.Visible = True
'bn.DoSelect
'oControlDef1 = oCommandMgr.ControlDefinitions.Item("DrawingEntityVisibilityCtxCmd")
'oControlDef1.Execute
Dim oSketch As PlanarSketch = bn.NativeObject
oSketch.Visible = False
MsgBox(oSketch.Visible)
Dim oProxy As PlanarSketchProxy = TryCast(oSketch, PlanarSketchProxy)
If oProxy Is Nothing Then MsgBox("fail")
End If
If Not TypeName(bn.NativeObject) = "DrawingView" Then
Call recurseNodes(bn)
Else
Continue For
End If
Next
End Sub
--------------------------------------
Did you find this reply helpful ? If so please use the 'Accept as Solution' or 'Like' button below.
Justin K
Inventor 2018.2.3, Build 227 | Excel 2013+ VBA
ERP/CAD Communication | Custom Scripting
Machine Design | Process Optimization

iLogic/Inventor API: Autodesk Online Help | API Shortcut In Google Chrome | iLogic API Documentation
Vb.Net/VBA Programming: MSDN | Stackoverflow | Excel Object Model
Inventor API/VBA/Vb.Net Learning Resources: Forum Thread
Sample Solutions:Debugging in iLogic ( and Batch PDF Export Sample ) | API HasSaveCopyAs Issues |
BOM Export & Column Reorder | Reorient Skewed Part | Add Internal Profile Dogbones |
Run iLogic From VBA | Batch File Renaming| Continuous Pick/Rename Objects
Local Help: %PUBLIC%\Documents\Autodesk\Inventor 2018\Local Help
Ideas: Dockable/Customizable Property Browser | Section Line API/Thread Feature in Assembly/PartsList API Static Cells | Fourth BOM Type
Inventor 2018.2.3, Build 227 | Excel 2013+ VBA
ERP/CAD Communication | Custom Scripting
Machine Design | Process Optimization
iLogic/Inventor API: Autodesk Online Help | API Shortcut In Google Chrome | iLogic API Documentation
Vb.Net/VBA Programming: MSDN | Stackoverflow | Excel Object Model
Inventor API/VBA/Vb.Net Learning Resources: Forum Thread
Sample Solutions:Debugging in iLogic ( and Batch PDF Export Sample ) | API HasSaveCopyAs Issues |
BOM Export & Column Reorder | Reorient Skewed Part | Add Internal Profile Dogbones |
Run iLogic From VBA | Batch File Renaming| Continuous Pick/Rename Objects
Local Help: %PUBLIC%\Documents\Autodesk\Inventor 2018\Local Help
Ideas: Dockable/Customizable Property Browser | Section Line API/Thread Feature in Assembly/PartsList API Static Cells | Fourth BOM Type