求助！字体乱码

wowowo0098

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

zara

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

hustrys

用下面程序  ;更换所有文字字体

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

wowowo0098

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

zara

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

zfsaaa

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

太好了，谢谢

知行ooo李肖坪

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

sdls

谢谢楼主分享