dxf中文乱码问题(解决了！)

gsteven 发表于 2009-11-18 23:45:00

本帖最后由作者于 2009-11-20 13:55:42 编辑 收到一张不是AutoCAD的软件生成的dxf图纸，用记事本打开后，版本$ACADVER AC1009，也即是R12，其中有中文单行文字，在记事本中也可以找到相应的中文信息（丙烯罐区，雷达?%d位变送器），但是我用AutoCAD2009打开后发现中文变成乱码。并且我在CAD中查看了相应的中文乱码的属性内容，是±ûÏ©¹ÞÇø和 À×´ïÒ%%dÎ»±äËÍÆ÷ ，但是我在修改该文字样式的字体为宋体后，可以在这种文字样式下输入中文的单行文字，但是原先的中文还是乱码，只是形状发生了变化而已。不知什么原因？难道是因为存在系统变量之类的设置？附件是dxf图纸。解决办法对于R12版本，用记事本打开dxf 在AC1009后面加上（表示使用简体中文）   9 $DWGCODEPAGE   3 ANSI_936对于2000以上的版本，将$DWGCODEPAGE后面的ISO8859-1改为ANSI_936

gsteven 发表于 2009-11-19 13:48:00

需要使用软件将dxf文本文件进行转换，转换成unicode编码或这GB2312编码但是这个软件无法转换R12版本，只能转换R14和2000版本。不知道R12版本如何解决？

gsteven 发表于 2009-11-19 13:54:00

function XML() {

}

雪山飞狐_lzh 发表于 2009-11-19 14:30:00

R12，好老的版本了，呵呵可以试下自己写个转码的？

gsteven 发表于 2009-11-19 18:39:00

本帖最后由作者于 2009-11-20 8:56:53 编辑 我自己编写了个VBA进行转码Sub con()Dim mem() As BytefLength = FileLen("D:\自编程序\1.dxf")ReDim mem(fLength) As ByteOpen "D:\自编程序\1.dxf" For Binary As #2Get #2, , memClose #2mem = StrConv(mem, vbUnicode, &H804)svgfilename = "D:\自编程序\2.dxf"Open svgfilename For Binary As #3Put #3, , memClose #3End Sub 本来要实现将1.dxf转为2.dxf的，但是转完后，发现2.dxf打不开了。用记事本打开他们发现内容完全一致，就是二进制代码不一致。可能是我转码的这一句有问题mem = StrConv(mem, vbUnicode, &H804)不知道怎么解决。

sosolu 发表于 2009-11-25 13:13:00

页: [1]

明经CAD社区's Archiver

dxf中文乱码问题(解决了！)