wowowo0098 发表于 2006-3-16 12:23:00

求助！字体乱码

求助！我以前用CADR12画的图现在用R2004打开后汉字全部为乱码，请教各位该如何解决？

zara 发表于 2006-3-16 14:58:00

是 R12 for Windows ? 如果是的话, 多数是由于代码页的缘故. 打开乱码后不能保存了. 先对原始图形用 wnewcp 软件进行代码页转换, 选择目标代码页为 ascii 或 ansi_936 就可以了. 如果不是, 或者转换后还不行的话, 就是字体替换造成的, 在 style 命令里重新定义下字型, 全换成自己系统里已经存在的字体

hustrys 发表于 2006-3-16 17:27:00

<P>用下面程序&nbsp; ;更换所有文字字体</P>
<P>(defun C:zas ()<BR>&nbsp;&nbsp; (graphscr)<BR>&nbsp;&nbsp; (initget 7)<BR>&nbsp;&nbsp; ;(setq c1 (getstring "\nInput new color for all layers: "))&nbsp;&nbsp; ;输入新颜色<BR>&nbsp;&nbsp; (setq a1 (tblnext "style" t))&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ;将指针移到第一个字体<BR>&nbsp;&nbsp; ;&nbsp; (princ a1)<BR>&nbsp; ;(setq a2 (cdr (assoc 2 a1)))&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ;取出图层名称<BR>&nbsp;&nbsp;&nbsp; ;&nbsp; (setq a3 (entget (tblobjname "style" a2)))&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ;取出图层的数据串行<BR>&nbsp;&nbsp;&nbsp; ;&nbsp; (princ "&nbsp; a3= ")(princ a3)<BR>&nbsp; (while a1<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq a2 (cdr (assoc 2 a1)))&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ;取出字体名称<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq a3 (entget (tblobjname "style" a2)))&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ;取出字体的数据串行<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ;(princ a3)(princ "&nbsp;&nbsp; ")<BR>&nbsp;&nbsp;&nbsp; (setq a3 (subst (cons 3 "txt.shx") (assoc 3 a3) a3))&nbsp;&nbsp;&nbsp; ;将字体字型改成新字型<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (entmod a3)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ;更新字体<BR>&nbsp;&nbsp;&nbsp; (setq a3 (subst (cons 4 "hzfs.shx") (assoc 4 a3) a3))&nbsp;&nbsp;&nbsp; ;将字体字型改成新字型<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (entmod a3)&nbsp; <BR>&nbsp;&nbsp;&nbsp; (setq a1 (tblnext "style"))&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ;找出下一个字体<BR>&nbsp;&nbsp; )<BR>&nbsp; (command"REGEN" "")<BR>&nbsp; (princ"字型变更成功！" )<BR>&nbsp;&nbsp; (princ)<BR>)</P>

wowowo0098 发表于 2006-3-16 20:08:00

再次请教,哪里可以下载wnewcp软件?

zara 发表于 2006-3-16 21:07:00

可以用 wnewcp 在 北大天网搜索 上搜索一下应该有的

zfsaaa 发表于 2015-12-22 15:40:33

hustrys 发表于 2006-3-16 17:27 static/image/common/back.gif
用下面程序&nbsp; ;更换所有文字字体
(defun C:zas ()&nbsp;&nbsp; (graphscr)&nbsp;&nbsp; (initget 7)&nb ...

太好了，谢谢

知行ooo李肖坪 发表于 2015-12-26 12:04:17

同步学习……………………

sdls 发表于 2019-3-26 21:07:06

谢谢楼主分享
页: [1]
查看完整版本: 求助！字体乱码