关于工程图的一些问题求助高人门

求助各位高人，小弟想编一个宏，来实现对当前打开的三维文档，投二维工程图，插入图框，映射图纸信息到图框中。
无奈网上很多相关的文章与教程，都没有放出相关的代码及说明。
小弟自己录了一段宏，发现录制的代码只针对当前打开的图纸，如下面的编码“B21010306.CATPart”就是文件名，小弟希望
的是针对当前打开的文档，看了一些书，以为用"ActiveDocument"能够实现，不知道我用的格式不对还是命令不对。。总是无法实现。

*********************************************************错误代码
Set partDocument1 = documents1.Item("B21010306.CATPart")
Set product1 = partDocument1.GetItem("B21010306")
drawingViewGenerativeBehavior1.Document = product1
drawingViewGenerativeBehavior1.DefineFrontView 1.000000, 0.000000, 0.000000, 0.000000, 1.000000, 0.000000
********************************************************错误代码
现对各位高人及有志一起探讨的网友，帮忙解决个问题。
1.如何实现与当年三维文档关联，使投图时能够透出针对任意文件名的三视图。
2.插入图框后，如何实现图框与三维文档的关联，从而在图框内映射任意文件名的三维文档信息。
3.如果有高人在，麻烦直接放出图框映射的代码，省的小弟再去研究了，哈哈。

先谢谢大家了。

经过对V5Automation的研究，忘了设置三维文件是打开文件，加上下面这句。
Set oPartToDraw = CATIA.ActiveDocument
主视图对象关联为当前激活文件就行了。
oFrontViewGenerativeBehavior.Document = oPartToDraw