注記のテキストプロパティ3

こちらの続きです。
注記のテキストプロパティ2 - C#ATIA
コメント欄の改善です。

打開策が見つからず素直に検索したところ、こちらがHitしました。
COE : Forums : FT&A Change 3D Annotation Size and Add Frames in Macro
なるほど・・・。

Sub CATMain()
    
    'Doc
    Dim actdoc As PartDocument
    Set actdoc = CATIA.ActiveDocument

    'part
    Dim pt As part
    Set pt = actdoc.part

    'Annotation
    Dim annoSet As AnnotationSet
    Set annoSet = pt.AnnotationSets.Item(1)
    
    Dim anno As Annotation
    Set anno = annoSet.Annotations.Item(1)

    'TextProperties
    Dim txtProp As DrawingTextProperties
    Set txtProp = anno.Text.Get2dAnnot
    
    'anno.Text.TPSParallelOnScreen.ParallelOnScreen
    
    'フォントとサイズ変更
    txtProp.FONTNAME = "Arial (TrueType)"
    txtProp.FONTSIZE = 5

    'AnnotationSet off
    actdoc.selection.Add anno.Parent.Parent
    CATIA.StartCommand "CATTPSSetVisuHdr"
    
    'AnnotationSet on
    actdoc.selection.Add anno.Parent.Parent
    CATIA.StartCommand "CATTPSSetVisuHdr"

End Sub

こちらの注釈セットを選択し、"注釈セットをスイッチオン/スイッチオフ" を
実行させるみたいです。

GUIの操作を知らないと、マクロでも損しますねぇ。

但し、現状がスイッチオンか？スイッチオフか？が判断出来ない為、ちょっと
不安な気もしますが、切り替えて元に戻しているからマクロ実行前の状態を
維持していると考えればOKですかね？