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

LPACMQ

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

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

首先非常感谢坛友参与调试，发现问题并提出了宝贵的建议。
问题1，在2018.8.7更新的版本中已经得到改善，
问题2，请参考13楼结合以下函数根据自身情况加以改进，

;;示例18 by yxp小蜜蜂 提供
;;返回某路径下的文件夹及子文件夹
;;参数： p 为路径，调用 (Get_Folds "d:\\fff")
(defun fnSum2(p / d)
(defun Fold(s)
(setq d (cons s d))
(foreach x (cddr(vl-directory-files s nil -1))(Fold(strcat s "\\" x)))
)
(if (findfile p)(Fold p))
(reverse d)
)


另外，提供下加载自定义下拉菜单的函数
;;函数：Cq-cuiload ,加载自定义下拉菜单 by LPACMQ 2018.1.22
;;参数： Cui 为自定义菜单文件，调用(Cq-cuiload "XY_TOOL")
(defun Cq-cuiload (Cui / acadObj groupmenus I)
  (vl-load-com)
        ;;加载菜单
        (if (not(menugroup cui))
                (command "._CUILOAD" Cui)
        )
        (setq acadObj (vlax-get-acad-object))
        (setq groupmenus (vla-get-MenuGroups acadObj))
        (setq I (vla-get-count (vla-get-menubar acadObj)))
        ;;显示菜单
        (vlax-for M groupmenus
                (if (= (strcase cui)(vla-get-name M))
                        (vlax-for n (vla-get-menus M)
                                (vla-insertinmenubar n i)
                        )        
                )
        )
        (princ)
)

;;示例加载自定义菜单xy_tool
(if (findfile "XY_TOOL.Cuix");;XY_TOOL.CUIX在CAD搜索目录下
  (if (not(menugroup "XY_TOOL"))
      (cq-cuiload "XY_TOOL")
  )
)

断箭

很实用的一个插件

664571221

有没有提供卸载命令？？

664571221

源码为什么有两个文件

LPACMQ

664571221 发表于 2018-8-13 21:20
源码为什么有两个文件

也可以全部放到一起的

664571221

LPACMQ 发表于 2018-8-17 14:13
也可以全部放到一起的

有没有卸载功能

paulpipi

感谢楼主分享

yoyrtweq

厉害了  还没下载 下载来看看

664571221

好像不能用2012，有问题

涛涛_1048

感谢楼主分享