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

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

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

Sub test()

1. Dim oDoc As DrawingDocument
2. Set oDoc = Th