CATIA二次开发隐藏对象：part

至少组装了一个part的product文档

'获取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)

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