“组件”元素在 CATIA VBA 中被视为“产品文档”

问题描述

我有问题。我可以使用以下代码在 catia vba 中导入特征类型

 Set document1 = CATIA.Documents.Item("Product1.CATProduct")
 Set products1 = document1.Product.Products

 For i = 1 To products1.Count

    MsgBox TypeName(products1.Item(i).ReferenceProduct.Parent)

 Next i

但它也将“Compenent”元素显示为“ProductDocument”。如果组件是，我想单独操作。

如何确定一个元素是一个“组件”？

enter image description here

解决方法

我找到了解决方案

For Each prd In products1
  If prd.ReferenceProduct.Parent.Product.PartNumber <> prd.PartNumber Then
   '... this is a component
  End If
Next

catia vba