明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
楼主: LPACMQ

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

    [复制链接]
 楼主| 发表于 2018-2-25 12:00 | 显示全部楼层
本帖最后由 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")
  )
)
发表于 2018-4-19 09:12 | 显示全部楼层
很实用的一个插件
发表于 2018-8-13 20:42 | 显示全部楼层
有没有提供卸载命令??
发表于 2018-8-13 21:20 | 显示全部楼层
源码为什么有两个文件
 楼主| 发表于 2018-8-17 14:13 | 显示全部楼层
664571221 发表于 2018-8-13 21:20
源码为什么有两个文件

也可以全部放到一起的
发表于 2018-8-17 14:57 | 显示全部楼层
LPACMQ 发表于 2018-8-17 14:13
也可以全部放到一起的

有没有卸载功能
发表于 2018-8-18 22:24 | 显示全部楼层

感谢楼主分享
发表于 2018-8-31 16:01 | 显示全部楼层
厉害了  还没下载 下载来看看
发表于 2018-9-19 13:10 | 显示全部楼层
好像不能用2012,有问题
发表于 2018-10-23 23:37 | 显示全部楼层
感谢楼主分享
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-3-29 18:34 , Processed in 0.211428 second(s), 17 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表