Identify a CATIA Component from a CATIA Product 1

[Suncad]

Hi there,

I'm working on a CATIA macro that need to check wether the current product is a real product (with its own .CATProduct file) or a component. The tree icon is different, so this must be stored somewhere...

ex :

for i = 1 to prod_count

if CurrentProd.Products.Item(i) <<is a product>> then
<<do stuffs>>
else

if CurrentProd.Products.Item(i) <<is a component>> then
<<do other stuffs>>
end if
end if


Thanks if you can help me,

Victor

 

[ferdo]

Hi

Language="VBSCRIPT"
Sub CATMain()
Set productDocument1 = CATIA.ActiveDocument
Set product1 = productDocument1.Product
Set products1 = product1.Products

For i = 1 To products1.Count
NameOfProdPart = products1.Item(i).ReferenceProduct.Parent.Name

If Right(NameOfProdPart,7) = "CATPart" Then
Msgbox "Part! " & NameOfProdPart
Elseif Right(NameOfProdPart,7) = "Product" Then

If NameOfProdPart = product1.Name & ".CATProduct" Then
Msgbox "Component! " & NameOfProdPart
Else
Msgbox "Product! " & NameOfProdPart
End If

End If
Next
End Sub

Regards
Fernando

https://picasaweb.google.com/102257836106335725208

- Romania

https://picasaweb.google.com/103462806772634246699/

- EU

 

[Suncad]

Thank you very much, I did'nt tought it would be that easy.

 

[AKCalixto]

Try to use

sType = TypeName(products1.Item(i))

sType will be "Product", "Part", "Body", "Document", "Hybridbody", ...

Cheers,
Alex