本帖最后由 LPACMQ 于 2018-3-1 19:07 编辑
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 发表于 2018-8-13 21:20
源码为什么有两个文件
也可以全部放到一起的
LPACMQ 发表于 2018-8-17 14:13
也可以全部放到一起的
有没有卸载功能
感谢楼主分享
厉害了还没下载 下载来看看
好像不能用2012，有问题
感谢楼主分享