catvba, catia Produkt Bug Umbenennung

Question

ich habe ein spezifisches Problem, dass dieses Stück Code nicht wie erwartet funktioniert:

Private Sub productRename() 
    Dim oProd As Product 
    Set oProd = CATIA.Documents.Add("Product").Product 

    Set oProd = oProd.Products.AddNewComponent("Product", "") 
    oProd.Name = "prod.1" 

    Set oProd = oProd.Products.AddNewComponent("Product", "") 
    oProd.Name = "prod.2" 
End Sub 

Ich versuche Instanznamen auf verschiedenen Ebenen zu wechseln, kann auf der ersten Ebene, aber nicht für andere Ebenen. Ein bestimmtes Skript erstellt ein neues Produkt, fügt ein Unterprodukt hinzu, benennt es um und fügt dann eine weitere Unterebene hinzu und versucht, sie umzubenennen. Das Skript wird jedoch ohne Fehler beendet, ohne die letzte Instanz zu ändern. Instanznamen sind nicht in Konflikt, einzigartig, da es nur diese neu erstellten Produkte gibt.

Problem erscheint auf R24 SP4, also kann bitte jemand bestätigen, dass es auf verschiedenen SP-Ebene funktioniert?

Answer 1

das Referenzprodukt anstelle der Instanz Produkt Verwenden Sie das neue Kind hinzuzufügen, und Sie sollten den Namen der Instanz

Dim PN As String 
PN = "12345" 
Dim instanceName as String 
instanceName = "12345.X" 

Set oProd3 = oProd2.ReferenceProduct.Products.AddNewComponent("Product", PN) 
oProd3.Name = instanceName 

Answer 2

Ihr Code hat dasselbe Verhalten auch in r25.

Ich würde so etwas wie dies versuchen:

Sub CATMain() 

Dim oProd As Product 
Set oProd = CATIA.Documents.Add("Product").Product 

Set oProd1 = oProd.Products.AddNewComponent("Product", "prod.1") 
'~ oProd1.Name = "prod.1" 

Set oProd2= oProd1.Products.AddNewComponent("Product", "prod.2") 
'~ oProd2.Name = "prod.2" 

    Set oProd3 = oProd2.Products.AddNewComponent("Product", "prod.3") 
'~ oProd3.Name = "prod.3" 

End Sub