图纸复制草图符号，并插入 - 续

在这篇文章中，介绍了如何复制草图符号，并插入。最近有客户反映，如果目标文档中的草图符号中有文件夹，执行代码Inventor会崩溃。

起先我还纳闷，是不是遗漏了什么。后来经过调试，发现这是个问题。让我们做个小测试。假定打开一个工程图，其中草图符号有一个文件夹，一个具体的草图符号定义。检查SketchedSymbolDefinitions集合，会发现只有一个元素，即，没有涵盖文件夹。这倒没什么。反正我们选择到需要的草图符号即可。接着，执行以下代码，在第5行停一下，然后同时观察Inventor 浏览节点窗口。惊讶的发现，选择到的竟然是文件夹！！难怪接着执行插入命令就发生崩溃了。

Sub test()

1. Dim oDoc As DrawingDocument
2. Set oDoc = ThisApplication.ActiveDocument 
3. oDoc.SelectSet.Clear 
4. Call oDoc.SelectSet.Select(oDoc.SketchedSymbolDefinitions(1)) 
5. Call ThisApplication.CommandManager.ControlDefinitions("DrawingUserDefinedSymbolsQuickCtxCmd").Execute2(True)

End Sub

毫无疑问，这是API内部发生了点小错误。我已经报告。

那目前怎么办呢？也不是没辙。我们的思路是什么？就是先要选择到对应的草图符号定义，对吧。那可否考虑选择到浏览器的节点呢？对！这就是新思路！即通过浏览器节点的DoSelect方法让该节点处于被选择状态。当然前提是我们需要通过BrowserPane.GetBrowserNodeFromObject找到该节点。我想下面这段代码不需要过多解释了。

Sub test()
Dim oDoc As DrawingDocument
Set oDoc = ThisApplication.ActiveDocument
oDoc.SelectSet.Clear
'Call oDoc.SelectSet.Select(oDoc.SketchedSymbolDefinitions(1))


Dim oBP As BrowserPane
Set oBP = oDoc.BrowserPanes.ActivePane


Dim oBN As BrowserNode
Set oBN = oBP.GetBrowserNodeFromObject(oDoc.SketchedSymbolDefinitions(1))
oBN.DoSelect
 
Call ThisApplication.CommandManager.ControlDefinitions("DrawingUserDefinedSymbolsQuickCtxCmd").Execute2(True)
End Sub