lhkz 发表于 2004-5-11 12:15:00

问陈老师 一个 VBA 的问题

通过宏在 工程图文档中 完成一个简单的插入视图的过程：


代码如下：


Dim oDrawDoc As DrawingDocument<BR>                       Set oDrawDoc = ThisApplication.ActiveDocument<BR>                       <BR>                       Dim oSheet As Sheet<BR>                       Set oSheet = oDrawDoc.ActiveSheet<BR>                       <BR>                       Dim oDocs As Documents<BR>                       Dim oDoc As Document<BR>                       <BR>                       Set oDocs = ThisApplication.Documents<BR>                       Set oDoc = oDocs.Open("e:\1.ipt", False)<BR>                       <BR>                       Dim oP2d As Point2d<BR>                       <BR>                       Set oP2d = ThisApplication.TransientGeometry.CreatePoint2d(3, 3)<BR>                       'Set oP2d.Y = 0<BR>                       <BR>                       Dim oDrwViw As DrawingView<BR>                                                       '''''''''''<BR>                       '插入一个零件图:e:\1.ipt<BR>                       <BR>                       Set oDrwViw = oSheet.DrawingViews.AddBaseView(oDoc, oP2d, 1, kDefaultViewOrientation, kFromBaseDrawingViewStyle)               '       ！！！！！


'''''''''''''''''''''''''''''''''''''


请问陈老：最后一句总是出错，查询帮助也看不出问题所在


请陈老帮忙看看。



陈伯雄 发表于 2004-5-11 18:58:00

请列出出错提示...

lhkz 发表于 2004-5-11 21:11:00

出错提示如下：


<H1><A name=vamsgillegalfunccall></A>无效的过程调用或参数（错误 5）</H1>
<P class=ALNSR>
<OBJECT id=hhobj_1 type=application/x-oleobject classid=clsid:adb880a6-d8ff-11cf-9377-00aa003b7a11><PARAM NAME="Command" VALUE="ALink"><PARAM NAME="Text" VALUE="Text:请参阅"><PARAM NAME="Flags" VALUE=",,1"><PARAM NAME="Item1" VALUE=""><PARAM NAME="Item2" VALUE="vamsgillegalfunccallC"></OBJECT>                       
<OBJECT id=hhobj_2 type=application/x-oleobject classid=clsid:adb880a6-d8ff-11cf-9377-00aa003b7a11><PARAM NAME="Command" VALUE="ALink"><PARAM NAME="Text" VALUE="Text:特性"><PARAM NAME="Flags" VALUE=",,1"><PARAM NAME="Item1" VALUE=""><PARAM NAME="Item2" VALUE="vamsgIllegalFuncCallS"></OBJECT>


<P class=T>有些调用操作不能完成。此错误有以下的原因和解决方法：
<UL>
<LI class=LB1><A href="<b>javascript</b> :hhobj_3.Click()" target="_blank" >参数</A>值可能超出了允许的范围。例如，<B>Sin</B> 函数只接受特定范围的值。正的参数小于 2,147,483,648的是可接受的，而等于 2,147,483,648 则会产生错误。
<P class=LT1>检查参数的许可范围。


<LI class=LB1>如果所要调用的<A href="<b>javascript</b> :hhobj_4.Click()" target="_blank" >过程</A>不适于当前平台的话，也会发生此错误。例如，有些程序可能只应用到 Microsoft Windows 或 Macintosh 等。
<P class=LT1>检查过程的特定平台信息。

</LI></UL>
<P class=T>详细信息，可选取有问题的项目，并按下 F1 （在Windows中）或HELP（在Macintosh中）键。

lhkz 发表于 2004-5-11 21:13:00

截图

lhkz 发表于 2004-5-11 21:17:00

lhkz 发表于 2004-5-11 21:24:00

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


                                       请陈老指点，谢谢！

陈伯雄 发表于 2004-5-12 07:39:00

我认为：


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


2）创建工程图不应当用程序实现，这是只有人才能正确完成的工作，许多条件程序无法模拟和自动确定，建议放弃这个想法...
页: [1]
查看完整版本: 问陈老师 一个 VBA 的问题