求助：在VB中怎么设置字体为汉字啊？

lichh_2003 · 发表于 2004-12-1 09:38:00

求助：在VB中怎么设置字体为汉字啊？
谢谢！！

marain · 发表于 2004-12-1 09:48:00

“设置字体为汉字”是什么意思啊
不知道下面这个是否满足要求
Sub fontset()
Dim mytextstyle As AcadTextStyle
Dim typeFace As String
Dim Bold As Boolean
Dim Italic As Boolean
Dim charSet As Long
Dim PitchandFamily As Long
ThisDrawing.ActiveTextStyle.GetFont typeFace, _
Bold, Italic, charSet, PitchandFamily
typeFace = "宋体"
ThisDrawing.ActiveTextStyle.SetFont typeFace, _
Bold, Italic, charSet, PitchandFamily
ThisDrawing.Regen acActiveViewport
Set mytextstyle = ThisDrawing.TextStyles.Add("st")
mytextstyle.fontFile = "C:\Program Files\AutoCAD 2002\Fonts\st.shx"
End Sub

lichh_2003 · 发表于 2004-12-1 15:30:00

就是设置当前字体为“宋体”，但上面的方法我试了不行啊！
求大家帮帮！

lichh_2003 · 发表于 2004-12-2 10:21:00

怎么没人帮忙啊？

雪山飞狐_lzh · 发表于 2004-12-2 10:57:00

Public Sub ttee()
Dim ts As AcadTextStyle
Set ts = ThisDrawing.TextStyles.Add("Test1")
ts.SetFont "", False, False, 0, 1
ts.BigFontFile = "gbcbig.shx"
ts.fontFile = "gbenor.shx"
Dim oText As AcadText
Dim pnt(2) As Double
Set oText = ThisDrawing.ModelSpace.AddText("乐筑天下", pnt, 5)
oText.StyleName = "test"
End Sub