ﾋﾞｭｰ名のテキストを追加する

こちらで記載した事の確認です。
複数のビュー名とリンクした状態のテキストを新作 - C#ATIA

属性リンクを持ったテキストの作成は非常に面倒なのですが、
（しかも確認する手段が無い）単純にビュー名とリンクした状態の
テキストの作成であれば単純です。
日本語「図の名前を追加」
英語「Add View Name」
のコマンドをマクロで実行するだけです。

’vba
Option Explicit

Sub CATMain()

    'ｺﾏﾝﾄﾞ - 言語依存しているので適切なものを!
    Dim cmd As String
    'cmd = "図の名前を追加" '日本語
    cmd = "Add View Name" '英語
    
    'ﾋﾞｭｰ選択
    Dim msg As String
    msg = "ﾋﾞｭｰ名のﾃｷｽﾄを追記するﾋﾞｭｰを選択してください / ESC-ｷｬﾝｾﾙ"
    
    Dim filter As Variant
    filter = Array("DrawingView")
    
    Dim sel As Variant 'Section
    Set sel = CATIA.ActiveDocument.selection
    
    sel.Clear
    Select Case sel.SelectElement2(filter, msg, False)
        Case "Cancel", "Undo", "Redo"
            Exit Sub
    End Select

    Call CATIA.StartCommand(cmd)
    
End Sub

マクロ内で事前選択して、コマンド実行です。

こちらに記載したコマンドIDが判れば、言語依存が無くなるのですが
見つかりませんでした。
コマンドID - C#ATIA