こちらの続きです。
注記のテキストプロパティ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ですかね?