大家好，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小螞蟻