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)
