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

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

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

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


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

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

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

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

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

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

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

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

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

是下面这里少写了个点吗


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

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

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

本帖最后由 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:03

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

那应该更成什么呢？

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

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

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

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

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

这跟用wcmatch有什么区别呢
页: 1 [2] 3 4 5 6
查看完整版本: 求“不存在的字体”批量替换程序lsp