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自带的宏录制功能。虽然此功能并不是所有的操作都能录制出代码，但是我们可以抱着试一试的心态去尝试，有可能给我们的开发节省很多时间.
