大家好，CATIA软件没有一键关闭当前所有文件这个功能，但是有的时候我们打开的当前文件太多(如下图一下打开了几十个文件)，想要一次将其关闭掉，又不想从“任务管理器”直接终止CATIA软件的运行，那么这个时候我们就要想办法通过二次开发来实现这一目标。
代码非常简单:
|
Sub CATMain() On Error Resume Next For i = 1 To 1000 CATIA.ActiveDocument.Close Next End sub |
可以在ide中直接新建一个模块，将以上代码复制粘贴便可以直接使用。
如何在CATIA中调用编译好的EXE文件呢？
我们也可以将代码通过vb软件编译成“exe可执行文件”(编译好的文件放置在如下图路径)，然后通过catvba进行调用。通过vb编译的时候，我们最好给其一个窗体置为最前端的设置,这个在之前的图文教程中讲过了，可以翻看历史图文！
在vba中通过shell函数调用exe文件的代码如下：
|
Sub CATMain() On Error Resume Next A = Shell("H:\test" & "\CatCloseALL.exe", vbNormalFocus) End Sub 注意，这里Shell(pathname[,windowstyle])函数的第二参数windowstyle我们用的是vbNormalFocus类型，原因是我们为宏创建一个图标，点击图标后，可以直接将窗体至于catia绘图区域最前端。注意一下这一点，关于如何为catvba宏定义图标和快捷键，之前的图文课程里也介绍了，大家搜索往期图文教程即可。 |
完成后结果如下图所示，我们为宏调用定义了绿色三角形图标，点击图标或者键盘快捷键ctrl+shif+w，即可激活vba调用，并打开“关闭当前所有文件”窗体，点击命令按钮后即可关闭当前所有文件啦！
文章来源：catia小蚂蚁
技术文档
热门文章
155-2731-8020