求“不存在的字体”批量替换程序lsp

e2002

这个之前写了，本来用着很好了，但前一段遇到了当某些ttf字体安装在用户级别时，没能找到对应的字体文件夹完成自动替换的情况，找出了问题，但一直没时间去改写代码修正这个bug。

sctw

求大神写个能读取 跟CAD文字样式对话 中看到的一致的shx字体和大字体的字体文件名的程序。


(setq D (tblnext "style" (null D)))  用这个语句对于中文字体很多都为空，shx字体很多又没有.shx扩展名。
ActiveX方法函数不会用，请分享下程序，谢谢。

sctw

gaics 发表于 2020-8-2 00:05
你测试一下，不知道会不会出错。
我自用那一版功能比较这个简单，直接全部替换。

感谢：gaics的程序，暂时还存在不能完美替换中文字体的问题。
如果能获取到跟STYLE命令显示一样的中文字体名就好了。就不存在已有的Windows字体也被替换掉了。

gaics

sctw 发表于 2020-8-9 15:58
感谢：gaics的程序，暂时还存在不能完美替换中文字体的问题。
如果能获取到跟STYLE命令显示一样的中文字 ...

更新了，你再试试。好像还有bug。

sctw

gaics 发表于 2020-8-10 11:23
更新了，你再试试。好像还有bug。

是下面这里少写了个点吗

sctw

有的文件运行会出错：参数类型错误: stringp nil
不知道是怎么回事

gaics

sctw 发表于 2020-8-10 21:36
有的文件运行会出错：参数类型错误: stringp nil
不知道是怎么回事

(wcmatch (vl-filename-extension zt3) ".shx,SHX")这句的问题，我知道原因了。

sctw

gaics 发表于 2020-8-11 07:46
(wcmatch (vl-filename-extension zt3) ".shx,SHX")这句的问题，我知道原因了。

那应该更成什么呢？

gaics

sctw 发表于 2020-8-11 09:20
那应该更成什么呢？

(or(= (vl-filename-extension zt3) ".shx")(= (vl-filename-extension ZT3) ".SHX"))

sctw

gaics 发表于 2020-8-11 09:31
(or(= (vl-filename-extension zt3) ".shx")(= (vl-filename-extension ZT3) ".SHX"))

这跟用wcmatch有什么区别呢