Изменить название раздела 3D в продукте

Question

У меня есть продукт в CATIA, содержащий несколько CATParts. Я использую символ Разделение в DMU Review Creation для создания раздела, чтобы разрезать продукт. Этот раздел называется Section.1.

Что я ищу - это код для ввода имени из CATPart 1 (myPartNumber1) и изменение имени раздела из раздела "section.1" в myPartNumber1.

Это мой код до сих пор в 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 

Я получаю проблему в последней строке.

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

ПРОБЛЕМА: Что я получаю то, что все мои Разделы получить имя первой части в продукте

Что мне нужно IST : первая секция получает имя первого PArt, вторая секция получает имя второй части ...

Я, очевидно, что-то написал неправильно в моих циклах.

THX