[求助]：使用 CreateTextElement1 创建文字，如果是汉字则乱码，如何解决？

nowords · 发表于 2004-5-9 17:30:05

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

使用 CreateTextElement1 创建文字，如果是汉字则乱码，如何解决？

pipi · 发表于 2004-5-9 18:21:39

那是因为你没有在程序中指定字体，这样创建的文本会使用当前激活的字体，如果当前激活字体不是中文，当然就出来方框或者星号咯

YHBABYGIRL · 发表于 2004-5-10 00:48:41

但是即使指定了字体，也不能解决这一问题呀！

pipi · 发表于 2004-5-10 09:59:13

我的代码在ms2004中没有任何问题，如果你那么肯定，为什么不把程序贴上来？

nowords · 发表于 2004-5-10 13:13:00

即使在创建文字之前指定了中文字体，一样是乱码（显示*），查看属性时，文字内容显示的同样是一堆乱码。另外，使用VBA修改中文字体时也会乱码，请问如何解决，谢谢。

ActiveSettings.TextStyle.Font = ActiveDesignFile.Fonts.Find(msdFontTypeMicroStation, "MCS_Chinese1") 'MCS_Chinese1为中文字体
Set NewText = CreateTextElement1(Nothing, TextStr, InsertPoint, CellRotation)‘当TextStr为汉字时则显示乱码
ActiveModelReference.AddElement NewText
NewText.Redraw msdDrawingModeNormal
NewText.Rewrite

roger_0912 · 发表于 2004-5-10 14:05:49

把你的字体换成其它字体试试！

pipi · 发表于 2004-5-10 14:09:39

Private Sub IPrimitiveCommandEvents_DataPoint(Point As Point3d, ByVal View As View)

Set oText = CreateTextElement1(Nothing, "中文", Point, Matrix3dIdentity)
oText.TextStyle.Font = ActiveDesignFile.Fonts.Find(msdFontTypeWindowsTrueType, "宋体")

ActiveModelReference.AddElement oText
oText.Redraw

End Sub

以上代码在MS2004和MS08.01.02.15中运行，无任何乱码问题。

nowords · 发表于 2004-5-10 14:44:50

非常感谢！在MS8.0中不行，可能是MS8.0的问题，我换软件试一下

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

[求助]：使用 CreateTextElement1 创建文字，如果是汉字则乱码，如何解决？

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子