Cómo vb atraviesa la estructura del producto catia

Se implementa llamando a subrutinas en un bucle, como atravesar la estructura del producto catia y generar su número de pieza.

Subcomando privado 1_Click()

Dim TreeNum como cadena

Dim sDoc, I es Single, ii es Single, TypeDoc es String, sDocProduct, sProduct

En caso de error, continúe con el siguiente paso

Uf. Borrar

Establecer sDoc = CATIA. Documento activo

Establezca sDocProduct = sDoc. Producto

Llamar a PrintNum(sDocProduct, TreeNum)

MsgBox TreeNum

Conector final

Sub privado PrintNum(oProduct, StrNum es cadena)

Si es un producto. Products.Count = 0 y luego salga de Sub

Dim i

para i = 1 a oProduct. producto. Count

StrNum = StrNum+nueva línea VB+o producto. producto. Proyecto (1). Número de pieza

Llame a PrintNum(oProduct. Product. Item (1), StrNum)

Luego

Finalice el conector