N个版本的CAD都能 共用一个字体文件夹添加文件搜索路径cabinsummer升级自动运行函....

寒潮大冬瓜

(whw462463943D2020-9-24)添加文件搜索路径cabinsummer升级明经自动运行函数共用fonts文件夹添加到fonts前

N哥版本的fonts文件夹里都放上几百个甚至几千个字体→那要用8T硬盘来装软件！

自动保存到 C:\Users\Administrator\AppData\Local\Temp\Drawing1_zws25658.zs$ ...
命令: (progn (load "C:/XCAD/(whw462463943D2020-9-24)添加文件搜索路径cabinsummer升级明经自动运行函数共用fonts文件夹添加到fonts前20250417.lsp")(princ))
◆ 添加前路径数: 22
◆ 添加后路径数: 22
◆ 新增有效路径:
[成功] C:\XCAD
[成功] C:\XCAD\LSP
[成功] C:\0CAD\cad-ZITI-fonts
◆ 包含 fonts 的文件夹排序号:
排序号: 7, 文件夹: C:\0CAD\cad-ZITI-fonts
排序号: 8, 文件夹: C:\PROGRAM FILES\ZWSOFT\ZWCAD ARCHITECTURE 2024 CHS\FONTS
◆ 添加‘支持文件搜索路径’后的列表:
C:\PROGRAM FILES\ZWSOFT\ZWCAD ARCHITECTURE 2024 CHS\ARCHZW\SYSZW
C:\PROGRAM FILES\ZWSOFT\ZWCAD ARCHITECTURE 2024 CHS\ARCHZW\SYS
C:\USERS\ADMINISTRATOR\APPDATA\ROAMING\ZWSOFT\ZWCADA\2024\ZH-CN\SUPPORTA
C:\USERS\ADMINISTRATOR\APPDATA\ROAMING\ZWSOFT\ZWCADA\2024\ZH-CN\SUPPORT
C:\PROGRAM FILES\ZWSOFT\ZWCAD ARCHITECTURE 2024 CHS\SUPPORT
C:\PROGRAM FILES\ZWSOFT\ZWCAD ARCHITECTURE 2024 CHS\SUPPORT\ZH-CN
C:\0CAD\cad-ZITI-fonts
C:\PROGRAM FILES\ZWSOFT\ZWCAD ARCHITECTURE 2024 CHS\FONTS
C:\PROGRAM FILES\ZWSOFT\ZWCAD ARCHITECTURE 2024 CHS\ZH-CN\HELP
C:\PROGRAM FILES\ZWSOFT\ZWCAD ARCHITECTURE 2024 CHS\EXPRESS
C:\PROGRAM FILES\ZWSOFT\ZWCAD ARCHITECTURE 2024 CHS\SUPPORT\COLOR
C:\PROGRAM FILES\ZWSOFT\ZWCAD ARCHITECTURE 2024 CHS\RENDER
C:\PROGRAM FILES\ZWSOFT\ZWCAD ARCHITECTURE 2024 CHS\RENDER\APPL\COMM\DCL
C:\PROGRAM FILES\ZWSOFT\ZWCAD ARCHITECTURE 2024 CHS\RENDER\RPS MATERIAL LIBRARIES\GENERIC
C:\XCAD\PLANT
C:\XCAD\SN00
C:\XCAD\TREES
C:\XCAD\建筑数据
C:\XCAD\结构数据
C:\XCAD\LSP\用户设置
C:\XCAD
C:\XCAD\LSP
◆ 操作完成，请检查支持路径是否生效 ◆

命令: (progn (load "C:/XCAD/(whw462463943D2020-9-24)添加文件搜索路径cabinsummer升级明经自动运行函数豆包20250417fonts文件夹添加到fonts前2.lsp")(princ))
把全部字体都放在“C:\0CAD\cad-ZITI-fonts”文件夹里，在每个版本的CAD里加载一次本代码！能减少麻烦！
◆ 添加前路径数: 13
◆ 添加后路径数: 13
◆ 新增有效路径:
   [成功] C:\XCAD
   [成功] C:\XCAD\LSP
   [成功] C:\0CAD\cad-ZITI-fonts
◆ 包含 fonts 的文件夹排序号:
   排序号: 4, 文件夹: C:\0CAD\cad-ZITI-fonts
   排序号: 5, 文件夹: C:\Program Files\ZWSOFT\ZWCAD 2025\fonts
◆ 添加‘支持文件搜索路径’后的列表:
   C:\Users\Administrator\AppData\Roaming\ZWSOFT\ZWCAD\2025\zh-CN\Support
   C:\Program Files\ZWSOFT\ZWCAD 2025\Support
   C:\Program Files\ZWSOFT\ZWCAD 2025\Support\zh-CN
   C:\0CAD\cad-ZITI-fonts
   C:\Program Files\ZWSOFT\ZWCAD 2025\fonts
   C:\Program Files\ZWSOFT\ZWCAD 2025\zh-CN\help
   C:\Program Files\ZWSOFT\ZWCAD 2025\Express
   C:\Program Files\ZWSOFT\ZWCAD 2025\Support\color
   C:\Program Files\ZWSOFT\ZWCAD 2025\Render
   C:\Program Files\ZWSOFT\ZWCAD 2025\Render\appl\comm\DCL
   C:\Program Files\ZWSOFT\ZWCAD 2025\Render\RPS Material Libraries\Generic
   C:\XCAD
   C:\XCAD\LSP
◆ 操作完成，请检查支持路径是否生效 ◆

寒潮大冬瓜

进一步来看→还能实现共用字体文件夹的搜索在安装CAD默认‘……\fonts’文件夹之前→那就能让dwg文件打开并搜索字体加载→满足文件内字体需要时，能够在共用字体文件夹内→顺利找到相应字体→顺利打开→不需要又不断重复点选→省事省心！
这个功能经过努力→还是能实现了！

zm880928

你的插件能不能读取已添加的路径并储存，下次就可以一键加载了

寒潮大冬瓜

zm880928 发表于 2025-4-18 16:05
你的插件能不能读取已添加的路径并储存，下次就可以一键加载了

代码已经实现输出添加后的路径列表，全部放进
; 你需要结合本人实际情况替换这些文件夹路径
        (setq path '("C:\\XCAD" "C:\\XCAD\\LSP" "C:\\0CAD\\cad-ZITI-fonts"))
就能实现你的想法！代码能够自动去重！