CATIA二次开发隐藏对象：part

1、        '获取CATIA应用对象

        Dim CATIA As INFITF.Application

        Try

            CATIA = GetObject(, "CATIA.Application")

        Catch ex As Exception

            MsgBox("请启动一个CATIA 应用程序。")

            End

        End Try

        'CATIA获取所有文档几何

        Dim Docs As INFITF.Documents = CATIA.Documents

        '获取指定文档对象

        Dim Doc1 As INFITF.Document = Docs.Item("1192-010-Remove.CATPart")

        '指定文档对象转换成MECMOD对象

        '其实Dim oPartDocument as MECMOD.PartDocument = Doc1

       '此时oPartDocument 才有.part方法，这里直接跳过了

        Dim Part1 As MECMOD.Part = Doc1.part

        '打印对象文档名称验证对象转换

        MsgBox(Part1.Name)

2、在CATIA二次开发过程中，我们很多时候都希望能有些许的开发思路指导或者关键方法的指导，以加速我们的开发速度，这样我们时常借助CATIA自带的宏录制功能。虽然此功能并不是所有的操作都能录制出代码，但是我们可以抱着试一试的心态去尝试，有可能给我们的开发节省很多时间.