[VBA程序]：出现一些乱码

xsquan · 发表于 2003-4-2 22:18:12

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

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

×

acadobj.ActiveDocument.Utility.GetEntity returnObj, basePnt, "请选择等高线，退出按esc键"
toph = acadobj.ActiveDocument.Utility.GetString(0, "请输入新高程:")
当执行的时候，cad命令行会出现下面的乱码（而不是"请选择等高线，退出按esc键"）
，应该是出现的字体不是中文的把

YAMA · 发表于 2003-4-2 22:37:05

试一下这如何?
thisdrawing.utility.getentity returnObj, basePnt, "请选择等高线，退出按esc键"

xsquan · 发表于 2003-4-2 23:33:12

和我的有区别吗？

lijiao · 发表于 2003-4-3 08:00:00

最初由 xsquan 发布
[B]acadobj.ActiveDocument.Utility.GetEntity returnObj, basePnt, "请选择等高线，退出按esc键"
toph = acadobj.ActiveDocument.Utility.GetString(0, "请输入新高程:")
当执行的时候，cad命令行会出现下面的乱码（... [/B]

改成这样试一下：
acadobj.ActiveDocument.Utility.GetEntity returnObj, basePnt, vbcrlf & "请选择等高线，退出按esc键"

xsquan · 发表于 2003-4-3 09:19:53

还是那样，不行，情况是：当前的命令行是乱码，当执行别的命令，刚才那个命令行在记录里显示的又是正常的，我记得以前acadobj.ActiveDocument.Utility.GetString(0, "请输入新高程:")这样的命令也有，后来我把字的个数减少了，就好了，但现在这个怎么样减少也不是很好，不知道你们有没有这样的问题！

lijiao · 发表于 2003-4-3 11:12:37

最初由 xsquan 发布
[B]还是那样，不行，情况是：当前的命令行是乱码，当执行别的命令，刚才那个命令行在记录里显示的又是正常的，我记得以前acadobj.ActiveDocument.Utility.GetString(0, "请输入新高程:")这样的命令也有，后来我把字的个... [/B]

改成这样试一下：
acadobj.ActiveDocument.Utility.GetEntity returnObj, basePnt, vbcrlf & "请选择等高线，退出按esc键" & vbcrlf

xsquan · 发表于 2003-4-3 14:17:05

我知道你的意思了，谢谢，可以了，

efan2000 · 发表于 2003-4-3 18:47:23

在提示语句中同时使用了中文的标点符号和英文的字母，字母的个数为奇数时就会出现字符串长度不匹配的现象。最好在使用标点符号时采用英文的，以免出现乱码。

xsquan · 发表于 2003-4-6 16:12:13

多谢斑竹帮忙！

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

[VBA程序]：出现一些乱码

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

相关帖子

Re: [VBA程序]：出现一些乱码