其实它这个方便之处在于→同时安装几个版本CAD或者经常修重装CAD的时候→只要加载一个lisp文件→实现N个版本CAD和字体文件共用一个文件夹→就是要添加这个‘支持文件搜索路径’！
进一步来看→还能实现共用字体文件夹的搜索在安装CAD默认‘……\fonts’文件夹之前→那就能让dwg文件打开并搜索字体加载→满足文件内字体需要时，能够在共用字体文件夹内→顺利找到相应字体→顺利打开→不需要又不断重复点选→省事省心！
;高手帮忙看一下添加文件搜索路径的lsp
;http://bbs.mjtd.com/forum.php?mod=viewthread&tid=87357&fromuid=418631
;(出处: 明经CAD社区)
;aichong于 2020-9-24 23:00:36 | 只看该作者
;cabinsummer 发表于 2012-4-15 12:27
;昨天的有误，今天更新如下：
;代码很好用，谢谢分享。我修改了一下，这样就可以放在最前面或最后面：
; 定义一个名为 cabinsummerD2020-9-24 的自定义函数
; 该函数的作用是将指定的文件夹路径添加到 AutoCAD 的文件搜索路径中
(DEFUN cabinsummerD2020-9-24()
; 获取当前 AutoCAD 的文件搜索路径环境变量 "ACAD" 的值
; getenv 是 AutoCAD 的内置函数，用于获取指定环境变量的值
(setq sp (getenv "ACAD"))
; 定义一个列表 path，包含要添加到文件搜索路径的文件夹路径
; 你需要结合本人实际情况替换这些文件夹路径
(setq path '("C:\\XCAD" "C:\\XCAD\\LSP" "C:\\0CAD\\cad-ZITI-fonts"))
; 使用 foreach 循环遍历 path 列表中的每个文件夹路径
; foreach 是 Lisp 语言的内置函数，用于遍历列表中的每个元素
;(foreach x path
; ; 将当前遍历到的文件夹路径 x 追加到现有的文件搜索路径 sp 后面
; ; strcat 是 AutoCAD 的内置函数，用于连接两个字符串
; (setq sp
; (strcat sp ";" x)
; )
;) ; 这种方式将文件搜索路径放在最后
; 下面是另一种添加路径的方式，将路径放在最前面
; 若你想使用这种方式，取消注释以下代码，并注释掉上面的 foreach 循环
(foreach x path
(setq sp
(strcat x ";" sp)
)
) ; 这种方式将文件搜索路径放在最前
; 将更新后的文件搜索路径 sp 设置回环境变量 "ACAD" 中
; setenv 是 AutoCAD 的内置函数，用于设置指定环境变量的值
(setenv "ACAD" sp)
; 结束函数，不返回任何值
(princ)
)
(cabinsummerD2020-9-24)
; 在命令行输出提示信息，表明已经通过运行自定义函数添加了文件搜索路径
; princ 是 AutoCAD 的内置函数，用于在命令行输出字符串
(princ "已经通过运行自定义函数‘cabinsummerD2020-9-24’代码添加文件搜索路径=")
; 输出实际添加的文件夹路径列表
(princ path)
; 注释表明代码的使用理念：取之于明经CAD社区，用之于用户
; 取之于明，用之于民！
期待有大侠帮忙添加：
进一步来看→还能实现共用字体文件夹的搜索在安装CAD默认‘……\fonts’文件夹之前→那就能让dwg文件打开并搜索字体加载→满足文件内字体需要时，能够在共用字体文件夹内→顺利找到相应字体→顺利打开→不需要又不断重复点选→省事省心！
这个功能在deepseek和豆包问答都尝试过，暂时还没实现！
北杰 发表于 2025-4-16 12:32
这个添加一次后面就不用继续添加这个路径了，是保存在cad的
好的,谢谢了
页:
1
[2]