Ändern Sie den Namen des 3D-Abschnitts in Produkt

Question

Ich habe ein Produkt in CATIA mit mehreren CATParts. Ich benutze das Symbol Schnitt in DMU Review Creation, um einen Abschnitt zu erstellen, um das Produkt zu schneiden. Dieser Abschnitt heißt Abschnitt.1.

Was ich suchen ist ein Code, um den Namen von CATPart 1 (myPartNumber1) und ändern Sie den Namen des Abschnitts von "Abschnitt.1" in myPartNumber1.

Dies ist mein Code so weit in vb.NET:

Sub x() 

Set productDocument1 = CATIA.ActiveDocument 

myPartNumber1 = productNumber1.Product.Products.Item(1).Name 
Set selection1 = productDocument1.Selection 
selection1.Search("Name='Section.1',all") 
selection1.item(1).value.Name = myPartNumber1 

End Sub 

ich ein Problem in der letzten Zeile erhalten.

Answer 1

Sub CATMain()

Set oprod = CATIA.ActiveDocument.Product 
Set TheSections = oprod.GetTechnologicalObject("Sections") 
Set mySection = CATIA.ActiveDocument.Product.GetTechnologicalObject("Sections") 

Set oSection = oprod.GetTechnologicalObject("Sections") 
Set selectionpart = CATIA.ActiveDocument.selection 

partcount = selectionpart.Count 
    for k = 1 to partcount 
      Set selectionpart = oprod.Products.Item(k) 
    myPartNumber = CATIA.ActiveDocument.Product.Products.Item(k).Name 

    sectioncount = oSection.Count 
    MsgBox sectioncount 
      for i = 1 To sectioncount 
       Set oSection = mySection.item(i) 
       oSection.Name = myPartnumber 
     Next 
    Next 

End Sub

PROBLEM: Was ich erhalte, ist, dass alle meine Sections den Namen des ersten Teils in Artikel erhalten

Was ich brauche, ist : erster Abschnitt erhält den Namen des ersten PArt, zweiter Abschnitt erhält den Namen des zweiten Teils ...

Ich habe offensichtlich etwas geschrieben falsch in meinen Schleifen.

THX