読者です 読者をやめる 読者になる 読者になる

C#ATIA

↑タイトル詐欺 主にCATIA V5 の VBA

Drawのテキストサイズを変更する

CATIA_V5 VBA KCL

"Drawのテキストサイズを変更したけど反映されない?" のような
ご相談を頂きましたが、ちょっと状況がわからないので、
現象を再現できないでいます。

クリックしたテキストのサイズを2倍にするだけのテストコードです。

'vba test_DrawTextSize_Double
'using-'KCL0.0.10'
'DrawTextサイズを2倍にする

Sub CATMain()
    'ドキュメントのチェック
    If Not KCL.CanExecute("DrawingDocument") Then Exit Sub
    
    Dim Msg$: Msg = "テキストを選択して下さい : ESCキー 終了"
    Dim Dt As DrawingText
    Dim DtSize#
    
    Do
        Set Dt = KCL.SelectItem(Msg, "DrawingText")
        If KCL.IsNothing(Dt) Then Exit Do
        DtSize = Dt.GetFontSize(0, 0) 'サイズ取得
        Dt.SetFontSize 0, 0, DtSize * 2 'サイズ設定
    Loop
End Sub

イロイロあり、今までR2012を使用していたのでKCLがVBA7に未対応な
状態でしたので、修正しました。
他にも修正したい部分はあるのですが、時間が無く・・・・。