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