今回は文字スタイル追加です。
ですが、不完全・・・。（いつもか。
）
今回のソース。
━─━─━─━─━─━─━─━─━─━─━─━─━─━─━─━─━─━─━─━─
'**********************************************
'文字スタイル設定
'**********************************************
Public Sub 文字スタイル設定()
Dim TestStyle As AcadTextStyle
Set TestStyle = gAcadDocs.TextStyles.Add("TESTSTYLE")
With TestStyle
.fontFile = "txt.shx"
.BigFontFile = "bigfont.shx"
.Height = 4.5 '高さ
'効果：上下反転、左右反転
.TextGenerationFlag = acTextFlagBackward Or acTextFlagUpsideDown
'効果：傾斜角度
.ObliqueAngle = 30 / 180 * WorksheetFunction.Pi()
'効果：幅係数
.Width = 1.2
End With
End Sub
━─━─━─━─━─━─━─━─━─━─━─━─━─━─━─━─━─━─━─━─
これで、文字スタイル"TESTSTYLE"が追加されます。
こんな感じに・・・↓。
ただし、「サイズ：異尺度対応」 と、「効果：縦書き」の
プロパティが見当たらず設定できてません。
どーやったら、設定できるのか・・・？？。
今現在なぞです。
AutoCAD VBAも、ExcelVBAのように、「マクロの記録」って手があるといいんだけどね。
あっ！
。DXFファイルから分かるかも！（今、思いました。）