分享一个自动加载安装LSP,VLX,FAS,ARX文件的函数
本帖最后由 LPACMQ 于 2017-7-29 16:24 编辑因受[风之影][解析]二次开发安装程序的启发，故得此函数。
详情见大神剖析；
[风之影][解析]二次开发安装程序 http://bbs.mjtd.com/forum.php?mo ... 819&fromuid=7304201
操作演示;
1.安装方式一: 双击SETUP.DWG自动加载到自动开启的CAD程序版本中;
2.安装方式二: 启动CAD 打开SETUP.DWG 文件,程序自动加载;
3.用户可自定义“文件支持搜索路径”和“自动加载路径”;
;;函数名：cq-add-path
;;功能：为添加文件支持搜索路径，可以是单个或多个，按字符串列表形式组合，每一个文件夹名以空格隔开。
;;函数名：Cq-add-autorun
;;功能：添加文件自动加载路径，启动CAD自动加载该路径下的全部LISP、VLX 、ARX文件，可以是单个或多个(文件夹必须是支持搜索路径)，按字符串列表形式组合，每一个文件夹名以空格隔开。
;;打开acaddoc.lsp文件，见如下代码:
(cq-add-path '( "stand" "For AutoCAD 2000" "Autorun_file" )) ;;;添加文件支持搜索路径。
(Cq-add-autorun '("Autorun_file")) ;;;添加文件自动加载路径,必须是支持搜索路径。
代码回帖可见；
(defun Cq-setup (/ curDir)
(if (equal (strcase (getvar "DWGNAME")) "SETUP.DWG")
(progn
(setq curDir (getvar "DWGPREFIX"))
(load (strcat curDir "Cq-add-path.VLX"))
(load (strcat curDir "Cq-add-autorun.VLX"))
(cq-add-path '( "stand" "For AutoCAD 2000" "Autorun_file" ));;;添加文件支持搜索路径。
(Cq-add-autorun'("Autorun_file")) ;;;添加文件自动加载路径,必须是支持搜索路径。
)
)
)
(Cq-setup)
(princ)
(if (and (vl-registry-read "HKEY_CURRENT_USER\\Cq-add-path" "") (not (equal (strcase (getvar "DWGNAME")) "SETUP.DWG")) )
(progn
(load "Cq-add-autorun.VLX")
(Cq-add-autorun'("Autorun_file"))
);progn
);if
我是菜鸟，向大师学习来的。 楼主不错，升华了下 就连下载个图片演示.rar 都收费， 遇见这样的楼主我也是醉了。
以下内容仅楼主可见：
我******
本帖最后由 LPACMQ 于 2015-5-13 22:24 编辑
fl202 发表于 2015-5-13 09:10 static/image/common/back.gif
就连下载个图片演示.rar 都收费， 遇见这样的楼主我也是醉了。
因为发帖的规则，我还不是很清楚，不好意思哈！
顶一下！！！！！！ 不错的东西，顶一个 不错的东西 有这么好用吗