CATIA二次开发VBA入门（4）——进程外开发环境搭建，vb.net在Visual Studio中开发，创建圆柱曲面的宏录制到二次开发案例

引出

最近在研究catia二次开发，发现网上的资料非常有限，尤其是博客文件比较少，这个系列文章是本人的学习笔记，分享出来，只为抛砖引玉，希望对你有帮助。

CATIA二次开发VBA入门（3）——进程外开发环境搭建，vb.net在Visual Studio中开发，创建圆柱曲面的宏录制到二次开发案例

---

vb.net和vb6.0

VB.NET一种简单，现代，面向对象计算机编程语言，有微软开发，VB.NET是一种基于.NET Framework的面向对象编程语言，它是Visual Basic语言的继承者，但是与早期版本的Visual Basic有很大的不同。VB.NET是一种强类型语言，支持类、接口委托、异常处理、LINQ等现代编程特性，可以开发Windows应用程序、Web应用程序、服务和组价。它还支持多线程和异步编程，并且可以与其他的.NET语言(如C#)进行交互。VB.NET是一种易学易用的语言,适合初学者和专业开发人员

特点:

1.面向对象：VB.NET 是一种完全面向对象的语言，支持封装、继承和多态等面向对象的特性。

2.强类型：VB.NET 是一种强类型语言，需要在编译时进行类型检查，避免在运行时出现类型错误。

3.安全性：VB.NET 具有良好的安全性，支持代码访问权限控制、类型安全、内存管理等功能，可以有效地防止程序运行时出现安全问题。

4.可扩展性：VB.NET 可以轻松地扩展和定制，可以使用 COM 组件、.NET 组件和自定义组件等方式扩展应用程序的功能。

5.多平台支持：VB.NET 可以运行在多个操作系统上，包括 Windows、Linux 和 macOS 等。

6.集成开发环境：VB.NET 可以与 Visual Studio 集成使用，提供了丰富的开发工具和调试功能，可以提高开发效率和代码质量。

7.数据库支持：VB.NET 提供了对多种数据库的支持，包括 ADO.NET、OLE DB 和 ODBC 等，可以方便地访问和操作数据库

VB.NET和VB6.两种不同的Visual Basic版本，它们在语言、架构、开发环境、应用场景等方面都有很大的差异。

不同之处
类型	语言	架构	开发环境	应用场景	编译器	文件格式
VB.NET	完全面向对象语言支持更多语言:泛型,LINNQ,匿名来类型	.NET Framework支持更多.NET Framework特性：Windows Forms,WPF,ASP.NET	Visual Studio	构建大型的企业级应用用程序	.NET	VB或VB.ET
VB6.0	基于事件语言	COM	集成开发环境(IDE)	小型的应用程序和系统内的维护和升级	Microsoft Vissual Basic 6.0	.frm、.cls.bas等

进程外开发环境搭建

vb.net开发环境搭建

• 新建模块

创建了窗口和模块

《CATIA二次开发技术基础》模板

Imports INFITF

Module Module1

    Public CATIA As INFITF.Application

    Public Sub Main()
        On Error Resume Next '有错误的话会忽略，继续执行下一句 
        ' 如果打开catia，就获取当前的这个
        CATIA = GetObject(, "CATIA.Application")
        If Err.Number <> 0 Then
            ' 如果没有打开catia，则打开新的catia
            CATIA = CreateObject("CATIA.Application")
            CATIA.Visible = True
        End If
        On Error GoTo 0
    End Sub

End Module

添加宏库引用

catia自带的vba开发环境已经引用了很多库

需要在vb中引入import

vs开发环境初步

vs中的立即窗口

Imports MECMOD

Module Module1
    Public CATIA As INFITF.Application
    Public oPartDoc As PartDocument
    Sub Main()

        On Error Resume Next '有错误的话会忽略，继续执行下一句 
        ' 如果打开catia，就获取当前的这个

        CATIA = GetObject(, "CATIA.Application")
        If Err.Number <> 0 Then
            ' 如果没有打开catia，则打开新的catia
            CATIA = CreateObject("CATIA.Application")
            CATIA.Visible = True
        End If
        On Error GoTo 0

        oPartDoc = CATIA.ActiveDocument
        MsgBox(oPartDoc.Name)

    End Sub

End Module

对象浏览器

Imports MECMOD

Module Module1
    Public CATIA As INFITF.Application
    Public oPartDoc As PartDocument
    Public oPart As Part
    Public oBodies As Bodies
    Public oBody As Body
    Sub Main()
        On Error Resume Next '有错误的话会忽略，继续执行下一句 
        ' 如果打开catia，就获取当前的这个

        CATIA = GetObject(, "CATIA.Application")
        If Err.Number <> 0 Then
            ' 如果没有打开catia，则打开新的catia
            CATIA = CreateObject("CATIA.Application")
            CATIA.Visible = True
        End If
        On Error GoTo 0

        oPartDoc = CATIA.ActiveDocument
        'MsgBox(oPartDoc.Name)

        oPart = oPartDoc.Part
        oBodies = oPart.Bodies
        oBody = oBodies.Item(1)
        MsgBox(oBody.Name)
    End Sub

End Module

建立模板

可以把设置好库函数的引用的工程文件，作为一个标准的模板，后面直接复制这个标准模板，然后在这上面开发，就不需要每次都要创建各种引用了。

案例：创建一堆圆柱曲面

先创建一个宏库，用于保存接下来要录制的宏程序

第一步：录制宏

然后，工具，宏，启动录制，新建一个part，草图编辑，然后拉升，获得一个圆柱

编辑录制的宏

Sub CATMain()

Dim documents1 As Documents
Set documents1 = CATIA.Documents

Dim partDocument1 As PartDocument
Set partDocument1 = documents1.Add("Part")

Dim part1 As Part
Set part1 = partDocument1.Part

Dim bodies1 As Bodies
Set bodies1 = part1.Bodies

Dim body1 As Body
Set body1 = bodies1.Item("零件几何体")

Dim sketches1 As Sketches
Set sketches1 = body1.Sketches

Dim originElements1 As OriginElements
Set originElements1 = part1.OriginElements

Dim reference1 As Reference
Set reference1 = originElements1.PlaneXY

Dim sketch1 As Sketch
Set sketch1 = sketches1.Add(reference1)

Dim arrayOfVariantOfDouble1(8)
arrayOfVariantOfDouble1(0) = 0#
arrayOfVariantOfDouble1(1) = 0#
arrayOfVariantOfDouble1(2) = 0#
arrayOfVariantOfDouble1(3) = 1#
arrayOfVariantOfDouble1(4) = 0#
arrayOfVariantOfDouble1(5) = 0#
arrayOfVariantOfDouble1(6) =