问陈老师 一个 VBA 的问题

lhkz

通过宏在 工程图文档中 完成一个简单的插入视图的过程： 代码如下： Dim oDrawDoc As DrawingDocument
Set oDrawDoc = ThisApplication.ActiveDocument

Dim oSheet As Sheet
Set oSheet = oDrawDoc.ActiveSheet

Dim oDocs As Documents
Dim oDoc As Document

Set oDocs = ThisApplication.Documents
Set oDoc = oDocs.Open("e:\1.ipt", False)

Dim oP2d As Point2d

Set oP2d = ThisApplication.TransientGeometry.CreatePoint2d(3, 3)
'Set oP2d.Y = 0

Dim oDrwViw As DrawingView
'''''''''''
'插入一个零件图:e:\1.ipt

Set oDrwViw = oSheet.DrawingViews.AddBaseView(oDoc, oP2d, 1, kDefaultViewOrientation, kFromBaseDrawingViewStyle) ' ！！！！！ ''''''''''''''''''''''''''''''''''''' 请问陈老：最后一句总是出错，查询帮助也看不出问题所在 请陈老帮忙看看。

陈伯雄

请列出出错提示...

lhkz

出错提示如下：

无效的过程调用或参数（错误 5）

有些调用操作不能完成。此错误有以下的原因和解决方法：

• 参数值可能超出了允许的范围。例如，Sin 函数只接受特定范围的值。正的参数小于 2,147,483,648的是可接受的，而等于 2,147,483,648 则会产生错误。

  检查参数的许可范围。

• 如果所要调用的过程不适于当前平台的话，也会发生此错误。例如，有些程序可能只应用到 Microsoft Windows 或 Macintosh 等。

  检查过程的特定平台信息。

详细信息，可选取有问题的项目，并按下 F1 （在Windows中）或HELP（在Macintosh中）键。

lhkz

截图

lhkz

lhkz

编这个VBA        主要是能希望能够自动调入指定位置的 零件文档，生成 工程图，不知道这样写可不可以，好像陈老 出的那本 inventor 6。0 VBA 的书对这方面介绍不多，不知这个功能能否通过 VBA 实现，怎样实现。


                                         请陈老指点，谢谢！

陈伯雄

我认为：


1）您的程序行相关参数使用有问题，建议查找对象表，修正。


2）创建工程图不应当用程序实现，这是只有人才能正确完成的工作，许多条件程序无法模拟和自动确定，建议放弃这个想法...