cxf11991 发表于 2004-5-23 16:05:00

如何改变字体2

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

nxy_918 发表于 2004-5-23 20:21:00

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 发表于 2004-5-24 09:55:00

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

nxy_918 发表于 2004-5-24 12:48:00

把图传上来看一下

cxf11991 发表于 2004-5-24 17:33:00

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

czbming 发表于 2004-5-24 18:25:00

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

cxf11991 发表于 2004-5-25 14:18:00

我是这样做的!
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 发表于 2004-5-25 16:30:00

教教我怎么办啊
页: [1]
查看完整版本: 如何改变字体2