明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
楼主: LPACMQ

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

    [复制链接]
发表于 2017-8-4 17:01 | 显示全部楼层
LPACMQ 发表于 2017-8-4 11:32
源码自己改改就可以啦

楼主好事做到底,把这个功能写进程序,一直在找这个东东
发表于 2017-8-4 17:21 | 显示全部楼层
szx025 发表于 2017-8-4 17:01
楼主好事做到底,把这个功能写进程序,一直在找这个东东

是啊,说实话,他的这个程序我看不懂
 楼主| 发表于 2017-8-5 10:25 | 显示全部楼层
本帖最后由 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)))
)


发表于 2017-9-25 09:44 | 显示全部楼层
这个用得到我支持
发表于 2017-10-14 13:32 | 显示全部楼层
好厉害,顶顶顶
发表于 2017-11-15 11:43 | 显示全部楼层
好东西谢谢楼主
发表于 2017-12-7 22:24 来自手机 | 显示全部楼层
能否支持查询错误函数
发表于 2018-2-24 18:59 | 显示全部楼层
用了一下,有几个问题:
1. 加载lsp‘vlx’ 出现循环多次加载情况,并且提示函数被取消,但实际上可以用。
2. 加载路径只能加载该函数所在的文件夹为路径,但是该函数所在文件夹中还有其他子文件夹时,其他子文件夹没有被设置为搜素路径。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2024-3-29 10:04 , Processed in 0.170468 second(s), 17 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

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