Catia二次开发（VB.NET）(1)：Catia对象的创建、连接、打开、关闭

Caita二次开发（VB. NET ）——Catia对象

   一、引用COM

Imports INFITF
Imports MECMOD
Imports KnowledgewareTypeLib
Imports ProductStructureTypeLib

二、创建CATIA 应用 对象（启动CATIA应用程序）

        'Dim cat As INFITF.Application
        Dim cat As Object
        Try
            cat = GetObject(, "catia.application")
        Catch ex As Exception
            cat = CreateObject("catia.application")
            cat.visible = True
        End Try
        Dim doc As PartDocument
        doc = cat.Documents.Add("Part")

三、获取CATIA应用对象（需要启动CATIA 软件 ）并创建一个part文档。

        Dim cat As INFITF.Application
        cat = GetObject(, "catia.application")
        Dim doc As PartDocument
        doc = cat.Documents.Add("Part")

四、打开指定的CATIA 文档

    ''' <summary>
    ''' 打开制定路径的CATIA文件
    ''' </summary>
    ''' <param name="path">指定Catia文件的全路径</param>
    ''' <returns>返回catia应用程序</returns>
    Private Shared Function OpenCAT(path As String) As INFITF.Application
        Dim cat As INFITF.Application = GetObject(, "catia.application")
        Dim doc As PartDocument
        doc = cat.Documents.Open(path)
        OpenCAT = cat
    End Function

五、关闭当前CATIA文档

    Private Shared Sub CloseCAT()
        Dim cat As INFITF.Application = GetObject(, "catia.application")
        cat.ActiveDocument.Close()
    End Sub



免责声明：本文系网络转载或改编，未找到原创作者，版权归原作者所有。如涉及版权，请联系删