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