明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 666|回复: 5

[提问] 字体乱码处理(非换字体)

[复制链接]
发表于 2024-10-30 23:09:04 | 显示全部楼层 |阅读模式
请教高手,如附件图纸,应该是在保存为2004的文件格式后,出现了这样的乱码,是否有办法解决。

好像是编码出错了,记得之前看到过专门处理这个乱码问题的小程序,但找不见了。
有哪位朋友能有解决办法,感谢 !

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?注册

x
"觉得好,就打赏"
还没有人打赏,支持一下
发表于 2024-10-31 06:57:04 | 显示全部楼层
本帖最后由 尘缘一生 于 2024-10-31 07:03 编辑

贴一下三领的部分,这个事还不能叫开图自动,因为,有的人安装有很多插件,他们要的就是那种字体,批量换了,我们满足,对方不满足了。如果图不再外协交流,哪可以。我这个还是换字库的。


    • ;;文字替代(解决文字乱码用)(一级)------------
    • (defun sl-nx (/ ss a b c d e date1 e_lst)
    •   (setq e_lst (sysvar '("TEXTSTYLE" "CMDECHO" "REGENMODE")))
    •   (setvar "CMDECHO" 0)
    •   (setvar "REGENMODE" 0);禁止重生成
    •   (setq date1 (getvar "MILLISECS"))
    •   (vlax-for x (vla-get-textstyles *AcDocument*)
    •     (vla-getfont x 'a 'b 'c 'd 'e)
    •     (if (= a "")
    •       (progn
    •         (if (and
    •               (not (findfile (vla-get-fontfile x)))
    •               (not (findfile (strcat (vla-get-fontfile x) ".shx")))
    •             )
    •           (vla-put-fontfile x "txt.shx")
    •         )
    •         (if (and
    •               (/= (vla-get-bigfontfile x) "")
    •               (not (findfile (vla-get-bigfontfile x)))
    •               (not (findfile (strcat (vla-get-bigfontfile x) ".shx")))
    •             )
    •           (vla-put-bigfontfile x "hztxt.shx")
    •         )
    •       )
    •       (progn
    •         (if (vl-catch-all-error-p (vl-catch-all-apply 'vla-setfont (list x a b c d e)))
    •           (vla-setfont x "fan" b c d e)
    •         )
    •       )
    •     )
    •   )
    •   (prompt
    •     (strcat
    •       "\n 字体替换--耗时"
    •       (rtos (/ (- (getvar "MILLISECS") date1) 1000.000) 2 3)
    •       (slmsg "秒" "" "seconds")
    •     )
    •   )
    •   (setvar "REGENMODE" 1)
    •   ;(if (setq ss (ssget "X" '((0 . "TEXT") (-4 . "<OR") (1 . "**,**,**,**,*\U+0082*") (-4 . "OR>"))));;探索者、特殊符号转换
    •   ;  (tss2gj ss)
    •   ;)
    •   ;(if (setq ss (ssget "X" (list (cons 0 "INSERT") (cons 66 0))))
    •   ;  (blktss2gj ss) ;;块选择集探索者钢筋转换
    •   ;)
    •   (vla-regen *AcDocument* AcAllViewPorts)
    •   (mapcar 'eval e_lst)
    •   (princ)
    • )
发表于 2024-10-31 10:11:42 | 显示全部楼层
20年前的dwg文件版本,不理解为什么你们非要用 AutoCAD 2004版本的dwg?这不是自己找来的事么...

AutoCAD 2007 的dwg版本开始采用了 Unicode 存储,再也不会出现这种乱码问题了。
发表于 2024-10-31 19:17:57 | 显示全部楼层
e2002 发表于 2024-10-31 10:11
20年前的dwg文件版本,不理解为什么你们非要用 AutoCAD 2004版本的dwg?这不是自己找来的事么...

AutoCA ...

高版本也会出错的,有时候文件致命错误之后就会出现这种乱码,非常头痛,好像无解
 楼主| 发表于 2024-11-1 11:20:20 | 显示全部楼层
e2002 发表于 2024-10-31 10:11
20年前的dwg文件版本,不理解为什么你们非要用 AutoCAD 2004版本的dwg?这不是自己找来的事么...

AutoCA ...

都怪自己当年年少无知,存成了2004版本。
2007后的版本格式还是很OK的
 楼主| 发表于 2024-11-1 11:25:23 | 显示全部楼层
960322 发表于 2024-10-31 19:17
高版本也会出错的,有时候文件致命错误之后就会出现这种乱码,非常头痛,好像无解

应该是可以解决的,我之前见到过解决这个问题的程序,忘记名字,找不见了
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-11-22 19:57 , Processed in 0.192958 second(s), 26 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表