[求助]：打开图纸替换字体lisp

zwhisper

[求助]打开图纸替换字体lisp：打开CAD图纸没有勾选大字体的勾选并用gbcbig代替，找不到英文字体的自动替换为txt，并选取大字体用gbcbig代替

lxch

不用编程序，用记事本修改acad.fmp 文件就可以。

以下是帮助中的部分内容：
字体映射文件是纯 ASCII 文本 (FMP) 文件，每一行包含一个字体映射， 由字体文件的名称（不含目录名或路径）、分号 (;) 及其替换字体文件的名称构成。 替换字体文件名包含如 .ttf 这样的扩展名。

例如，可以在字体映射表中输入以下内容指定用 times.ttf TrueType 字体文件替代 romanc.shx 字体文件：

romanc.shx;times.ttf

zwhisper

晕《！〈楼上的老大可能没明白我的意思，你这样只会把所有字体都改成一样的，，我只是想要把找不到的字体给改成指定的，，还有就是每个都要勾选大字体，，

hsslyl

CAD能否通过设置，使得打开图纸时，自动用指定的字体（小字体和大字体）替换当前路径下找不到的字体，免得多次指定要替换的字体。

carrot1983

参考一下下面的吧。也是修改字体的。你自己改一下。
[php]
(defun c:ft()
  ;(setq orig_cmd (getvar "cmdecho"))
  ;(setvar "cmdecho" 0)
  (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))) "SHX")
    )
(command "_style" nm "romans.shx" "0.0" "0.8" "" "" "" "")
); end if
(if (and

    (/= cn nil)
    (= (findfile cn) nil)
    )
(command "_style" nm "romans.shx,hztxt.shx" "0.0" "0.8" "" "" "" "")
) ;end if
(setq elist (tblnext "STYLE"))
  );end while
;(setvar "cmdecho" orig_cmd)
)
[/php]

zwhisper

楼上的这些都是把所有字体全部换成一样的，，这些网上很多了，！小弟不懂代码，所以才有此一问，，