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

如何改变字体2

我看过以前改变字体的帖子,不过不具体,看不懂!<BR>我想把图上所有文字的字体都改成windows中文的仿宋字体（只要是中文的字体都可以）。请问要怎么办？谢谢。


请写上几句代码，我的选择文字集为sset

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

Sub Set_Font()


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

cxf11991 发表于 2004-5-24 09:55:00

谢谢了,不过不是很好用啊，!<BR>写在画上仍然有???


不能显示中文

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

把图传上来看一下

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

我不会传图,,,就是在图上用addtext加几个中文字


图上会显示???来代替中文字


如果你在图上加几个中文字会怎么加,不用管我的情况!<BR>

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

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

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

我是这样做的!<BR>thisdrwing.modelspace.addtext "明经通道" ,ptinsert,height


ThisDrawing.ActiveTextStyle.BigFontFile = "e:/ACAD2000/Fonts/bigfont.shx"


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

cxf11991 发表于 2004-5-25 16:30:00

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