C#ATIA

↑タイトル詐欺 主にFusion360API 偶にCATIA V5 VBA(絶賛ネタ切れ中)

Drawテキストをアクティブなビューに作成する

Drawテキストをアクティブなビューに作成するサンプルです。
アイソメ図以外でも同じの為、アクティブなビューです。

'vba
'Drawのテキストを作成する

Option Explicit

Sub CATMain()

    ' 目的の文字
    Const TARGET_TEXT = "hoge"

    ' ドキュメント
    Dim doc As DrawingDocument
    Set doc = CATIA.ActiveDocument

    ' アクティブシート
    Dim sheet As DrawingSheet
    Set sheet = doc.sheets.ActiveSheet

    ' アクティブビュー
    Dim view As DrawingView
    Set view = sheet.views.ActiveView

    ' Drawのテキストの親分
    Dim drawTexts As DrawingTexts
    Set drawTexts = view.Texts

    ' 目的の文字でテキスト作成
    ' 1-目的の文字列 2-X座標 3-Y座標
    ' http://catiadoc.free.fr/online/interfaces/interface_DrawingTexts.htm
    Dim drawTxt As DrawingText
    Set drawTxt = drawTexts.Add( _
        TARGET_TEXT, _
        10, _
        20 _
    )

    ' テキストの1番目から2番目までのフォントサイズを5に変更
    ' http://catiadoc.free.fr/online/interfaces/interface_DrawingText.htm
    drawTxt.SetFontSize 1, 2, 5#

End Sub

実行結果はこの様な感じです。


逆に、テキストを選択した際のこの範囲なのですが

この座標値をマクロで取得したいのですが・・・。

何か方法があったような記憶が有るのですが、
忘れました。知りたい。