BIM论坛 › Inventor二次开发 › 关于以前写的VBA在新版本64位Inventor中无法使用的问题

萧闫子 发表于 2014-1-14 10:20:05

关于以前写的VBA在新版本64位Inventor中无法使用的问题

问题：以前使用的VBA程序，使用了诸如ThisDocument、Me这样的对象，在新版的Inventor 64位里面，无法使用了。（现在需要使用ThisDocument.InventorDocument这样的表述方法），并且由于使用了Autoopen这样的自动执行的函数，导致打开一个Inventor部件的时候，弹出大量的错误对话框。能否将Inventor里面的VBA功能禁用，或者禁用AutoOpen函数？能否批量的将零件文件中的VBA程序代码删除或改写，这种操作是可以脱离Inventor进程进行，还是必须在Inventor中进行？
解决方法：一、按住shift健就可以禁用Auto宏命令，Inventor API帮助文档里有说明："Autodesk Inventor runs automatic macros automatically whenever the associated events occur. If the user presses the Shift key when the event occurs, the automatic macro will not run. For example, if the user presses the Shift key while opening a document that contains an AutoOpen macro, the macro will not run."二、要删除或者修改VBA程序，有两种方法：
[*]可以编写VBA项目(.ivb文件)或者一个简单的宏命令来删除文件中的VBA程序（等用户打开了文件后执行该命令）。例子如下：
view plaincopy




[*]'You need to set a reference to the Microsoft Visual Basic for Applications   
[*]
[*]'Extensibility library, Tools > References   
[*]
[*]Sub test()   
[*]
[*]Dim l_mod As InventorVBAComponent ' VBComponent   
[*]
[*]Dim l_project As InventorVBAProject   
[*]
[*]For Each l_project In ThisApplication.VBAProjects   
[*]
[*]If l_project.ProjectType = kDocumentVBAProject Then   
[*]
[*]For Each l_mod In l_project.InventorVBAComponents   
[*]
[*]'ThisDocument module can't be deleted, so if Thisdocument, delete code of lines   
[*]
[*]If l_mod.Name <> "ThisDocument" Then   
[*]
[*]l_mod.VBComponent.Activate   
[*]
[*]l_project.VBProject.VBComponents.Remove l_mod   
[*]
[*]Else   
[*]
[*]l_mod.VBComponent.CodeModule.DeleteLines 1, l_mod.VBComponent.CodeModule.CountOfLines   
[*]
[*]End If   
[*]
[*]Next   
[*]
[*]End If   
[*]
[*]Next   
[*]
[*]End Sub   


    注：需要增加Microsoft Visual Basic for Applications Extensibility library (工具 -> 参考...)。 CodeModule还有一个ReplaceLine函数可以修改VBA代码。    你也可以做个插件实现上述代码，再做个菜单方便界面调用。插件的一个好处是它可以有安装程序，所以不用配置/修改用户机器上的默认的.ivb文件(应用程序项目)，也不用你手动的去加载你的VBA项目。      以上两种方法都离不开Inventor进程。三，这种方法可以脱离Inventor，请看我的另外一篇文章：免费的删除文档中的VBA程序的工具及源码文章来源：http://blog.csdn.net/barbarahan

EaBIM门户编辑 发表于 2015-4-21 09:48:50

EaBIM的技术很高超，介绍的很详细，可以值得学习。

萧闫子 发表于 2014-3-28 10:18:45

看看      

妮可 发表于 2016-3-28 11:13:27

(＾－＾)V支持！！~

极HONDA速 发表于 2014-2-18 12:16:03

顶！！！！！！！！！！！！！！！！！！！！！！！！！

元劭 发表于 2014-2-18 12:20:03

路过！！！
帮顶……

风浪子 发表于 2014-2-18 12:21:55

顶！！！！！！！！！！！！！！！！！！！！！！！！！

JHXT杰西卡 发表于 2014-2-18 12:30:15

路过！！！
帮顶……

AK47 发表于 2014-2-19 15:01:14

顶!!!!!!!!!!

冰山 发表于 2014-2-21 14:45:10

顶！！！！！！！！！！！！！！！！！！！！！！！！！

嫣雨遥 发表于 2014-2-21 14:47:30

路过！！！
不发表意见……

zj1345 发表于 2014-2-22 20:15:55

顶......
楼下跟上.....

波罗友 发表于 2014-2-25 10:39:08

路过！！！
帮顶……

audigy 发表于 2014-3-5 15:39:20

顶！！！！！！！！！！！！！！！！！！！！！！！！！

zj1345 发表于 2014-3-7 11:59:53

顶起来…………

秦惑 发表于 2014-3-7 12:02:57

(*^__^*) 嘻嘻……

OK佬 发表于 2014-3-7 12:04:33

顶起来…………

秦惑 发表于 2014-3-10 12:17:30

顶！！！！！！！！！！！！！！！！！！！！！！！！！

查看完整版本: 关于以前写的VBA在新版本64位Inventor中无法使用的问题