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

lichh_2003

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


谢谢！！

marain

“设置字体为汉字”是什么意思啊 不知道下面这个是否满足要求 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

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


求大家帮帮！

lichh_2003

怎么没人帮忙啊？

雪山飞狐_lzh

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

lichh_2003

谢谢拉！

xiaopei520

oText.StyleName = "test"应该是"test1"吧赫赫

fzg_2000

还请问一下，如何设置字体的大小，如为10

fenny

oText.height=10

houlinbo

使用大字体