ProductTree の ﾘｵｰﾀﾞｰ

今日までは暇なので、こちらの動画を見ていました。
www.youtube.com

Productのﾘｵｰﾀﾞｰをﾏｸﾛでどうやるのか知らなかったのですが、
動画に表示されているｺｰﾄﾞを見ると、単にｶｯﾄ&ﾍﾟｰｽﾄで処理するだけ
なんですね。(動画のReorder_Tree関数部分)

単純にTreeを逆にするだけですが、マネしてみました。

'vba ReverseAssyTree

Sub CATMain()
    'Doc取得
    Dim ProDoc As ProductDocument: Set ProDoc = CATIA.ActiveDocument
    
    'ｵﾌﾟｼｮﾝ変更
    Dim AssyMode As AsmConstraintSettingAtt
    Set AssyMode = CATIA.SettingControllers.Item("CATAsmConstraintSettingCtrl")
    Dim OriginalMode As CatAsmPasteComponentMode
    OriginalMode = AssyMode.PasteComponentMode
    
    'ｵﾌﾟｼｮﾝ切り替え
    AssyMode.PasteComponentMode = catPasteWithCstOnCopyAndCut
    
    'ｶｯﾄ
    Dim Pros As Products: Set Pros = ProDoc.Product.Products
    Dim Sel As Selection: Set Sel = ProDoc.Selection
    Dim i&
    Sel.Clear
    For i = Pros.Count To 1 Step -1
        Sel.Add Pros.Item(i)
    Next
    Sel.Cut
    
    'ﾍﾟｰｽﾄ
    With Sel
        .Clear
        .Add Pros
        .Paste
        .Clear
    End With
    
    'ｵﾌﾟｼｮﾝ戻し,UpDate
    AssyMode.PasteComponentMode = OriginalMode
    ProDoc.Product.Update
End Sub

動画のｺｰﾄﾞでは、Selectionを2個使用していますが、理解していれば
1個だけで十分だとわかります。
(ﾏｸﾛの記録を取ると確かに2個利用したものになりました)

実際に試してみると、ｵﾌﾟｼｮﾝの切り替えが肝のようです。

これ自体に利用価値は無いと思いますが、任意の順に(ｱﾙﾌｧﾍﾞｯﾄ順とか)
Selection.Addすれば良いだけなのです。