catvba，CATIA產品重新命名錯誤

Question

我有一個具體的問題，如預期這段代碼不起作用：

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 

我想在不同的層次變化的實例名稱，適用於第一級，但不對於其他級別。特定腳本創建新產品，添加子產品，重命名它，然後添加另一個子級別並嘗試重命名它，但沒有任何錯誤，腳本將在不更改最後一個實例的情況下完成。實例名稱沒有衝突，是唯一的，因爲只有那些新創建的產品。

問題出現在R24 sp4上，請有人確認它可以在不同的sp級別上工作嗎？

Answer 1

使用引用的產品，而不是實例產品添加新的孩子，你應該能夠設置實例名稱

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

你的代碼在r25中也有同樣的行爲。

我會嘗試這樣的事：

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