Excel vba修改Catia v5模型属性

Question

当涉及到CATIA时，我是一个新手，但我在excel中使用VBA有相当多的经验。我正在尝试开发一个excel宏，它遍历catia程序集中的所有部分，通过将文本拼接到我想要的位置来重命名它们，然后对它们进行重新排序(字母数字升序)。我相信我可以写出用于实际拼接、重命名、重排序的算法位。我正在为使用excel操作Catia而苦苦挣扎。互联网上没有太多的信息。我已经勾选了参考资料中以CATIA开头的所有方框。到目前为止，我写了以下内容：

Dim CATIA as object
Set CATIA = Getobject(,"CATIA.Application")
Dim oMyDoc as Document
Dim oCurrentProd as Product   'I assume the individual parts within CATIA are_
                               referenced as products?
Set oMyDoc = CATIA.ActiveDocument

如果我尝试运行上面的代码，我得到一个错误消息“Class‘s get support Automation’”。这意味着我的基础知识是错的。我将非常感谢您在这方面的帮助，以及任何其他使我能够完成任务的信息。谢谢。

Answer 1

在VBA中从CATIA运行代码时，某些对象在正确键入时会出现错误。尝试将这些对象声明为不带类型或作为变量。

Dim CATIA as 'object
Set CATIA = Getobject(,"CATIA.Application")
Dim oMyDoc as 'Document
Dim oCurrentProd as 'Product   
Set oMyDoc = CATIA.ActiveDocument

或

Dim CATIA as variant
Set CATIA = Getobject(,"CATIA.Application")
Dim oMyDoc as variant
Dim oCurrentProd as variant   
Set oMyDoc = CATIA.ActiveDocument

我建议您首先将它们声明为正确的类型，这样您就可以看到对象的方法和属性，然后将其更改为variant