这是以前大佬替换字体源码,低版本CAD会替换到@仿宋,字体横着倒着,能替换正仿宋吗

yoyrtweq

以下源码:
(defun c:XXZ (/ elist nm en cn enl)
(setq elist (tblnext "STYLE" T))
(while (/= elist nil)
(setq nm (cdr (assoc 2 elist))
en (cdr (assoc 3 elist))
cn (cdr (assoc 4 elist))
enl (strlen en)
)
(if (and
(/= en nil)
(= cn nil)
(= (findfile en) nil)
(= (strcase (substr en (- enl 2))) "ttf")
)
(command "_style" nm "simfang.ttf" "0.0" "0.8" "" "" "" "")
)
(if (and
(/= cn nil)
(= (findfile cn) nil)
)
(command "_style" nm "simfang.ttf" "0.0" "0.8" "" "" "" "")
)
(setq elist (tblnext "STYLE"))
)
) [/code]

此源码低版本CAD2012以下替换字体仿宋,会替换到@仿宋,会导致字体横着倒着,有没有办法替换到正的仿宋

尘缘一生

;-----------------文字替代（解决文字乱码用）(一级)----------------------
(defun sl-nx (/ elist nm en cn oldamd oldsty str)
        (setq oldamd (getvar "cmdecho"))
        (setq oldsty (getvar "TEXTSTYLE"))
        (setvar "cmdecho" 0) ;;命令显示关闭
        (setq str (getvar "Locale"))
        (if (or (= str "ZH") (= str "ZHH") (= str "CHS") (= str "ENU")) ;;如果CAD是简体中文版、英文版
                (progn
                        (setq elist (tblnext "STYLE" T))
                        (while (/= elist nil)
                                (setq nm (dxf1 elist 2)
                                        en (dxf1 elist 3)
                                        cn (dxf1 elist 4)
                                )
                                (if (or (/= (substr nm 1 1) "$") (= (vl-string-search "_" nm) nil) (= (vl-string-search "|" nm) nil));;不是参照中样式
                                        (progn
                                                (if (and (/= "" en) (= "" cn) (= (findfile en) nil))
                                                        (command "_style" nm "sltxt" "0.0" "0.7" "" "" "" "")
                                                )
                                                (if (and (/= "" cn) (= (findfile cn) nil))
                                                        (command "_style" nm "sltxt,slhztxt" "0.0" "0.7" "" "" "" "")
                                                )
                                        )
                                )
                                (setq elist (tblnext "STYLE"))
                        )
                )
        )
        (command "_style" "xz" "宋体TTf,宋体TTfbig" 0 0.7 0 "n" "n" "n")  
        (command "_style" "fan" "sltxt,chineset" 0 0.7 0 "n" "n" "n")
        (setvar "TEXTSTYLE" oldsty)
        (setvar "cmdecho" oldamd)
        (princ)
)

yoyrtweq

尘缘一生 发表于 2021-8-11 17:12
;-----------------文字替代（解决文字乱码用）(一级)----------------------
(defun sl-nx (/ elist nm e ...

没有命令吗?

e2002

由于系统不同，AutoCAD版本不同，使用shx/ttf/ttc，ttf安装到系统层级还是用户层级...
会有很多种情况，实际上判断条件和处理都是是比较复杂的，上面这些代码并不能很好的解决问题。

yoyrtweq

e2002 发表于 2021-8-12 14:40
由于系统不同，AutoCAD版本不同，使用shx/ttf/ttc，ttf安装到系统层级还是用户层级...
会有很多种情况，实 ...

那就是改不了了哦

yoyrtweq

yoyrtweq 发表于 2021-8-12 15:34
那就是改不了了哦

明白 了 谢谢你的回答