命名空间

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

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

导入命名空间：

Imports INFITFImports HybridShapeTypeLibImports MECMOD

启动CATIA

定义变量

Dim CatiaApp As Application' catia应用Dim ADoc As Document ' 文件Dim APart As Part' 定义零件Dim ABodies As HybridBodies' 定义Body集合Dim ABody As HybridBody' 定义BodyDim Shapes As HybridShapeFactory ' 定义几何图形集

启动Catia函数

' 启动CatiaSub StartupCatia()Dim strStartup As String = "启动CATIA..."Console.WriteLine(strStartup)' 跳过错误步骤，继续执行On Error Resume NextCatiaApp = GetObject(, "CATIA.Application")If Err.Number <> 0 ThenCatiaApp = CreateObject("CATIA.Application")CatiaApp.Visible = TrueEnd IfDim strDoc As String = "新建Part文件..."Console.WriteLine(strDoc)' 获取当前活动文件；如果没有活动文件，则新建零件ADoc = CatiaApp.ActiveDocumentIf ADoc Is Nothing ThenErr.Clear()ADoc = CatiaApp.Documents.Add("Part")End If' 初始化APart = ADoc.PartABodies = APart.HybridBodiesABody = ABodies.Add()Shapes = APart.HybridShapeFactoryEnd Sub

全部模块源码

Imports INFITFImports HybridShapeTypeLibImports MECMODModule StartupModuleDim CatiaApp As Application' catia应用Dim ADoc As Document ' 文件Dim APart As Part' 定义零件Dim ABodies As HybridBodies' 定义Body集合Dim ABody As HybridBody' 定义BodyDim Shapes As HybridShapeFactory ' 定义几何图形集' 主程序Sub Main()Dim strStart As String = "开始CATIA建模..."Console.WriteLine(strStart)StartupCatia()Dim strDoc As String = "已启动CATIA"Console.WriteLine(strDoc)Console.ReadKey()End Sub' 启动CatiaSub StartupCatia()Dim strStartup As String = "启动CATIA..."Console.WriteLine(strStartup)' 跳过错误步骤，继续执行On Error Resume NextCatiaApp = GetObject(, "CATIA.Application")If Err.Number <> 0 ThenCatiaApp = CreateObject("CATIA.Application")CatiaApp.Visible = TrueEnd IfDim strDoc As String = "新建Part文件..."Console.WriteLine(strDoc)' 获取当前活动文件；如果没有活动文件，则新建零件ADoc = CatiaApp.ActiveDocumentIf ADoc Is Nothing ThenErr.Clear()ADoc = CatiaApp.Documents.Add("Part")End If' 初始化APart = ADoc.PartABodies = APart.HybridBodiesABody = ABodies.Add()Shapes = APart.HybridShapeFactoryEnd SubEnd Module