如何改变字体2

cxf11991

我看过以前改变字体的帖子,不过不具体,看不懂!
我想把图上所有文字的字体都改成windows中文的仿宋字体（只要是中文的字体都可以）。请问要怎么办？谢谢。 请写上几句代码，我的选择文字集为sset

nxy_918

Sub Set_Font() Dim j As Integer, TScount As Integer
Dim TextColl As AcadTextStyles
On Error Resume Next
Set TextColl = ThisDrawing.TextStyles
TScount = TextColl.Count
For j = 0 To TScount - 1
TextColl.Item(j).SetFont "宋体", False, False, False, False
Next j
ThisDrawing.Regen acActiveViewport
End Sub

cxf11991

谢谢了,不过不是很好用啊，!
写在画上仍然有??? 不能显示中文

nxy_918

把图传上来看一下

cxf11991

我不会传图,,,就是在图上用addtext加几个中文字 图上会显示???来代替中文字 如果你在图上加几个中文字会怎么加,不用管我的情况!

czbming

autocad默认的文字样式是standard,字体名是txt.shx,不支持中文,你新建一个文字样式,指定中文字体不就行了.在程序中实现方式同理!~新建的文字样式是保存在DWG中的.....

cxf11991

我是这样做的!
thisdrwing.modelspace.addtext "明经通道" ,ptinsert,height ThisDrawing.ActiveTextStyle.BigFontFile = "e:/ACAD2000/Fonts/bigfont.shx" ThisDrawing.ActiveTextStyle.fontFile = " e:/ACAD2000/Fonts/italic.shx"
Dim j As Integer, TScount As Integer
Dim TextColl As AcadTextStyles
On Error Resume Next
Set TextColl = ThisDrawing.TextStyles
TScount = TextColl.Count
For j = 0 To TScount - 1
TextColl.Item(j).SetFont "仿宋", False, False, False, False
Next j
ThisDrawing.Regen acActiveViewport
这样会变中文吗，,,,如果我错了的话,给我一段加中文字的代码好不好，!
我毕业设计就这一点了，谢谢

cxf11991

教教我怎么办啊