[求助]字体设置

owenshowtime

用vb新建一个图形文件后，如何设置这个图形文件的字体呢？包括shx文字格式和大字体文字格式。

yuliang2477

Dim CadTxt As AcadText '文本对象
Dim TxtSty As AcadTextStyle '字体样式名
Dim TxtFont As String '字体名
Dim bold As Boolean '加粗变量名
Dim Textobj As AcadText
Dim italic As Boolean '斜体变量名
Dim charset As Long '字符集变量
Dim pitchandfamily As Long '文字间距及笔画变量
Dim Dimobj As AcadDimAligned

Set TxtSty = ThisDrawing.TextStyles.Add("自定义") '添加样式
TxtFont = "宋体" '设置字体
bold = True '设置字体为粗体
italic = True '设置字体为斜体
charset = 1 '默认字符集
pitchandfamily = 1 Or 16 '设定字体级数
TxtSty.SetFont TxtFont, bold, italic, charset, pitchandfamily
Dim Height As Double
Dim Textstring As String
ThisDrawing.ActiveTextStyle = TxtSty '设定定义字体样式为当前

owenshowtime

谢谢，这个应该是vba的代码，不知道有没有vb的代码呢？我在用vb做，不是vba

owenshowtime

问题已经解决了，谢谢这位大侠热心帮忙

泪水中的涟漪

多谢2楼的指教！