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

szx025

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

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

dujunhu2008

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

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

LPACMQ

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

这个用得到我支持

LIULISHENG

xfjiamy

逍遥天下

好厉害，顶顶顶

路宁宁

好东西谢谢楼主

13648893846

能否支持查询错误函数

dujunhu2008

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