There is one workaround until this is fully supported by the API. You can
use the API to select the browser node that represents the sketch and then
run the "Get Model Sketches" command. Below is one implementation that I
tested. Finding the node in the browser is the trickiest. This just looks
for the first node named "Flat Pattern".
Public Sub GetFlatSketches()
Dim oDoc As DrawingDocument
Set oDoc = ThisApplication.ActiveDocument
Dim oTopNode As BrowserNode
Set oTopNode = oDoc.BrowserPanes.ActivePane.TopNode
Dim oFlatNode As BrowserNode
Set oFlatNode = FindNode(oTopNode, "Flat Pattern")
oFlatNode.EnsureVisible
oFlatNode.DoSelect
ThisApplication.CommandManager.ControlDefinitions.Item("DrawingGetModelSketchesCtxCmd").Execute
End Sub
Private Function FindNode(ParentNode As BrowserNode, Name As String) As
BrowserNode
Dim FoundNode As BrowserNode
Set FoundNode = Nothing
Dim oNode As BrowserNode
For Each oNode In ParentNode.BrowserNodes
If oNode.BrowserNodeDefinition.Label = Name Then
Set FoundNode = oNode
Exit For
Else
Set FoundNode = FindNode(oNode, Name)
End If
Next
If Not FoundNode Is Nothing Then
Set FindNode = FoundNode
Exit Function
End If
End Function
--
Brian Ekins
Autodesk Inventor API
http://modthemachine.typepad.com
