crystalboy 发表于 2021-2-16 18:31
你好，在你共享的基础上对代码进行了修改和修复了几个bug，增加内容如下：1.支持子文件夹 2.支持arx 3 ...
你好，我想问下，我下载使用后，为何自动加载的是lsp，vls，手动再加载才能加载arx和fas？这个是什么原因？谢谢
crystalboy 发表于 2021-2-16 18:31
你好，在你共享的基础上对代码进行了修改和修复了几个bug，增加内容如下：1.支持子文件夹 2.支持arx 3 ...
如果文件夹里面还有几个子文件夹，想要自动加载子文件夹的插件，文件夹名称为插件加载，该如何添加？
潇湘飞雨 发表于 2021-5-21 17:29
如果文件夹里面还有几个子文件夹，想要自动加载子文件夹的插件，文件夹名称为插件加载，该如何添加？
代码已经实现了的，加载包括子文件夹下的内容
crystalboy 发表于 2021-5-22 01:29
代码已经实现了的，加载包括子文件夹下的内容
子文件夹有添加路径，测试了只加载了主文件夹的，不知问题何在~
crystalboy 发表于 2021-5-22 01:29
代码已经实现了的，加载包括子文件夹下的内容
可以，，实现了。。。。是我代码自己搞乱掉了。。惭愧！！！！
crystalboy 发表于 2021-5-22 01:29
代码已经实现了的，加载包括子文件夹下的内容
好像还有点小BUG 多次加载测试， 第一次正常， 删除支持文件路径，重新加载，只添加了主文件夹到支持文件路径！
本帖最后由 crystalboy 于 2021-5-24 13:10 编辑
潇湘飞雨 发表于 2021-5-22 11:38
好像还有点小BUG 多次加载测试， 第一次正常， 删除支持文件路径，重新加载，只添加了主文件夹到 ...
我平时都是把安全加载关闭了的，是只有主文件夹添加到cad的支持路径。
|;
;┄ ┄ ┄ ┄ ┄ ┄ ┄ ┄ ┄ ┄ ┄ ┄ ┄ ┄ ┄ ┄ ┄ ┄ ┄ ┄ ┄ ┄ ┄ ┄
;功能：添加路径到cad文件搜索路径
;函数：(gf-AddPath strPath)
;参数：str_path---路径
;返回：文件搜索的路径
;示例：(gf-addPath "D:\\kk_lisp")
; ->"---;---;---;---;---;---;---; ;路径省略了
; D:\\kk_lisp；"
(defun gf-AddPath (strPath)
(if (findfile strpath)
(setenv "ACAD" (strcat (getenv "ACAD") ";" strPath ";"))
)
)
;┄ ┄ ┄ ┄ ┄ ┄ ┄ ┄ ┄ ┄ ┄ ┄ ┄ ┄ ┄ ┄ ┄ ┄ ┄ ┄ ┄ ┄ ┄ ┄
;功能：添加路径（包括子路径）到cad文件搜索路径
;函数：(gf-addPaths str_path)
;参数：str_path---路径
;返回：添加后的文件搜索的路径
;示例：(gf-addPaths "D:\\kk_lisp")
; ->"---;---;---;---;---;---;---; ;路径省略了
; D:\\kk_lisp;D:\\kk_lisp\\test1;D:\\kk_lisp\\test2;D:\\kk_lisp\\test3;"
(defun gf-addPaths (str_path)
(setq list_folds (gf-getFolds str_path))
(foreach x list_folds
(gf-AddPath x)
)
)
;┄ ┄ ┄ ┄ ┄ ┄ ┄ ┄ ┄ ┄ ┄ ┄ ┄ ┄ ┄ ┄ ┄ ┄ ┄ ┄ ┄ ┄ ┄ ┄
;功能：返路径下的文件夹及子文件夹
;函数：(gf-getFolds str_path)
;参数：str_path---路径
;返回：文件夹和子文件夹组成的表
;示例：(gf-getFolds "D:\\kk_lisp")
; ->("D:\\kk_lisp" "D:\\kk_lisp\\test1" "D:\\kk_lisp\\test2" "D:\\kk_lisp\\test3")
(defun gf-getFolds (str_path / list_fold)
(defun getsonFold (sonpath)
(setq list_fold (cons sonpath list_fold))
(foreach x (cddr (vl-directory-files sonpath nil -1))
(getsonFold (strcat sonpath "\\" x))
)
)
(if (findfile str_path) (getsonFold str_path))
(reverse list_fold)
)
;┄ ┄ ┄ ┄ ┄ ┄ ┄ ┄ ┄ ┄ ┄ ┄ ┄ ┄ ┄ ┄ ┄ ┄ ┄ ┄ ┄ ┄ ┄ ┄
最新太忙了，天天加班，我这里有函数，自己修改。其实有个想法，检测cad设置的支持路径是否有效，无效则删除。移动路径后，会产生无效的支持路径。只是有这个想法。代码很容易实现。只是太忙了，没时间。
NIUBI 学习
谢谢，挺好用的
谢谢，挺好用的