在程序中单个文字字体怎么设置？

xianglongg · 发表于 2006-12-13 10:03:00

请教各位高手
我是一个新手，我现在在编一个程序，需要修改部分文字的字体，应该怎么设置？谢谢了

hookkk · 发表于 2006-12-15 16:52:00

发了两次代码，都没成功

xianglongg · 发表于 2006-12-16 12:38:00

谢谢
我现在知道一种方法
ThisDrawing.SendCommand "-style" & Chr(13) & "hz1" & " " & Chr(13) & Chr(13) & Chr(13) & Chr(13) & Chr(13) & Chr(13) & Chr(13)
不过我想知道用vba语言怎么写

xianglongg · 发表于 2006-12-30 18:17:00

我这样设置后
电脑的绘图速度有点慢
有人知道在vba中怎么设置吗
谢谢了

wyj7485 · 发表于 2006-12-31 09:13:00

stylename属性

mccad · 发表于 2006-12-31 09:32:00

文字带是有文字样式的，字体是通过文字样式来设置的。你可以新建一个文字样式，然后单独设置你需要的文字为该文字样式。
如果需要只修改单个字符的文字样式，可以使用多行文字来实现，那样，每一个文字都可以设置不同的字体。

fjfhgdwfn · 发表于 2006-12-31 09:36:00

ThisDrawing.ActiveTextStyle.fontFile = "C:\Program Files\AutoCAD R14\FONTS\hztxt_e.shx"
ThisDrawing.ActiveTextStyle.BigFontFile = "C:\Program Files\AutoCAD R14\FONTS\hzkt.shx"
试试这个。不带路径应也可以的。