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

以下是一个小程序，最后两段就是问题啦，蛮奇怪的，有高手指教吗?
Option Explicit
' COPYRIGHT DASSAULT SYSTEMES 2000

' *****************************************************************************
'   Purpose:       Create A Product Structure document containing
'                        an external component.
'   Assumtions:   Opens CAAPstHull.CATPart in the CATDocView
'   Author:
'   Languages:   VBScript
'   Locales:        English
'   CATIA Level:  V5R6
' *****************************************************************************


Sub CATMain()

    ' -----------------------------------------------------------------------------------------------
    ' Optional: allows to find the sample wherever it's installed
     Dim sDocPath As String
     sDocPath = CATIA.SystemService.Environ("CATDocView")
     If (Not CATIA.FileSystem.FolderExists(sDocPath)) Then
       Err.Raise 9999, , "No Doc Path Defined"
     End If
    ' ------------------------------------------------------------------------------------------------
   
    'Create a new product document object by adding a document with the Product
    'type to the document collection of the CATIA application.
    Dim oProductDoc As Document
    Set oProductDoc = CATIA.Documents.Add("roduct")

    'Retrieve the root product.
    Dim oRoot As Product
    Set oRoot = oProductDoc.Product

    'Retrieve the root product collection of products.
    Dim oRootCol As Products
    Set oRootCol = oRoot.Products

    'Open the Part Document
    Dim oPartDoc As Document
    Set oPartDoc = CATIA.Documents.Read("D:\图\1\1\Jin41200.CATProduct")
   

    'Add a new component from the already opened part document.
    Dim oNewComponent As Product
    Set oNewComponent = oRootCol.AddExternalComponent(oPartDoc)
   
    Dim rProduct As Product
    Set rProduct = oNewComponent.Products.Item(1).ReferenceProduct
   
    Dim MyProduct As Product
    Set MyProduct = oRootCol.AddNewComponent("roduct", "111")
   
'-----------------------下面两段改名字没反应，改不动，我试过树型里第一层以下的名称都改不动---------------------------------
    Dim MyNewProduct As Product
    Set MyNewProduct = oNewComponent.Products.AddComponent(rProduct)
    MyNewProduct.Name = "444"
   
    Set MyNewProduct = MyProduct.Products.AddNewProduct("222")
    MyNewProduct.Name = "333"
   
   
End Sub

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

没有用，我试过的。
我用调试跟踪了一下，Name付值后还是没变，是什么还是什么。
比如：MyNewProduct.Name的值本来是"111"
MyNewProduct.Name = "444"这句执行后，它还是"111"
但树结构里面，第一层的名称就改得动。(除去根节点的第一层)

save过以后呢？

好像也不行，我新打开一张已画好的装配图，改第一层以下的零部件的名称(程序改)，结果很让人郁闷，不行呀!

不知道是不是CATIA有什么东东需要设置的?

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

楼上的正解

xacf给出的程序都是在CATProduct下的第一层实现的，拿到每二层就不管用了。CATProduct下的CATProduct下的CATPart