[求助]为什么文字都成问号了

deng163 · 发表于 2007-8-4 10:47:00

请教各位高手:

我在用以下语句向CAD中添加汉字时,为什么汉字都成问号了?

textstring="谢谢指导!"

Set textObj = ThisDrawing.ModelSpace.AddText(textString, insertionPoint, height)

或者: Set MTextObj = ThisDrawing.ModelSpace.AddMText(textString, insertionPoint, height)

是不是添加汉字不能用这两个方法啊?

deng163 · 发表于 2007-8-5 16:13:00

顶顶!

各位大侠帮帮忙啊!急用!

不胜感激!

烟雨.江南 · 发表于 2007-8-6 17:32:00

当前字体中没有汉字字形。把字体设置成宋体之类的，应该就会显示出来了。

yusicad · 发表于 2007-8-9 21:31:00

你用LIST命令查看一个文字，看下它的“文字样式”，然后在STYLE修改就可以了。

天龙八部 · 发表于 2007-8-14 17:58:00

先设置文字样式，GETFONT,SETFONT

deng163 · 发表于 2007-8-15 20:30:00

问题解决了!

我用了以下语句重新设置了ＣＡＤ的字体，汉字就不会变成问号了！

typeFace = "宋体"
ThisDrawing.ActiveTextStyle.SetFont typeFace, Bold, Italic, charSet, PitchandFamily

谢谢楼上几位大侠！！不胜感激！！

账号		自动登录	找回密码
密码			注册