DrawingTableをｸﾘｱする

"DrawingTableをｸﾘｱしたい"　と御質問いただきました。
直接ﾒｿｯﾄﾞは提供されていないようなので、
単純にColumnとRowの二重ループさせ、長さ0の文字を
設定すれば良いかと思います。

'vba
Sub CATMain()
    Dim DrawDoc As DrawingDocument
    Set DrawDoc = CATIA.ActiveDocument
    
    Dim DrawTable As DrawingTable
    Set DrawTable = DrawDoc.Sheets.ActiveSheet.Views.ActiveView.Tables.Item(1)
    
    For i = 1 To DrawTable.NumberOfRows
        For j = 1 To DrawTable.NumberOfColumns
            Call DrawTable.SetCellString(i, j, "")
        Next
    Next
End Sub

続いて "ﾃｰﾌﾞﾙの線の太さを変更したい" との事だったのでｻﾝﾌﾟﾙです。

'vba
Sub CATMain()
    Dim DrawDoc As DrawingDocument
    Set DrawDoc = CATIA.ActiveDocument
    
    Dim DrawTable As DrawingTable
    Set DrawTable = DrawDoc.Sheets.ActiveSheet.Views.ActiveView.Tables.Item(1)
    
    Dim Selection As Selection
    Set Selection = DrawDoc.Selection
    
    Selection.Clear
    Selection.Add DrawTable
    Selection.VisProperties.SetRealWidth 3, 1 'この場合3が太さ
    Selection.Clear
End Sub

"SetRealWidth" の2番目の引数の意味がわからなかったのですが、
恐らく "1" で大丈夫なはずです。

続いて "ﾃｰﾌﾞﾙ内の文字の行間を変更したい" との事ですが、
恐らく赤い印を付けた部分の値を変更したいのだと、
解釈しました。

自分が探す限りこの部分の値の変更を行う為の、ﾌﾟﾛﾊﾟﾃｨや
ﾒｿｯﾄﾞを見付ける事が出来ませんでした。
"絶対に出来ないのか？"
と言われると、先日のﾘﾝｸを取得するﾏｸﾛの様に、WinAPIを
利用すると変更(や値の取得)が可能となる可能性があるの
ですが、かなり調べなければならないのが本音です。

ｺﾝﾃｷｽﾄﾒﾆｭｰ等で表示させるﾌﾟﾛﾊﾟﾃｨで、"ｸﾞﾗﾌｨｯｸ" ﾀﾌﾞの部分は
VisPropertySetで提供されており、"ﾃｰﾌﾞﾙの線の太さを変更"
の様に一度選択し VisProperties～ で変更・取得させます。
又、2Dのﾃｷｽﾄのﾌﾟﾛﾊﾟﾃｨの "ﾌｫﾝﾄ" "ﾃｷｽﾄ" ﾀﾌﾞは、
DrawingTextｸﾗｽのTextPropertiesﾌﾟﾛﾊﾟﾃｨで比較的、値を取得
する事が可能です。　が、全ては提供されていないような
感じです。

今まで記載した事がなかったのですが、"ﾏｸﾛで可能？"
と判断する為の手段の一つをご紹介。
英語に長けていれば簡単な事なのだろうと思うのですが、
関連するﾌﾟﾛﾊﾟﾃｨ名やﾒｿｯﾄﾞ名が、ほとんど僕には判りません。
そこで言語を英語に設定し、実際のﾌﾟﾛﾊﾟﾃｨを表示させ
名前を控えてAutomationManualで検索します。
単純な事なのですが、案外Hitします。　
(今回の場合は Line Spacing です)
逆に類似した言葉で検索してもHitしない場合は、
"提供されていないんだなぁ"　と判断しています。