基于VB的Catia二次开发（1）：启动Catia的方法

命名空间

添加引用：CATIA V5 GSMInterfaces Object Library，只需添加这一个，其余需要的引用会自动添加。

添加引用之后，引用列表里面就会多出这几个库。

导入命名空间：

Imports INFITF
Imports HybridShapeTypeLib
Imports MECMOD

启动CATIA

定义变量

Dim CatiaApp As Application      ' catia应用
Dim ADoc As Document             ' 文件

Dim APart As Part                ' 定义零件
Dim ABodies As HybridBodies      ' 定义Body集合
Dim ABody As HybridBody          ' 定义Body
Dim Shapes As HybridShapeFactory ' 定义几何图形集

启动Catia函数

' 启动Catia
Sub StartupCatia()
    Dim strStartup 
免责声明：本文系网络转载或改编，未找到原创作者，版权归原作者所有。如涉及版权，请联系删