cad设置自动添加支持文件搜索路径

magicheno

感谢大佬分享

寒潮大冬瓜

其实它这个方便之处在于→同时安装几个版本CAD或者经常修重装CAD的时候→只要加载一个lisp文件→实现N个版本CAD和字体文件共用一个文件夹→就是要添加这个‘支持文件搜索路径’！
进一步来看→还能实现共用字体文件夹的搜索在安装CAD默认‘……\fonts’文件夹之前→那就能让dwg文件打开并搜索字体加载→满足文件内字体需要时，能够在共用字体文件夹内→顺利找到相应字体→顺利打开→不需要又不断重复点选→省事省心！


;高手帮忙看一下添加文件搜索路径的lsp
;http://bbs.mjtd.com/forum.php?mo ... &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和豆包问答都尝试过，暂时还没实现！

ynkmm

北杰 发表于 2025-4-16 12:32
这个添加一次后面就不用继续添加这个路径了，是保存在cad的

好的,谢谢了