“Compenent” elements seen as “ProductDocument” in CATIA VBA 1

[MsuMsu]

I have a problem. I can import feature types in catia vba with the following codes

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
but it also shows "Compenent" elements as "ProductDocument". If component is, I want to make a separate operation.

How can I find out that an element is a "Component" ?

 

[itsmyjob]

Just thinking... If you search for the file name of that component and compare it with the product above, you will be able to know if this is a component or a product... If this is the solution please share the code.

Eric N.
indocti discant et ament meminisse periti ​

 

[Little Cthulhu]

for each prd in products1
  if prd.ReferenceProduct.Parent.Product.PartNumber <> prd.PartNumber then
   ... this is a component
  end if
next

 

[MsuMsu]

thanks a lot it works