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 p>
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