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

e2002 · 发表于 2020-8-6 10:28

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

sctw · 发表于 2020-8-6 21:25

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

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

sctw · 发表于 2020-8-9 15:58

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

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

gaics · 发表于 2020-8-10 11:23

本帖最后由 gaics 于 2020-8-10 15:01 编辑

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

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

。

sctw · 发表于 2020-8-10 19:15

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

是下面这里少写了个点吗

sctw · 发表于 2020-8-10 21:36

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

gaics · 发表于 2020-8-11 07:46

本帖最后由 gaics 于 2020-8-11 07:56 编辑

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

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

sctw · 发表于 2020-8-11 09:20

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

那应该更成什么呢？

gaics · 发表于 2020-8-11 09:31

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

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

sctw · 发表于 2020-8-11 15:19

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

这跟用wcmatch有什么区别呢

账号		自动登录	找回密码
密码			注册

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