社区 › 源码共享 › 分享一个自动加载的小插件，此插件拖拽进CAD后自动加载目录下的VLX,FAS,LSP应用程序

szx025 发表于 2017-8-4 17:01:20

LPACMQ 发表于 2017-8-4 11:32
源码自己改改就可以啦

楼主好事做到底，把这个功能写进程序，一直在找这个东东

dujunhu2008 发表于 2017-8-4 17:21:26

szx025 发表于 2017-8-4 17:01
楼主好事做到底，把这个功能写进程序，一直在找这个东东

是啊，说实话，他的这个程序我看不懂

LPACMQ 发表于 2017-8-5 10:25:06

本帖最后由 LPACMQ 于 2017-8-5 11:58 编辑

dujunhu2008 发表于 2017-8-4 09:08
如果能加载该目录下的mnu及添加该目录下的文件夹为搜索目录就好了...;|功能：添加指定路径->搜索路径
函数：Cq-addpath
方法：(Cq-addpath "c:")|;
(defun Cq-AddPath (strPath)
(if (findfile strpath)
    (setenv "ACAD" (strcat (getenv "ACAD") ";" strPath ";"))
)
(princ)
)
;|功能：添加指定路径下的文件夹->文件搜索路径
函数：Cq-addpaths
方法：(Cq-addpaths "c:")|;
(defun cq-addPaths (strpath)
(if (findfile strpath)
    (foreach x (vl-directory-files strpath nil -1) (Cq-AddPath (strcat strpath "\\" x)))
)
(princ)
)
;;;添加路径下的文件夹为搜索路径...
(if (vl-bb-set 'filepath (Cq-tuo-path))
(cq-addPaths (vl-filename-directory (vl-bb-ref 'filepath)))
)

LIULISHENG 发表于 2017-9-25 09:44:16

这个用得到我支持

LIULISHENG 发表于 2017-9-25 13:08:20

xfjiamy 发表于 2017-10-11 22:23:13

逍遥天下 发表于 2017-10-14 13:32:19

好厉害，顶顶顶

路宁宁 发表于 2017-11-15 11:43:32

好东西谢谢楼主

13648893846 发表于 2017-12-7 22:24:50

能否支持查询错误函数

dujunhu2008 发表于 2018-2-24 18:59:10

用了一下，有几个问题：
1. 加载lsp‘vlx’ 出现循环多次加载情况，并且提示函数被取消，但实际上可以用。
2. 加载路径只能加载该函数所在的文件夹为路径，但是该函数所在文件夹中还有其他子文件夹时，其他子文件夹没有被设置为搜素路径。

查看完整版本: 分享一个自动加载的小插件，此插件拖拽进CAD后自动加载目录下的VLX,FAS,LSP应用程序