有关CATIA二次开发的一个问题，请大家指教

'-----------------------下面这段改名字没反应，改不动，我试过树型里第一层以下的名称都改不动---------------------------------
    Dim MyNewProduct As Product
    Set MyNewProduct = oNewComponent.Products.AddComponent(rProduct)
    MyNewProduct.Name = "444"
    MyProduct.update
    Set MyNewProduct = MyProduct.Products.AddNewProduct("222")
    MyNewProduct.Name = "333"

Language="VBSCRIPT"

Sub CATMain()

Set documents1 = CATIA.Documents

Set productDocument1 = documents1.Item("66666.CATProduct")

Set product1 = productDocument1.Product

Set products1 = product1.Products

Set product2 = products1.Item("Product7.1")

product2.Name = "kkkk"

End Sub

[ 本帖最后由 xacf 于 2006-3-9 11:34 编辑 ]

Language="VBSCRIPT"

Sub CATMain()

Set documents1 = CATIA.Documents

Set productDocument1 = documents1.Item("kkkkkk.CATProduct")

Set product1 = productDocument1.Product

product1.PartNumber = "kkkk"

End Sub

原帖由 tengcomic 于 2006-3-10 14:05 发表
xacf给出的程序都是在CATProduct下的第一层实现的，拿到每二层就不管用了。CATProduct下的CATProduct下的CATPart

建议你看看PART 和 COMPOMONT的区别